Archivado/Componentes.Terceros.UserControl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Importación inicial

Browse Source 
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@17 970f2627-a9d2-4748-b3d4-b5283c4fe7db
This commit is contained in:
David Arranz 2009-02-27 17:17:29 +00:00
parent 60a3539bd8
commit 7a9322f9fd
247 changed files with 42430 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
internal/2.31RC1/1/Lib/D12/EnvMsgForm_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/IncPerfil_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/IncUser_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/LoginWindow_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/MsgRecForm_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/MsgsForm_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/SenhaForm_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/TrocaSenha_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCALSMTPClient.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCAbout.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCBase.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCDataConnector.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCDataInfo.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCEMailForm_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCEditorForm_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCIdle.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCMail.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCMessages.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCObjSel_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCReg.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UCSettings.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UcConsts_Language.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/UserPermis_U.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/md5.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pUCFrame_Log.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pUCFrame_Profile.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pUCFrame_User.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pUCGeral.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pUcFrame_UserLogged.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckMD5.bpl Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckMD5.dcp Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckMD5.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUCDataConnector.bpl Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUCDataConnector.dcp Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUCDataConnector.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUserControl_DT_D12.bpl Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUserControl_DT_D12.dcp Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUserControl_DT_D12.dcu Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUserControl_RT.bpl Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUserControl_RT.dcp Normal file
View File

Binary file not shown.

BIN
internal/2.31RC1/1/Lib/D12/pckUserControl_RT.dcu Normal file
View File

Binary file not shown.

114
internal/2.31RC1/1/Packages/Connectors/UCADOConn/UCADOConn.pas Normal file
View 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.

19
internal/2.31RC1/1/Packages/Connectors/UCADOConn/UCADOConnReg.pas Normal file
View File

@ -0,0 +1,19 @@
unit UCADOConnReg;
interface
uses
Classes,
UCADOConn;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCADOConn]);
end;
end.

175
internal/2.31RC1/1/Packages/Connectors/UCADOConn/pckUCADOConn.bdsproj Normal file
View File

@ -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>

36
internal/2.31RC1/1/Packages/Connectors/UCADOConn/pckUCADOConn.dpk Normal file
View File

@ -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
internal/2.31RC1/1/Packages/Connectors/UCADOConn/pckUCADOConn.res Normal file
View File

Binary file not shown.

123
internal/2.31RC1/1/Packages/Connectors/UCAboluteBase/UCAbsoluteConn.pas Normal file
View File

@ -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.

17
internal/2.31RC1/1/Packages/Connectors/UCAboluteBase/UCAbsoluteConnReg.pas Normal file
View File

@ -0,0 +1,17 @@
unit UCAbsoluteConnReg;
interface
uses Classes;
procedure Register;
implementation
uses UCAbsoluteConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCAbsoluteConn]);
end;
end.

38
internal/2.31RC1/1/Packages/Connectors/UCAboluteBase/pckUCAbsoluteConn.dpk Normal file
View File

@ -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.

40
internal/2.31RC1/1/Packages/Connectors/UCAboluteBase/pckUCAbsoluteConn.dproj Normal file
View File

@ -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>

BIN
internal/2.31RC1/1/Packages/Connectors/UCAboluteBase/pckUCAbsoluteConn.res Normal file
View File

Binary file not shown.

113
internal/2.31RC1/1/Packages/Connectors/UCAstaConn/UCAstaConn.pas Normal file
View 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.

17
internal/2.31RC1/1/Packages/Connectors/UCAstaConn/UCAstaConnReg.pas Normal file
View File

@ -0,0 +1,17 @@
unit UCAstaReg;
interface
uses Classes;
procedure Register;
implementation
uses UCAstaConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCAstaConn]);
end;
end.

127
internal/2.31RC1/1/Packages/Connectors/UCBDEConn/UCBDEConn.pas Normal file
View 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.

20
internal/2.31RC1/1/Packages/Connectors/UCBDEConn/UCBDEConnReg.pas Normal file
View File

@ -0,0 +1,20 @@
unit UCBDEConnReg;
interface
uses
Classes;
procedure Register;
implementation
uses
UCBDEConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCBDEConn]);
end;
end.

175
internal/2.31RC1/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.bdsproj Normal file
View File

@ -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>

36
internal/2.31RC1/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.dpk Normal file
View File

@ -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
internal/2.31RC1/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.res Normal file
View File

Binary file not shown.

128
internal/2.31RC1/1/Packages/Connectors/UCDBISAMConn/UCDBISAMConn.pas Normal file
View File

@ -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.

17
internal/2.31RC1/1/Packages/Connectors/UCDBISAMConn/UCDBISAMConnReg.pas Normal file
View File

@ -0,0 +1,17 @@
unit UCDBISAMReg;
interface
uses Classes;
procedure Register;
implementation
uses UCDBISAMConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCDBISAMConn]);
end;
end.

122
internal/2.31RC1/1/Packages/Connectors/UCDBXConn/UCDBXConn.pas Normal file
View 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.

21
internal/2.31RC1/1/Packages/Connectors/UCDBXConn/UCDBXConnReg.pas Normal file
View File

@ -0,0 +1,21 @@
unit UCDBXConnReg;
interface
uses
Classes;
procedure Register;
implementation
uses
UCDBXConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCDBXConn]);
end;
end.

175
internal/2.31RC1/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.bdsproj Normal file
View File

@ -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>

38
internal/2.31RC1/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.dpk Normal file
View File

