git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@6 970f2627-a9d2-4748-b3d4-b5283c4fe7db
This commit is contained in:
parent
eac19a8f43
commit
1a8ffed4cb
22
official/2.20/Packages/BDS2006.bdsgroup
Normal file
22
official/2.20/Packages/BDS2006.bdsgroup
Normal file
@ -0,0 +1,22 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Default.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{D9493B7A-CADD-49B9-8DE8-9249AD285FDC}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Default.Personality> <Projects>
|
||||
<Projects Name="pckMD5.bpl">pckMD5.bdsproj</Projects>
|
||||
<Projects Name="pckUCDataConnector.bpl">pckUCDataConnector.bdsproj</Projects>
|
||||
<Projects Name="pckUserControl_RT.bpl">pckUserControl_RT.bdsproj</Projects>
|
||||
<Projects Name="pckUserControl_DT.bpl">pckUserControl_DT.bdsproj</Projects>
|
||||
<Projects Name="Targets">pckMD5.bpl pckUCDataConnector.bpl pckUserControl_RT.bpl pckUserControl_DT.bpl</Projects>
|
||||
</Projects>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
|
||||
</BorlandProject>
|
||||
2
official/2.20/Packages/BDS2006.config
Normal file
2
official/2.20/Packages/BDS2006.config
Normal file
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0"?>
|
||||
<TgConfig Version="3" SubLevelDisabled="False" />
|
||||
114
official/2.20/Packages/Connectors/UCADOConn/UCADOConn.pas
Normal file
114
official/2.20/Packages/Connectors/UCADOConn/UCADOConn.pas
Normal file
@ -0,0 +1,114 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCADOConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: ADO Support
|
||||
|
||||
registered in UCReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCADOConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
ADODB,
|
||||
Classes,
|
||||
DB,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCADOConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TADOConnection;
|
||||
procedure SetADOConnection(Value: TADOConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TADOConnection read FConnection write SetADOConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCADOConn }
|
||||
|
||||
procedure TUCADOConn.SetADOConnection(Value: TADOConnection);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCADOConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCADOConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList, True);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCADOConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCADOConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCADOConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCADOConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.Execute(FSQL);
|
||||
end;
|
||||
|
||||
function TUCADOConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TADOQuery.Create(nil);
|
||||
with Result as TADOQuery do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
19
official/2.20/Packages/Connectors/UCADOConn/UCADOConnReg.pas
Normal file
19
official/2.20/Packages/Connectors/UCADOConn/UCADOConnReg.pas
Normal file
@ -0,0 +1,19 @@
|
||||
unit UCADOConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
UCADOConn;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCADOConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
175
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.bdsproj
Normal file
175
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.bdsproj
Normal file
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">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>
|
||||
44
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.cfg
Normal file
44
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.cfg
Normal file
@ -0,0 +1,44 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N0"C:\WINDOWS\Temp"
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-U";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-O";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-I";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-R";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
36
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.dpk
Normal file
36
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.dpk
Normal 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
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCADOConn/pckUCADOConn.res
Normal file
Binary file not shown.
113
official/2.20/Packages/Connectors/UCAstaConn/UCAstaConn.pas
Normal file
113
official/2.20/Packages/Connectors/UCAstaConn/UCAstaConn.pas
Normal file
@ -0,0 +1,113 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCAstaConn
|
||||
Author: QmD
|
||||
Date: 24-nov-2004
|
||||
Purpose: Asta 3 Support
|
||||
|
||||
registered in UCAstaReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCAstaConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, AstaDrv2, AstaClientDataset, ScktComp,
|
||||
AstaCustomSocket, AstaClientSocket,AstaDBTypes;
|
||||
type
|
||||
TUCAstaConn = class(TUCDataConn)
|
||||
private
|
||||
FAstaClientSocket: TAstaClientSocket;
|
||||
procedure SetFAstaClientSocket(const Value: TAstaClientSocket);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property AstaClientSocket : TAstaClientSocket read FAstaClientSocket write SetFAstaClientSocket;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCAstaConn }
|
||||
|
||||
procedure TUCAstaConn.SetFAstaClientSocket(
|
||||
const Value: TAstaClientSocket);
|
||||
begin
|
||||
FAstaClientSocket := Value;
|
||||
if Value <> nil then Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCAstaConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FAstaClientSocket) then
|
||||
begin
|
||||
FAstaClientSocket := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCAstaConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempQuery : TAstaClientDataSet;
|
||||
begin
|
||||
TempQuery := TAstaClientDataset.Create(nil);
|
||||
TempQuery.AstaClientSocket := FAstaClientSocket;
|
||||
TempQuery.MetaDataRequest := mdTables;
|
||||
TempQuery.Open;
|
||||
Result := TempQuery.Locate('TableName',UpperCase(TableName),[]);
|
||||
TempQuery.Close;
|
||||
FreeAndNil(TempQuery);
|
||||
end;
|
||||
|
||||
|
||||
function TUCAstaConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FAstaClientSocket) and (FAstaClientSocket.Active);
|
||||
end;
|
||||
|
||||
function TUCAstaConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FAstaClientSocket) then
|
||||
begin
|
||||
if Owner = FAstaClientSocket.Owner then Result := FAstaClientSocket.Name
|
||||
else begin
|
||||
Result := FAstaClientSocket.Owner.Name+'.'+FAstaClientSocket.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCAstaConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCAstaConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TAstaClientDataset.Create(nil) do
|
||||
begin
|
||||
AstaClientSocket := FAstaClientSocket;
|
||||
SQL.text := FSQL;
|
||||
ExecSQL;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCAstaConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TAstaClientDataset.Create(nil);
|
||||
with Result as TAstaClientDataset do
|
||||
begin
|
||||
AstaClientSocket := FAstaClientSocket;
|
||||
SQL.text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCAstaReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCAstaConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCAstaConn]);
|
||||
end;
|
||||
end.
|
||||
127
official/2.20/Packages/Connectors/UCBDEConn/UCBDEConn.pas
Normal file
127
official/2.20/Packages/Connectors/UCBDEConn/UCBDEConn.pas
Normal file
@ -0,0 +1,127 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCBDEConn
|
||||
Author: QmD
|
||||
Date: 10-nov-2004
|
||||
Purpose: BDE Support
|
||||
|
||||
registered in UCReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCBDEConn;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
DBTables,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCBDEConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TDatabase;
|
||||
procedure SetFDatabase(Value: TDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TDatabase read FConnection write SetFDatabase;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCBDEConn }
|
||||
|
||||
procedure TUCBDEConn.SetFDatabase(Value: TDatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCBDEConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCBDEConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
Lista: TStringList;
|
||||
begin
|
||||
Lista := TStringList.Create;
|
||||
{$IFDEF DELPHI5}
|
||||
FConnection.Session.GetTableNames(FDatabase.Databasename,'*.db*', False, False, Lista);
|
||||
{$ELSE}
|
||||
FConnection.GetTableNames(Lista);
|
||||
{$ENDIF}
|
||||
Result := Lista.IndexOf(TableName) > -1;
|
||||
FreeAndNil(Lista);
|
||||
end;
|
||||
|
||||
function TUCBDEConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCBDEConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCBDEConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCBDEConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TQuery.Create(nil) do
|
||||
begin
|
||||
DatabaseName := FConnection.DatabaseName;
|
||||
SQL.Text := FSQL;
|
||||
ExecSQL;
|
||||
Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TUCBDEConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
var
|
||||
TempQuery: TQuery;
|
||||
begin
|
||||
TempQuery := TQuery.Create(nil);
|
||||
|
||||
with TempQuery do
|
||||
begin
|
||||
DatabaseName := FConnection.DatabaseName;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
Result := TempQuery;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
20
official/2.20/Packages/Connectors/UCBDEConn/UCBDEConnReg.pas
Normal file
20
official/2.20/Packages/Connectors/UCBDEConn/UCBDEConnReg.pas
Normal 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
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.bdsproj
Normal file
175
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.bdsproj
Normal file
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">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>
|
||||
43
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.cfg
Normal file
43
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.cfg
Normal file
@ -0,0 +1,43 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N0"C:\WINDOWS\Temp"
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-U";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-O";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-I";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-R";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
36
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.dpk
Normal file
36
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.dpk
Normal 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
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCBDEConn/pckUCBDEConn.res
Normal file
Binary file not shown.
128
official/2.20/Packages/Connectors/UCDBISAMConn/UCDBISAMConn.pas
Normal file
128
official/2.20/Packages/Connectors/UCDBISAMConn/UCDBISAMConn.pas
Normal 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.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCDBISAMReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCDBISAMConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCDBISAMConn]);
|
||||
end;
|
||||
end.
|
||||
122
official/2.20/Packages/Connectors/UCDBXConn/UCDBXConn.pas
Normal file
122
official/2.20/Packages/Connectors/UCDBXConn/UCDBXConn.pas
Normal file
@ -0,0 +1,122 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCDBXConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: ADO Support
|
||||
|
||||
registered in UCDBXReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCDBXConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
SimpleDS,
|
||||
SqlExpr,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCDBXConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TSQLConnection;
|
||||
FSchema: String;
|
||||
procedure SetSQLConnection(Value: TSQLConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TSQLConnection read FConnection write SetSQLConnection;
|
||||
property SchemaName: String read FSchema write FSchema;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCDBXConn }
|
||||
|
||||
procedure TUCDBXConn.SetSQLConnection(Value: TSQLConnection);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCDBXConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCDBXConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
if SchemaName <> '' then
|
||||
FConnection.GetTableNames(TempList, SchemaName)
|
||||
else
|
||||
FConnection.GetTableNames(TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCDBXConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCDBXConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCDBXConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCDBXConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
// FConnection.Execute(FSQL, nil); // by vicente barros leonel
|
||||
FConnection.ExecuteDirect(FSQL);
|
||||
end;
|
||||
|
||||
function TUCDBXConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TSimpleDataSet.Create(nil);
|
||||
with Result as TSimpleDataSet do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
DataSet.CommandText := FSQL;
|
||||
SchemaName := FSchema;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
21
official/2.20/Packages/Connectors/UCDBXConn/UCDBXConnReg.pas
Normal file
21
official/2.20/Packages/Connectors/UCDBXConn/UCDBXConnReg.pas
Normal 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
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.bdsproj
Normal file
175
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.bdsproj
Normal file
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">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>
|
||||
44
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.cfg
Normal file
44
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.cfg
Normal file
@ -0,0 +1,44 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N0"C:\WINDOWS\Temp"
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-U";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-O";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-I";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-R";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
38
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.dpk
Normal file
38
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.dpk
Normal 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.
|
||||
BIN
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCDBXConn/pckUCDBXConn.res
Normal file
Binary file not shown.
120
official/2.20/Packages/Connectors/UCFIBConn/UCFIBConn.pas
Normal file
120
official/2.20/Packages/Connectors/UCFIBConn/UCFIBConn.pas
Normal file
@ -0,0 +1,120 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCFIBConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: FIB Support
|
||||
|
||||
registered in UCReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCFIBConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, pFIBDatabase, pFIBDataset;
|
||||
|
||||
type
|
||||
TUCFIBConn = class(TUCDataConn)
|
||||
private
|
||||
FConnection : TpFIBDatabase;
|
||||
FTransaction: TpFIBTransaction;
|
||||
procedure SetFTransaction(const Value: TpFIBTransaction);
|
||||
procedure SetFConnection(const Value: TpFIBDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TpFIBDatabase read FConnection write SetFConnection;
|
||||
property Transaction : TpFIBTransaction read FTransaction write SetFTransaction;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCFIBConn }
|
||||
|
||||
procedure TUCFIBConn.SetFTransaction(const Value: TpFIBTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCFIBConn.SetFConnection(const Value: TpFIBDatabase);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCFIBConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then FConnection := nil;
|
||||
if (Operation = opRemove) and (AComponent = FTransaction) then FTransaction := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCFIBConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList : TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList,False);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCFIBConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCFIBConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCFIBConn.GetTransObjectName: String;
|
||||
begin
|
||||
if Assigned(FTransaction) then
|
||||
begin
|
||||
if Owner = FTransaction.Owner then Result := FTransaction.Name
|
||||
else begin
|
||||
Result := FTransaction.Owner.Name+'.'+FTransaction.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCFIBConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.Execute(FSQL);
|
||||
end;
|
||||
|
||||
function TUCFIBConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TpFIBDataset.Create(nil);
|
||||
with Result as TpFIBDataset do
|
||||
begin
|
||||
Database := FConnection;
|
||||
Transaction := FTransaction;
|
||||
SelectSQL.text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
17
official/2.20/Packages/Connectors/UCFIBConn/UCFIBConnReg.pas
Normal file
17
official/2.20/Packages/Connectors/UCFIBConn/UCFIBConnReg.pas
Normal 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
official/2.20/Packages/Connectors/UCIBOConn/UCIBOConn.pas
Normal file
111
official/2.20/Packages/Connectors/UCIBOConn/UCIBOConn.pas
Normal file
@ -0,0 +1,111 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCIBOConn
|
||||
Author: QmD
|
||||
Date: 22-nov-2004
|
||||
Purpose: IBO Dataset Support
|
||||
|
||||
registered in UCIBOReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCIBOConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
IB_Components,
|
||||
IBODataset,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCIBOConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TIBODatabase;
|
||||
procedure SetIBOConnection(const Value: TIBODatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TIBODatabase read FConnection write SetIBOConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCIBOConn }
|
||||
|
||||
|
||||
procedure TUCIBOConn.SetIBOConnection(const Value: TIBODatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCIBOConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCIBOConn.UCFindTable(const TableName: String): Boolean;
|
||||
begin
|
||||
with TIBOQuery.Create(nil) do
|
||||
begin
|
||||
IB_Connection := FConnection;
|
||||
SQL.Text := 'SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$SYSTEM_FLAG = 0 and RDB$RELATION_NAME = ' + QuotedStr(Uppercase(TableName));
|
||||
Open;
|
||||
Result := FieldByName('RDB$RELATION_NAME').AsString = Uppercase(TableName);
|
||||
Close;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCIBOConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCIBOConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
|
||||
procedure TUCIBOConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.DefaultTransaction.ExecuteImmediate(FSQL);
|
||||
FConnection.DefaultTransaction.Commit;
|
||||
end;
|
||||
|
||||
function TUCIBOConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TIBOQuery.Create(nil);
|
||||
with Result as TIBOQuery do
|
||||
begin
|
||||
IB_Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
18
official/2.20/Packages/Connectors/UCIBOConn/UCIBOConnReg.pas
Normal file
18
official/2.20/Packages/Connectors/UCIBOConn/UCIBOConnReg.pas
Normal file
@ -0,0 +1,18 @@
|
||||
unit UCIBOConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCIBOConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCIBOConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
42
official/2.20/Packages/Connectors/UCIBOConn/pckIBOConn.cfg
Normal file
42
official/2.20/Packages/Connectors/UCIBOConn/pckIBOConn.cfg
Normal file
@ -0,0 +1,42 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
|
||||
-U";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-O";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-I";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-R";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
32
official/2.20/Packages/Connectors/UCIBOConn/pckIBOConn.dpk
Normal file
32
official/2.20/Packages/Connectors/UCIBOConn/pckIBOConn.dpk
Normal 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
official/2.20/Packages/Connectors/UCIBOConn/pckIBOConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCIBOConn/pckIBOConn.res
Normal file
Binary file not shown.
149
official/2.20/Packages/Connectors/UCIBXConn/UCIBXConn.pas
Normal file
149
official/2.20/Packages/Connectors/UCIBXConn/UCIBXConn.pas
Normal file
@ -0,0 +1,149 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
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 SetFTransaction(const Value: TIBTransaction);
|
||||
procedure SetIBXConnection(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 SetIBXConnection;
|
||||
property Transaction: TIBTransaction read FTransaction write SetFTransaction;
|
||||
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
|
||||
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 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);
|
||||
begin
|
||||
with TIBQuery.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 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.SetFTransaction(const Value: TIBTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then
|
||||
Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCIBXConn.SetIBXConnection(const Value: TIBDatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
20
official/2.20/Packages/Connectors/UCIBXConn/UCIBXConnReg.pas
Normal file
20
official/2.20/Packages/Connectors/UCIBXConn/UCIBXConnReg.pas
Normal 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
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.bdsproj
Normal file
175
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.bdsproj
Normal file
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">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>
|
||||
43
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.cfg
Normal file
43
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.cfg
Normal file
@ -0,0 +1,43 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N0"C:\WINDOWS\Temp"
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-U";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-O";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-I";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-R";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
36
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.dpk
Normal file
36
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.dpk
Normal 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
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCIBXConn/pckUCIBXConn.res
Normal file
Binary file not shown.
149
official/2.20/Packages/Connectors/UCMDOConn/UCMDOConn.pas
Normal file
149
official/2.20/Packages/Connectors/UCMDOConn/UCMDOConn.pas
Normal file
@ -0,0 +1,149 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCMDOConn
|
||||
Author: Alexandre Oliveira - 05/11/2004
|
||||
Change: QmD
|
||||
Date: 10-nov-2004
|
||||
Purpose: MDO Support
|
||||
|
||||
registered in UCMDOReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMDOConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
MDODatabase,
|
||||
MDOQuery,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCMDOConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TMDODatabase;
|
||||
FTransaction: TMDOTransaction;
|
||||
procedure SetFTransaction(const Value: TMDOTransaction);
|
||||
procedure SetMDOConnection(const Value: TMDODatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TMDODatabase read FConnection write SetMDOConnection;
|
||||
property Transaction: TMDOTransaction read FTransaction write SetFTransaction;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCMDOConn }
|
||||
|
||||
procedure TUCMDOConn.SetFTransaction(const Value: TMDOTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then
|
||||
Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMDOConn.SetMDOConnection(const Value: TMDODatabase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMDOConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
if (Operation = opRemove) and (AComponent = FTransaction) then
|
||||
FTransaction := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCMDOConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList, False);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMDOConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMDOConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCMDOConn.GetTransObjectName: String;
|
||||
begin
|
||||
if Assigned(FTransaction) then
|
||||
begin
|
||||
if Owner = FTransaction.Owner then
|
||||
Result := FTransaction.Name
|
||||
else
|
||||
begin
|
||||
Result := FTransaction.Owner.Name + '.' + FTransaction.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMDOConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TMDOQuery.Create(nil) do
|
||||
begin
|
||||
Database := FConnection;
|
||||
Transaction := FTransaction;
|
||||
if not Transaction.Active then
|
||||
Transaction.Active := True;
|
||||
SQL.Text := FSQL;
|
||||
ExecSQL;
|
||||
FTransaction.Commit;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMDOConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TMDOQuery.Create(nil);
|
||||
with Result as TMDOQuery do
|
||||
begin
|
||||
Database := FConnection;
|
||||
Transaction := FTransaction;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
17
official/2.20/Packages/Connectors/UCMDOConn/UCMDOConnReg.pas
Normal file
17
official/2.20/Packages/Connectors/UCMDOConn/UCMDOConnReg.pas
Normal 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
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.bdsproj
Normal file
177
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.bdsproj
Normal 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>
|
||||
39
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.cfg
Normal file
39
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.cfg
Normal file
@ -0,0 +1,39 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
40
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.dpk
Normal file
40
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.dpk
Normal 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
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCMDOConn/pckUCMDOConn.res
Normal file
Binary file not shown.
182
official/2.20/Packages/Connectors/UCMidasConn/UCMidasConn.pas
Normal file
182
official/2.20/Packages/Connectors/UCMidasConn/UCMidasConn.pas
Normal file
@ -0,0 +1,182 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
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.com.br
|
||||
Forum : http://www.usercontrol.com.br/modules.php?name=Forums
|
||||
|
||||
registered in UCMidasConnReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMidasConn;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
DBClient,
|
||||
SysUtils,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TBancoDados = (bdFirebird, bdMSSQL, bdOracle, bdPostgreSQL, bdMySQL, bdParadox);
|
||||
|
||||
TUCMidasConn = class(TUCDataConnector)
|
||||
private
|
||||
FResultado: OleVariant;
|
||||
FSQLStmt: String;
|
||||
FParams: OleVariant;
|
||||
FOwnerData: OleVariant;
|
||||
FRecsOut: Integer;
|
||||
FConnection: TCustomRemoteServer;
|
||||
FProviderName: String;
|
||||
FBancoDados: TBancoDados;
|
||||
procedure SetConnection(const Value: TCustomRemoteServer);
|
||||
procedure SetProviderName(const Value: String);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TCustomRemoteServer read FConnection write SetConnection;
|
||||
property ProviderName: String read FProviderName write SetProviderName;
|
||||
property BancoDados: TBancoDados read FBancoDados write FBancoDados;
|
||||
end;
|
||||
|
||||
const
|
||||
// Select para as tabelas de sistema !!! Para outro tipo de banco implemente aqui !!!!!
|
||||
|
||||
// Para banco novo !!!
|
||||
// Não esquecer de colocar em TBancoDados, o tipo de banco !!!!!!
|
||||
// Não esquecer de colocar no 'case' de UCFindTable
|
||||
|
||||
SQL_Firebird =
|
||||
'SELECT ' +
|
||||
' UPPER(RDB$RELATIONS.RDB$RELATION_NAME) RDB$RELATION_NAME ' +
|
||||
'FROM ' +
|
||||
' RDB$RELATIONS ' +
|
||||
'WHERE ' +
|
||||
' RDB$RELATIONS.RDB$FLAGS = 1 AND UPPER(RDB$RELATIONS.RDB$RELATION_NAME) = ' +
|
||||
' UPPER(''%s'')';
|
||||
|
||||
SQL_MSSQL = '';
|
||||
|
||||
SQL_Oracle = '';
|
||||
|
||||
SQL_PostgreSQL =
|
||||
'SELECT ' +
|
||||
' UPPER(PG_CLASS.RELNAME) ' +
|
||||
'FROM ' +
|
||||
' PG_CLASS ' +
|
||||
'WHERE ' +
|
||||
' PG_CLASS.RELKIND = ''r'' AND ' +
|
||||
' UPPER(PG_CLASS.RELNAME) LIKE UPPER(''%s'')';
|
||||
|
||||
SQL_MySQL = '';
|
||||
|
||||
SQL_Paradox = '';
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Midas,
|
||||
Provider;
|
||||
|
||||
{ TUCMidasConn }
|
||||
|
||||
function TUCMidasConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCMidasConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.SetConnection(const Value: TCustomRemoteServer);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.SetProviderName(const Value: String);
|
||||
begin
|
||||
FProviderName := Value;
|
||||
end;
|
||||
|
||||
procedure TUCMidasConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
IAppServer(FConnection.GetServer).AS_Execute(FProviderName, FSQL, FParams, FOwnerData);
|
||||
end;
|
||||
|
||||
function TUCMidasConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMidasConn.UCFindTable(const Tablename: String): Boolean;
|
||||
begin
|
||||
case FBancoDados of
|
||||
bdFirebird: FSQLStmt := SQL_Firebird;
|
||||
bdMSSQL: FSQLStmt := SQL_MSSQL;
|
||||
bdOracle: FSQLStmt := SQL_Oracle;
|
||||
bdPostgreSQL: FSQLStmt := SQL_PostgreSQL;
|
||||
bdMySQL: FSQLStmt := SQL_MySQL;
|
||||
bdParadox: FSQLStmt := SQL_Paradox;
|
||||
end;
|
||||
|
||||
FSQLStmt := Format(FSQLStmt, [Tablename]);
|
||||
|
||||
FResultado := IAppServer(FConnection.GetServer).AS_GetRecords(FProviderName, -1, FRecsOut, 0, FSQLStmt, FParams, FOwnerData);
|
||||
|
||||
Result := FRecsOut > 0;
|
||||
end;
|
||||
|
||||
function TUCMidasConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TClientDataSet.Create(Self);
|
||||
|
||||
with TClientDataSet(Result) do
|
||||
begin
|
||||
if FConnection is TConnectionBroker then
|
||||
ConnectionBroker := TConnectionBroker(FConnection)
|
||||
else
|
||||
RemoteServer := FConnection;
|
||||
|
||||
ProviderName := FProviderName;
|
||||
CommandText := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,74 @@
|
||||
unit UCMidasConnReg;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DesignEditors,
|
||||
DesignIntf,
|
||||
TypInfo;
|
||||
|
||||
type
|
||||
TUCProviderNameProperty = class(TStringProperty)
|
||||
function GetAttributes: TPropertyAttributes; override;
|
||||
procedure GetValues(Proc: TGetStrProc); override;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Midas,
|
||||
UCMidasConn,
|
||||
Variants;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCMidasConn]);
|
||||
RegisterPropertyEditor(TypeInfo(String), TUCMidasConn, 'ProviderName', TUCProviderNameProperty);
|
||||
end;
|
||||
|
||||
{ TUCProviderNameProperty }
|
||||
|
||||
function TUCProviderNameProperty.GetAttributes: TPropertyAttributes;
|
||||
begin
|
||||
Result := [paValueList];
|
||||
end;
|
||||
|
||||
procedure TUCProviderNameProperty.GetValues(Proc: TGetStrProc);
|
||||
var
|
||||
Componente: TComponent;
|
||||
Lista: variant;
|
||||
I: Integer;
|
||||
begin
|
||||
Componente := TComponent(GetComponent(0));
|
||||
|
||||
if not Assigned(Componente) then
|
||||
Exit;
|
||||
|
||||
if not (Componente is TUCMidasConn) then
|
||||
Exit;
|
||||
|
||||
if not Assigned(TUCMidasConn(Componente).Connection) then
|
||||
Exit;
|
||||
|
||||
with TUCMidasConn(Componente) do
|
||||
begin
|
||||
|
||||
try
|
||||
Lista := IAppServer(Connection.GetServer).AS_GetProviderNames;
|
||||
except
|
||||
end;
|
||||
|
||||
if VarIsArray(Lista) and (VarArrayDimCount(Lista) = 1) then
|
||||
for I := VarArrayLowBound(Lista, 1) to VarArrayHighBound(Lista, 1) do
|
||||
Proc(Lista[I]);
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,178 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{7FD46D2D-1910-4ADF-A661-F63509D39ED7}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCMidasConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control Midas Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
@ -0,0 +1,44 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N0"C:\WINDOWS\Temp"
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-U";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-O";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-I";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-R";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
139
official/2.20/Packages/Connectors/UCMidasConn/pckUCMidasConn.dof
Normal file
139
official/2.20/Packages/Connectors/UCMidasConn/pckUCMidasConn.dof
Normal file
@ -0,0 +1,139 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=User Control Midas Connector
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;indy;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;RCLMDO70;IndyCore70;IndySystem70;IndyProtocols70;TeeUI77;Tee77;TeeDB77;TeeLanguage77;TeePro77;TeeGL77;TeeQR77;frx7;frxADO7;frxBDE7;frxDB7;frxDBX7;frxe7;frxIBX7;frxTee7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;fsTee7
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1046
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\arquivos de programas\borland\delphi7\Bin\dcltee70.bpl=TeeChart Components
|
||||
c:\arquivos de programas\borland\delphi7\Bin\dcldss70.bpl=Borland Decision Cube Components
|
||||
@ -0,0 +1,39 @@
|
||||
package pckUCMidasConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control Midas Connector'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
designide,
|
||||
dbrtl,
|
||||
dsnap,
|
||||
rtl,
|
||||
pckUCDataConnector;
|
||||
|
||||
contains
|
||||
UCMidasConn in 'UCMidasConn.pas',
|
||||
UCMidasConnReg in 'UCMidasConnReg.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,108 @@
|
||||
<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 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 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>
|
||||
<ItemGroup />
|
||||
<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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
BIN
official/2.20/Packages/Connectors/UCMidasConn/pckUCMidasConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCMidasConn/pckUCMidasConn.res
Normal file
Binary file not shown.
106
official/2.20/Packages/Connectors/UCMyDACConn/UCMyDACConn.pas
Normal file
106
official/2.20/Packages/Connectors/UCMyDACConn/UCMyDACConn.pas
Normal file
@ -0,0 +1,106 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCMyDACConn
|
||||
Author: QmD
|
||||
Date: 22-nov-2004
|
||||
Purpose: MyDAC Support
|
||||
|
||||
registered in UCMyDACReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMyDACConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, DBAccess, MyAccess, MemDS;
|
||||
|
||||
type
|
||||
TUCMyDACConn = class(TUCDataConn)
|
||||
private
|
||||
FConnection : TMyConnection;
|
||||
procedure SetFConnection(Value : TMyConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TMyConnection read FConnection write SetFConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCMyDACConn }
|
||||
|
||||
procedure TUCMyDACConn.SetFConnection(Value: TMyConnection);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMyDACConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
begin
|
||||
FConnection := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList : TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMyDACConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.ExecSQL(FSQL,[]);
|
||||
end;
|
||||
|
||||
function TUCMyDACConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TMyQuery.Create(nil);
|
||||
with Result as TMyQuery do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCMyDACReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCMyDACConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCMyDACConn]);
|
||||
end;
|
||||
end.
|
||||
@ -0,0 +1,106 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCMySQLDACConn
|
||||
Author: QmD
|
||||
Date: 22-nov-2004
|
||||
Purpose: MySQLDAC Support
|
||||
|
||||
registered in UCMySQLDACReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCMySQLDACConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, UCBase, DB, mySQLDbTables;
|
||||
|
||||
type
|
||||
TUCMySQLDACConn = class(TUCDataConn)
|
||||
private
|
||||
FConnection : TmySQLDatabase;
|
||||
procedure SetFConnection(Value : TmySQLDatabase);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation);override;
|
||||
public
|
||||
function GetDBObjectName : String; override;
|
||||
function GetTransObjectName : String; override;
|
||||
function UCFindDataConnection : Boolean; override;
|
||||
function UCFindTable(const Tablename : String) : Boolean; override;
|
||||
function UCGetSQLDataset(FSQL : String) : TDataset;override;
|
||||
procedure UCExecSQL(FSQL: String);override;
|
||||
published
|
||||
property Connection : TmySQLDatabase read FConnection write SetFConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TUCMySQLDACConn }
|
||||
|
||||
procedure TUCMySQLDACConn.SetFConnection(Value: TmySQLDatabase);
|
||||
begin
|
||||
if FConnection <> Value then FConnection := Value;
|
||||
if FConnection <> nil then FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCMySQLDACConn.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
begin
|
||||
FConnection := nil;
|
||||
end;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList : TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames(TableName, TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then Result := FConnection.Name
|
||||
else begin
|
||||
Result := FConnection.Owner.Name+'.'+FConnection.Name;
|
||||
end;
|
||||
end else Result := '';
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCMySQLDACConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
FConnection.Execute(FSQL);
|
||||
end;
|
||||
|
||||
function TUCMySQLDACConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TmySQLQuery.Create(nil);
|
||||
with Result as TmySQLQuery do
|
||||
begin
|
||||
Database := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCMySQLDACReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCMySQLDACConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCMySQLDACConn]);
|
||||
end;
|
||||
end.
|
||||
146
official/2.20/Packages/Connectors/UCUIBConn/UCUIBConn.pas
Normal file
146
official/2.20/Packages/Connectors/UCUIBConn/UCUIBConn.pas
Normal file
@ -0,0 +1,146 @@
|
||||
unit UCUIBConn;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
jvuib,
|
||||
jvuibdataset,
|
||||
jvuibmetadata,
|
||||
UCDataConnector;
|
||||
|
||||
type
|
||||
TUCUIBConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TJvUIBDataBase;
|
||||
FTransaction: TJvUIBTransaction;
|
||||
procedure SetConnection(const Value: TJvUIBDataBase);
|
||||
procedure SetTransaction(const Value: TJvUIBTransaction);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
published
|
||||
property Connection: TJvUIBDataBase read FConnection write SetConnection;
|
||||
property Transaction: TJvUIBTransaction read FTransaction write SetTransaction;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
|
||||
{ TUCUIBConn }
|
||||
|
||||
function TUCUIBConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCUIBConn.GetTransObjectName: String;
|
||||
begin
|
||||
if Assigned(FTransaction) then
|
||||
begin
|
||||
if Owner = FTransaction.Owner then
|
||||
Result := FTransaction.Name
|
||||
else
|
||||
begin
|
||||
Result := FTransaction.Owner.Name + '.' + FTransaction.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
if (Operation = opRemove) and (AComponent = FTransaction) then
|
||||
FTransaction := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.SetConnection(const Value: TJvUIBDataBase);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.SetTransaction(const Value: TJvUIBTransaction);
|
||||
begin
|
||||
FTransaction := Value;
|
||||
if Value <> nil then
|
||||
Value.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCUIBConn.UCExecSQL(FSQL: String);
|
||||
var
|
||||
Query: TJvUIBQuery;
|
||||
begin
|
||||
try
|
||||
Query := TJvUIBQuery.Create(nil);
|
||||
Query.DataBase := FConnection;
|
||||
Query.Transaction := FTransaction;
|
||||
Query.SQL.Text := FSQL;
|
||||
FTransaction.StartTransaction;
|
||||
Query.ExecSQL;
|
||||
FTransaction.Commit;
|
||||
finally
|
||||
SysUtils.FreeAndNil(Query);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCUIBConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCUIBConn.UCFindTable(const Tablename: String): Boolean;
|
||||
var
|
||||
MetaData: TMetaDataBase;
|
||||
Table: TMetaTable;
|
||||
begin
|
||||
Result := False;
|
||||
MetaData := TMetaDataBase(FConnection.GetMetadata(True));
|
||||
Table := MetaData.FindTableName(Tablename);
|
||||
if Assigned(Table) then
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function TUCUIBConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
try
|
||||
Result := TJvUIBDataSet.Create(nil);
|
||||
with (Result as TJvUIBDataSet) do
|
||||
begin
|
||||
DataBase := FConnection;
|
||||
Transaction := FTransaction;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
except
|
||||
SysUtils.FreeAndNil(Result);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
21
official/2.20/Packages/Connectors/UCUIBConn/UCUIBConnReg.pas
Normal file
21
official/2.20/Packages/Connectors/UCUIBConn/UCUIBConnReg.pas
Normal file
@ -0,0 +1,21 @@
|
||||
unit UCUIBConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
UCUIBConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCUIBConn]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
182
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.bdsproj
Normal file
182
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.bdsproj
Normal file
@ -0,0 +1,182 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{5DAAC02E-F2F0-486E-BE2D-626933AD2DF5}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCUIBConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control UIB Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
|
||||
</BorlandProject>
|
||||
38
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.cfg
Normal file
38
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.cfg
Normal file
@ -0,0 +1,38 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
43
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.dpk
Normal file
43
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.dpk
Normal file
@ -0,0 +1,43 @@
|
||||
package pckUCUIBConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control UIB Connector'}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
vclactnband,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
pckUCDataConnector,
|
||||
JvCoreD10R,
|
||||
JvUIBD10R;
|
||||
|
||||
contains
|
||||
UCUIBConn in 'UCUIBConn.pas',
|
||||
UCUIBConnReg in 'UCUIBConnReg.pas';
|
||||
|
||||
end.
|
||||
|
||||
BIN
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCUIBConn/pckUCUIBConn.res
Normal file
Binary file not shown.
127
official/2.20/Packages/Connectors/UCZeosConn/UCZEOSConn.pas
Normal file
127
official/2.20/Packages/Connectors/UCZeosConn/UCZEOSConn.pas
Normal file
@ -0,0 +1,127 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: UCZEOSConn
|
||||
Author: QmD
|
||||
Date: 08-nov-2004
|
||||
Purpose: ZEOS 6 Support
|
||||
|
||||
registered in UCZEOSReg.pas
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit UCZEOSConn;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
DB,
|
||||
SysUtils,
|
||||
UCDataConnector,
|
||||
ZConnection;
|
||||
|
||||
type
|
||||
TUCZEOSConn = class(TUCDataConnector)
|
||||
private
|
||||
FConnection: TZConnection;
|
||||
procedure SetFConnection(const Value: TZConnection);
|
||||
protected
|
||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||
public
|
||||
function GetDBObjectName: String; override;
|
||||
function GetTransObjectName: String; override;
|
||||
function UCFindDataConnection: Boolean; override;
|
||||
function UCFindTable(const Tablename: String): Boolean; override;
|
||||
function UCGetSQLDataset(FSQL: String): TDataset; override;
|
||||
procedure UCExecSQL(FSQL: String); override;
|
||||
published
|
||||
property Connection: TZConnection read FConnection write SetFConnection;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
ZDataset, Dialogs;
|
||||
|
||||
{ TUCZEOSConn }
|
||||
|
||||
procedure TUCZEOSConn.SetFConnection(const Value: TZConnection);
|
||||
begin
|
||||
if FConnection <> Value then
|
||||
FConnection := Value;
|
||||
if FConnection <> nil then
|
||||
FConnection.FreeNotification(Self);
|
||||
end;
|
||||
|
||||
procedure TUCZEOSConn.Notification(AComponent: TComponent; Operation: TOperation);
|
||||
begin
|
||||
if (Operation = opRemove) and (AComponent = FConnection) then
|
||||
FConnection := nil;
|
||||
inherited Notification(AComponent, Operation);
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.UCFindTable(const TableName: String): Boolean;
|
||||
var
|
||||
TempList: TStringList;
|
||||
begin
|
||||
try
|
||||
TempList := TStringList.Create;
|
||||
FConnection.GetTableNames('', TempList);
|
||||
TempList.Text := UpperCase(TempList.Text);
|
||||
Result := TempList.IndexOf(UpperCase(TableName)) > -1;
|
||||
finally
|
||||
FreeAndNil(TempList);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.UCFindDataConnection: Boolean;
|
||||
begin
|
||||
Result := Assigned(FConnection) and (FConnection.Connected);
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.GetDBObjectName: String;
|
||||
begin
|
||||
if Assigned(FConnection) then
|
||||
begin
|
||||
if Owner = FConnection.Owner then
|
||||
Result := FConnection.Name
|
||||
else
|
||||
begin
|
||||
Result := FConnection.Owner.Name + '.' + FConnection.Name;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.GetTransObjectName: String;
|
||||
begin
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
procedure TUCZEOSConn.UCExecSQL(FSQL: String);
|
||||
begin
|
||||
with TZQuery.Create(nil) do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
ExecSQL;
|
||||
If FConnection.AutoCommit = False then // By vicente barros leonel
|
||||
FConnection.Commit;
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TUCZEOSConn.UCGetSQLDataset(FSQL: String): TDataset;
|
||||
begin
|
||||
Result := TZQuery.Create(nil);
|
||||
with Result as TZQuery do
|
||||
begin
|
||||
Connection := FConnection;
|
||||
SQL.Text := FSQL;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,17 @@
|
||||
unit UCZEOSConnReg;
|
||||
|
||||
interface
|
||||
|
||||
uses Classes;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses UCZEOSConn;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('UC Connectors', [TUCZEOSConn]);
|
||||
end;
|
||||
end.
|
||||
175
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.bdsproj
Normal file
175
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.bdsproj
Normal file
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{874A4671-4E5B-4E1C-A73C-FDDB167CA5D2}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckZeosConn.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control Zeos Connector</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">C:\WINDOWS\Temp</Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">;C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
44
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.cfg
Normal file
44
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.cfg
Normal file
@ -0,0 +1,44 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N0"C:\WINDOWS\Temp"
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-U";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-O";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-I";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-R";C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Lib"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
36
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.dpk
Normal file
36
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.dpk
Normal file
@ -0,0 +1,36 @@
|
||||
package pckZeosConn;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control Zeos Connector'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
ZComponent,
|
||||
pckUCDataConnector;
|
||||
|
||||
contains
|
||||
UCZEOSConn in 'UCZEOSConn.pas',
|
||||
UCZEOSConnReg in 'UCZEOSConnReg.pas';
|
||||
|
||||
end.
|
||||
BIN
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.res
Normal file
BIN
official/2.20/Packages/Connectors/UCZeosConn/pckZeosConn.res
Normal file
Binary file not shown.
58
official/2.20/Packages/D2007.groupproj
Normal file
58
official/2.20/Packages/D2007.groupproj
Normal file
@ -0,0 +1,58 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{1c592c69-53bd-49f1-a789-a4ac64f25b09}</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="pckMD5">
|
||||
<MSBuild Projects="pckMD5.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="pckMD5:Clean">
|
||||
<MSBuild Projects="pckMD5.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="pckMD5:Make">
|
||||
<MSBuild Projects="pckMD5.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="pckUCDataConnector">
|
||||
<MSBuild Projects="pckUCDataConnector.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="pckUCDataConnector:Clean">
|
||||
<MSBuild Projects="pckUCDataConnector.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="pckUCDataConnector:Make">
|
||||
<MSBuild Projects="pckUCDataConnector.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="pckUserControl_RT">
|
||||
<MSBuild Projects="pckUserControl_RT.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="pckUserControl_RT:Clean">
|
||||
<MSBuild Projects="pckUserControl_RT.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="pckUserControl_RT:Make">
|
||||
<MSBuild Projects="pckUserControl_RT.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="pckUserControl_DT">
|
||||
<MSBuild Projects="pckUserControl_DT.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="pckUserControl_DT:Clean">
|
||||
<MSBuild Projects="pckUserControl_DT.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="pckUserControl_DT:Make">
|
||||
<MSBuild Projects="pckUserControl_DT.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="pckMD5;pckUCDataConnector;pckUserControl_RT;pckUserControl_DT" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="pckMD5:Clean;pckUCDataConnector:Clean;pckUserControl_RT:Clean;pckUserControl_DT:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="pckMD5:Make;pckUCDataConnector:Make;pckUserControl_RT:Make;pckUserControl_DT:Make" />
|
||||
</Target>
|
||||
</Project>
|
||||
179
official/2.20/Packages/pckMD5.bdsproj
Normal file
179
official/2.20/Packages/pckMD5.bdsproj
Normal file
@ -0,0 +1,179 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{9CB29607-D179-4E14-9035-CDEA5CDA1561}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckMD5.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">MD5SUM Package</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality> <ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
39
official/2.20/Packages/pckMD5.cfg
Normal file
39
official/2.20/Packages/pckMD5.cfg
Normal file
@ -0,0 +1,39 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
129
official/2.20/Packages/pckMD5.dof
Normal file
129
official/2.20/Packages/pckMD5.dof
Normal file
@ -0,0 +1,129 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=1
|
||||
UnsafeCode=1
|
||||
UnsafeCast=1
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=MD5SUM Package
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;Jcl;cxGridVCLD7;cxEditorsVCLD7;cxLibraryVCLD7;cxPageControlVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxSchedulerVCLD7;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDBD7R;JvDlgsD7R;JvDockingD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;IOCore;IODBX;IOIBX;IOXML;RaizeComponentsVcl;RaizeComponentsVclDb;TeeUI77;Tee77;TeeDB77;TeeGL77;TeeLanguage77;TeePro77;TeeImage77;pckUserControl_RT
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1046
|
||||
CodePage=1252
|
||||
[Excluded Packages]
|
||||
c:\arquivos de programas\borland\delphi7\Bin\dcldss70.bpl=Borland Decision Cube Components
|
||||
C:\Arquivos de programas\Borland\Delphi7\Bin\dcltee70.bpl=TeeChart Components
|
||||
C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Bin\DclTQR77.bpl=TeeChart 7 for QuickReport
|
||||
37
official/2.20/Packages/pckMD5.dpk
Normal file
37
official/2.20/Packages/pckMD5.dpk
Normal file
@ -0,0 +1,37 @@
|
||||
package pckMD5;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'MD5SUM Package'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{%TogetherDiagram 'ModelSupport_pckMD5\default.txaPackage'}
|
||||
{%TogetherDiagram 'ModelSupport_pckMD5\md5\default.txaPackage'}
|
||||
{%TogetherDiagram 'ModelSupport_pckMD5\default.txvpck'}
|
||||
|
||||
requires
|
||||
rtl;
|
||||
|
||||
contains
|
||||
md5 in '..\Source\md5.pas';
|
||||
|
||||
end.
|
||||
88
official/2.20/Packages/pckMD5.dproj
Normal file
88
official/2.20/Packages/pckMD5.dproj
Normal file
@ -0,0 +1,88 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{d2274d98-f9f6-4f51-9617-6c46e56a95d2}</ProjectGuid>
|
||||
<MainSource>pckMD5.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckMD5.bpl</DCC_DependencyCheckOutputName>
|
||||
</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>
|
||||
<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">MD5SUM Package</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>
|
||||
<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">pckMD5.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckMD5.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<None Include="ModelSupport_pckMD5\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckMD5\default.txvpck" />
|
||||
<None Include="ModelSupport_pckMD5\md5\default.txaPackage" />
|
||||
<DCCReference Include="..\Source\md5.pas" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
BIN
official/2.20/Packages/pckMD5.res
Normal file
BIN
official/2.20/Packages/pckMD5.res
Normal file
Binary file not shown.
39
official/2.20/Packages/pckUCDataConn.cfg
Normal file
39
official/2.20/Packages/pckUCDataConn.cfg
Normal file
@ -0,0 +1,39 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
181
official/2.20/Packages/pckUCDataConnector.bdsproj
Normal file
181
official/2.20/Packages/pckUCDataConnector.bdsproj
Normal file
@ -0,0 +1,181 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{031ABD26-4F86-4E62-80E0-8BE5B68D24AE}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCDataConnector.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">User Control DataConn</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles> <ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
39
official/2.20/Packages/pckUCDataConnector.cfg
Normal file
39
official/2.20/Packages/pckUCDataConnector.cfg
Normal file
@ -0,0 +1,39 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-LN"D:\Documentos\Borland Studio Projects\Bpl"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
129
official/2.20/Packages/pckUCDataConnector.dof
Normal file
129
official/2.20/Packages/pckUCDataConnector.dof
Normal file
@ -0,0 +1,129 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=1
|
||||
UnsafeCode=1
|
||||
UnsafeCast=1
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=User Control DataConn
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;Jcl;cxGridVCLD7;cxEditorsVCLD7;cxLibraryVCLD7;cxPageControlVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxSchedulerVCLD7;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDBD7R;JvDlgsD7R;JvDockingD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;IOCore;IODBX;IOIBX;IOXML;RaizeComponentsVcl;RaizeComponentsVclDb;TeeUI77;Tee77;TeeDB77;TeeGL77;TeeLanguage77;TeePro77;TeeImage77;pckUserControl_RT
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1046
|
||||
CodePage=1252
|
||||
[Excluded Packages]
|
||||
c:\arquivos de programas\borland\delphi7\Bin\dcldss70.bpl=Borland Decision Cube Components
|
||||
C:\Arquivos de programas\Borland\Delphi7\Bin\dcltee70.bpl=TeeChart Components
|
||||
C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Bin\DclTQR77.bpl=TeeChart 7 for QuickReport
|
||||
39
official/2.20/Packages/pckUCDataConnector.dpk
Normal file
39
official/2.20/Packages/pckUCDataConnector.dpk
Normal file
@ -0,0 +1,39 @@
|
||||
package pckUCDataConnector;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'User Control DataConn'}
|
||||
{$RUNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{%TogetherDiagram 'ModelSupport_pckUCDataConnector\default.txaPackage'}
|
||||
{%TogetherDiagram 'ModelSupport_pckUCDataConnector\UCDataConnector\default.txaPackage'}
|
||||
{%TogetherDiagram 'ModelSupport_pckUCDataConnector\default.txvpck'}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
UCDataConnector in '..\Source\UCDataConnector.pas';
|
||||
|
||||
end.
|
||||
89
official/2.20/Packages/pckUCDataConnector.dproj
Normal file
89
official/2.20/Packages/pckUCDataConnector.dproj
Normal file
@ -0,0 +1,89 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{32671bc6-e575-4ad0-9f27-6e30a6d8f220}</ProjectGuid>
|
||||
<MainSource>pckUCDataConnector.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\pckUCDataConnector.bpl</DCC_DependencyCheckOutputName>
|
||||
</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>
|
||||
<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 DataConn</Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">True</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>
|
||||
<Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\arquivos de programas\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\Documentos\Borland Studio Projects\Bpl\JvBDED10D.bpl">JVCL BDE Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCDataConnector.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckUCDataConnector.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<None Include="ModelSupport_pckUCDataConnector\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUCDataConnector\default.txvpck" />
|
||||
<None Include="ModelSupport_pckUCDataConnector\UCDataConnector\default.txaPackage" />
|
||||
<DCCReference Include="..\Source\UCDataConnector.pas" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
BIN
official/2.20/Packages/pckUCDataConnector.res
Normal file
BIN
official/2.20/Packages/pckUCDataConnector.res
Normal file
Binary file not shown.
175
official/2.20/Packages/pckUCGlobal.bdsproj
Normal file
175
official/2.20/Packages/pckUCGlobal.bdsproj
Normal file
@ -0,0 +1,175 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{0092566D-272F-493C-AD3E-AFA77DCF4562}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUCGlobal.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription"></Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
40
official/2.20/Packages/pckUCGlobal.cfg
Normal file
40
official/2.20/Packages/pckUCGlobal.cfg
Normal file
@ -0,0 +1,40 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-E"C:\Vicente\Projetos\Vicente\megamax"
|
||||
-LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
136
official/2.20/Packages/pckUCGlobal.dof
Normal file
136
official/2.20/Packages/pckUCGlobal.dof
Normal file
@ -0,0 +1,136 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=C:\Vicente\Projetos\Vicente\megamax
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;vclie;dbrtl;dsnap;vcldb;VclSmp;dbexpress;dbxcds;bdertl;ibxpress;visualclx;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;inet;xmlrtl;soaprtl;vclactnband;adortl;vcldbx;visualdbclx;dsnapcon;dss;webdsnap;inetdb;websnap;JvStdCtrlsD7R;JvAppFrmD7R;JvCoreD7R;JvBandsD7R;JvBDED7R;JvCustomD7R;JvDlgsD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvCryptD7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvCmpD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvCtrlsD7R;JvTimeFrameworkD7R;JvSystemD7R;JvValidatorsD7R;JvXPCtrlsD7R;JvWizardD7R
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1046
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
40
official/2.20/Packages/pckUCGlobal.dpk
Normal file
40
official/2.20/Packages/pckUCGlobal.dpk
Normal file
@ -0,0 +1,40 @@
|
||||
package pckUCGlobal;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl,
|
||||
vclactnband,
|
||||
dclindy,
|
||||
indy,
|
||||
vcldb,
|
||||
pckMD5,
|
||||
pckUCDataConnector,
|
||||
VclSmp,
|
||||
pckUserControl_RT;
|
||||
|
||||
end.
|
||||
BIN
official/2.20/Packages/pckUCGlobal.res
Normal file
BIN
official/2.20/Packages/pckUCGlobal.res
Normal file
Binary file not shown.
180
official/2.20/Packages/pckUserControl_DT.bdsproj
Normal file
180
official/2.20/Packages/pckUserControl_DT.bdsproj
Normal file
@ -0,0 +1,180 @@
|
||||
<?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">{A90803A6-CA56-46C6-949D-5F86DF396AA5}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUserControl_DT.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 Package 2</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Arquivos de programas\Borland\Componentes\fxCube\Bin\dclfds70.bpl">WL Decision Cube Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles> <ModelSupport>False</ModelSupport>
|
||||
</BorlandProject>
|
||||
36
official/2.20/Packages/pckUserControl_DT.cfg
Normal file
36
official/2.20/Packages/pckUserControl_DT.cfg
Normal file
@ -0,0 +1,36 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
|
||||
-LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
|
||||
-Z
|
||||
136
official/2.20/Packages/pckUserControl_DT.dof
Normal file
136
official/2.20/Packages/pckUserControl_DT.dof
Normal file
@ -0,0 +1,136 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=1
|
||||
UnsafeCode=1
|
||||
UnsafeCast=1
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=User Control Package 2
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;Jcl;cxGridVCLD7;cxEditorsVCLD7;cxLibraryVCLD7;cxPageControlVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxSchedulerVCLD7;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDBD7R;JvDlgsD7R;JvDockingD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;IOCore;IODBX;IOIBX;IOXML;RaizeComponentsVcl;RaizeComponentsVclDb;TeeUI77;Tee77;TeeDB77;TeeGL77;TeeLanguage77;TeePro77;TeeImage77;pckUserControl_RT
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1046
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
52
official/2.20/Packages/pckUserControl_DT.dpk
Normal file
52
official/2.20/Packages/pckUserControl_DT.dpk
Normal file
@ -0,0 +1,52 @@
|
||||
package pckUserControl_DT;
|
||||
|
||||
{$R *.res}
|
||||
{$R '..\Source\UCReg.dcr'}
|
||||
{$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 Package 2'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
designide,
|
||||
pckUserControl_RT,
|
||||
vcljpg,
|
||||
vcl,
|
||||
rtl,
|
||||
VclSmp,
|
||||
xmlrtl,
|
||||
vclactnband,
|
||||
vclx,
|
||||
pckUCDataConnector,
|
||||
dbrtl,
|
||||
pckMD5,
|
||||
vcldb;
|
||||
|
||||
contains
|
||||
UCReg in '..\Source\UCReg.pas',
|
||||
UCObjSel_U in '..\Source\UCObjSel_U.pas',
|
||||
UCAbout in '..\Source\UCAbout.pas',
|
||||
UCIdle in '..\Source\UCIdle.pas',
|
||||
UCEditorForm_U in '..\Source\UCEditorForm_U.pas';
|
||||
|
||||
end.
|
||||
65
official/2.20/Packages/pckUserControl_DT.dproj
Normal file
65
official/2.20/Packages/pckUserControl_DT.dproj
Normal file
@ -0,0 +1,65 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{a30f53db-e475-4ad9-a852-f9ebf338bf98}</ProjectGuid>
|
||||
<MainSource>pckUserControl_DT.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\pckUserControl_DT.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="PackageDescription">User Control Package 2</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</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><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Arquivos de programas\Borland\Componentes\fxCube\Bin\dclfds70.bpl">WL Decision Cube Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">pckUserControl_DT.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckUserControl_DT.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Source\UCAbout.pas" />
|
||||
<DCCReference Include="..\Source\UCEditorForm_U.pas" />
|
||||
<DCCReference Include="..\Source\UCIdle.pas" />
|
||||
<DCCReference Include="..\Source\UCObjSel_U.pas" />
|
||||
<DCCReference Include="..\Source\UCReg.dcr" />
|
||||
<DCCReference Include="..\Source\UCReg.dcr" />
|
||||
<DCCReference Include="..\Source\UCReg.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\luiz\xmlrtl.dcp" />
|
||||
<None Include="ModelSupport_pckUserControl_DT\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_DT\default.txvpck" />
|
||||
<None Include="ModelSupport_pckUserControl_DT\UCAbout\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_DT\UCEditorForm_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_DT\UCIdle\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_DT\UCObjSel_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_DT\UCReg\default.txaPackage" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
BIN
official/2.20/Packages/pckUserControl_DT.res
Normal file
BIN
official/2.20/Packages/pckUserControl_DT.res
Normal file
Binary file not shown.
180
official/2.20/Packages/pckUserControl_RT.bdsproj
Normal file
180
official/2.20/Packages/pckUserControl_RT.bdsproj
Normal file
@ -0,0 +1,180 @@
|
||||
<?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">{F3ADA189-4AD2-4DEF-A9A7-8552727CE916}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUserControl_RT.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">True</Compiler>
|
||||
<Compiler Name="UnsafeCode">True</Compiler>
|
||||
<Compiler Name="UnsafeCast">True</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 Package 2</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir"></Directories>
|
||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath"></Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1046</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Arquivos de programas\Borland\Componentes\fxCube\Bin\dclfds70.bpl">WL Decision Cube Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
|
||||
<ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
36
official/2.20/Packages/pckUserControl_RT.cfg
Normal file
36
official/2.20/Packages/pckUserControl_RT.cfg
Normal file
@ -0,0 +1,36 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-LE"C:\Documents and Settings\Vicente\Meus documentos\Borland Studio Projects\Bpl"
|
||||
-LN"C:\Documents and Settings\Vicente\Meus documentos\Borland Studio Projects\Bpl"
|
||||
-Z
|
||||
140
official/2.20/Packages/pckUserControl_RT.dof
Normal file
140
official/2.20/Packages/pckUserControl_RT.dof
Normal file
@ -0,0 +1,140 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=1
|
||||
UnsafeCode=1
|
||||
UnsafeCast=1
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=User Control Package 2
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;Jcl;cxGridVCLD7;cxEditorsVCLD7;cxLibraryVCLD7;cxPageControlVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxSchedulerVCLD7;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDBD7R;JvDlgsD7R;JvDockingD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;IOCore;IODBX;IOIBX;IOXML;RaizeComponentsVcl;RaizeComponentsVclDb;TeeUI77;Tee77;TeeDB77;TeeGL77;TeeLanguage77;TeePro77;TeeImage77;pckUserControl_RT
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1046
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\arquivos de programas\borland\delphi7\Bin\dcldss70.bpl=Borland Decision Cube Components
|
||||
C:\Arquivos de programas\Borland\Delphi7\Bin\dcltee70.bpl=TeeChart Components
|
||||
C:\Arquivos de programas\Borland\Componentes\TeeChart.Pro.v7.06\Sources\Compiled\Delphi7\Bin\DclTQR77.bpl=TeeChart 7 for QuickReport
|
||||
68
official/2.20/Packages/pckUserControl_RT.dpk
Normal file
68
official/2.20/Packages/pckUserControl_RT.dpk
Normal file
@ -0,0 +1,68 @@
|
||||
package pckUserControl_RT;
|
||||
|
||||
{$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 Package 2'}
|
||||
{$RUNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{%TogetherDiagram 'ModelSupport_pckUserControl_RT\default.txaPackage'}
|
||||
|
||||
requires
|
||||
vcljpg,
|
||||
vcl,
|
||||
rtl,
|
||||
vclactnband,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
pckMD5,
|
||||
pckUCDataConnector,
|
||||
VclSmp,
|
||||
dclIndyCore,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
IndyProtocols;
|
||||
|
||||
contains
|
||||
UCMail in '..\Source\UCMail.pas',
|
||||
IncPerfil_U in '..\Source\IncPerfil_U.pas' {frmIncluirPerfil},
|
||||
IncUser_U in '..\Source\IncUser_U.pas' {frmIncluirUsuario},
|
||||
TrocaSenha_U in '..\Source\TrocaSenha_U.pas',
|
||||
UCBase in '..\Source\UCBase.pas',
|
||||
CadPerfil_U in '..\Source\CadPerfil_U.pas' {frmCadastrarPerfil},
|
||||
SenhaForm_U in '..\Source\SenhaForm_U.pas',
|
||||
CadUser_U in '..\Source\CadUser_U.pas' {frmCadastrarUsuario},
|
||||
EnvMsgForm_U in '..\Source\EnvMsgForm_U.pas',
|
||||
MsgRecForm_U in '..\Source\MsgRecForm_U.pas',
|
||||
MsgsForm_U in '..\Source\MsgsForm_U.pas',
|
||||
UCDataInfo in '..\Source\UCDataInfo.pas',
|
||||
UCMessages in '..\Source\UCMessages.pas',
|
||||
UserPermis_U in '..\Source\UserPermis_U.pas',
|
||||
ViewLog_U in '..\Source\ViewLog_U.pas',
|
||||
UCEMailForm_U in '..\Source\UCEMailForm_U.pas',
|
||||
UCSettings in '..\Source\UCSettings.pas',
|
||||
UsersLogged_U in '..\Source\UsersLogged_U.pas' {frmUsersLogged},
|
||||
LoginWindow_U in '..\Source\LoginWindow_U.pas',
|
||||
UCHist_Form in '..\Source\UCHist_Form.pas' {FrmHistorico},
|
||||
UcConsts_Language in '..\Source\UcConsts_Language.pas';
|
||||
|
||||
end.
|
||||
150
official/2.20/Packages/pckUserControl_RT.dproj
Normal file
150
official/2.20/Packages/pckUserControl_RT.dproj
Normal file
@ -0,0 +1,150 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0e9c6372-292f-47d7-b235-70ab25776f3b}</ProjectGuid>
|
||||
<MainSource>pckUserControl_RT.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\pckUserControl_RT.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>
|
||||
<DCC_UNSAFE_TYPE>True</DCC_UNSAFE_TYPE>
|
||||
<DCC_UNSAFE_CODE>True</DCC_UNSAFE_CODE>
|
||||
<DCC_UNSAFE_CAST>True</DCC_UNSAFE_CAST>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_UNSAFE_TYPE>True</DCC_UNSAFE_TYPE>
|
||||
<DCC_UNSAFE_CODE>True</DCC_UNSAFE_CODE>
|
||||
<DCC_UNSAFE_CAST>True</DCC_UNSAFE_CAST>
|
||||
</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 Package 2</Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">True</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>
|
||||
<Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Arquivos de programas\Borland\Componentes\fxCube\Bin\dclfds70.bpl">WL Decision Cube Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">pckUserControl_RT.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="pckUserControl_RT.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<None Include="ModelSupport_pckUserControl_RT\CadPerfil_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\CadUser_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\default.txvpck" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\EnvMsgForm_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\IncPerfil_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\IncUser_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\LoginWindow_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\MsgRecForm_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\MsgsForm_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\SenhaForm_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\TrocaSenha_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCBase\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCBase\default.txvpck" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCConsts\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCDataInfo\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCEMailForm_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCMail\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCMessages\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UCSettings\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UserPermis_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UserPermis_U\default.txvpck" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\UsersLogged_U\default.txaPackage" />
|
||||
<None Include="ModelSupport_pckUserControl_RT\ViewLog_U\default.txaPackage" />
|
||||
<DCCReference Include="..\Source\CadPerfil_U.pas">
|
||||
<Form>frmCadastrarPerfil</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Source\CadUser_U.pas">
|
||||
<Form>frmCadastrarUsuario</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Source\EnvMsgForm_U.pas" />
|
||||
<DCCReference Include="..\Source\IncPerfil_U.pas">
|
||||
<Form>frmIncluirPerfil</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Source\IncUser_U.pas">
|
||||
<Form>frmIncluirUsuario</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Source\LoginWindow_U.pas" />
|
||||
<DCCReference Include="..\Source\MsgRecForm_U.pas" />
|
||||
<DCCReference Include="..\Source\MsgsForm_U.pas" />
|
||||
<DCCReference Include="..\Source\SenhaForm_U.pas" />
|
||||
<DCCReference Include="..\Source\TrocaSenha_U.pas" />
|
||||
<DCCReference Include="..\Source\UCBase.pas" />
|
||||
<DCCReference Include="..\Source\UCConsts.pas" />
|
||||
<DCCReference Include="..\Source\UCDataInfo.pas" />
|
||||
<DCCReference Include="..\Source\UCEMailForm_U.pas" />
|
||||
<DCCReference Include="..\Source\UCMail.pas" />
|
||||
<DCCReference Include="..\Source\UCMessages.pas" />
|
||||
<DCCReference Include="..\Source\UCSettings.pas" />
|
||||
<DCCReference Include="..\Source\UserPermis_U.pas" />
|
||||
<DCCReference Include="..\Source\UsersLogged_U.pas">
|
||||
<Form>frmUsersLogged</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Source\ViewLog_U.pas" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dclIndyCore.dcp" />
|
||||
<DCCReference Include="IndyProtocols.dcp" />
|
||||
<DCCReference Include="pckMD5.dcp" />
|
||||
<DCCReference Include="pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
BIN
official/2.20/Packages/pckUserControl_RT.res
Normal file
BIN
official/2.20/Packages/pckUserControl_RT.res
Normal file
Binary file not shown.
497
official/2.20/Source/CadPerfil_U.dfm
Normal file
497
official/2.20/Source/CadPerfil_U.dfm
Normal file
@ -0,0 +1,497 @@
|
||||
object frmCadastrarPerfil: TfrmCadastrarPerfil
|
||||
Left = 407
|
||||
Top = 193
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Seguranca'
|
||||
ClientHeight = 240
|
||||
ClientWidth = 390
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object DBGrid1: TDBGrid
|
||||
Left = 0
|
||||
Top = 35
|
||||
Width = 293
|
||||
Height = 205
|
||||
Align = alClient
|
||||
Ctl3D = True
|
||||
DataSource = DataSource1
|
||||
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
||||
ParentCtl3D = False
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -11
|
||||
TitleFont.Name = 'MS Sans Serif'
|
||||
TitleFont.Style = []
|
||||
OnDblClick = DBGrid1DblClick
|
||||
Columns = <
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'Nome'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Perfil'
|
||||
Width = 274
|
||||
Visible = True
|
||||
end>
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 390
|
||||
Height = 35
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
Color = clWhite
|
||||
TabOrder = 1
|
||||
object lbDescricao: TLabel
|
||||
Left = 40
|
||||
Top = 11
|
||||
Width = 154
|
||||
Height = 18
|
||||
Caption = 'Perfil de Usu'#225'rios'
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Verdana'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Image1: TImage
|
||||
Left = 8
|
||||
Top = 4
|
||||
Width = 28
|
||||
Height = 28
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
07544269746D6170760C0000424D760C00000000000036000000280000001C00
|
||||
00001C0000000100200000000000400C00000000000000000000000000000000
|
||||
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF008E4019008E4019008E4019008E4019008E4019008E4019008E40
|
||||
19008E4019008E4019008E4019008E4019008E4019008E4019008E4019008E40
|
||||
19008E4019008E4019008E4019008E4019008E4019008E4019008E4019008E40
|
||||
19008E4019008E4019008E401900FFFFFF00FFFFFF008E401800A24E0000A24E
|
||||
0000A24E0000A24E0000A24E0000A24E0000A24E0000A24E0000A24E0000A24E
|
||||
0000A24E0000A24E0000A24E0000A24E0000A24E0000A24E0000A24E0000A24E
|
||||
0000A24E0000A24E0000A24E0000A24E0000A24E0000A24E00008E401900FFFF
|
||||
FF00FFFFFF00A2511B00F9F6F400B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A2930092421800FFFFFF00FFFFFF00AE591900FAF8F600F9F6
|
||||
F400F7F3F100F5F1EE00F4EEEB00F2ECE800F1EAE600EFE7E300EDE5E000ECE3
|
||||
DE00EBE1DB00E9DED700E7DBD400E5D9D100E3D6CE00E2D3CB00E0D1C800DECE
|
||||
C500DCCBC200DBC9BF00DBC9BF00DBC9BF00DBC9BF00B7A293008E401900FFFF
|
||||
FF00FFFFFF00B15A1700FDFCFB00FBF9F800F9F7F500F7F3F100F5F1EE00F4EE
|
||||
EB00F2ECE800F1EAE600EFE7E300EDE5E000ECE3DE00EBE1DB00E9DED700E7DB
|
||||
D400E5D9D100E3D6CE00E2D3CB00E0D1C800DECEC500DCCBC200DBC9BF00DBC9
|
||||
BF00DBC9BF00B7A293008E401900FFFFFF00FFFFFF00B45C1700FEFEFD00FDFC
|
||||
FB00FBF9F800F9F7F500F8F4F200F6F2EF00F5F0ED00F3EDEA00F1EBE700EFE7
|
||||
E300EDE5E000ECE3DE00EBE1DB00E9DED700E7DBD400E5D9D100E3D6CE00E2D3
|
||||
CB00E0D1C800DECEC500DCCBC200DBC9BF00DBC9BF00B7A293008E401900FFFF
|
||||
FF00FFFFFF00B75E1600FFFFFF00FEFEFD00FDFCFB00FBF9F800F9F7F500F8F4
|
||||
F200F6F2EF00F5F0ED00F3EDEA00F1EBE700F0E8E400EEE6E100EDE4DF00EBE2
|
||||
DC00E9DED700B7A2930069473100694731006947310069473100694731006947
|
||||
310069473100B7A293008E401900FFFFFF00FFFFFF00B9601600FFFFFF00FFFF
|
||||
FF00FEFEFD00FDFCFB00FBF9F800F9F7F500F8F4F200F6F2EF00F5F0ED00F3ED
|
||||
EA00F1EBE700F0E8E400EEE6E100EDE4DF00EBE2DC00B7A29300FFFFFF00FCFD
|
||||
FF005476FF00E4E9FF00FFFFFF00FFFFFF0069473100B7A293008E401900FFFF
|
||||
FF00FFFFFF00BC621500FFFFFF00FFFFFF00FFFFFF00FEFEFD00FDFCFB00FBF9
|
||||
F800F9F7F500F8F4F200F6F2EF00F5F0ED00F3EDEA00F1EBE700F0E8E400EEE6
|
||||
E100EDE4DF00B7A29300FFFFFF00B4C3FF000033FF002450FF00FCFDFF00FFFF
|
||||
FF0069473100B7A293008E401900FFFFFF00FFFFFF00BF641500FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FEFEFD00FDFCFB00FBF9F800F9F7F500F8F4F200F6F2
|
||||
EF00F5F0ED00F3EDEA00F1EBE700F0E8E400EEE6E100B7A29300FFFFFF004066
|
||||
FF000C3DFF000033FF009CB0FF00FFFFFF0069473100B7A293008E401900FFFF
|
||||
FF00FFFFFF00C0661400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEFE
|
||||
FD00FDFCFB00FBF9F800F9F7F500F8F4F200F6F2EF00F5F0ED00F3EDEA00F1EB
|
||||
E700F0E8E400B7A293008CA3FF000033FF00708DFF006483FF001846FF00F0F3
|
||||
FF0069473100B7A293008E401900FFFFFF00FFFFFF00C3681400FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFC00FCFAF900FAF8
|
||||
F600F9F6F400F6F2EF00F5F0ED00F3EDEA00F1EBE700B7A2930088A0FF001C49
|
||||
FF00E4E9FF00F0F3FF00204DFF006080FF0069473100B7A293008E401900FFFF
|
||||
FF00FFFFFF00C66A1300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FDFDFC00FCFAF900FAF8F600F9F6F400F7F3F100F5F1
|
||||
EE00F4EEEB00B7A29300FFFFFF00FFFFFF00FFFFFF00FFFFFF009CB0FF000C3D
|
||||
FF006080FF00B7A293008E401900FFFFFF00FFFFFF00C96C1300FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFD
|
||||
FC00FCFAF900FAF8F600F9F6F400F7F3F100F5F1EE00B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A293009CB0FF001443FF006080FF008E401900FFFF
|
||||
FF00FFFFFF00CB6D1200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFC00FCFAF900FAF8F600F9F6
|
||||
F400F7F3F100F5F1EE00F4EEEB00F2ECE800F1EAE600EFE7E300EDE5E000ECE3
|
||||
DE009CB0FF00345DFF008E401900FFFFFF00FFFFFF00CB6D1200FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FDFDFC00FCFAF900FAF8F600F9F6F400B7A29300694731006947
|
||||
310069473100694731006947310069473100694731009CB0FF00486DFF00FFFF
|
||||
FF00FFFFFF00CB6D1200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFC00FCFA
|
||||
F900FAF8F600B7A29300FFFFFF00FCFDFF005476FF00E4E9FF00FFFFFF00FFFF
|
||||
FF0069473100B7A293009CB0FF007893FF00FFFFFF00CB6D1200FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FDFDFC00FCFAF900B7A29300FFFFFF00B4C3
|
||||
FF000033FF002450FF00FCFDFF00FFFFFF0069473100B7A293008E401900FFFF
|
||||
FF00FFFFFF00CB6D1200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FEFEFD00B7A29300FFFFFF004066FF000C3DFF000033FF009CB0FF00FFFF
|
||||
FF0069473100B7A293008E401900FFFFFF00FFFFFF00CB6D1200FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B7A293008CA3FF000033
|
||||
FF00708DFF006483FF001846FF00F0F3FF0069473100B7A293008E401900FFFF
|
||||
FF00FFFFFF00CA6C1100F3EDEA00F3EDEA00F3EDEA00F3EDEA00F3EDEA00F3ED
|
||||
EA00F3EDEA00F3EDEA00F3EDEA00F3EDEA00F3EDEA00F3EDEA00F3EDEA00F3ED
|
||||
EA00F3EDEA00B7A2930088A0FF001C49FF00E4E9FF00F0F3FF00204DFF006080
|
||||
FF0069473100F3EDEA008E401900FFFFFF00FFFFFF00B96303008E4019008E40
|
||||
19008E4019008E4019008E4019008E4019008E4019008E4019008E4019008E40
|
||||
19008E4019008E4019008E4019008E4019008E401900B7A29300FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF009CB0FF000C3DFF006080FF008E4019008E401900FFFF
|
||||
FF00FFFFFF00B9630300B45C0000B45C0000B45C0000B45C0000B45C0000B45C
|
||||
0000B45C0000B55B0000B55B0000B55B0000B55B0000B55B0000B55B0000B45C
|
||||
0000B45C0000B7A29300B7A29300B7A29300B7A29300B7A29300B7A293009CB0
|
||||
FF001443FF006080FF008E401900FFFFFF00FFFFFF00E3A66000E38E2D00E38E
|
||||
2D00E38E2D00E38E2D00E38E2D00E38E2D00E38E2D00E38E2D00E38E2D00E38E
|
||||
2D00E38E2D00E38E2D00E38E2D00E38E2D00E38E2D00E38E2D00F6CA9A00F19F
|
||||
4300E38E2D00F6CA9A00F19F4300E38E2D009CB0FF00345DFF00E3A66000FFFF
|
||||
FF00FFFFFF00F8EBDC00E3A66000D2710000D2710000D2710000D2710000D271
|
||||
0000D2710000D2710000D2710000D2710000D2710000D2710000D2710000D271
|
||||
0000D2710000D2710000D2710000D2710000D2710000D2710000D2710000D271
|
||||
0000D27100009CB0FF00486DFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009CB0FF007893
|
||||
FF00}
|
||||
end
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 293
|
||||
Top = 35
|
||||
Width = 97
|
||||
Height = 205
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 2
|
||||
object btAdic: TBitBtn
|
||||
Left = 8
|
||||
Top = 11
|
||||
Width = 81
|
||||
Height = 25
|
||||
Caption = '&Adicionar'
|
||||
TabOrder = 0
|
||||
OnClick = btAdicClick
|
||||
Glyph.Data = {
|
||||
36060000424D3606000000000000360000002800000020000000100000000100
|
||||
18000000000000060000120B0000120B00000000000000000000FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0060000060
|
||||
00006000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FF777777787878777777FF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00600033CB
|
||||
51006000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FF777777C8C8C8777777FF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00600000600000600040D8
|
||||
65006000006000006000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FF787878777777777777D1D1D1787878777777777777D1BBAD694731
|
||||
69473169473169473169473169473169473169473100600060F8985AF28F4DE5
|
||||
7A40D8653AD25C006000CCCCCC6C6C6C6B6B6B6B6B6B6C6C6C6C6C6C6B6B6B6C
|
||||
6C6C6B6B6B777777EAEAEAE5E5E5DBDBDBD2D2D2CDCDCD787878D1BBADFFFFFF
|
||||
FBF9F8F7F3F1F3EDEAEFE7E3EBE1DBE6D9D2E1D2CA0060000060000060005AF2
|
||||
8F006000006000006000CCCCCCFFFFFFFBFBFBF7F7F7F2F2F2EEEEEEEAEAEAE3
|
||||
E3E3DFDFDF777777777777777777E6E6E6777777777777787878D1BBADFFFFFF
|
||||
CF875FCF875FF7F3F1CF875FCF875FEBE1DBCF875FCF875FDCCBC100600060F8
|
||||
98006000FF00FFFF00FFCCCCCCFFFFFFA4A4A4A4A4A4F7F7F7A5A5A5A4A4A4EA
|
||||
EAEAA5A5A5A4A4A4D9D9D9777777EAEAEA777777FF00FFFF00FFD1BBADFFFFFF
|
||||
FFFFFFFFFFFFFBF9F8F7F3F1F3EDEAEFE7E3EBE1DBE6D9D2E1D2CA0060000060
|
||||
00006000FF00FFFF00FFCCCCCCFFFFFFFFFFFFFFFFFFFBFBFBF7F7F7F3F3F3EE
|
||||
EEEEE9E9E9E4E4E4DFDFDF777777777777777777FF00FFFF00FFD1BBADD1BBAD
|
||||
D1BBADD1BBADE070406947316947316947316947316947316947316947316947
|
||||
31694731694731694731CDCDCDCCCCCCCCCCCCCCCCCC9494946C6C6C6C6C6C6B
|
||||
6B6B6C6C6C6B6B6B6C6C6C6B6B6B6C6C6C6B6B6B6C6C6C6C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FFE07040FFFFFFFBF9F8F7F3F1F3EDEAEFE7E3EBE1DBE6D9D2E1D2
|
||||
CADCCBC1DBC9BF694731FF00FFFF00FFFF00FFFF00FF959595FFFFFFFBFBFBF7
|
||||
F7F7F2F2F2EEEEEEEAEAEAE3E3E3DFDFDFD9D9D9D8D8D86C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FFE07040FFFFFFCF875FCF875FF7F3F1CF875FCF875FEBE1DBCF87
|
||||
5FCF875FDCCBC1694731FF00FFFF00FFFF00FFFF00FF949494FFFFFFA5A5A5A4
|
||||
A4A4F7F7F7A5A5A5A4A4A4EAEAEAA5A5A5A4A4A4DADADA6B6B6BFF00FFFF00FF
|
||||
FF00FFFF00FFE07040FFFFFFFFFFFFFFFFFFFBF9F8F7F3F1F3EDEAEFE7E3EBE1
|
||||
DBE6D9D2E1D2CA694731FF00FFFF00FFFF00FFFF00FF949494FFFFFFFFFFFFFF
|
||||
FFFFFBFBFBF7F7F7F2F2F2EEEEEEEAEAEAE4E4E4DFDFDF6C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FFE07040E07040E07040E07040E07040E07040E07040E07040E070
|
||||
40E07040E07040E07040FF00FFFF00FFFF00FFFF00FF95959595959595959594
|
||||
9494949494949494959595959595949494959595959595959595FF00FFFF00FF
|
||||
FF00FFFF00FFE07040FBC39FFBC39FFAC19CF5B18BEFA27AEB9369E68254E070
|
||||
40E07040E07040E07040FF00FFFF00FFFF00FFFF00FF949494D2D2D2D2D2D2D0
|
||||
D0D0C4C4C4BABABAAFAFAFA1A1A1949494959595959595959595FF00FFFF00FF
|
||||
FF00FFFF00FFE07040E07040E07040E07040E07040E07040E07040E07040E070
|
||||
40E07040E07040E07040FF00FFFF00FFFF00FFFF00FF95959595959594949495
|
||||
9595959595959595949494959595949494949494959595959595FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
|
||||
NumGlyphs = 2
|
||||
end
|
||||
object BtAlt: TBitBtn
|
||||
Left = 8
|
||||
Top = 51
|
||||
Width = 81
|
||||
Height = 25
|
||||
Caption = '&Alterar'
|
||||
TabOrder = 1
|
||||
OnClick = BtAltClick
|
||||
Glyph.Data = {
|
||||
36060000424D3606000000000000360000002800000020000000100000000100
|
||||
18000000000000060000120B0000120B00000000000000000000FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFD1BBAD694731
|
||||
694731694731694731694731694731694731694731694731694731694731FF00
|
||||
FFFF00FFFF00FFFF00FFCCCCCC6C6C6C6B6B6B6C6C6C6C6C6C6C6C6C6C6C6C6C
|
||||
6C6C6B6B6B6C6C6C6C6C6C6B6B6BFF00FFFF00FFFF00FFFF00FFD1BBADFFFFFF
|
||||
FBF9F8F7F3F1F3EDEAEFE7E3EBE1DBE6D9D2E1D2CADCCBC1DBC9BF694731FF00
|
||||
FFFF00FFFF00FFFF00FFCDCDCDFFFFFFFBFBFBF7F7F7F2F2F2EEEEEEE9E9E9E3
|
||||
E3E3DFDFDFDADADAD8D8D86C6C6CFF00FFFF00FFFF00FFFF00FFD1BBADFFFFFF
|
||||
CF875FCF875FF7F3F1CF875FCF875F1C1C1C1C1C1C1C1C1CDCCBC1694731FF00
|
||||
FFFF00FFFF00FFFF00FFCDCDCDFFFFFFA4A4A4A4A4A4F7F7F7A4A4A4A4A4A440
|
||||
4040404040414141DADADA6C6C6CFF00FFFF00FFFF00FFFF00FFD1BBADFFFFFF
|
||||
FFFFFFFFFFFFFBF9F8F7F3F11C1C1C0098C8FCFAF8A39D98E1D2CA694731FF00
|
||||
FFFF00FFFF00FFFF00FFCDCDCDFFFFFFFFFFFFFFFFFFFBFBFBF7F7F7414141B9
|
||||
B9B9FCFCFCB7B7B7DFDFDF6B6B6BFF00FFFF00FFFF00FFFF00FFD1BBADD1BBAD
|
||||
D1BBADD1BBADE070401C1C1C0098C84ABEDF0098C8A39D986947316947316947
|
||||
31694731694731694731CCCCCCCDCDCDCDCDCDCDCDCD959595404040B9B9B9D3
|
||||
D3D3B9B9B9B7B7B76C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FF1C1C1C0098C84ABEDF94E4F60098C8EFE7E3EBE1DBE6D9D2E1D2
|
||||
CADCCBC1DBC9BF694731FF00FFFF00FFFF00FFFF00FF414141B9B9B9D3D3D3ED
|
||||
EDEDB9B9B9EEEEEEEAEAEAE4E4E4DFDFDFD9D9D9D8D8D86C6C6CFF00FFFF00FF
|
||||
FF00FF1C1C1C0098C84ABEDF94E4F60098C8F7F3F1CF875FCF875FEBE1DBCF87
|
||||
5FCF875FDCCBC1694731FF00FFFF00FFFF00FF414141B9B9B9D3D3D3EDEDEDB9
|
||||
B9B9F7F7F7A4A4A4A4A4A4EAEAEAA4A4A4A4A4A4D9D9D96C6C6CFF00FFFF00FF
|
||||
1C1C1C0098C84ABEDF94E4F60098C8FFFFFFFBF9F8F7F3F1F3EDEAEFE7E3EBE1
|
||||
DBE6D9D2E1D2CA694731FF00FFFF00FF414141B9B9B9D3D3D3EDEDEDB9B9B9FF
|
||||
FFFFFBFBFBF7F7F7F3F3F3EEEEEEE9E9E9E3E3E3DFDFDF6C6C6CFF00FF00009A
|
||||
8080804ABEDF94E4F60098C8E07040E07040E07040E07040E07040E07040E070
|
||||
40E07040E07040E07040FF00FF7272729F9F9FD3D3D3EDEDEDB9B9B994949495
|
||||
959595959595959594949495959594949495959595959594949400009A00009A
|
||||
778C98D2BAAC0098C8FBC39FFBC39FFAC19CF5B18BEFA27AEB9369E68254E070
|
||||
40E07040E07040E07040727272727272AAAAAACCCCCCB9B9B9D2D2D2D2D2D2D0
|
||||
D0D0C4C4C4B9B9B9AFAFAFA2A2A29494949595959595959595954A23C70030F8
|
||||
6D8AFD0030F8E07040E07040E07040E07040E07040E07040E07040E07040E070
|
||||
40E07040E07040E07040A85FA8A2A2A2C2C2C2A2A2A295959595959595959594
|
||||
9494959595959595959595949494959595959595959595959595FF00FF8817DA
|
||||
0030F8FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFC63EC6A2A2A2FF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
|
||||
NumGlyphs = 2
|
||||
end
|
||||
object BtExclui: TBitBtn
|
||||
Left = 8
|
||||
Top = 91
|
||||
Width = 81
|
||||
Height = 25
|
||||
Caption = '&Excluir'
|
||||
TabOrder = 2
|
||||
OnClick = BtExcluiClick
|
||||
Glyph.Data = {
|
||||
36060000424D3606000000000000360000002800000020000000100000000100
|
||||
18000000000000060000120B0000120B00000000000000000000FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FF0030F8000098FF00FFFF00FFFF00FFFF00
|
||||
FFFF00FF0000980030F8FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA3
|
||||
A3A3707070FF00FFFF00FFFF00FFFF00FFFF00FF707070A2A2A2FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0030F8000098FF00FFFF00FFFF00
|
||||
FF0000980030F8FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFA2A2A2707070FF00FFFF00FFFF00FF707070A3A3A3FF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0030F8000098FF00FF0000
|
||||
980030F8FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFA2A2A2707070FF00FF727272A3A3A3FF00FFFF00FFD1BBAD694731
|
||||
6947316947316947316947316947316947316947316947310030F8002AD0002A
|
||||
D0FF00FFFF00FFFF00FFCCCCCC6C6C6C6C6C6C6C6C6C6B6B6B6C6C6C6B6B6B6B
|
||||
6B6B6C6C6C6C6C6CA3A3A3919191919191FF00FFFF00FFFF00FFD1BBADE8DCD4
|
||||
E6D9D1E4D7CEE2D4CAE1D1C7DFCFC4DDCBC0DBC8BDD8C5B90030F8002AD00000
|
||||
98FF00FFFF00FFFF00FFCDCDCDE6E6E6E3E3E3E2E2E2E0E0E0DDDDDDDCDCDCD9
|
||||
D9D9D7D7D7D5D5D5A2A2A2919191707070FF00FFFF00FFFF00FFD1BBADE8DCD4
|
||||
694731694731E4D7CE694731694731DFCFC46947310030F80000986947310030
|
||||
F8000098FF00FFFF00FFCDCDCDE6E6E66C6C6C6C6C6CE2E2E26C6C6C6C6C6CDC
|
||||
DCDC6C6C6CA2A2A27070706C6C6CA3A3A3707070FF00FFFF00FFD1BBADE8DCD4
|
||||
E8DCD4E8DCD4E6D9D1E4D7CEE2D4CAE1D1C70030F8000098DBC8BD694731FF00
|
||||
FF0030F8000098FF00FFCDCDCDE6E6E6E6E6E6E6E6E6E3E3E3E2E2E2DFDFDFDD
|
||||
DDDDA3A3A3707070D7D7D76C6C6CFF00FFA3A3A3727272FF00FFD1BBADD1BBAD
|
||||
D1BBADD1BBADE070406947316947316947310000986947316947316947316947
|
||||
316947310030F8694731CCCCCCCCCCCCCDCDCDCDCDCD9595956B6B6B6C6C6C6C
|
||||
6C6C7070706C6C6C6C6C6C6C6C6C6C6C6C6C6C6CA2A2A26C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FFE07040FFFFFFFBF9F8F7F3F1F3EDEAEFE7E3EBE1DBE6D9D2E1D2
|
||||
CADCCBC1DBC9BF694731FF00FFFF00FFFF00FFFF00FF959595FFFFFFFBFBFBF7
|
||||
F7F7F2F2F2EEEEEEE9E9E9E4E4E4DFDFDFDADADAD8D8D86C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FFE07040FFFFFF694731694731F7F3F1694731694731EBE1DB6947
|
||||
31694731DCCBC1694731FF00FFFF00FFFF00FFFF00FF959595FFFFFF6C6C6C6B
|
||||
6B6BF7F7F76C6C6C6C6C6CEAEAEA6B6B6B6C6C6CD9D9D96C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FFE07040FFFFFFFFFFFFFFFFFFFBF9F8F7F3F1F3EDEAEFE7E3EBE1
|
||||
DBE6D9D2E1D2CA694731FF00FFFF00FFFF00FFFF00FF959595FFFFFFFFFFFFFF
|
||||
FFFFFBFBFBF7F7F7F3F3F3EEEEEEEAEAEAE3E3E3DFDFDF6C6C6CFF00FFFF00FF
|
||||
FF00FFFF00FFE07040E07040E07040E07040E07040E07040E07040E07040E070
|
||||
40E07040E07040E07040FF00FFFF00FFFF00FFFF00FF95959595959595959595
|
||||
9595949494959595959595959595959595959595959595949494FF00FFFF00FF
|
||||
FF00FFFF00FFE07040FBC39FFBC39FFAC19CF5B18BEFA27AEB9369E68254E070
|
||||
40E07040E07040E07040FF00FFFF00FFFF00FFFF00FF959595D2D2D2D2D2D2D0
|
||||
D0D0C4C4C4B9B9B9AFAFAFA2A2A2959595949494959595959595FF00FFFF00FF
|
||||
FF00FFFF00FFE07040E07040E07040E07040E07040E07040E07040E07040E070
|
||||
40E07040E07040E07040FF00FFFF00FFFF00FFFF00FF95959595959594949495
|
||||
9595959595959595959595959595949494959595959595959595FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
|
||||
NumGlyphs = 2
|
||||
end
|
||||
object BtExit: TBitBtn
|
||||
Left = 8
|
||||
Top = 171
|
||||
Width = 81
|
||||
Height = 25
|
||||
Caption = '&Fechar'
|
||||
TabOrder = 3
|
||||
OnClick = BtExitClick
|
||||
Glyph.Data = {
|
||||
36060000424D3606000000000000360000002800000020000000100000000100
|
||||
18000000000000060000120B0000120B00000000000000000000FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC066148E4019
|
||||
8E40198E40198E40198E40198E40198E40198E40198E40198E40198E40198E40
|
||||
198E40198E4019FF00FF8888886969696969696969696969696969696A6A6A69
|
||||
69696969696969696A6A6A6969696969696A6A6A696969FF00FFC06614F9F5F4
|
||||
C3B2A5C3B2A5C3B2A5C3B2A5C3B2A5C3B2A5C3B2A5C3B2A5C3B2A5C3B2A5C3B2
|
||||
A5C3B2A58E4019FF00FF888888F8F8F8C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
|
||||
C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6696969FF00FFC06614FCFAFA
|
||||
F9F5F4F5F0EEF2EBE8EEE6E2ECE2DCE9DED7E5D9D1E2D4CCDFD0C7DFD0C7DCCB
|
||||
C1C3B2A58E4019FF00FF888888FCFCFCF8F8F8F5F5F5F1F1F1EEEEEEEAEAEAE7
|
||||
E7E7E4E4E4E0E0E0DDDDDDDDDDDDD9D9D9C6C6C6696969FF00FFC06614FFFFFF
|
||||
FCFAFAF9F5F4F5F0EEF2EBE8EEE6E2ECE2DCE9DED7E5D9D1E2D4CCE2D4CCDFD0
|
||||
C7C3B2A58E4019FF00FF888888FFFFFFFCFCFCF8F8F8F5F5F5F1F1F1EEEEEEEA
|
||||
EAEAE7E7E7E3E3E3E0E0E0E0E0E0DDDDDDC6C6C6696969FF00FFC06614FFFFFF
|
||||
FFFFFFFCFAFAF9F5F4F5F0EEF2EBE8EEE6E2ECE2DCE9DED7E5D9D1E5D9D1E2D4
|
||||
CCC3B2A58E4019FF00FF888888FFFFFFFFFFFFFCFCFCF8F8F8F5F5F5F1F1F1EE
|
||||
EEEEEAEAEAE7E7E7E3E3E3E3E3E3E0E0E0C6C6C6696969FF00FFC06614FFFFFF
|
||||
FFFFFFFFFFFFFCFAFAF9F5F4F5F0EEF2EBE8EEE6E2ECE2DCE9DED7E9DED7E5D9
|
||||
D1C3B2A58E4019FF00FF888888FFFFFFFFFFFFFFFFFFFCFCFCF8F8F8F5F5F5F1
|
||||
F1F1EEEEEEEAEAEAE7E7E7E7E7E7E3E3E3C6C6C6696969FF00FFC06614FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFEFDFDFBF8F7F7F3F1F2EBE8EEE6E2ECE2DCECE2DCE9DE
|
||||
D7C3B2A58E4019FF00FF888888FFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFBFBFBF7
|
||||
F7F7F1F1F1EEEEEEEAEAEAEAEAEAE7E7E7C6C6C6696969FF00FFC06614FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFEFDFDFBF8F7F7F3F1F4EEEBF0E9E5F0E9E5EDE4
|
||||
DFC3B2A58E4019FF00FF888888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFB
|
||||
FBFBF7F7F7F3F3F3F0F0F0F0F0F0ECECECC6C6C66A6A6AFF00FFC06614FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFDFDFBF8F7F7F3F1F4EEEBF4EEEBF0E9
|
||||
E5C3B2A58E4019FF00FF888888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE
|
||||
FEFEFBFBFBF7F7F7F3F3F3F3F3F3F0F0F0C6C6C66A6A6AFF00FFC06614FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFDFDFBF8F78A9DE92546CD1D3F
|
||||
C9193BC8183BC88194E1898989FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFEFEFEFAFAFAC6C6C6979797929292929292929292C0C0C0C06614FFFFFF
|
||||
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFDFD3355DBF2F4FD4E6B
|
||||
D94A67D8F2F4FD183BC8888888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||
FFFFFFFFFFFEFEFEA1A1A1FAFAFAAAAAAAA8A8A8F9F9F9929292C066148E4019
|
||||
8E40198E40198E40198E40198E40198E40198E40198E40193C5CDD8296E4D9DF
|
||||
F9CDD5F74C69D81A3CC88888886969696969696969696A6A6A69696969696969
|
||||
6969696969696969A5A5A5C1C1C1EDEDEDE7E7E7A8A8A8929292C06614ED9733
|
||||
ED9733ED9733ED9733ED9733ED9733ED9733F6CA9AED97334563E16980E2E4E8
|
||||
FBD8DEF9516DDA1F40C9888888ACACACACACACADADADADADADADADADACACACAD
|
||||
ADADD5D5D5ADADADA8A8A8B6B6B6F2F2F2ECECECABABAB939393F810DCC06614
|
||||
C06614C06614C06614C06614C06614C06614C06614C066144D6AE3F2F4FD667D
|
||||
E26E85E2F2F4FD2749CEEF14EF88888888888888888888888889898988888888
|
||||
8888888888898989ACACACF9F9F9B5B5B5B9B9B9F9F9F9989898FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9AABEF4D6AE34563
|
||||
E14463DF3E5EDE8FA2EBFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFCFCFCFACACACA8A8A8A8A8A8A6A6A6C9C9C9}
|
||||
NumGlyphs = 2
|
||||
end
|
||||
object BtAcess: TBitBtn
|
||||
Left = 8
|
||||
Top = 131
|
||||
Width = 81
|
||||
Height = 25
|
||||
Caption = '&Acessos'
|
||||
TabOrder = 4
|
||||
Glyph.Data = {
|
||||
36060000424D3606000000000000360000002800000020000000100000000100
|
||||
18000000000000060000120B0000120B00000000000000000000FF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFC2652BA53C00A53C00A53C00A53C00A53C00A53C
|
||||
00A53C00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF89898969
|
||||
69696969696969696969696969696A6A6A696969FF00FFFF00FFFF00FFFF00FF
|
||||
A22E08A22E08A22E08A22E08C2652BFFD4A5FFD4A5FFD4A5FFCD97FFC07DFFAD
|
||||
55A53C00FF00FFFF00FFFF00FFFF00FF606060606060606060606060898989DC
|
||||
DCDCDCDCDCDCDCDCD7D7D7CCCCCCBEBEBE6A6A6AFF00FFFF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FFC2652BC2652BC2652BC2652BC2652BC2652BC265
|
||||
2BC2652BFF00FFFF00FFFF00FFFF00FF606060FF00FFFF00FFFF00FF89898989
|
||||
8989898989898989898989898989898989898989FF00FFFF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FF606060FF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FF1C1C1C986060986060A53C00A53C00A53C00A53C
|
||||
00A53C00FF00FFFF00FFFF00FFFF00FF616161FF00FFFF00FFFF00FF41414188
|
||||
8888888888696969696969696969696969696969FF00FFFF00FFFF00FFFF00FF
|
||||
A22E08A22E08A22E08A22E08C89898FCFAF80098C81C1C1CFFCD97FFC07DFFAD
|
||||
55A53C00FF00FFFF00FFFF00FFFF00FF606060606060606060606060B5B5B5FC
|
||||
FCFCB9B9B9414141D7D7D7CCCCCCBEBEBE696969FF00FFFF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FFC898980098C84ABEDF0098C81C1C1CC2652BC265
|
||||
2BC2652BFF00FFFF00FFFF00FFFF00FF606060FF00FFFF00FFFF00FFB5B5B5B9
|
||||
B9B9D3D3D3B9B9B9414141898989898989898989FF00FFFF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FFFF00FF0098C894E4F64ABEDF0098C81C1C1CFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FF606060FF00FFFF00FFFF00FFFF00FFB9
|
||||
B9B9EDEDEDD3D3D3B9B9B9414141FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FFC2652BA53C000098C894E4F64ABEDF0098C81C1C
|
||||
1CA53C00FF00FFFF00FFFF00FFFF00FF606060FF00FFFF00FFFF00FF89898969
|
||||
6969B9B9B9EDEDEDD3D3D3B9B9B94040406A6A6AFF00FFFF00FFFF00FFFF00FF
|
||||
A22E08A22E08A22E08A22E08C2652BFFD4A5FFD4A50098C894E4F64ABEDF0098
|
||||
C81C1C1CFF00FFFF00FFFF00FFFF00FF606060606060606060606060898989DC
|
||||
DCDCDCDCDCB9B9B9EDEDEDD3D3D3BABABA414141FF00FFFF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FFC2652BC2652BC2652BC2652B0098C894E4F64ABE
|
||||
DF80808000009AFF00FFFF00FFFF00FF606060FF00FFFF00FFFF00FF89898989
|
||||
8989898989898989BABABAEDEDEDD3D3D3A0A0A0727272FF00FFFF00FFFF00FF
|
||||
A22E08FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0098C8D2BA
|
||||
AC778C9800009A00009AFF00FFFF00FF606060FF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFB9B9B9CCCCCCABABAB727272727272C2652BA22E08
|
||||
A22E08A22E08A22E08A22E08A22E08A22E16FF00FFFF00FFFF00FFFF00FF0030
|
||||
F86D8AFD0030F800009A89898960606060606060606060606060606060606061
|
||||
6161FF00FFFF00FFFF00FFFF00FFA2A2A2C2C2C2A3A3A3727272C2652BFFD4A5
|
||||
FFD4A5FFD4A5FFCD97FFC07DFFAD55A22E08FF00FFFF00FFFF00FFFF00FFFF00
|
||||
FF0030F80030F8FF00FF898989DCDCDCDCDCDCDCDCDCD7D7D7CCCCCCBEBEBE60
|
||||
6060FF00FFFF00FFFF00FFFF00FFFF00FFA2A2A2A3A3A3FF00FFC2652BC2652B
|
||||
C2652BC2652BC2652BC2652BC2652BC2652BFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FF89898989898989898989898989898989898989898989
|
||||
8989FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
||||
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
|
||||
NumGlyphs = 2
|
||||
end
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
Left = 128
|
||||
Top = 104
|
||||
end
|
||||
end
|
||||
201
official/2.20/Source/CadPerfil_U.pas
Normal file
201
official/2.20/Source/CadPerfil_U.pas
Normal file
@ -0,0 +1,201 @@
|
||||
{-----------------------------------------------------------------------------
|
||||
Unit Name: CadPerfil_U
|
||||
Author: QmD
|
||||
Last Change: 25-abr-2005
|
||||
Purpose: User profile
|
||||
History: Corrected Bug on Apply XPStyle definitions
|
||||
-----------------------------------------------------------------------------}
|
||||
|
||||
unit CadPerfil_U;
|
||||
|
||||
interface
|
||||
|
||||
{$I 'UserControl.inc'}
|
||||
|
||||
uses
|
||||
{$IFDEF DELPHI5_UP}
|
||||
Variants,
|
||||
{$ENDIF}
|
||||
Buttons,
|
||||
Classes,
|
||||
Controls,
|
||||
DB,
|
||||
DBGrids,
|
||||
Dialogs,
|
||||
ExtCtrls,
|
||||
Forms,
|
||||
Graphics,
|
||||
Grids,
|
||||
IncPerfil_U,
|
||||
Menus,
|
||||
Messages,
|
||||
StdCtrls,
|
||||
SysUtils,
|
||||
UCBase,
|
||||
Windows;
|
||||
|
||||
type
|
||||
TfrmCadastrarPerfil = class(TForm)
|
||||
DBGrid1: TDBGrid;
|
||||
Panel1: TPanel;
|
||||
lbDescricao: TLabel;
|
||||
Image1: TImage;
|
||||
Panel3: TPanel;
|
||||
btAdic: TBitBtn;
|
||||
BtAlt: TBitBtn;
|
||||
BtExclui: TBitBtn;
|
||||
BtExit: TBitBtn;
|
||||
DataSource1: TDataSource;
|
||||
BtAcess: TBitBtn;
|
||||
procedure BtExitClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure DBGrid1DblClick(Sender: TObject);
|
||||
procedure btAdicClick(Sender: TObject);
|
||||
procedure BtAltClick(Sender: TObject);
|
||||
procedure BtExcluiClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
FIncluirPerfil: TfrmIncluirPerfil;
|
||||
public
|
||||
FUserControl: TUserControl;
|
||||
FDataSetPerfilUsuario: TDataset;
|
||||
procedure SetWindow(Adicionar: Boolean);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCadastrarPerfil.BtExitClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCadastrarPerfil.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCadastrarPerfil.DBGrid1DblClick(Sender: TObject);
|
||||
begin
|
||||
BtAlt.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCadastrarPerfil.btAdicClick(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
FIncluirPerfil := TfrmIncluirPerfil.Create(Self);
|
||||
FIncluirPerfil.FUserControl := Self.FUserControl;
|
||||
SetWindow(True);
|
||||
FIncluirPerfil.ShowModal;
|
||||
finally
|
||||
FreeAndNil(FIncluirPerfil);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCadastrarPerfil.SetWindow(Adicionar: Boolean);
|
||||
begin
|
||||
with TUserControl(owner).UserSettings.AddChangeProfile do
|
||||
begin
|
||||
FIncluirPerfil.Caption := WindowCaption;
|
||||
if Adicionar then
|
||||
FIncluirPerfil.LbDescricao.Caption := LabelAdd
|
||||
else
|
||||
FIncluirPerfil.LbDescricao.Caption := LabelChange;
|
||||
|
||||
FIncluirPerfil.lbNome.Caption := LabelName;
|
||||
FIncluirPerfil.btGravar.Caption := BtSave;
|
||||
FIncluirPerfil.btCancela.Caption := BtCancel;
|
||||
FIncluirPerfil.Position := Self.FUserControl.UserSettings.WindowsPosition;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCadastrarPerfil.BtAltClick(Sender: TObject);
|
||||
begin
|
||||
if FDataSetPerfilUsuario.IsEmpty then
|
||||
Exit;
|
||||
try
|
||||
FIncluirPerfil := TfrmIncluirPerfil.Create(self);
|
||||
FIncluirPerfil.FUserControl := Self.FUserControl;
|
||||
SetWindow(False);
|
||||
with FIncluirPerfil do
|
||||
begin
|
||||
FAltera := True;
|
||||
EditDescricao.Text := FDataSetPerfilUsuario.FieldByName('Nome').AsString;
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(FIncluirPerfil);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCadastrarPerfil.BtExcluiClick(Sender: TObject);
|
||||
var
|
||||
TempID: Integer;
|
||||
CanDelete: Boolean;
|
||||
ErrorMsg: String;
|
||||
TempDS: TDataset;
|
||||
begin
|
||||
if FDataSetPerfilUsuario.IsEmpty then
|
||||
Exit;
|
||||
TempID := FDataSetPerfilUsuario.FieldByName('IDUser').AsInteger;
|
||||
TempDS := FUserControl.DataConnector.UCGetSQLDataset('Select ' + FUserControl.TableUsers.FieldUserID + ' as IdUser from ' +
|
||||
FUserControl.TableUsers.TableName +
|
||||
' Where ' + FUserControl.TableUsers.FieldTypeRec + ' = ' + QuotedStr('U') +
|
||||
' AND ' + FUserControl.TableUsers.FieldProfile + ' = ' + IntToStr(TempID));
|
||||
|
||||
if TempDS.FieldByName('IdUser').AsInteger > 0 then
|
||||
begin
|
||||
TempDS.Close;
|
||||
FreeAndNil(TempDS);
|
||||
//changed by fduenas: PromptDelete_WindowCaption
|
||||
if MessageBox(handle, PChar(Format(FUserControl.UserSettings.UsersProfile.PromptDelete, [FDataSetPerfilUsuario.FieldByName('Nome').AsString])),
|
||||
PChar(FUserControl.UserSettings.UsersProfile.PromptDelete_WindowCaption), MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) <> idYes then
|
||||
Exit;
|
||||
end;
|
||||
TempDS.Close;
|
||||
FreeAndNil(TempDS);
|
||||
|
||||
CanDelete := True;
|
||||
if Assigned(FUserControl.onDeleteProfile) then
|
||||
FUserControl.onDeleteProfile(TObject(Owner), TempID, CanDelete, ErrorMsg);
|
||||
if not CanDelete then
|
||||
begin
|
||||
MessageDlg(ErrorMSG, mtWarning, [mbOK], 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
with FUserControl do
|
||||
begin
|
||||
DataConnector.UCExecSQL('Delete from ' + TableUsers.TableName + ' where ' + TableUsers.FieldUserID + ' = ' + IntToStr(TempID));
|
||||
DataConnector.UCExecSQL('Delete from ' + TableRights.TableName + ' where ' + TableRights.FieldUserID + ' = ' + IntToStr(TempID));
|
||||
DataConnector.UCExecSQL('Delete from ' + TableRights.TableName + 'EX where ' + TableRights.FieldUserID + ' = ' + IntToStr(TempID));
|
||||
DataConnector.UCExecSQL('Update ' + TableUsers.TableName +
|
||||
' Set ' + TableUsers.FieldProfile + ' = null where ' + TableUsers.FieldUserID + ' = ' + IntToStr(TempID));
|
||||
end;
|
||||
FDataSetPerfilUsuario.Close;
|
||||
FDataSetPerfilUsuario.Open;
|
||||
end;
|
||||
|
||||
procedure TfrmCadastrarPerfil.FormShow(Sender: TObject);
|
||||
begin
|
||||
with FUserControl do
|
||||
begin
|
||||
FDataSetPerfilUsuario := DataConnector.UCGetSQLDataset(
|
||||
Format('Select %s as IdUser, %s as Login, %s as Nome, %s as Tipo from %s Where %s = %s ORDER BY %s',
|
||||
[TableUsers.FieldUserID,
|
||||
TableUsers.FieldLogin,
|
||||
TableUsers.FieldUserName,
|
||||
TableUsers.FieldTypeRec,
|
||||
TableUsers.TableName,
|
||||
TableUsers.FieldTypeRec,
|
||||
QuotedStr('P'),
|
||||
TableUsers.FieldUserName]));
|
||||
|
||||
|
||||
DBGrid1.Columns[0].Title.Caption := UserSettings.UsersProfile.ColProfile;
|
||||
end;
|
||||
DataSource1.Dataset := FDataSetPerfilUsuario;
|
||||
end;
|
||||
|
||||
end.
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user