Importación inicial
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@16 970f2627-a9d2-4748-b3d4-b5283c4fe7db
This commit is contained in:
parent
785004c326
commit
60a3539bd8
114
official/2.31RC1/Packages/Connectors/UCADOConn/UCADOConn.pas
Normal file
114
official/2.31RC1/Packages/Connectors/UCADOConn/UCADOConn.pas
Normal file
@ -0,0 +1,114 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCADOConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: ADO Support
|
||||
|
||||
registered in UCReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCADOConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
ADODB,
|
||||
Classes,
|
||||
DB,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCADOConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TADOConnection;
|
||||
procedure SetADOConnection(Value: TADOConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TADOConnection read FConnection write SetADOConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCADOConn }
|
||||
|
||||
procedure TUCADOConn.SetADOConnection(Value: TADOConnection);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCADOConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCADOConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList, True);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCADOConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCADOConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCADOConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCADOConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.Execute(FSQL);
|
||||
end;
|
||||
|
||||
function TUCADOConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TADOQuery.Create(nil);
|
||||
with Result as TADOQuery do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,19 @@
|
||||
unit UCADOConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
UCADOConn;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCADOConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{1944C61F-3BA4-4B59-ACDB-779287021059}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCADOConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control ADO Connectors</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,36 @@
|
||||
package pckUCADOConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control ADO Connectors'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
pckUCDataConnector,
|
||||
adortl;
|
||||
|
||||
contains
|
||||
UCADOConn in 'UCADOConn.pas',
|
||||
UCADOConnReg in 'UCADOConnReg.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCADOConn/pckUCADOConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCADOConn/pckUCADOConn.res
Normal file
Binary file not shown.
@ -0,0 +1,123 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCZEOSConn
|
||||
Author: Vicente Barros Leonel
|
||||
Date: 29-outubro-2007
|
||||
Purpose: Absolute Database
|
||||
|
||||
registered in UCAbsoluteConn.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCAbsoluteConn;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
SysUtils,
|
||||
UCDataConnector,
|
||||
ABSMain;
|
||||
|
||||
type
|
||||
TUCAbsoluteConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TABSDatabase;
|
||||
procedure SetFConnection(const Value: TABSDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TABSDatabase read FConnection write SetFConnection;
|
||||
end;
|
||||
implementation
|
||||
|
||||
{ TUCAbsoluteConn }
|
||||
|
||||
function TUCAbsoluteConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCAbsoluteConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCAbsoluteConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
procedure TUCAbsoluteConn.SetFConnection(const Value: TABSDatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCAbsoluteConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TABSQuery.Create(nil) do
|
||||
begin
|
||||
DataBaseName := FConnection.Name;
|
||||
SQL.Clear;
|
||||
Sql.Add(fSql);
|
||||
ExecSQL;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCAbsoluteConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCAbsoluteConn.UCFindTable(const Tablename: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTablesList(TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCAbsoluteConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TABSQuery.Create(nil);
|
||||
with Result as TABSQuery do
|
||||
begin
|
||||
DataBaseName := FConnection.Name;
|
||||
SQL.Clear;
|
||||
Sql.Add(fSql);
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCAbsoluteConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCAbsoluteConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCAbsoluteConn]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,38 @@
|
||||
package pckUCAbsoluteConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control Absolute DataBase Connectors'}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl,
|
||||
vclAbsDBd11,
|
||||
vcl;
|
||||
|
||||
contains
|
||||
UCAbsoluteConnReg in 'UCAbsoluteConnReg.pas',
|
||||
UCAbsoluteConn in 'UCAbsoluteConn.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,40 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{e9d49972-8f3b-467c-b46e-69225c5b5b37}</ProjectGuid>
|
||||
<MainSource>pckUCAbsoluteConn.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckUCAbsoluteConn.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options> <Package_Options Name="PackageDescription">User Control Absolute DataBase Connectors</Package_Options>
|
||||
</Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">pckUCAbsoluteConn.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckUCAbsoluteConn.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\UCDBXConn\dbrtl.dcp" />
|
||||
<DCCReference Include="..\UCDBXConn\rtl.dcp" />
|
||||
<DCCReference Include="..\UCDBXConn\vcl.dcp" />
|
||||
<DCCReference Include="..\UCDBXConn\vclAbsDBd11.dcp" />
|
||||
<DCCReference Include="UCAbsoluteConn.pas" />
|
||||
<DCCReference Include="UCAbsoluteConnReg.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
Binary file not shown.
113
official/2.31RC1/Packages/Connectors/UCAstaConn/UCAstaConn.pas
Normal file
113
official/2.31RC1/Packages/Connectors/UCAstaConn/UCAstaConn.pas
Normal file
@ -0,0 +1,113 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCAstaConn
|
||||
Author: QmD
|
||||
Date: 24-nov-2004
|
||||
Purpose: Asta 3 Support
|
||||
|
||||
registered in UCAstaReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCAstaConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, AstaDrv2, AstaClientDataset, ScktComp,
|
||||
AstaCustomSocket, AstaClientSocket,AstaDBTypes;
|
||||
type
|
||||
TUCAstaConn = class(TUCDataConn)
|
||||
private
|
||||
FAstaClientSocket: TAstaClientSocket;
|
||||
procedure SetFAstaClientSocket(const Value: TAstaClientSocket);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property AstaClientSocket : TAstaClientSocket read FAstaClientSocket write SetFAstaClientSocket;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCAstaConn }
|
||||
|
||||
procedure TUCAstaConn.SetFAstaClientSocket(
|
||||
const Value: TAstaClientSocket);
|
||||
begin
|
||||
FAstaClientSocket := Value;
|
||||
if Value <> nil then Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCAstaConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FAstaClientSocket) then
|
||||
begin
|
||||
FAstaClientSocket := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCAstaConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempQuery : TAstaClientDataSet;
|
||||
begin
|
||||
TempQuery := TAstaClientDataset.Create(nil);
|
||||
TempQuery.AstaClientSocket := FAstaClientSocket;
|
||||
TempQuery.MetaDataRequest := mdTables;
|
||||
TempQuery.Open;
|
||||
Result := TempQuery.Locate('TableName',UpperCase(TableName),[]);
|
||||
TempQuery.Close;
|
||||
FreeAndNil(TempQuery);
|
||||
end;
|
||||
|
||||
|
||||
function TUCAstaConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FAstaClientSocket) and (FAstaClientSocket.Active);
|
||||
end;
|
||||
|
||||
function TUCAstaConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FAstaClientSocket) then
|
||||
begin
|
||||
if Owner = FAstaClientSocket.Owner then Result := FAstaClientSocket.Name
|
||||
else begin
|
||||
Result := FAstaClientSocket.Owner.Name+'.'+FAstaClientSocket.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCAstaConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCAstaConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TAstaClientDataset.Create(nil) do
|
||||
begin
|
||||
AstaClientSocket := FAstaClientSocket;
|
||||
SQL.text := FSQL;
|
||||
ExecSQL;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCAstaConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TAstaClientDataset.Create(nil);
|
||||
with Result as TAstaClientDataset do
|
||||
begin
|
||||
AstaClientSocket := FAstaClientSocket;
|
||||
SQL.text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCAstaReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCAstaConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCAstaConn]);
|
||||
end;
|
||||
end.
|
||||
127
official/2.31RC1/Packages/Connectors/UCBDEConn/UCBDEConn.pas
Normal file
127
official/2.31RC1/Packages/Connectors/UCBDEConn/UCBDEConn.pas
Normal file
@ -0,0 +1,127 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCBDEConn
|
||||
Author: QmD
|
||||
Date: 10-nov-2004
|
||||
Purpose: BDE Support
|
||||
|
||||
registered in UCReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCBDEConn;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
DBTables,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCBDEConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TDatabase;
|
||||
procedure SetFDatabase(Value: TDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TDatabase read FConnection write SetFDatabase;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCBDEConn }
|
||||
|
||||
procedure TUCBDEConn.SetFDatabase(Value: TDatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCBDEConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCBDEConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
Lista: TStringList;
|
||||
begin
|
||||
Lista := TStringList.Create;
|
||||
{$IFDEF DELPHI5}
|
||||
FConnection.Session.GetTableNames(FDatabase.Databasename,'*.db*', False, False, Lista);
|
||||
{$ELSE}
|
||||
FConnection.GetTableNames(Lista);
|
||||
{$ENDIF}
|
||||
Result := Lista.IndexOf(TableName) > -1;
|
||||
FreeAndNil(Lista);
|
||||
end;
|
||||
|
||||
function TUCBDEConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCBDEConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCBDEConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCBDEConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TQuery.Create(nil) do
|
||||
begin
|
||||
DatabaseName := FConnection.DatabaseName;
|
||||
SQL.Text := FSQL;
|
||||
ExecSQL;
|
||||
Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TUCBDEConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
var
|
||||
TempQuery: TQuery;
|
||||
begin
|
||||
TempQuery := TQuery.Create(nil);
|
||||
|
||||
with TempQuery do
|
||||
begin
|
||||
DatabaseName := FConnection.DatabaseName;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
Result := TempQuery;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,20 @@
|
||||
unit UCBDEConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
UCBDEConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCBDEConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{10CE76D6-3A8B-4A2D-97D9-1D2497CDF47E}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCBDEConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control BDE Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,36 @@
|
||||
package pckUCBDEConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control BDE Connector'}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
pckUCDataConnector,
|
||||
bdertl;
|
||||
|
||||
contains
|
||||
UCBDEConn in 'UCBDEConn.pas',
|
||||
UCBDEConnReg in 'UCBDEConnReg.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCBDEConn/pckUCBDEConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCBDEConn/pckUCBDEConn.res
Normal file
Binary file not shown.
@ -0,0 +1,128 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCDBISAMConn
|
||||
Changed: Carlos Guerra
|
||||
Date: 01-dez-2004
|
||||
Author: QmD
|
||||
Purpose: DBISAM Support
|
||||
|
||||
registered in UCDBISAMReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCDBISAMConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, dbisamtb;
|
||||
|
||||
type
|
||||
TUCDBISAMConn = class(TUCDataConn)
|
||||
private
|
||||
FConnection : TDBISAMDatabase;
|
||||
FSessionName: TDBISAMSession; //Carlos Guerra 12/01/2004
|
||||
procedure SetFDatabase(Value : TDBISAMDatabase);
|
||||
procedure SetFSessionName(const Value: TDBISAMSession); //Carlos Guerra 12/01/2004
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
// function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TDBISAMDatabase read FConnection write SetFDatabase;
|
||||
property SessionName : TDBISAMSession read FSessionName write SetFSessionName; //Carlos Guerra 12/01/2004
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCDBISAMConn }
|
||||
|
||||
procedure TUCDBISAMConn.SetFDatabase(Value: TDBISAMDatabase);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCDBISAMConn.SetFSessionName(const Value: TDBISAMSession);
|
||||
begin
|
||||
FSessionName := Value;
|
||||
if Value <> nil then Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
|
||||
procedure TUCDBISAMConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
begin
|
||||
FConnection := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCDBISAMConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
Lista : TStringList;
|
||||
begin
|
||||
Lista := TStringList.Create;
|
||||
|
||||
FConnection.Session.GetTableNames(FConnection.RemoteDatabase,Lista);
|
||||
Result := Lista.IndexOf(TableName) > -1;
|
||||
FreeAndNil(Lista);
|
||||
end;
|
||||
|
||||
function TUCDBISAMConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCDBISAMConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
{function TUCDBISAMConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;}
|
||||
|
||||
procedure TUCDBISAMConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TDBISAMQuery.Create(nil) do
|
||||
begin
|
||||
//DatabaseName := FConnection.DatabaseName; //Cancel by Carlos Guerra 12/01/2004
|
||||
DatabaseName := FConnection.RemoteDatabase; //Carlos Guerra 12/01/2004
|
||||
SessionName := FConnection.SessionName; //Carlos Guerra 12/01/2004
|
||||
SQL.text := FSQL;
|
||||
ExecSQL;
|
||||
Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TUCDBISAMConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
var
|
||||
TempQuery : TDBISAMQuery;
|
||||
begin
|
||||
TempQuery := TDBISAMQuery.Create(nil);
|
||||
TempQuery.SessionName := FConnection.SessionName; //Carlos Guerra 12/01/2004
|
||||
TempQuery.DatabaseName := FConnection.RemoteDatabase; //Carlos Guerra 12/01/2004
|
||||
with TempQuery do
|
||||
begin
|
||||
//DatabaseName := FConnection.DatabaseName; //Cancel by Carlos Guerra 12/01/2004
|
||||
SQL.text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
Result := TempQuery;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCDBISAMReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCDBISAMConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCDBISAMConn]);
|
||||
end;
|
||||
end.
|
||||
122
official/2.31RC1/Packages/Connectors/UCDBXConn/UCDBXConn.pas
Normal file
122
official/2.31RC1/Packages/Connectors/UCDBXConn/UCDBXConn.pas
Normal file
@ -0,0 +1,122 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCDBXConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: ADO Support
|
||||
|
||||
registered in UCDBXReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCDBXConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
SimpleDS,
|
||||
SqlExpr,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCDBXConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TSQLConnection;
|
||||
FSchema: String;
|
||||
procedure SetSQLConnection(Value: TSQLConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TSQLConnection read FConnection write SetSQLConnection;
|
||||
property SchemaName: String read FSchema write FSchema;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCDBXConn }
|
||||
|
||||
procedure TUCDBXConn.SetSQLConnection(Value: TSQLConnection);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCDBXConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCDBXConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
if SchemaName <> '' then
|
||||
FConnection.GetTableNames(TempList, SchemaName)
|
||||
else
|
||||
FConnection.GetTableNames(TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCDBXConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCDBXConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCDBXConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCDBXConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
// FConnection.Execute(FSQL, nil); // by vicente barros leonel
|
||||
FConnection.ExecuteDirect(FSQL);
|
||||
end;
|
||||
|
||||
function TUCDBXConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TSimpleDataSet.Create(nil);
|
||||
with Result as TSimpleDataSet do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
DataSet.CommandText := FSQL;
|
||||
SchemaName := FSchema;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,21 @@
|
||||
unit UCDBXConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
UCDBXConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCDBXConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{A0B6871C-8BC0-4AE7-B119-005254B61185}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCDBXConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control DBX Connectors</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,38 @@
|
||||
package pckUCDBXConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control DBX Connectors'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
pckUCDataConnector,
|
||||
dsnap,
|
||||
dbxcds,
|
||||
dbexpress;
|
||||
|
||||
contains
|
||||
UCDBXConn in 'UCDBXConn.pas',
|
||||
UCDBXConnReg in 'UCDBXConnReg.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,98 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{2e1b5318-7a28-4093-9bbb-c66237b9a704}</ProjectGuid>
|
||||
<MainSource>pckUCDBXConn.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckUCDBXConn.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Package_Options>
|
||||
<Package_Options Name="PackageDescription">User Control DBX Connectors</Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCDBXConn.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckUCDBXConn.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="dbexpress.dcp" />
|
||||
<DCCReference Include="dbxcds.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="UCDBXConn.pas" />
|
||||
<DCCReference Include="UCDBXConnReg.pas" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCDBXConn/pckUCDBXConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCDBXConn/pckUCDBXConn.res
Normal file
Binary file not shown.
120
official/2.31RC1/Packages/Connectors/UCFIBConn/UCFIBConn.pas
Normal file
120
official/2.31RC1/Packages/Connectors/UCFIBConn/UCFIBConn.pas
Normal file
@ -0,0 +1,120 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCFIBConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: FIB Support
|
||||
|
||||
registered in UCReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCFIBConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, pFIBDatabase, pFIBDataset;
|
||||
|
||||
type
|
||||
TUCFIBConn = class(TUCDataConn)
|
||||
private
|
||||
FConnection : TpFIBDatabase;
|
||||
FTransaction: TpFIBTransaction;
|
||||
procedure SetFTransaction(const Value: TpFIBTransaction);
|
||||
procedure SetFConnection(const Value: TpFIBDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TpFIBDatabase read FConnection write SetFConnection;
|
||||
property Transaction : TpFIBTransaction read FTransaction write SetFTransaction;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCFIBConn }
|
||||
|
||||
procedure TUCFIBConn.SetFTransaction(const Value: TpFIBTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCFIBConn.SetFConnection(const Value: TpFIBDatabase);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCFIBConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then FConnection := nil;
|
||||
if (Operation = opRemove) and (AComponent = FTransaction) then FTransaction := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCFIBConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList : TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList,False);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCFIBConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCFIBConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCFIBConn.GetTransObjectName: String;
|
||||
begin
|
||||
if Assigned(FTransaction) then
|
||||
begin
|
||||
if Owner = FTransaction.Owner then Result := FTransaction.Name
|
||||
else begin
|
||||
Result := FTransaction.Owner.Name+'.'+FTransaction.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCFIBConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.Execute(FSQL);
|
||||
end;
|
||||
|
||||
function TUCFIBConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TpFIBDataset.Create(nil);
|
||||
with Result as TpFIBDataset do
|
||||
begin
|
||||
Database := FConnection;
|
||||
Transaction := FTransaction;
|
||||
SelectSQL.text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCFIBReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCFIBConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCFIBConn]);
|
||||
end;
|
||||
end.
|
||||
111
official/2.31RC1/Packages/Connectors/UCIBOConn/UCIBOConn.pas
Normal file
111
official/2.31RC1/Packages/Connectors/UCIBOConn/UCIBOConn.pas
Normal file
@ -0,0 +1,111 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCIBOConn
|
||||
Author: QmD
|
||||
Date: 22-nov-2004
|
||||
Purpose: IBO Dataset Support
|
||||
|
||||
registered in UCIBOReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCIBOConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
IB_Components,
|
||||
IBODataset,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCIBOConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TIBODatabase;
|
||||
procedure SetIBOConnection(const Value: TIBODatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TIBODatabase read FConnection write SetIBOConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCIBOConn }
|
||||
|
||||
|
||||
procedure TUCIBOConn.SetIBOConnection(const Value: TIBODatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCIBOConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCIBOConn.UCFindTable(const TableName: String): Boolean;
|
||||
begin
|
||||
with TIBOQuery.Create(nil) do
|
||||
begin
|
||||
IB_Connection := FConnection;
|
||||
SQL.Text := 'SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$SYSTEM_FLAG = 0 and RDB$RELATION_NAME = ' + QuotedStr(Uppercase(TableName));
|
||||
Open;
|
||||
Result := FieldByName('RDB$RELATION_NAME').AsString = Uppercase(TableName);
|
||||
Close;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCIBOConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCIBOConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
|
||||
procedure TUCIBOConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.DefaultTransaction.ExecuteImmediate(FSQL);
|
||||
FConnection.DefaultTransaction.Commit;
|
||||
end;
|
||||
|
||||
function TUCIBOConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TIBOQuery.Create(nil);
|
||||
with Result as TIBOQuery do
|
||||
begin
|
||||
IB_Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,18 @@
|
||||
unit UCIBOConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCIBOConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCIBOConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,32 @@
|
||||
package pckIBOConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control IBO Connector'}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
contains
|
||||
UCIBOConn in 'UCIBOConn.pas',
|
||||
UCIBOConnReg in 'UCIBOConnReg.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCIBOConn/pckIBOConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCIBOConn/pckIBOConn.res
Normal file
Binary file not shown.
152
official/2.31RC1/Packages/Connectors/UCIBXConn/UCIBXConn.pas
Normal file
152
official/2.31RC1/Packages/Connectors/UCIBXConn/UCIBXConn.pas
Normal file
@ -0,0 +1,152 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCIBXConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: IBX Support
|
||||
|
||||
registered in UCReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCIBXConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
IBDataBase,
|
||||
IBQuery,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCIBXConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TIBDatabase;
|
||||
FTransaction: TIBTransaction;
|
||||
procedure SetTransaction(const Value: TIBTransaction);
|
||||
procedure SetConnection(const Value: TIBDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TIBDatabase read FConnection write SetConnection;
|
||||
property Transaction: TIBTransaction read FTransaction write SetTransaction;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCIBXConn }
|
||||
|
||||
procedure TUCIBXConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
if (Operation = opRemove) and (AComponent = FTransaction) then
|
||||
FTransaction := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCIBXConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
TempList := TStringList.Create;
|
||||
try
|
||||
FConnection.GetTableNames(TempList, False);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
SysUtils.FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCIBXConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCIBXConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCIBXConn.GetTransObjectName: String;
|
||||
begin
|
||||
if Assigned(FTransaction) then
|
||||
begin
|
||||
if Owner = FTransaction.Owner then
|
||||
Result := FTransaction.Name
|
||||
else
|
||||
begin
|
||||
Result := FTransaction.Owner.Name + '.' + FTransaction.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCIBXConn.UCExecSQL(FSQL: String);
|
||||
var
|
||||
Qry: TIBQuery;
|
||||
begin
|
||||
Qry := TIBQuery.Create(nil);
|
||||
try
|
||||
Qry.Database := FConnection;
|
||||
Qry.Transaction := FTransaction;
|
||||
if not Qry.Transaction.Active then
|
||||
Qry.Transaction.Active := True;
|
||||
Qry.SQL.Text := FSQL;
|
||||
Qry.ExecSQL;
|
||||
Qry.Transaction.Commit;
|
||||
finally
|
||||
Qry.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCIBXConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TIBQuery.Create(nil);
|
||||
with Result as TIBQuery do
|
||||
begin
|
||||
Database := FConnection;
|
||||
Transaction := FTransaction;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TUCIBXConn.SetTransaction(const Value: TIBTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then
|
||||
Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCIBXConn.SetConnection(const Value: TIBDatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,20 @@
|
||||
unit UCIBXConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
UCIBXConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCIBXConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{CEBA635D-1D31-400E-B5E3-F9F040ABB4AB}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCIBXConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control IBX Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,36 @@
|
||||
package pckUCIBXConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control IBX Connector'}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
pckUCDataConnector,
|
||||
ibxpress;
|
||||
|
||||
contains
|
||||
UCIBXConn in 'UCIBXConn.pas',
|
||||
UCIBXConnReg in 'UCIBXConnReg.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCIBXConn/pckUCIBXConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCIBXConn/pckUCIBXConn.res
Normal file
Binary file not shown.
149
official/2.31RC1/Packages/Connectors/UCMDOConn/UCMDOConn.pas
Normal file
149
official/2.31RC1/Packages/Connectors/UCMDOConn/UCMDOConn.pas
Normal file
@ -0,0 +1,149 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCMDOConn
|
||||
Author: Alexandre Oliveira - 05/11/2004
|
||||
Change: QmD
|
||||
Date: 10-nov-2004
|
||||
Purpose: MDO Support
|
||||
|
||||
registered in UCMDOReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMDOConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
MDODatabase,
|
||||
MDOQuery,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCMDOConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TMDODatabase;
|
||||
FTransaction: TMDOTransaction;
|
||||
procedure SetFTransaction(const Value: TMDOTransaction);
|
||||
procedure SetMDOConnection(const Value: TMDODatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TMDODatabase read FConnection write SetMDOConnection;
|
||||
property Transaction: TMDOTransaction read FTransaction write SetFTransaction;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCMDOConn }
|
||||
|
||||
procedure TUCMDOConn.SetFTransaction(const Value: TMDOTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then
|
||||
Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMDOConn.SetMDOConnection(const Value: TMDODatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMDOConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
if (Operation = opRemove) and (AComponent = FTransaction) then
|
||||
FTransaction := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCMDOConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList, False);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMDOConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMDOConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCMDOConn.GetTransObjectName: String;
|
||||
begin
|
||||
if Assigned(FTransaction) then
|
||||
begin
|
||||
if Owner = FTransaction.Owner then
|
||||
Result := FTransaction.Name
|
||||
else
|
||||
begin
|
||||
Result := FTransaction.Owner.Name + '.' + FTransaction.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMDOConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TMDOQuery.Create(nil) do
|
||||
begin
|
||||
Database := FConnection;
|
||||
Transaction := FTransaction;
|
||||
if not Transaction.Active then
|
||||
Transaction.Active := True;
|
||||
SQL.Text := FSQL;
|
||||
ExecSQL;
|
||||
FTransaction.Commit;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMDOConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TMDOQuery.Create(nil);
|
||||
with Result as TMDOQuery do
|
||||
begin
|
||||
Database := FConnection;
|
||||
Transaction := FTransaction;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCMDOConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCMDOConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCMDOConn]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,177 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{13F3B1B4-5456-4CCA-A9DA-31602BB203AA}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCMDOConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control MDO Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,40 @@
|
||||
package pckUCMDOConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control MDO Connector'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
pckUCDataConnector,
|
||||
vcl,
|
||||
vclactnband,
|
||||
vcldb,
|
||||
RCLMDO2005;
|
||||
|
||||
contains
|
||||
UCMDOConnReg in 'UCMDOConnReg.pas',
|
||||
UCMDOConn in 'UCMDOConn.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCMDOConn/pckUCMDOConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCMDOConn/pckUCMDOConn.res
Normal file
Binary file not shown.
181
official/2.31RC1/Packages/Connectors/UCMidasConn/UCMidasConn.pas
Normal file
181
official/2.31RC1/Packages/Connectors/UCMidasConn/UCMidasConn.pas
Normal file
@ -0,0 +1,181 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCMidasConn
|
||||
Author : Luiz Benevenuto
|
||||
Date : 31/07/2005
|
||||
Purpose : Midas Suporte ( DataSnap )
|
||||
E-mail : luiz@siffra.com
|
||||
URL : www.siffra.com
|
||||
UC : www.usercontrol.net
|
||||
|
||||
registered in UCMidasConnReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMidasConn;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
DBClient,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TBancoDados = (bdFirebird, bdMSSQL, bdOracle, bdPostgreSQL, bdMySQL, bdParadox);
|
||||
|
||||
TUCMidasConn = class(TUCDataConnector)
|
||||
private
|
||||
FResultado: OleVariant;
|
||||
FSQLStmt: String;
|
||||
FParams: OleVariant;
|
||||
FOwnerData: OleVariant;
|
||||
FRecsOut: Integer;
|
||||
FConnection: TCustomRemoteServer;
|
||||
FProviderName: String;
|
||||
FBancoDados: TBancoDados;
|
||||
procedure SetConnection(const Value: TCustomRemoteServer);
|
||||
procedure SetProviderName(const Value: String);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TCustomRemoteServer Read FConnection Write SetConnection;
|
||||
property ProviderName: String Read FProviderName Write SetProviderName;
|
||||
property BancoDados: TBancoDados Read FBancoDados Write FBancoDados;
|
||||
end;
|
||||
|
||||
const
|
||||
// Select para as tabelas de sistema !!! Para outro tipo de banco implemente aqui !!!!!
|
||||
|
||||
// Para banco novo !!!
|
||||
// Não esquecer de colocar em TBancoDados, o tipo de banco !!!!!!
|
||||
// Não esquecer de colocar no 'case' de UCFindTable
|
||||
|
||||
SQL_Firebird =
|
||||
'SELECT ' +
|
||||
' UPPER(RDB$RELATIONS.RDB$RELATION_NAME) RDB$RELATION_NAME ' +
|
||||
'FROM ' +
|
||||
' RDB$RELATIONS ' +
|
||||
'WHERE ' +
|
||||
' RDB$RELATIONS.RDB$FLAGS = 1 AND UPPER(RDB$RELATIONS.RDB$RELATION_NAME) = ' +
|
||||
' UPPER(''%s'')';
|
||||
|
||||
SQL_MSSQL = '';
|
||||
|
||||
SQL_Oracle = '';
|
||||
|
||||
SQL_PostgreSQL =
|
||||
'SELECT ' +
|
||||
' UPPER(PG_CLASS.RELNAME) ' +
|
||||
'FROM ' +
|
||||
' PG_CLASS ' +
|
||||
'WHERE ' +
|
||||
' PG_CLASS.RELKIND = ''r'' AND ' +
|
||||
' UPPER(PG_CLASS.RELNAME) LIKE UPPER(''%s'')';
|
||||
|
||||
SQL_MySQL = '';
|
||||
|
||||
SQL_Paradox = '';
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Midas,
|
||||
Provider;
|
||||
|
||||
{ TUCMidasConn }
|
||||
|
||||
function TUCMidasConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCMidasConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.SetConnection(const Value: TCustomRemoteServer);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.SetProviderName(const Value: String);
|
||||
begin
|
||||
FProviderName := Value;
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
IAppServer(FConnection.GetServer).AS_Execute(FProviderName, FSQL, FParams, FOwnerData);
|
||||
end;
|
||||
|
||||
function TUCMidasConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMidasConn.UCFindTable(const Tablename: String): Boolean;
|
||||
begin
|
||||
case FBancoDados of
|
||||
bdFirebird: FSQLStmt := SQL_Firebird;
|
||||
bdMSSQL: FSQLStmt := SQL_MSSQL;
|
||||
bdOracle: FSQLStmt := SQL_Oracle;
|
||||
bdPostgreSQL: FSQLStmt := SQL_PostgreSQL;
|
||||
bdMySQL: FSQLStmt := SQL_MySQL;
|
||||
bdParadox: FSQLStmt := SQL_Paradox;
|
||||
end;
|
||||
|
||||
FSQLStmt := Format(FSQLStmt, [Tablename]);
|
||||
|
||||
FResultado := IAppServer(FConnection.GetServer).AS_GetRecords(FProviderName, -1, FRecsOut, 0, FSQLStmt, FParams, FOwnerData);
|
||||
|
||||
Result := FRecsOut > 0;
|
||||
end;
|
||||
|
||||
function TUCMidasConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TClientDataSet.Create(Self);
|
||||
|
||||
with TClientDataSet(Result) do
|
||||
begin
|
||||
if FConnection is TConnectionBroker then
|
||||
ConnectionBroker := TConnectionBroker(FConnection)
|
||||
else
|
||||
RemoteServer := FConnection;
|
||||
|
||||
ProviderName := FProviderName;
|
||||
CommandText := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,74 @@
|
||||
unit UCMidasConnReg;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DesignEditors,
|
||||
DesignIntf,
|
||||
TypInfo;
|
||||
|
||||
type
|
||||
TUCProviderNameProperty = class(TStringProperty)
|
||||
function GetAttributes: TPropertyAttributes; override;
|
||||
procedure GetValues(Proc: TGetStrProc); override;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Midas,
|
||||
UCMidasConn,
|
||||
Variants;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCMidasConn]);
|
||||
RegisterPropertyEditor(TypeInfo(String), TUCMidasConn, 'ProviderName', TUCProviderNameProperty);
|
||||
end;
|
||||
|
||||
{ TUCProviderNameProperty }
|
||||
|
||||
function TUCProviderNameProperty.GetAttributes: TPropertyAttributes;
|
||||
begin
|
||||
Result := [paValueList];
|
||||
end;
|
||||
|
||||
procedure TUCProviderNameProperty.GetValues(Proc: TGetStrProc);
|
||||
var
|
||||
Componente: TComponent;
|
||||
Lista: variant;
|
||||
I: Integer;
|
||||
begin
|
||||
Componente := TComponent(GetComponent(0));
|
||||
|
||||
if not Assigned(Componente) then
|
||||
Exit;
|
||||
|
||||
if not (Componente is TUCMidasConn) then
|
||||
Exit;
|
||||
|
||||
if not Assigned(TUCMidasConn(Componente).Connection) then
|
||||
Exit;
|
||||
|
||||
with TUCMidasConn(Componente) do
|
||||
begin
|
||||
|
||||
try
|
||||
Lista := IAppServer(Connection.GetServer).AS_GetProviderNames;
|
||||
except
|
||||
end;
|
||||
|
||||
if VarIsArray(Lista) and (VarArrayDimCount(Lista) = 1) then
|
||||
for I := VarArrayLowBound(Lista, 1) to VarArrayHighBound(Lista, 1) do
|
||||
Proc(Lista[I]);
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,178 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{7FD46D2D-1910-4ADF-A661-F63509D39ED7}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCMidasConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control Midas Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,39 @@
|
||||
package pckUCMidasConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control Midas Connector'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
designide,
|
||||
dbrtl,
|
||||
dsnap,
|
||||
rtl,
|
||||
pckUCDataConnector;
|
||||
|
||||
contains
|
||||
UCMidasConn in 'UCMidasConn.pas',
|
||||
UCMidasConnReg in 'UCMidasConnReg.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,56 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{8fed7c75-8e0d-4aa3-a33b-65582db4fefb}</ProjectGuid>
|
||||
<MainSource>pckUCMidasConn.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckUCMidasConn.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">User Control Midas Connector</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">pckUCMidasConn.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckUCMidasConn.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="UCMidasConn.pas" />
|
||||
<DCCReference Include="UCMidasConnReg.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
Binary file not shown.
106
official/2.31RC1/Packages/Connectors/UCMyDACConn/UCMyDACConn.pas
Normal file
106
official/2.31RC1/Packages/Connectors/UCMyDACConn/UCMyDACConn.pas
Normal file
@ -0,0 +1,106 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCMyDACConn
|
||||
Author: QmD
|
||||
Date: 22-nov-2004
|
||||
Purpose: MyDAC Support
|
||||
|
||||
registered in UCMyDACReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMyDACConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
UCDataConnector,SysUtils, Classes, UCBase, DB, DBAccess, MyAccess, MemDS;
|
||||
|
||||
type
|
||||
TUCMyDACConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection : TMyConnection;
|
||||
procedure SetFConnection(Value : TMyConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TMyConnection read FConnection write SetFConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCMyDACConn }
|
||||
|
||||
procedure TUCMyDACConn.SetFConnection(Value: TMyConnection);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMyDACConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
begin
|
||||
FConnection := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList : TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMyDACConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.ExecSQL(FSQL,[]);
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TMyQuery.Create(nil);
|
||||
with Result as TMyQuery do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCMyDACConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCMyDACConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCMyDACConn]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,48 @@
|
||||
package pckMyDacConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl,
|
||||
dac105,
|
||||
mydac105,
|
||||
vcldb,
|
||||
vcl,
|
||||
pckUserControl_RT,
|
||||
pckUCDataConnector,
|
||||
pckMD5,
|
||||
VclSmp,
|
||||
vclx,
|
||||
inet,
|
||||
designide,
|
||||
xmlrtl,
|
||||
vclactnband;
|
||||
|
||||
contains
|
||||
UCMyDACConnReg in 'UCMyDACConnReg.pas',
|
||||
UCMyDACConn in 'UCMyDACConn.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,90 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{5338e891-3591-4e66-859a-eaa77ade0066}</ProjectGuid>
|
||||
<MainSource>pckMyDacConn.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckMyDacConn.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">True</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckMyDacConn.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckMyDacConn.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="dac105.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="inet.dcp" />
|
||||
<DCCReference Include="mydac105.dcp" />
|
||||
<DCCReference Include="pckMD5.dcp" />
|
||||
<DCCReference Include="pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="UCMyDACConn.pas" />
|
||||
<DCCReference Include="UCMyDACConnReg.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="VclSmp.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
@ -0,0 +1,31 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{9e0c44c1-7f19-426e-959f-54b897d52e85}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup />
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="pckMyDacConn">
|
||||
<MSBuild Projects="pckMyDacConn.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="pckMyDacConn:Clean">
|
||||
<MSBuild Projects="pckMyDacConn.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="pckMyDacConn:Make">
|
||||
<MSBuild Projects="pckMyDacConn.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="pckMyDacConn" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="pckMyDacConn:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="pckMyDacConn:Make" />
|
||||
</Target>
|
||||
</Project>
|
||||
Binary file not shown.
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{45FB3673-19C1-4EAF-95D7-01C1EF617B44}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCMYDac.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">UserControl MyDac Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,47 @@
|
||||
package pckUCMYDac;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'UserControl MyDac Connector'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl,
|
||||
pckUserControl_RT,
|
||||
VclSmp,
|
||||
vclx,
|
||||
vcl,
|
||||
pckUCDataConnector,
|
||||
pckMD5,
|
||||
vcldb,
|
||||
vclactnband,
|
||||
vcljpg,
|
||||
dac100,
|
||||
mydac100;
|
||||
|
||||
contains
|
||||
UCMyDACConnReg in 'UCMyDACConnReg.pas',
|
||||
UCMyDACConn in 'UCMyDACConn.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCMyDACConn/pckUCMYDac.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCMyDACConn/pckUCMYDac.res
Normal file
Binary file not shown.
@ -0,0 +1,106 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCMySQLDACConn
|
||||
Author: QmD
|
||||
Date: 22-nov-2004
|
||||
Purpose: MySQLDAC Support
|
||||
|
||||
registered in UCMySQLDACReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMySQLDACConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, mySQLDbTables;
|
||||
|
||||
type
|
||||
TUCMySQLDACConn = class(TUCDataConn)
|
||||
private
|
||||
FConnection : TmySQLDatabase;
|
||||
procedure SetFConnection(Value : TmySQLDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TmySQLDatabase read FConnection write SetFConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCMySQLDACConn }
|
||||
|
||||
procedure TUCMySQLDACConn.SetFConnection(Value: TmySQLDatabase);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMySQLDACConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
begin
|
||||
FConnection := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList : TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TableName, TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMySQLDACConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.Execute(FSQL);
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TmySQLQuery.Create(nil);
|
||||
with Result as TmySQLQuery do
|
||||
begin
|
||||
Database := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCMySQLDACConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCMySQLDACConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCMySQLDACConn]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{1944C61F-3BA4-4B59-ACDB-779287021059}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckMySQLDACConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control ADO Connectors</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,38 @@
|
||||
package pckMySQLDACConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control ADO Connectors'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
pckUCDataConnector,
|
||||
adortl,
|
||||
rtl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
UCMySQLDACConnReg in 'UCMySQLDACConnReg.pas',
|
||||
UCMySQLDACConn in 'UCMySQLDACConn.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,98 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{480541f5-52fb-4c6b-adf4-7b2eb88c5599}</ProjectGuid>
|
||||
<MainSource>pckMySQLDACConn.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckMySQLDACConn.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Package_Options>
|
||||
<Package_Options Name="PackageDescription">User Control ADO Connectors</Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckMySQLDACConn.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckMySQLDACConn.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="UCMySQLDACConn.pas" />
|
||||
<DCCReference Include="UCMySQLDACConnReg.pas" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
Binary file not shown.
@ -0,0 +1,104 @@
|
||||
{Connector para NexusDB v2.xx adaptado por WanX}
|
||||
|
||||
unit UCNexusDBConn;
|
||||
|
||||
interface
|
||||
|
||||
{.$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, UCDataConnector, nxdb, nxsdFmtBCD;
|
||||
|
||||
type
|
||||
TUCNexusDBConnector = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TnxDatabase;
|
||||
procedure SetConnection(const Value: TnxDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function GetDBObjectName: String; override;
|
||||
published
|
||||
property Connection: TnxDatabase read FConnection write SetConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCNexusDBConnector }
|
||||
|
||||
function TUCNexusDBConnector.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCNexusDBConnector.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if ((Operation = opRemove) and (AComponent = FConnection)) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
procedure TUCNexusDBConnector.SetConnection(const Value: TnxDatabase);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCNexusDBConnector.UCExecSQL(FSQL: String);
|
||||
var
|
||||
TempQuery: TnxQuery;
|
||||
begin
|
||||
TempQuery:= TnxQuery.Create(nil);
|
||||
try
|
||||
TempQuery.Database:= FConnection;
|
||||
TempQuery.SQL.text := FSQL;
|
||||
TempQuery.ExecSQL;
|
||||
finally
|
||||
FreeAndNil(TempQuery);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCNexusDBConnector.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := (Assigned(FConnection) and (FConnection.Connected));
|
||||
end;
|
||||
|
||||
function TUCNexusDBConnector.UCFindTable(const Tablename: String): Boolean;
|
||||
var
|
||||
Lista : TStringList;
|
||||
begin
|
||||
Lista := TStringList.Create;
|
||||
try
|
||||
FConnection.GetTableNames(Lista);
|
||||
Result := Lista.IndexOf(TableName) > -1;
|
||||
finally
|
||||
FreeAndNil(Lista);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCNexusDBConnector.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
var
|
||||
TempQuery : TnxQuery;
|
||||
begin
|
||||
TempQuery := TnxQuery.Create(nil);
|
||||
TempQuery.Database:= FConnection;
|
||||
with TempQuery do
|
||||
begin
|
||||
SQL.text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
Result := TempQuery;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,15 @@
|
||||
unit UCNexusDBConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes, UCNexusDBConn;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCNexusDBConnector]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,38 @@
|
||||
package pckUCNexusDBConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl,
|
||||
pckUCDataConnector,
|
||||
NexusDB207ll100,
|
||||
NexusDB207db100,
|
||||
NexusDB207sd100;
|
||||
|
||||
contains
|
||||
UCNexusDBConnReg in 'UCNexusDBConnReg.pas';
|
||||
|
||||
end.
|
||||
Binary file not shown.
119
official/2.31RC1/Packages/Connectors/UCODACConn/UCODACConn.pas
Normal file
119
official/2.31RC1/Packages/Connectors/UCODACConn/UCODACConn.pas
Normal file
@ -0,0 +1,119 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCOADCCon
|
||||
Author: QmD
|
||||
Date: 23-jun-2007
|
||||
Purpose: ODAC Support
|
||||
|
||||
registered in UCODACReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCODACConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, DBAccess, Ora;
|
||||
|
||||
type
|
||||
TUCODACConn = class(TUCDataConn)
|
||||
private
|
||||
FConnection : TOraSession;
|
||||
procedure SetFConnection(Value : TOraSession);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TOraSession read FConnection write SetFConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCODACConn }
|
||||
|
||||
procedure TUCODACConn.SetFConnection(Value: TOraSession);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCODACConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
begin
|
||||
FConnection := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCODACConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList : TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCODACConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCODACConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCODACConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCODACConn.UCExecSQL(FSQL: String);
|
||||
Var Query : TOraSql;
|
||||
begin
|
||||
Try
|
||||
Query := TOraSql.create(self);
|
||||
With Query as TOraSql do
|
||||
Begin
|
||||
Connecton := FConnection;
|
||||
Sql.Add( fSql );
|
||||
Execute;
|
||||
Connecton.Commit;
|
||||
End;
|
||||
Finally
|
||||
FreeAndNil( Query );
|
||||
End;
|
||||
end;
|
||||
|
||||
function TUCODACConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TOraQuery.Create(nil);
|
||||
with Result as TOraQuery do
|
||||
begin
|
||||
Session := FConnection;
|
||||
SQL.Clear;
|
||||
Sql.Add(FSQL);
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCODACConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCODACConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCODACConn]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{662D452A-F426-4CD5-A468-2371E3EC336B}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckODACConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription"></Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,35 @@
|
||||
package pckODACConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
UCODACConnReg in 'UCODACConnReg.pas',
|
||||
UCODACConn in 'UCODACConn.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCODACConn/pckODACConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCODACConn/pckODACConn.res
Normal file
Binary file not shown.
146
official/2.31RC1/Packages/Connectors/UCUIBConn/UCUIBConn.pas
Normal file
146
official/2.31RC1/Packages/Connectors/UCUIBConn/UCUIBConn.pas
Normal file
@ -0,0 +1,146 @@
|
||||
unit UCUIBConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
jvuib,
|
||||
jvuibdataset,
|
||||
jvuibmetadata,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCUIBConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TJvUIBDataBase;
|
||||
FTransaction: TJvUIBTransaction;
|
||||
procedure SetConnection(const Value: TJvUIBDataBase);
|
||||
procedure SetTransaction(const Value: TJvUIBTransaction);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
published
|
||||
property Connection: TJvUIBDataBase read FConnection write SetConnection;
|
||||
property Transaction: TJvUIBTransaction read FTransaction write SetTransaction;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
|
||||
{ TUCUIBConn }
|
||||
|
||||
function TUCUIBConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCUIBConn.GetTransObjectName: String;
|
||||
begin
|
||||
if Assigned(FTransaction) then
|
||||
begin
|
||||
if Owner = FTransaction.Owner then
|
||||
Result := FTransaction.Name
|
||||
else
|
||||
begin
|
||||
Result := FTransaction.Owner.Name + '.' + FTransaction.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
if (Operation = opRemove) and (AComponent = FTransaction) then
|
||||
FTransaction := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.SetConnection(const Value: TJvUIBDataBase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.SetTransaction(const Value: TJvUIBTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then
|
||||
Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.UCExecSQL(FSQL: String);
|
||||
var
|
||||
Query: TJvUIBQuery;
|
||||
begin
|
||||
try
|
||||
Query := TJvUIBQuery.Create(nil);
|
||||
Query.DataBase := FConnection;
|
||||
Query.Transaction := FTransaction;
|
||||
Query.SQL.Text := FSQL;
|
||||
FTransaction.StartTransaction;
|
||||
Query.ExecSQL;
|
||||
FTransaction.Commit;
|
||||
finally
|
||||
SysUtils.FreeAndNil(Query);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCUIBConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCUIBConn.UCFindTable(const Tablename: String): Boolean;
|
||||
var
|
||||
MetaData: TMetaDataBase;
|
||||
Table: TMetaTable;
|
||||
begin
|
||||
Result := False;
|
||||
MetaData := TMetaDataBase(FConnection.GetMetadata(True));
|
||||
Table := MetaData.FindTableName(Tablename);
|
||||
if Assigned(Table) then
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function TUCUIBConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
try
|
||||
Result := TJvUIBDataSet.Create(nil);
|
||||
with (Result as TJvUIBDataSet) do
|
||||
begin
|
||||
DataBase := FConnection;
|
||||
Transaction := FTransaction;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
except
|
||||
SysUtils.FreeAndNil(Result);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,21 @@
|
||||
unit UCUIBConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
UCUIBConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCUIBConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,182 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{5DAAC02E-F2F0-486E-BE2D-626933AD2DF5}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCUIBConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control UIB Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,43 @@
|
||||
package pckUCUIBConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control UIB Connector'}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
vclactnband,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
pckUCDataConnector,
|
||||
JvCoreD10R,
|
||||
JvUIBD10R;
|
||||
|
||||
contains
|
||||
UCUIBConn in 'UCUIBConn.pas',
|
||||
UCUIBConnReg in 'UCUIBConnReg.pas';
|
||||
|
||||
end.
|
||||
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCUIBConn/pckUCUIBConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCUIBConn/pckUCUIBConn.res
Normal file
Binary file not shown.
127
official/2.31RC1/Packages/Connectors/UCZeosConn/UCZEOSConn.pas
Normal file
127
official/2.31RC1/Packages/Connectors/UCZeosConn/UCZEOSConn.pas
Normal file
@ -0,0 +1,127 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCZEOSConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: ZEOS 6 Support
|
||||
|
||||
registered in UCZEOSReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCZEOSConn;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
SysUtils,
|
||||
UCDataConnector,
|
||||
ZConnection;
|
||||
|
||||
type
|
||||
TUCZEOSConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TZConnection;
|
||||
procedure SetFConnection(const Value: TZConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TZConnection read FConnection write SetFConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
ZDataset, Dialogs;
|
||||
|
||||
{ TUCZEOSConn }
|
||||
|
||||
procedure TUCZEOSConn.SetFConnection(const Value: TZConnection);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCZEOSConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames('', TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCZEOSConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TZQuery.Create(nil) do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
ExecSQL;
|
||||
If FConnection.AutoCommit = False then
|
||||
FConnection.Commit;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TZQuery.Create(nil);
|
||||
with Result as TZQuery do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCZEOSConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCZEOSConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCZEOSConn]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{874A4671-4E5B-4E1C-A73C-FDDB167CA5D2}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckZeosConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control Zeos Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,36 @@
|
||||
package pckZeosConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control Zeos Connector'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
ZComponentDesign,
|
||||
pckUCDataConnector;
|
||||
|
||||
contains
|
||||
UCZEOSConn in 'UCZEOSConn.pas',
|
||||
UCZEOSConnReg in 'UCZEOSConnReg.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,51 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{874a4671-4e5b-4e1c-a73c-fddb167ca5d2}</ProjectGuid>
|
||||
<MainSource>pckZeosConn.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckZeosConn.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>C:\WINDOWS\Temp</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\WINDOWS\Temp</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\WINDOWS\Temp</DCC_HppOutput>
|
||||
<DCC_UnitSearchPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">User Control Zeos Connector</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">pckZeosConn.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckZeosConn.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="UCZEOSConn.pas" />
|
||||
<DCCReference Include="UCZEOSConnReg.pas" />
|
||||
<DCCReference Include="ZComponentDesign.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
BIN
official/2.31RC1/Packages/Connectors/UCZeosConn/pckZeosConn.res
Normal file
BIN
official/2.31RC1/Packages/Connectors/UCZeosConn/pckZeosConn.res
Normal file
Binary file not shown.
74
official/2.31RC1/Packages/D2009.groupproj
Normal file
74
official/2.31RC1/Packages/D2009.groupproj
Normal file
@ -0,0 +1,74 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{1c592c69-53bd-49f1-a789-a4ac64f25b09}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="pckMD5.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="pckUCDataConnector.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="pckUserControl_RT.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="pckUserControl_DT.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="pckMD5">
|
||||
<MSBuild Projects="pckMD5.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckMD5:Clean">
|
||||
<MSBuild Targets="Clean" Projects="pckMD5.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckMD5:Make">
|
||||
<MSBuild Targets="Make" Projects="pckMD5.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUCDataConnector">
|
||||
<MSBuild Projects="pckUCDataConnector.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUCDataConnector:Clean">
|
||||
<MSBuild Targets="Clean" Projects="pckUCDataConnector.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUCDataConnector:Make">
|
||||
<MSBuild Targets="Make" Projects="pckUCDataConnector.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUserControl_RT">
|
||||
<MSBuild Projects="pckUserControl_RT.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUserControl_RT:Clean">
|
||||
<MSBuild Targets="Clean" Projects="pckUserControl_RT.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUserControl_RT:Make">
|
||||
<MSBuild Targets="Make" Projects="pckUserControl_RT.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUserControl_DT">
|
||||
<MSBuild Projects="pckUserControl_DT.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUserControl_DT:Clean">
|
||||
<MSBuild Targets="Clean" Projects="pckUserControl_DT.dproj"/>
|
||||
</Target>
|
||||
<Target Name="pckUserControl_DT:Make">
|
||||
<MSBuild Targets="Make" Projects="pckUserControl_DT.dproj"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="pckMD5;pckUCDataConnector;pckUserControl_RT;pckUserControl_DT"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="pckMD5:Clean;pckUCDataConnector:Clean;pckUserControl_RT:Clean;pckUserControl_DT:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="pckMD5:Make;pckUCDataConnector:Make;pckUserControl_RT:Make;pckUserControl_DT:Make"/>
|
||||
</Target>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
|
||||
</Project>
|
||||
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0"?>
|
||||
<TgConfig Version="3" SubLevelDisabled="False" />
|
||||
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0"?>
|
||||
<TgConfig Version="3" SubLevelDisabled="False" />
|
||||
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0"?>
|
||||
<TgConfig Version="3" SubLevelDisabled="False" />
|
||||
179
official/2.31RC1/Packages/pckMD5.bdsproj
Normal file
179
official/2.31RC1/Packages/pckMD5.bdsproj
Normal file
@ -0,0 +1,179 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{9CB29607-D179-4E14-9035-CDEA5CDA1561}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckMD5.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">MD5SUM Package</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
35
official/2.31RC1/Packages/pckMD5.dpk
Normal file
35
official/2.31RC1/Packages/pckMD5.dpk
Normal file
@ -0,0 +1,35 @@
|
||||
package pckMD5;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'MD5SUM Package'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{%TogetherDiagram 'ModelSupport_pckMD5\default.txaPackage'}
|
||||
|
||||
requires
|
||||
rtl;
|
||||
|
||||
contains
|
||||
md5 in '..\Source\md5.pas';
|
||||
|
||||
end.
|
||||
115
official/2.31RC1/Packages/pckMD5.dproj
Normal file
115
official/2.31RC1/Packages/pckMD5.dproj
Normal file
@ -0,0 +1,115 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{d2274d98-f9f6-4f51-9617-6c46e56a95d2}</ProjectGuid>
|
||||
<MainSource>pckMD5.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckMD5.bpl</DCC_DependencyCheckOutputName>
|
||||
<ProjectVersion>12.0</ProjectVersion>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DesignOnlyPackage>false</DesignOnlyPackage>
|
||||
<DCC_Description>MD5SUM Package</DCC_Description>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\6.0\Bpl\pckMD5.bpl</DCC_DependencyCheckOutputName>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||
<GenPackage>true</GenPackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<Version>7.0</Version>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"/>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckMD5.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckMD5.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<None Include="ModelSupport_pckMD5\default.txaPackage"/>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="..\Source\md5.pas"/>
|
||||
<None Include="ModelSupport_pckMD5\default.txvpck"/>
|
||||
<None Include="ModelSupport_pckMD5\md5\default.txaPackage"/>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
</Project>
|
||||
BIN
official/2.31RC1/Packages/pckMD5.res
Normal file
BIN
official/2.31RC1/Packages/pckMD5.res
Normal file
Binary file not shown.
181
official/2.31RC1/Packages/pckUCDataConnector.bdsproj
Normal file
181
official/2.31RC1/Packages/pckUCDataConnector.bdsproj
Normal file
@ -0,0 +1,181 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{031ABD26-4F86-4E62-80E0-8BE5B68D24AE}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCDataConnector.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control DataConn</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
|
||||
<ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
37
official/2.31RC1/Packages/pckUCDataConnector.dpk
Normal file
37
official/2.31RC1/Packages/pckUCDataConnector.dpk
Normal file
@ -0,0 +1,37 @@
|
||||
package pckUCDataConnector;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control DataConn'}
|
||||
{$RUNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{%TogetherDiagram 'ModelSupport_pckUCDataConnector\default.txaPackage'}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
UCDataConnector in '..\Source\UCDataConnector.pas';
|
||||
|
||||
end.
|
||||
117
official/2.31RC1/Packages/pckUCDataConnector.dproj
Normal file
117
official/2.31RC1/Packages/pckUCDataConnector.dproj
Normal file
@ -0,0 +1,117 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{32671bc6-e575-4ad0-9f27-6e30a6d8f220}</ProjectGuid>
|
||||
<MainSource>pckUCDataConnector.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckUCDataConnector.bpl</DCC_DependencyCheckOutputName>
|
||||
<ProjectVersion>12.0</ProjectVersion>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\6.0\Bpl\pckUCDataConnector.bpl</DCC_DependencyCheckOutputName>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DCC_Description>User Control DataConn</DCC_Description>
|
||||
<RuntimeOnlyPackage>true</RuntimeOnlyPackage>
|
||||
<DesignOnlyPackage>false</DesignOnlyPackage>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||
<GenPackage>true</GenPackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<Version>7.0</Version>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"/>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCDataConnector.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckUCDataConnector.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<None Include="ModelSupport_pckUCDataConnector\default.txaPackage"/>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="..\Source\UCDataConnector.pas"/>
|
||||
<None Include="ModelSupport_pckUCDataConnector\default.txvpck"/>
|
||||
<None Include="ModelSupport_pckUCDataConnector\UCDataConnector\default.txaPackage"/>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
</Project>
|
||||
BIN
official/2.31RC1/Packages/pckUCDataConnector.res
Normal file
BIN
official/2.31RC1/Packages/pckUCDataConnector.res
Normal file
Binary file not shown.
175
official/2.31RC1/Packages/pckUCGlobal.bdsproj
Normal file
175
official/2.31RC1/Packages/pckUCGlobal.bdsproj
Normal file
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{0092566D-272F-493C-AD3E-AFA77DCF4562}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCGlobal.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription"></Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
40
official/2.31RC1/Packages/pckUCGlobal.dpk
Normal file
40
official/2.31RC1/Packages/pckUCGlobal.dpk
Normal file
@ -0,0 +1,40 @@
|
||||
package pckUCGlobal;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl,
|
||||
vclactnband,
|
||||
dclindy,
|
||||
indy,
|
||||
vcldb,
|
||||
pckMD5,
|
||||
pckUCDataConnector,
|
||||
VclSmp,
|
||||
pckUserControl_RT;
|
||||
|
||||
end.
|
||||
BIN
official/2.31RC1/Packages/pckUCGlobal.res
Normal file
BIN
official/2.31RC1/Packages/pckUCGlobal.res
Normal file
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user