@ -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.

98
internal/2.31RC1/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.dproj Normal file
View File

@ -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
internal/2.31RC1/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.res Normal file
View File

Binary file not shown.

120
internal/2.31RC1/1/Packages/Connectors/UCFIBConn/UCFIBConn.pas Normal file
View 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.

17
internal/2.31RC1/1/Packages/Connectors/UCFIBConn/UCFIBConnReg.pas Normal file
View File

@ -0,0 +1,17 @@
unit UCFIBReg;
interface
uses Classes;
procedure Register;
implementation
uses UCFIBConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCFIBConn]);
end;
end.

111
internal/2.31RC1/1/Packages/Connectors/UCIBOConn/UCIBOConn.pas Normal file
View 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.

18
internal/2.31RC1/1/Packages/Connectors/UCIBOConn/UCIBOConnReg.pas Normal file
View File

@ -0,0 +1,18 @@
unit UCIBOConnReg;
interface
uses Classes;
procedure Register;
implementation
uses UCIBOConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCIBOConn]);
end;
end.

32
internal/2.31RC1/1/Packages/Connectors/UCIBOConn/pckIBOConn.dpk Normal file
View File

@ -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
internal/2.31RC1/1/Packages/Connectors/UCIBOConn/pckIBOConn.res Normal file
View File

Binary file not shown.

152
internal/2.31RC1/1/Packages/Connectors/UCIBXConn/UCIBXConn.pas Normal file
View 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.

20
internal/2.31RC1/1/Packages/Connectors/UCIBXConn/UCIBXConnReg.pas Normal file
View File

@ -0,0 +1,20 @@
unit UCIBXConnReg;
interface
uses
Classes;
procedure Register;
implementation
uses
UCIBXConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCIBXConn]);
end;
end.

175
internal/2.31RC1/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.bdsproj Normal file
View File

@ -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>

36
internal/2.31RC1/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.dpk Normal file
View File

@ -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
internal/2.31RC1/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.res Normal file
View File

Binary file not shown.

149
internal/2.31RC1/1/Packages/Connectors/UCMDOConn/UCMDOConn.pas Normal file
View 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.

17
internal/2.31RC1/1/Packages/Connectors/UCMDOConn/UCMDOConnReg.pas Normal file
View File

@ -0,0 +1,17 @@
unit UCMDOConnReg;
interface
uses Classes;
procedure Register;
implementation
uses UCMDOConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCMDOConn]);
end;
end.

177
internal/2.31RC1/1/Packages/Connectors/UCMDOConn/pckUCMDOConn.bdsproj Normal file
View File

@ -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>

40
internal/2.31RC1/1/Packages/Connectors/UCMDOConn/pckUCMDOConn.dpk Normal file
View File

@ -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
internal/2.31RC1/1/Packages/Connectors/UCMDOConn/pckUCMDOConn.res Normal file
View File

Binary file not shown.

181
internal/2.31RC1/1/Packages/Connectors/UCMidasConn/UCMidasConn.pas Normal file
View 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.

74
internal/2.31RC1/1/Packages/Connectors/UCMidasConn/UCMidasConnReg.pas Normal file
View File

@ -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.

178
internal/2.31RC1/1/Packages/Connectors/UCMidasConn/pckUCMidasConn.bdsproj Normal file
View File

@ -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>

39
internal/2.31RC1/1/Packages/Connectors/UCMidasConn/pckUCMidasConn.dpk Normal file
View File

@ -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.

56
internal/2.31RC1/1/Packages/Connectors/UCMidasConn/pckUCMidasConn.dproj Normal file
View File

@ -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>

BIN
internal/2.31RC1/1/Packages/Connectors/UCMidasConn/pckUCMidasConn.res Normal file
View File

Binary file not shown.

106
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/UCMyDACConn.pas Normal file
View 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.

17
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/UCMyDACConnReg.pas Normal file
View File

@ -0,0 +1,17 @@
unit UCMyDACConnReg;
interface
uses Classes;
procedure Register;
implementation
uses UCMyDACConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCMyDACConn]);
end;
end.

48
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/pckMyDacConn.dpk Normal file
View File

@ -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.

90
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/pckMyDacConn.dproj Normal file
View File

@ -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>

31
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/pckMyDacConn.groupproj Normal file
View File

@ -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>

BIN
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/pckMyDacConn.res Normal file
View File

Binary file not shown.

175
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/pckUCMYDac.bdsproj Normal file
View 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">{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>

47
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/pckUCMYDac.dpk Normal file
View File

@ -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
internal/2.31RC1/1/Packages/Connectors/UCMyDACConn/pckUCMYDac.res Normal file
View File

Binary file not shown.

106
internal/2.31RC1/1/Packages/Connectors/UCMySQLDACConn/UCMySQLDACConn.pas Normal file
View File

@ -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.

17
internal/2.31RC1/1/Packages/Connectors/UCMySQLDACConn/UCMySQLDACConnReg.pas Normal file
View File

@ -0,0 +1,17 @@
unit UCMySQLDACConnReg;
interface
uses Classes;
procedure Register;
implementation
uses UCMySQLDACConn;
procedure Register;
begin
RegisterComponents('UC Connectors', [TUCMySQLDACConn]);
end;
end.

175
internal/2.31RC1/1/Packages/Connectors/UCMySQLDACConn/pckMySQLDACConn.bdsproj Normal file
View File

@ -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>

Some files were not shown because too many files have changed in this diff Show More