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