- Compilación para D2009

- UCBase.pas -> Modificado el formato de las fechas de 'dd/mm/yyyy' a 'mm/dd/yyyy' para que funcione con Firebird.
- UCBase.pas -> Cuando se llama a DelCurrentUser comprobar que realmente hay un usuario registrado.

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@22 970f2627-a9d2-4748-b3d4-b5283c4fe7db

internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.bdsproj

@@ -0,0 +1,492 @@
+<?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">{8B92FC54-99E0-47CE-A5B6-14F9D859EBCD}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">Project1.dpr</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">0</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">1</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">3</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">True</Linker>
+      <Linker Name="RemoteSymbols">True</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription">Teste basico do usercontrol</Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath">$(DELPHI)\Lib\Debug</Directories>
+      <Directories Name="Packages">vcl;rtl;vclx;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;dclOffice2k;RxCtl7;RxBDE7;RxDB7;QmDToolz;rbTDBC77;rbDBDE77;rbDAD77;rbDIDE77;rbUSER77;rbRCL77;rbBDE77;rbIDE77;rbCIDE77;rbRIDE77;rbRAP77;xtradev7;Halcyon6D7;lmd60_d7;SWTools_RT;VCLZipD7;XPCompz;SwUserLockD7;IndyCore70;IndySystem70;IndyProtocols70</Directories>
+      <Directories Name="Conditionals">EUREKALOG;EUREKALOG_VER5</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">False</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>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=1
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=0
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=1
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.cfg

@@ -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
+-vn
+-vr
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"e:\arquivos de programas\borland\delphi7\Projects\Bpl"
+-LN"e:\arquivos de programas\borland\delphi7\Projects\Bpl"
+-U"e:\arquivos de programas\borland\delphi7\Lib\Debug"
+-O"e:\arquivos de programas\borland\delphi7\Lib\Debug"
+-I"e:\arquivos de programas\borland\delphi7\Lib\Debug"
+-R"e:\arquivos de programas\borland\delphi7\Lib\Debug"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.dof

@@ -0,0 +1,142 @@
+[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=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+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=1
+RemoteSymbols=1
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Teste basico do usercontrol
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=$(DELPHI)\Lib\Debug
+Packages=vcl;rtl;vclx;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;dclOffice2k;RxCtl7;RxBDE7;RxDB7;QmDToolz;rbTDBC77;rbDBDE77;rbDAD77;rbDIDE77;rbUSER77;rbRCL77;rbBDE77;rbIDE77;rbCIDE77;rbRIDE77;rbRAP77;xtradev7;Halcyon6D7;lmd60_d7;SWTools_RT;VCLZipD7;XPCompz;SwUserLockD7;IndyCore70;IndySystem70;IndyProtocols70
+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=
+[Excluded Packages]
+c:\arquivos de programas\borland\delphi7\Bin\dcldss70.bpl=Borland Decision Cube Components
+c:\arquivos de programas\borland\delphi7\Projects\Bpl\QDBGridz.bpl=QmD DBGrid
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.dpr

@@ -0,0 +1,15 @@
+program Project1;
+
+uses
+  
+  ExceptionLog,
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.drc

@@ -0,0 +1,940 @@
+/* VER180
+  Generated by the Borland Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+#define VDBConsts_SRemoteLogin 65072
+#define ADOConst_SMissingConnection 65073
+#define ADOConst_SNoDetailFilter 65074
+#define ADOConst_SBookmarksRequired 65075
+#define ADOConst_SMissingCommandText 65076
+#define ADOConst_SNoResultSet 65077
+#define ADOConst_SADOCreateError 65078
+#define ADOConst_SEventsNotSupported 65079
+#define ADOConst_SUsupportedFieldType 65080
+#define ADOConst_SConnectionRequired 65081
+#define ADOConst_SCantRequery 65082
+#define ADOConst_SNoFilterOptions 65083
+#define ADOConst_SRecordsetNotOpen 65084
+#define ADOConst_sNameAttr 65085
+#define ADOConst_sValueAttr 65086
+#define ComStrs_sFailsetCalSelRange 65088
+#define VDBConsts_SFirstRecord 65089
+#define VDBConsts_SPriorRecord 65090
+#define VDBConsts_SNextRecord 65091
+#define VDBConsts_SLastRecord 65092
+#define VDBConsts_SInsertRecord 65093
+#define VDBConsts_SDeleteRecord 65094
+#define VDBConsts_SEditRecord 65095
+#define VDBConsts_SPostEdit 65096
+#define VDBConsts_SCancelEdit 65097
+#define VDBConsts_SRefreshRecord 65098
+#define VDBConsts_SDeleteRecordQuestion 65099
+#define VDBConsts_SDeleteMultipleRecordsQuestion 65100
+#define VDBConsts_SDataSourceFixed 65101
+#define VDBConsts_SPropDefByLookup 65102
+#define VDBConsts_STooManyColumns 65103
+#define ComStrs_sTabFailDelete 65104
+#define ComStrs_sTabFailRetrieve 65105
+#define ComStrs_sTabFailGetObject 65106
+#define ComStrs_sTabFailSet 65107
+#define ComStrs_sTabFailSetObject 65108
+#define ComStrs_sTabMustBeMultiLine 65109
+#define ComStrs_sInvalidIndex 65110
+#define ComStrs_sInsertError 65111
+#define ComStrs_sPageIndexError 65112
+#define ComStrs_sInvalidComCtl32 65113
+#define ComStrs_sDateTimeMax 65114
+#define ComStrs_sDateTimeMin 65115
+#define ComStrs_sNeedAllowNone 65116
+#define ComStrs_sFailSetCalDateTime 65117
+#define ComStrs_sFailSetCalMaxSelRange 65118
+#define ComStrs_sFailSetCalMinMaxRange 65119
+#define IdResourceStrings_RSSocksServerRespondError 65120
+#define IdResourceStrings_RSSocksAuthMethodError 65121
+#define IdResourceStrings_RSSocksAuthError 65122
+#define IdResourceStrings_RSSocksServerGeneralError 65123
+#define IdResourceStrings_RSSocksServerPermissionError 65124
+#define IdResourceStrings_RSSocksServerNetUnreachableError 65125
+#define IdResourceStrings_RSSocksServerHostUnreachableError 65126
+#define IdResourceStrings_RSSocksServerConnectionRefusedError 65127
+#define IdResourceStrings_RSSocksServerTTLExpiredError 65128
+#define IdResourceStrings_RSSocksServerCommandError 65129
+#define IdResourceStrings_RSSocksServerAddressError 65130
+#define IdResourceStrings_RSUnevenSizeInDecodeStream 65131
+#define IdResourceStrings_RSUnevenSizeInEncodeStream 65132
+#define IdResourceStrings_RSMessageEncoderNotFound 65133
+#define IdResourceStrings_RSUnrecognizedUUEEncodingScheme 65134
+#define ComStrs_sTabFailClear 65135
+#define IdResourceStrings_RSStackENOTCONN 65136
+#define IdResourceStrings_RSStackESHUTDOWN 65137
+#define IdResourceStrings_RSStackETOOMANYREFS 65138
+#define IdResourceStrings_RSStackETIMEDOUT 65139
+#define IdResourceStrings_RSStackECONNREFUSED 65140
+#define IdResourceStrings_RSStackELOOP 65141
+#define IdResourceStrings_RSStackENAMETOOLONG 65142
+#define IdResourceStrings_RSStackEHOSTDOWN 65143
+#define IdResourceStrings_RSStackEHOSTUNREACH 65144
+#define IdResourceStrings_RSStackENOTEMPTY 65145
+#define IdResourceStrings_RSStackHOST_NOT_FOUND 65146
+#define IdResourceStrings_RSTIdMessagePartCreate 65147
+#define IdResourceStrings_RSSocksRequestFailed 65148
+#define IdResourceStrings_RSSocksRequestServerFailed 65149
+#define IdResourceStrings_RSSocksRequestIdentFailed 65150
+#define IdResourceStrings_RSSocksUnknownError 65151
+#define IdResourceStrings_RSStackEPROTOTYPE 65152
+#define IdResourceStrings_RSStackENOPROTOOPT 65153
+#define IdResourceStrings_RSStackEPROTONOSUPPORT 65154
+#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65155
+#define IdResourceStrings_RSStackEOPNOTSUPP 65156
+#define IdResourceStrings_RSStackEPFNOSUPPORT 65157
+#define IdResourceStrings_RSStackEAFNOSUPPORT 65158
+#define IdResourceStrings_RSStackEADDRINUSE 65159
+#define IdResourceStrings_RSStackEADDRNOTAVAIL 65160
+#define IdResourceStrings_RSStackENETDOWN 65161
+#define IdResourceStrings_RSStackENETUNREACH 65162
+#define IdResourceStrings_RSStackENETRESET 65163
+#define IdResourceStrings_RSStackECONNABORTED 65164
+#define IdResourceStrings_RSStackECONNRESET 65165
+#define IdResourceStrings_RSStackENOBUFS 65166
+#define IdResourceStrings_RSStackEISCONN 65167
+#define IdResourceStrings_RSMsgClientInvalidEncoding 65168
+#define IdResourceStrings_RSInvalidServiceName 65169
+#define IdResourceStrings_RSStackError 65170
+#define IdResourceStrings_RSStackInvalidIP 65171
+#define IdResourceStrings_RSStackEINTR 65172
+#define IdResourceStrings_RSStackEBADF 65173
+#define IdResourceStrings_RSStackEACCES 65174
+#define IdResourceStrings_RSStackEFAULT 65175
+#define IdResourceStrings_RSStackEINVAL 65176
+#define IdResourceStrings_RSStackEMFILE 65177
+#define IdResourceStrings_RSStackEWOULDBLOCK 65178
+#define IdResourceStrings_RSStackEINPROGRESS 65179
+#define IdResourceStrings_RSStackEALREADY 65180
+#define IdResourceStrings_RSStackENOTSOCK 65181
+#define IdResourceStrings_RSStackEDESTADDRREQ 65182
+#define IdResourceStrings_RSStackEMSGSIZE 65183
+#define IdResourceStrings_RSInvalidPortRange 65184
+#define IdResourceStrings_RSReadTimeout 65185
+#define IdResourceStrings_RSReadLnMaxLineLengthExceeded 65186
+#define IdResourceStrings_RSEMailSymbolOutsideAddress 65187
+#define IdResourceStrings_RSWS2CallError 65188
+#define IdResourceStrings_RSWS2LoadError 65189
+#define IdResourceStrings_RSStatusResolving 65190
+#define IdResourceStrings_RSStatusConnecting 65191
+#define IdResourceStrings_RSStatusConnected 65192
+#define IdResourceStrings_RSStatusDisconnecting 65193
+#define IdResourceStrings_RSStatusDisconnected 65194
+#define IdResourceStrings_RSStatusText 65195
+#define IdResourceStrings_RSConnectTimeout 65196
+#define IdResourceStrings_RSMsgClientEncodingText 65197
+#define IdResourceStrings_RSMsgClientEncodingAttachment 65198
+#define IdResourceStrings_RSMsgClientUnkownMessagePartType 65199
+#define ComConst_SVarNotObject 65200
+#define ComConst_STooManyParams 65201
+#define IdResourceStrings_RSAlreadyConnected 65202
+#define IdResourceStrings_RSCannotAllocateSocket 65203
+#define IdResourceStrings_RSConnectionClosedGracefully 65204
+#define IdResourceStrings_RSCouldNotBindSocket 65205
+#define IdResourceStrings_RSFailedTimeZoneInfo 65206
+#define IdResourceStrings_RSNotEnoughDataInBuffer 65207
+#define IdResourceStrings_RSWinsockInitializationError 65208
+#define IdResourceStrings_RSSetSizeExceeded 65209
+#define IdResourceStrings_RSFileNotFound 65210
+#define IdResourceStrings_RSOnlyOneAntiFreeze 65211
+#define IdResourceStrings_RSNotConnected 65212
+#define IdResourceStrings_RSObjectTypeNotSupported 65213
+#define IdResourceStrings_RSIdNoDataToRead 65214
+#define IdResourceStrings_RSCanNotBindRange 65215
+#define DBConsts_STextTrue 65216
+#define DBConsts_SParameterNotFound 65217
+#define DBConsts_SInvalidVersion 65218
+#define DBConsts_SBadFieldType 65219
+#define DBConsts_SProviderSQLNotSupported 65220
+#define DBConsts_SProviderExecuteNotSupported 65221
+#define DBConsts_SDataSetUnidirectional 65222
+#define DBConsts_SUnassignedVar 65223
+#define DBConsts_SRecordNotFound 65224
+#define DBConsts_SBcdOverflow 65225
+#define DBConsts_SInvalidBcdValue 65226
+#define DBConsts_SInvalidFormatType 65227
+#define DBConsts_SCouldNotParseTimeStamp 65228
+#define DBConsts_SInvalidSqlTimeStamp 65229
+#define ComConst_SOleError 65230
+#define ComConst_SNoMethod 65231
+#define DBConsts_SFieldRequired 65232
+#define DBConsts_SDataSetMissing 65233
+#define DBConsts_SInvalidCalcType 65234
+#define DBConsts_SFieldReadOnly 65235
+#define DBConsts_SNoIndexForFields 65236
+#define DBConsts_SIndexNotFound 65237
+#define DBConsts_SCircularDataLink 65238
+#define DBConsts_SLookupInfoError 65239
+#define DBConsts_SDataSourceChange 65240
+#define DBConsts_SDataSetOpen 65241
+#define DBConsts_SNotEditing 65242
+#define DBConsts_SDataSetClosed 65243
+#define DBConsts_SDataSetEmpty 65244
+#define DBConsts_SDataSetReadOnly 65245
+#define DBConsts_SNestedDataSetClass 65246
+#define DBConsts_STextFalse 65247
+#define DBConsts_SInvalidFieldKind 65248
+#define DBConsts_SUnknownFieldType 65249
+#define DBConsts_SFieldNameMissing 65250
+#define DBConsts_SDuplicateFieldName 65251
+#define DBConsts_SFieldNotFound 65252
+#define DBConsts_SFieldAccessError 65253
+#define DBConsts_SFieldValueError 65254
+#define DBConsts_SFieldRangeError 65255
+#define DBConsts_SBcdFieldRangeError 65256
+#define DBConsts_SInvalidIntegerValue 65257
+#define DBConsts_SInvalidBoolValue 65258
+#define DBConsts_SInvalidFloatValue 65259
+#define DBConsts_SFieldTypeMismatch 65260
+#define DBConsts_SFieldSizeMismatch 65261
+#define DBConsts_SInvalidVarByteArray 65262
+#define DBConsts_SFieldOutOfRange 65263
+#define Consts_SNoName 65264
+#define Consts_SCirularReferencesNotAllowed 65265
+#define Consts_SCannotHideActionBand 65266
+#define Consts_SErrorSettingCount 65267
+#define Consts_SListBoxMustBeVirtual 65268
+#define Consts_SUnableToSaveSettings 65269
+#define Consts_SRestoreDefaultSchedule 65270
+#define Consts_SActionBarStyleMissing 65271
+#define Consts_SANSIEncoding 65272
+#define Consts_SASCIIEncoding 65273
+#define Consts_SUnicodeEncoding 65274
+#define Consts_SBigEndianEncoding 65275
+#define Consts_SUTF8Encoding 65276
+#define Consts_SUTF7Encoding 65277
+#define Consts_SPageControlNotSet 65278
+#define DBConsts_SInvalidFieldSize 65279
+#define Consts_SIconToClipboard 65280
+#define Consts_SCannotOpenClipboard 65281
+#define Consts_SInvalidMemoSize 65282
+#define Consts_SDuplicateMenus 65283
+#define Consts_SDockedCtlNeedsName 65284
+#define Consts_SDockTreeRemoveError 65285
+#define Consts_SDockZoneNotFound 65286
+#define Consts_SDockZoneHasNoCtl 65287
+#define Consts_SDockZoneVersionConflict 65288
+#define Consts_SMultiSelectRequired 65289
+#define Consts_SAssignSubItemError 65290
+#define Consts_SDeleteItemWithSubItems 65291
+#define Consts_SDeleteNotAllowed 65292
+#define Consts_SMoveNotAllowed 65293
+#define Consts_SExpand 65294
+#define Consts_SErrorLoadingFile 65295
+#define Consts_SmkcSpace 65296
+#define Consts_SmkcPgUp 65297
+#define Consts_SmkcPgDn 65298
+#define Consts_SmkcEnd 65299
+#define Consts_SmkcHome 65300
+#define Consts_SmkcLeft 65301
+#define Consts_SmkcUp 65302
+#define Consts_SmkcRight 65303
+#define Consts_SmkcDown 65304
+#define Consts_SmkcIns 65305
+#define Consts_SmkcDel 65306
+#define Consts_SmkcShift 65307
+#define Consts_SmkcCtrl 65308
+#define Consts_SmkcAlt 65309
+#define Consts_SInsertLineError 65310
+#define Consts_SInvalidClipFmt 65311
+#define Consts_SMsgDlgConfirm 65312
+#define Consts_SMsgDlgYes 65313
+#define Consts_SMsgDlgNo 65314
+#define Consts_SMsgDlgOK 65315
+#define Consts_SMsgDlgCancel 65316
+#define Consts_SMsgDlgHelp 65317
+#define Consts_SMsgDlgAbort 65318
+#define Consts_SMsgDlgRetry 65319
+#define Consts_SMsgDlgIgnore 65320
+#define Consts_SMsgDlgAll 65321
+#define Consts_SMsgDlgNoToAll 65322
+#define Consts_SMsgDlgYesToAll 65323
+#define Consts_SmkcBkSp 65324
+#define Consts_SmkcTab 65325
+#define Consts_SmkcEsc 65326
+#define Consts_SmkcEnter 65327
+#define Consts_SHelpButton 65328
+#define Consts_SCloseButton 65329
+#define Consts_SIgnoreButton 65330
+#define Consts_SRetryButton 65331
+#define Consts_SAbortButton 65332
+#define Consts_SAllButton 65333
+#define Consts_SCannotDragForm 65334
+#define Consts_SVMetafiles 65335
+#define Consts_SVEnhMetafiles 65336
+#define Consts_SVIcons 65337
+#define Consts_SVBitmaps 65338
+#define Consts_SMaskErr 65339
+#define Consts_SMaskEditErr 65340
+#define Consts_SMsgDlgWarning 65341
+#define Consts_SMsgDlgError 65342
+#define Consts_SMsgDlgInformation 65343
+#define Consts_SParentGivenNotAParent 65344
+#define Consts_SMDIChildNotVisible 65345
+#define Consts_SVisibleChanged 65346
+#define Consts_SCannotShowModal 65347
+#define Consts_SPropertyOutOfRange 65348
+#define Consts_SMenuIndexError 65349
+#define Consts_SMenuReinserted 65350
+#define Consts_SMenuNotFound 65351
+#define Consts_SNoTimers 65352
+#define Consts_SGroupIndexTooLow 65353
+#define Consts_SNoMDIForm 65354
+#define Consts_SControlParentSetToSelf 65355
+#define Consts_SOKButton 65356
+#define Consts_SCancelButton 65357
+#define Consts_SYesButton 65358
+#define Consts_SNoButton 65359
+#define Consts_SInvalidPixelFormat 65360
+#define Consts_SScanLine 65361
+#define Consts_SChangeIconSize 65362
+#define Consts_SUnknownClipboardFormat 65363
+#define Consts_SOutOfResources 65364
+#define Consts_SNoCanvasHandle 65365
+#define Consts_SInvalidImageSize 65366
+#define Consts_SInvalidImageList 65367
+#define Consts_SReplaceImage 65368
+#define Consts_SImageIndexError 65369
+#define Consts_SImageReadFail 65370
+#define Consts_SImageWriteFail 65371
+#define Consts_SWindowDCError 65372
+#define Consts_SWindowClass 65373
+#define Consts_SCannotFocus 65374
+#define Consts_SParentRequired 65375
+#define RTLConsts_STooManyDeleted 65376
+#define RTLConsts_SUnknownGroup 65377
+#define RTLConsts_SUnknownProperty 65378
+#define RTLConsts_SWriteError 65379
+#define RTLConsts_SThreadCreateError 65380
+#define RTLConsts_SThreadError 65381
+#define HelpIntfs_hNoTableOfContents 65382
+#define HelpIntfs_hNothingFound 65383
+#define HelpIntfs_hNoContext 65384
+#define HelpIntfs_hNoContextFound 65385
+#define HelpIntfs_hNoTopics 65386
+#define Consts_SInvalidTabPosition 65387
+#define Consts_SInvalidTabStyle 65388
+#define Consts_SInvalidBitmap 65389
+#define Consts_SInvalidIcon 65390
+#define Consts_SInvalidMetafile 65391
+#define RTLConsts_SInvalidPropertyPath 65392
+#define RTLConsts_SInvalidPropertyType 65393
+#define RTLConsts_SInvalidPropertyValue 65394
+#define RTLConsts_SInvalidRegType 65395
+#define RTLConsts_SInvalidStringGridOp 65396
+#define RTLConsts_SListCapacityError 65397
+#define RTLConsts_SListCountError 65398
+#define RTLConsts_SListIndexError 65399
+#define RTLConsts_SMemoryStreamError 65400
+#define RTLConsts_SPropertyException 65401
+#define RTLConsts_SReadError 65402
+#define RTLConsts_SReadOnlyProperty 65403
+#define RTLConsts_SRegGetDataFailed 65404
+#define RTLConsts_SResNotFound 65405
+#define RTLConsts_SSeekNotImplemented 65406
+#define RTLConsts_SSortedListError 65407
+#define RTLConsts_SCheckSynchronizeError 65408
+#define RTLConsts_SClassNotFound 65409
+#define RTLConsts_SDuplicateClass 65410
+#define RTLConsts_SDuplicateItem 65411
+#define RTLConsts_SDuplicateName 65412
+#define RTLConsts_SDuplicateString 65413
+#define RTLConsts_SFCreateErrorEx 65414
+#define RTLConsts_SFixedColTooBig 65415
+#define RTLConsts_SFixedRowTooBig 65416
+#define RTLConsts_SFOpenErrorEx 65417
+#define RTLConsts_SGridTooLarge 65418
+#define RTLConsts_SIndexOutOfRange 65419
+#define RTLConsts_SInvalidImage 65420
+#define RTLConsts_SInvalidName 65421
+#define RTLConsts_SInvalidProperty 65422
+#define RTLConsts_SInvalidPropertyElement 65423
+#define SysConst_SShortDayNameTue 65424
+#define SysConst_SShortDayNameWed 65425
+#define SysConst_SShortDayNameThu 65426
+#define SysConst_SShortDayNameFri 65427
+#define SysConst_SShortDayNameSat 65428
+#define SysConst_SLongDayNameSun 65429
+#define SysConst_SLongDayNameMon 65430
+#define SysConst_SLongDayNameTue 65431
+#define SysConst_SLongDayNameWed 65432
+#define SysConst_SLongDayNameThu 65433
+#define SysConst_SLongDayNameFri 65434
+#define SysConst_SLongDayNameSat 65435
+#define RTLConsts_SAncestorNotFound 65436
+#define RTLConsts_SAssignError 65437
+#define RTLConsts_SBitsIndexError 65438
+#define RTLConsts_SCantWriteResourceStreamError 65439
+#define SysConst_SShortMonthNameNov 65440
+#define SysConst_SShortMonthNameDec 65441
+#define SysConst_SLongMonthNameJan 65442
+#define SysConst_SLongMonthNameFeb 65443
+#define SysConst_SLongMonthNameMar 65444
+#define SysConst_SLongMonthNameApr 65445
+#define SysConst_SLongMonthNameMay 65446
+#define SysConst_SLongMonthNameJun 65447
+#define SysConst_SLongMonthNameJul 65448
+#define SysConst_SLongMonthNameAug 65449
+#define SysConst_SLongMonthNameSep 65450
+#define SysConst_SLongMonthNameOct 65451
+#define SysConst_SLongMonthNameNov 65452
+#define SysConst_SLongMonthNameDec 65453
+#define SysConst_SShortDayNameSun 65454
+#define SysConst_SShortDayNameMon 65455
+#define SysConst_SAssertError 65456
+#define SysConst_SAbstractError 65457
+#define SysConst_SModuleAccessViolation 65458
+#define SysConst_SOSError 65459
+#define SysConst_SUnkOSError 65460
+#define SysConst_SNL 65461
+#define SysConst_SShortMonthNameJan 65462
+#define SysConst_SShortMonthNameFeb 65463
+#define SysConst_SShortMonthNameMar 65464
+#define SysConst_SShortMonthNameApr 65465
+#define SysConst_SShortMonthNameMay 65466
+#define SysConst_SShortMonthNameJun 65467
+#define SysConst_SShortMonthNameJul 65468
+#define SysConst_SShortMonthNameAug 65469
+#define SysConst_SShortMonthNameSep 65470
+#define SysConst_SShortMonthNameOct 65471
+#define SysConst_SInvalidVarOpWithHResultWithPrefix 65472
+#define SysConst_SVarTypeOutOfRangeWithPrefix 65473
+#define SysConst_SVarTypeAlreadyUsedWithPrefix 65474
+#define SysConst_SVarTypeNotUsableWithPrefix 65475
+#define SysConst_SVarTypeTooManyCustom 65476
+#define SysConst_SVarTypeCouldNotConvert 65477
+#define SysConst_SVarTypeConvertOverflow 65478
+#define SysConst_SVarOverflow 65479
+#define SysConst_SVarInvalid 65480
+#define SysConst_SVarBadType 65481
+#define SysConst_SVarNotImplemented 65482
+#define SysConst_SVarUnexpected 65483
+#define SysConst_SExternalException 65484
+#define SysConst_SAssertionFailed 65485
+#define SysConst_SIntfCastError 65486
+#define SysConst_SSafecallException 65487
+#define SysConst_SPrivilege 65488
+#define SysConst_SOperationAborted 65489
+#define SysConst_SException 65490
+#define SysConst_SExceptTitle 65491
+#define SysConst_SInvalidFormat 65492
+#define SysConst_SArgumentMissing 65493
+#define SysConst_SDispatchError 65494
+#define SysConst_SReadAccess 65495
+#define SysConst_SWriteAccess 65496
+#define SysConst_SFormatTooLong 65497
+#define SysConst_SVarArrayCreate 65498
+#define SysConst_SVarArrayBounds 65499
+#define SysConst_SVarArrayLocked 65500
+#define SysConst_SInvalidVarCast 65501
+#define SysConst_SInvalidVarOp 65502
+#define SysConst_SInvalidVarNullOp 65503
+#define SysConst_SEndOfFile 65504
+#define SysConst_SDiskFull 65505
+#define SysConst_SInvalidInput 65506
+#define SysConst_SDivByZero 65507
+#define SysConst_SRangeError 65508
+#define SysConst_SIntOverflow 65509
+#define SysConst_SInvalidOp 65510
+#define SysConst_SZeroDivide 65511
+#define SysConst_SOverflow 65512
+#define SysConst_SUnderflow 65513
+#define SysConst_SInvalidPointer 65514
+#define SysConst_SInvalidCast 65515
+#define SysConst_SAccessViolationArg3 65516
+#define SysConst_SAccessViolationNoArg 65517
+#define SysConst_SStackOverflow 65518
+#define SysConst_SControlC 65519
+#define SysConst_SInvalidInteger 65520
+#define SysConst_SInvalidFloat 65521
+#define SysConst_SInvalidDate 65522
+#define SysConst_SInvalidTime 65523
+#define SysConst_SInvalidDateTime 65524
+#define SysConst_SInvalidTimeStamp 65525
+#define SysConst_SInvalidGUID 65526
+#define SysConst_SInvalidBoolean 65527
+#define SysConst_STimeEncodeError 65528
+#define SysConst_SDateEncodeError 65529
+#define SysConst_SOutOfMemory 65530
+#define SysConst_SInOutError 65531
+#define SysConst_SFileNotFound 65532
+#define SysConst_SInvalidFilename 65533
+#define SysConst_STooManyOpenFiles 65534
+#define SysConst_SAccessDenied 65535
+STRINGTABLE
+BEGIN
+	VDBConsts_SRemoteLogin,	"Remote Login"
+	ADOConst_SMissingConnection,	"Missing Connection or ConnectionString"
+	ADOConst_SNoDetailFilter,	"Filter property cannot be used for detail tables"
+	ADOConst_SBookmarksRequired,	"Dataset does not support bookmarks, which are required for multi-record data controls"
+	ADOConst_SMissingCommandText,	"Missing %s property"
+	ADOConst_SNoResultSet,	"CommandText does not return a result set"
+	ADOConst_SADOCreateError,	"Error creating object.  Please verify that the Microsoft Data Access Components 2.1 (or later) have been properly installed"
+	ADOConst_SEventsNotSupported,	"Events are not supported with server side TableDirect cursors"
+	ADOConst_SUsupportedFieldType,	"Unsupported field type (%s) in field %s"
+	ADOConst_SConnectionRequired,	"A connection component is required for async ExecuteOptions"
+	ADOConst_SCantRequery,	"Cannot perform a requery after connection has changed"
+	ADOConst_SNoFilterOptions,	"FilterOptions are not supported"
+	ADOConst_SRecordsetNotOpen,	"Recordset is not open"
+	ADOConst_sNameAttr,	"Name"
+	ADOConst_sValueAttr,	"Value"
+	ComStrs_sFailsetCalSelRange,	"Failed to set calendar selected range"
+	VDBConsts_SFirstRecord,	"First record"
+	VDBConsts_SPriorRecord,	"Prior record"
+	VDBConsts_SNextRecord,	"Next record"
+	VDBConsts_SLastRecord,	"Last record"
+	VDBConsts_SInsertRecord,	"Insert record"
+	VDBConsts_SDeleteRecord,	"Delete record"
+	VDBConsts_SEditRecord,	"Edit record"
+	VDBConsts_SPostEdit,	"Post edit"
+	VDBConsts_SCancelEdit,	"Cancel edit"
+	VDBConsts_SRefreshRecord,	"Refresh data"
+	VDBConsts_SDeleteRecordQuestion,	"Delete record?"
+	VDBConsts_SDeleteMultipleRecordsQuestion,	"Delete all selected records?"
+	VDBConsts_SDataSourceFixed,	"Operation not allowed in a DBCtrlGrid"
+	VDBConsts_SPropDefByLookup,	"Property already defined by lookup field"
+	VDBConsts_STooManyColumns,	"Grid requested to display more than 256 columns"
+	ComStrs_sTabFailDelete,	"Failed to delete tab at index %d"
+	ComStrs_sTabFailRetrieve,	"Failed to retrieve tab at index %d"
+	ComStrs_sTabFailGetObject,	"Failed to get object at index %d"
+	ComStrs_sTabFailSet,	"Failed to set tab \"%s\" at index %d"
+	ComStrs_sTabFailSetObject,	"Failed to set object at index %d"
+	ComStrs_sTabMustBeMultiLine,	"MultiLine must be True when TabPosition is tpLeft or tpRight"
+	ComStrs_sInvalidIndex,	"Invalid index"
+	ComStrs_sInsertError,	"Unable to insert an item"
+	ComStrs_sPageIndexError,	"%d is an invalid PageIndex value.  PageIndex must be between 0 and %d"
+	ComStrs_sInvalidComCtl32,	"This control requires version 4.70 or greater of COMCTL32.DLL"
+	ComStrs_sDateTimeMax,	"Date exceeds maximum of %s"
+	ComStrs_sDateTimeMin,	"Date is less than minimum of %s"
+	ComStrs_sNeedAllowNone,	"You must be in ShowCheckbox mode to set to this date"
+	ComStrs_sFailSetCalDateTime,	"Failed to set calendar date or time"
+	ComStrs_sFailSetCalMaxSelRange,	"Failed to set maximum selection range"
+	ComStrs_sFailSetCalMinMaxRange,	"Failed to set calendar min/max range"
+	IdResourceStrings_RSSocksServerRespondError,	"Socks server did not respond."
+	IdResourceStrings_RSSocksAuthMethodError,	"Invalid socks authentication method."
+	IdResourceStrings_RSSocksAuthError,	"Authentication error to socks server."
+	IdResourceStrings_RSSocksServerGeneralError,	"General SOCKS server failure."
+	IdResourceStrings_RSSocksServerPermissionError,	"Connection not allowed by ruleset."
+	IdResourceStrings_RSSocksServerNetUnreachableError,	"Network unreachable."
+	IdResourceStrings_RSSocksServerHostUnreachableError,	"Host unreachable."
+	IdResourceStrings_RSSocksServerConnectionRefusedError,	"Connection refused."
+	IdResourceStrings_RSSocksServerTTLExpiredError,	"TTL expired."
+	IdResourceStrings_RSSocksServerCommandError,	"Command not supported."
+	IdResourceStrings_RSSocksServerAddressError,	"Address type not supported."
+	IdResourceStrings_RSUnevenSizeInDecodeStream,	"Uneven size in DecodeToStream."
+	IdResourceStrings_RSUnevenSizeInEncodeStream,	"Uneven size in Encode."
+	IdResourceStrings_RSMessageEncoderNotFound,	"Message encoder not found"
+	IdResourceStrings_RSUnrecognizedUUEEncodingScheme,	"Unrecognized UUE encoding scheme."
+	ComStrs_sTabFailClear,	"Failed to clear tab control"
+	IdResourceStrings_RSStackENOTCONN,	"Socket is not connected."
+	IdResourceStrings_RSStackESHUTDOWN,	"Cannot send or receive after socket is closed."
+	IdResourceStrings_RSStackETOOMANYREFS,	"Too many references, cannot splice."
+	IdResourceStrings_RSStackETIMEDOUT,	"Connection timed out."
+	IdResourceStrings_RSStackECONNREFUSED,	"Connection refused."
+	IdResourceStrings_RSStackELOOP,	"Too many levels of symbolic links."
+	IdResourceStrings_RSStackENAMETOOLONG,	"File name too long."
+	IdResourceStrings_RSStackEHOSTDOWN,	"Host is down."
+	IdResourceStrings_RSStackEHOSTUNREACH,	"No route to host."
+	IdResourceStrings_RSStackENOTEMPTY,	"Directory not empty"
+	IdResourceStrings_RSStackHOST_NOT_FOUND,	"Host not found."
+	IdResourceStrings_RSTIdMessagePartCreate,	"TIdMessagePart can not be created.  Use descendant classes. "
+	IdResourceStrings_RSSocksRequestFailed,	"Request rejected or failed."
+	IdResourceStrings_RSSocksRequestServerFailed,	"Request rejected because SOCKS server cannot connect."
+	IdResourceStrings_RSSocksRequestIdentFailed,	"Request rejected because the client program and identd report different user-ids."
+	IdResourceStrings_RSSocksUnknownError,	"Unknown socks error."
+	IdResourceStrings_RSStackEPROTOTYPE,	"Protocol wrong type for socket."
+	IdResourceStrings_RSStackENOPROTOOPT,	"Bad protocol option."
+	IdResourceStrings_RSStackEPROTONOSUPPORT,	"Protocol not supported."
+	IdResourceStrings_RSStackESOCKTNOSUPPORT,	"Socket type not supported."
+	IdResourceStrings_RSStackEOPNOTSUPP,	"Operation not supported on socket."
+	IdResourceStrings_RSStackEPFNOSUPPORT,	"Protocol family not supported."
+	IdResourceStrings_RSStackEAFNOSUPPORT,	"Address family not supported by protocol family."
+	IdResourceStrings_RSStackEADDRINUSE,	"Address already in use."
+	IdResourceStrings_RSStackEADDRNOTAVAIL,	"Cannot assign requested address."
+	IdResourceStrings_RSStackENETDOWN,	"Network is down."
+	IdResourceStrings_RSStackENETUNREACH,	"Network is unreachable."
+	IdResourceStrings_RSStackENETRESET,	"Net dropped connection or reset."
+	IdResourceStrings_RSStackECONNABORTED,	"Software caused connection abort."
+	IdResourceStrings_RSStackECONNRESET,	"Connection reset by peer."
+	IdResourceStrings_RSStackENOBUFS,	"No buffer space available."
+	IdResourceStrings_RSStackEISCONN,	"Socket is already connected."
+	IdResourceStrings_RSMsgClientInvalidEncoding,	"Invalid Encoding. UU only allows Body and Attachments"
+	IdResourceStrings_RSInvalidServiceName,	"%s is not a valid service."
+	IdResourceStrings_RSStackError,	"Socket Error # %d\r\n%s"
+	IdResourceStrings_RSStackInvalidIP,	"%s is not a valid IP address."
+	IdResourceStrings_RSStackEINTR,	"Interrupted system call."
+	IdResourceStrings_RSStackEBADF,	"Bad file number."
+	IdResourceStrings_RSStackEACCES,	"Access denied."
+	IdResourceStrings_RSStackEFAULT,	"Bad address."
+	IdResourceStrings_RSStackEINVAL,	"Invalid argument."
+	IdResourceStrings_RSStackEMFILE,	"Too many open files."
+	IdResourceStrings_RSStackEWOULDBLOCK,	"Operation would block. "
+	IdResourceStrings_RSStackEINPROGRESS,	"Operation now in progress."
+	IdResourceStrings_RSStackEALREADY,	"Operation already in progress."
+	IdResourceStrings_RSStackENOTSOCK,	"Socket operation on non-socket."
+	IdResourceStrings_RSStackEDESTADDRREQ,	"Destination address required."
+	IdResourceStrings_RSStackEMSGSIZE,	"Message too long."
+	IdResourceStrings_RSInvalidPortRange,	"Invalid Port Range (%d - %d)"
+	IdResourceStrings_RSReadTimeout,	"Read Timeout"
+	IdResourceStrings_RSReadLnMaxLineLengthExceeded,	"Max line length exceeded."
+	IdResourceStrings_RSEMailSymbolOutsideAddress,	"@ Outside address"
+	IdResourceStrings_RSWS2CallError,	"Error on call Winsock2 library function %s"
+	IdResourceStrings_RSWS2LoadError,	"Error on loading Winsock2 library (%s)"
+	IdResourceStrings_RSStatusResolving,	"Resolving hostname %s."
+	IdResourceStrings_RSStatusConnecting,	"Connecting to %s."
+	IdResourceStrings_RSStatusConnected,	"Connected."
+	IdResourceStrings_RSStatusDisconnecting,	"Disconnecting."
+	IdResourceStrings_RSStatusDisconnected,	"Disconnected."
+	IdResourceStrings_RSStatusText,	"%s"
+	IdResourceStrings_RSConnectTimeout,	"Connect timed out."
+	IdResourceStrings_RSMsgClientEncodingText,	"Encoding text"
+	IdResourceStrings_RSMsgClientEncodingAttachment,	"Encoding attachment"
+	IdResourceStrings_RSMsgClientUnkownMessagePartType,	"Unknown Message Part Type."
+	ComConst_SVarNotObject,	"Variant does not reference an automation object"
+	ComConst_STooManyParams,	"Dispatch methods do not support more than 64 parameters"
+	IdResourceStrings_RSAlreadyConnected,	"Already connected."
+	IdResourceStrings_RSCannotAllocateSocket,	"Cannot allocate socket."
+	IdResourceStrings_RSConnectionClosedGracefully,	"Connection Closed Gracefully."
+	IdResourceStrings_RSCouldNotBindSocket,	"Could not bind socket. Address and port are already in use."
+	IdResourceStrings_RSFailedTimeZoneInfo,	"Failed attempting to retrieve time zone information."
+	IdResourceStrings_RSNotEnoughDataInBuffer,	"Not enough data in buffer."
+	IdResourceStrings_RSWinsockInitializationError,	"Winsock Initialization Error."
+	IdResourceStrings_RSSetSizeExceeded,	"Set Size Exceeded."
+	IdResourceStrings_RSFileNotFound,	"File \"%s\" not found"
+	IdResourceStrings_RSOnlyOneAntiFreeze,	"Only one TIdAntiFreeze can exist per application."
+	IdResourceStrings_RSNotConnected,	"Not Connected"
+	IdResourceStrings_RSObjectTypeNotSupported,	"Object type not supported."
+	IdResourceStrings_RSIdNoDataToRead,	"No data to read."
+	IdResourceStrings_RSCanNotBindRange,	"Can not bind in port range (%d - %d)"
+	DBConsts_STextTrue,	"True"
+	DBConsts_SParameterNotFound,	"Parameter '%s' not found"
+	DBConsts_SInvalidVersion,	"Unable to load bind parameters"
+	DBConsts_SBadFieldType,	"Field '%s' is of an unsupported type"
+	DBConsts_SProviderSQLNotSupported,	"SQL not supported: %s"
+	DBConsts_SProviderExecuteNotSupported,	"Execute not supported: %s"
+	DBConsts_SDataSetUnidirectional,	"Operation not allowed on a unidirectional dataset"
+	DBConsts_SUnassignedVar,	"Unassigned variant value"
+	DBConsts_SRecordNotFound,	"Record not found"
+	DBConsts_SBcdOverflow,	"BCD overflow"
+	DBConsts_SInvalidBcdValue,	"%s is not a valid BCD value"
+	DBConsts_SInvalidFormatType,	"Invalid format type for BCD"
+	DBConsts_SCouldNotParseTimeStamp,	"Could not parse SQL TimeStamp string"
+	DBConsts_SInvalidSqlTimeStamp,	"Invalid SQL date/time values"
+	ComConst_SOleError,	"OLE error %.8x"
+	ComConst_SNoMethod,	"Method '%s' not supported by automation object"
+	DBConsts_SFieldRequired,	"Field '%s' must have a value"
+	DBConsts_SDataSetMissing,	"Field '%s' has no dataset"
+	DBConsts_SInvalidCalcType,	"Field '%s' cannot be a calculated or lookup field"
+	DBConsts_SFieldReadOnly,	"Field '%s' cannot be modified"
+	DBConsts_SNoIndexForFields,	"No index for fields '%s'"
+	DBConsts_SIndexNotFound,	"Index '%s' not found"
+	DBConsts_SCircularDataLink,	"Circular datalinks are not allowed"
+	DBConsts_SLookupInfoError,	"Lookup information for field '%s' is incomplete"
+	DBConsts_SDataSourceChange,	"DataSource cannot be changed"
+	DBConsts_SDataSetOpen,	"Cannot perform this operation on an open dataset"
+	DBConsts_SNotEditing,	"Dataset not in edit or insert mode"
+	DBConsts_SDataSetClosed,	"Cannot perform this operation on a closed dataset"
+	DBConsts_SDataSetEmpty,	"Cannot perform this operation on an empty dataset"
+	DBConsts_SDataSetReadOnly,	"Cannot modify a read-only dataset"
+	DBConsts_SNestedDataSetClass,	"Nested dataset must inherit from %s"
+	DBConsts_STextFalse,	"False"
+	DBConsts_SInvalidFieldKind,	"Invalid FieldKind"
+	DBConsts_SUnknownFieldType,	"Field '%s' is of an unknown type"
+	DBConsts_SFieldNameMissing,	"Field name missing"
+	DBConsts_SDuplicateFieldName,	"Duplicate field name '%s'"
+	DBConsts_SFieldNotFound,	"Field '%s' not found"
+	DBConsts_SFieldAccessError,	"Cannot access field '%s' as type %s"
+	DBConsts_SFieldValueError,	"Invalid value for field '%s'"
+	DBConsts_SFieldRangeError,	"%g is not a valid value for field '%s'. The allowed range is %g to %g"
+	DBConsts_SBcdFieldRangeError,	"%s is not a valid value for field '%s'. The allowed range is %s to %s"
+	DBConsts_SInvalidIntegerValue,	"'%s' is not a valid integer value for field '%s'"
+	DBConsts_SInvalidBoolValue,	"'%s' is not a valid boolean value for field '%s'"
+	DBConsts_SInvalidFloatValue,	"'%s' is not a valid floating point value for field '%s'"
+	DBConsts_SFieldTypeMismatch,	"Type mismatch for field '%s', expecting: %s actual: %s"
+	DBConsts_SFieldSizeMismatch,	"Size mismatch for field '%s', expecting: %d actual: %d"
+	DBConsts_SInvalidVarByteArray,	"Invalid variant type or size for field '%s'"
+	DBConsts_SFieldOutOfRange,	"Value of field '%s' is out of range"
+	Consts_SNoName,	"(No Name)"
+	Consts_SCirularReferencesNotAllowed,	"Circular references not allowed"
+	Consts_SCannotHideActionBand,	"%s does not allow hiding"
+	Consts_SErrorSettingCount,	"Error setting %s.Count"
+	Consts_SListBoxMustBeVirtual,	"Listbox (%s) style must be virtual in order to set Count"
+	Consts_SUnableToSaveSettings,	"Unable to save settings"
+	Consts_SRestoreDefaultSchedule,	"Would you like to reset to the default Priority Schedule?"
+	Consts_SActionBarStyleMissing,	"No ActionBand style unit present in the uses clause.\rYour application must include either XPStyleActnCtrls, StdStyleActnCtrls or a third party ActionBand style unit in its uses clause"
+	Consts_SANSIEncoding,	"ANSI"
+	Consts_SASCIIEncoding,	"ASCII"
+	Consts_SUnicodeEncoding,	"Unicode"
+	Consts_SBigEndianEncoding,	"Big Endian Unicode"
+	Consts_SUTF8Encoding,	"UTF-8"
+	Consts_SUTF7Encoding,	"UTF-7"
+	Consts_SPageControlNotSet,	"PageControl must first be assigned"
+	DBConsts_SInvalidFieldSize,	"Invalid field size"
+	Consts_SIconToClipboard,	"Clipboard does not support Icons"
+	Consts_SCannotOpenClipboard,	"Cannot open clipboard"
+	Consts_SInvalidMemoSize,	"Text exceeds memo capacity"
+	Consts_SDuplicateMenus,	"Menu '%s' is already being used by another form"
+	Consts_SDockedCtlNeedsName,	"Docked control must have a name"
+	Consts_SDockTreeRemoveError,	"Error removing control from dock tree"
+	Consts_SDockZoneNotFound,	" - Dock zone not found"
+	Consts_SDockZoneHasNoCtl,	" - Dock zone has no control"
+	Consts_SDockZoneVersionConflict,	"Error loading dock zone from the stream. Expecting version %d, but found %d."
+	Consts_SMultiSelectRequired,	"Multiselect mode must be on for this feature"
+	Consts_SAssignSubItemError,	"Cannot assign a subitem to an actionbar when one of it's parent's is already assigned to an actionbar"
+	Consts_SDeleteItemWithSubItems,	"Item %s has subitems, delete anyway?"
+	Consts_SDeleteNotAllowed,	"You are not allowed to delete this item"
+	Consts_SMoveNotAllowed,	"Item %s is not allowed to be moved"
+	Consts_SExpand,	"Expand"
+	Consts_SErrorLoadingFile,	"Error loading previously saved settings file: %s\rWould you like to delete it?"
+	Consts_SmkcSpace,	"Space"
+	Consts_SmkcPgUp,	"PgUp"
+	Consts_SmkcPgDn,	"PgDn"
+	Consts_SmkcEnd,	"End"
+	Consts_SmkcHome,	"Home"
+	Consts_SmkcLeft,	"Left"
+	Consts_SmkcUp,	"Up"
+	Consts_SmkcRight,	"Right"
+	Consts_SmkcDown,	"Down"
+	Consts_SmkcIns,	"Ins"
+	Consts_SmkcDel,	"Del"
+	Consts_SmkcShift,	"Shift+"
+	Consts_SmkcCtrl,	"Ctrl+"
+	Consts_SmkcAlt,	"Alt+"
+	Consts_SInsertLineError,	"Unable to insert a line"
+	Consts_SInvalidClipFmt,	"Invalid clipboard format"
+	Consts_SMsgDlgConfirm,	"Confirm"
+	Consts_SMsgDlgYes,	"&Yes"
+	Consts_SMsgDlgNo,	"&No"
+	Consts_SMsgDlgOK,	"OK"
+	Consts_SMsgDlgCancel,	"Cancel"
+	Consts_SMsgDlgHelp,	"&Help"
+	Consts_SMsgDlgAbort,	"&Abort"
+	Consts_SMsgDlgRetry,	"&Retry"
+	Consts_SMsgDlgIgnore,	"&Ignore"
+	Consts_SMsgDlgAll,	"&All"
+	Consts_SMsgDlgNoToAll,	"N&o to All"
+	Consts_SMsgDlgYesToAll,	"Yes to &All"
+	Consts_SmkcBkSp,	"BkSp"
+	Consts_SmkcTab,	"Tab"
+	Consts_SmkcEsc,	"Esc"
+	Consts_SmkcEnter,	"Enter"
+	Consts_SHelpButton,	"&Help"
+	Consts_SCloseButton,	"&Close"
+	Consts_SIgnoreButton,	"&Ignore"
+	Consts_SRetryButton,	"&Retry"
+	Consts_SAbortButton,	"Abort"
+	Consts_SAllButton,	"&All"
+	Consts_SCannotDragForm,	"Cannot drag a form"
+	Consts_SVMetafiles,	"Metafiles"
+	Consts_SVEnhMetafiles,	"Enhanced Metafiles"
+	Consts_SVIcons,	"Icons"
+	Consts_SVBitmaps,	"Bitmaps"
+	Consts_SMaskErr,	"Invalid input value"
+	Consts_SMaskEditErr,	"Invalid input value.  Use escape key to abandon changes"
+	Consts_SMsgDlgWarning,	"Warning"
+	Consts_SMsgDlgError,	"Error"
+	Consts_SMsgDlgInformation,	"Information"
+	Consts_SParentGivenNotAParent,	"Parent given is not a parent of '%s'"
+	Consts_SMDIChildNotVisible,	"Cannot hide an MDI Child Form"
+	Consts_SVisibleChanged,	"Cannot change Visible in OnShow or OnHide"
+	Consts_SCannotShowModal,	"Cannot make a visible window modal"
+	Consts_SPropertyOutOfRange,	"%s property out of range"
+	Consts_SMenuIndexError,	"Menu index out of range"
+	Consts_SMenuReinserted,	"Menu inserted twice"
+	Consts_SMenuNotFound,	"Sub-menu is not in menu"
+	Consts_SNoTimers,	"Not enough timers available"
+	Consts_SGroupIndexTooLow,	"GroupIndex cannot be less than a previous menu item's GroupIndex"
+	Consts_SNoMDIForm,	"Cannot create form. No MDI forms are currently active"
+	Consts_SControlParentSetToSelf,	"A control cannot have itself as its parent"
+	Consts_SOKButton,	"OK"
+	Consts_SCancelButton,	"Cancel"
+	Consts_SYesButton,	"&Yes"
+	Consts_SNoButton,	"&No"
+	Consts_SInvalidPixelFormat,	"Invalid pixel format"
+	Consts_SScanLine,	"Scan line index out of range"
+	Consts_SChangeIconSize,	"Cannot change the size of an icon"
+	Consts_SUnknownClipboardFormat,	"Unsupported clipboard format"
+	Consts_SOutOfResources,	"Out of system resources"
+	Consts_SNoCanvasHandle,	"Canvas does not allow drawing"
+	Consts_SInvalidImageSize,	"Invalid image size"
+	Consts_SInvalidImageList,	"Invalid ImageList"
+	Consts_SReplaceImage,	"Unable to Replace Image"
+	Consts_SImageIndexError,	"Invalid ImageList Index"
+	Consts_SImageReadFail,	"Failed to read ImageList data from stream"
+	Consts_SImageWriteFail,	"Failed to write ImageList data to stream"
+	Consts_SWindowDCError,	"Error creating window device context"
+	Consts_SWindowClass,	"Error creating window class"
+	Consts_SCannotFocus,	"Cannot focus a disabled or invisible window"
+	Consts_SParentRequired,	"Control '%s' has no parent window"
+	RTLConsts_STooManyDeleted,	"Too many rows or columns deleted"
+	RTLConsts_SUnknownGroup,	"%s not in a class registration group"
+	RTLConsts_SUnknownProperty,	"Property %s does not exist"
+	RTLConsts_SWriteError,	"Stream write error"
+	RTLConsts_SThreadCreateError,	"Thread creation error: %s"
+	RTLConsts_SThreadError,	"Thread Error: %s (%d)"
+	HelpIntfs_hNoTableOfContents,	"Unable to find a Table of Contents"
+	HelpIntfs_hNothingFound,	"No help found for %s"
+	HelpIntfs_hNoContext,	"No context-sensitive help installed"
+	HelpIntfs_hNoContextFound,	"No help found for context"
+	HelpIntfs_hNoTopics,	"No topic-based help system installed"
+	Consts_SInvalidTabPosition,	"Tab position incompatible with current tab style"
+	Consts_SInvalidTabStyle,	"Tab style incompatible with current tab position"
+	Consts_SInvalidBitmap,	"Bitmap image is not valid"
+	Consts_SInvalidIcon,	"Icon image is not valid"
+	Consts_SInvalidMetafile,	"Metafile is not valid"
+	RTLConsts_SInvalidPropertyPath,	"Invalid property path"
+	RTLConsts_SInvalidPropertyType,	"Invalid property type: %s"
+	RTLConsts_SInvalidPropertyValue,	"Invalid property value"
+	RTLConsts_SInvalidRegType,	"Invalid data type for '%s'"
+	RTLConsts_SInvalidStringGridOp,	"Cannot insert or delete rows from grid"
+	RTLConsts_SListCapacityError,	"List capacity out of bounds (%d)"
+	RTLConsts_SListCountError,	"List count out of bounds (%d)"
+	RTLConsts_SListIndexError,	"List index out of bounds (%d)"
+	RTLConsts_SMemoryStreamError,	"Out of memory while expanding memory stream"
+	RTLConsts_SPropertyException,	"Error reading %s%s%s: %s"
+	RTLConsts_SReadError,	"Stream read error"
+	RTLConsts_SReadOnlyProperty,	"Property is read-only"
+	RTLConsts_SRegGetDataFailed,	"Failed to get data for '%s'"
+	RTLConsts_SResNotFound,	"Resource %s not found"
+	RTLConsts_SSeekNotImplemented,	"%s.Seek not implemented"
+	RTLConsts_SSortedListError,	"Operation not allowed on sorted list"
+	RTLConsts_SCheckSynchronizeError,	"CheckSynchronize called from thread $%x, which is NOT the main thread"
+	RTLConsts_SClassNotFound,	"Class %s not found"
+	RTLConsts_SDuplicateClass,	"A class named %s already exists"
+	RTLConsts_SDuplicateItem,	"List does not allow duplicates ($0%x)"
+	RTLConsts_SDuplicateName,	"A component named %s already exists"
+	RTLConsts_SDuplicateString,	"String list does not allow duplicates"
+	RTLConsts_SFCreateErrorEx,	"Cannot create file \"%s\". %s"
+	RTLConsts_SFixedColTooBig,	"Fixed column count must be less than column count"
+	RTLConsts_SFixedRowTooBig,	"Fixed row count must be less than row count"
+	RTLConsts_SFOpenErrorEx,	"Cannot open file \"%s\". %s"
+	RTLConsts_SGridTooLarge,	"Grid too large for operation"
+	RTLConsts_SIndexOutOfRange,	"Grid index out of range"
+	RTLConsts_SInvalidImage,	"Invalid stream format"
+	RTLConsts_SInvalidName,	"''%s'' is not a valid component name"
+	RTLConsts_SInvalidProperty,	"Invalid property value"
+	RTLConsts_SInvalidPropertyElement,	"Invalid property element: %s"
+	SysConst_SShortDayNameTue,	"Tue"
+	SysConst_SShortDayNameWed,	"Wed"
+	SysConst_SShortDayNameThu,	"Thu"
+	SysConst_SShortDayNameFri,	"Fri"
+	SysConst_SShortDayNameSat,	"Sat"
+	SysConst_SLongDayNameSun,	"Sunday"
+	SysConst_SLongDayNameMon,	"Monday"
+	SysConst_SLongDayNameTue,	"Tuesday"
+	SysConst_SLongDayNameWed,	"Wednesday"
+	SysConst_SLongDayNameThu,	"Thursday"
+	SysConst_SLongDayNameFri,	"Friday"
+	SysConst_SLongDayNameSat,	"Saturday"
+	RTLConsts_SAncestorNotFound,	"Ancestor for '%s' not found"
+	RTLConsts_SAssignError,	"Cannot assign a %s to a %s"
+	RTLConsts_SBitsIndexError,	"Bits index out of range"
+	RTLConsts_SCantWriteResourceStreamError,	"Can't write to a read-only resource stream"
+	SysConst_SShortMonthNameNov,	"Nov"
+	SysConst_SShortMonthNameDec,	"Dec"
+	SysConst_SLongMonthNameJan,	"January"
+	SysConst_SLongMonthNameFeb,	"February"
+	SysConst_SLongMonthNameMar,	"March"
+	SysConst_SLongMonthNameApr,	"April"
+	SysConst_SLongMonthNameMay,	"May"
+	SysConst_SLongMonthNameJun,	"June"
+	SysConst_SLongMonthNameJul,	"July"
+	SysConst_SLongMonthNameAug,	"August"
+	SysConst_SLongMonthNameSep,	"September"
+	SysConst_SLongMonthNameOct,	"October"
+	SysConst_SLongMonthNameNov,	"November"
+	SysConst_SLongMonthNameDec,	"December"
+	SysConst_SShortDayNameSun,	"Sun"
+	SysConst_SShortDayNameMon,	"Mon"
+	SysConst_SAssertError,	"%s (%s, line %d)"
+	SysConst_SAbstractError,	"Abstract Error"
+	SysConst_SModuleAccessViolation,	"Access violation at address %p in module '%s'. %s of address %p"
+	SysConst_SOSError,	"System Error.  Code: %d.\r\n%s"
+	SysConst_SUnkOSError,	"A call to an OS function failed"
+	SysConst_SNL,	"Application is not licensed to use this feature"
+	SysConst_SShortMonthNameJan,	"Jan"
+	SysConst_SShortMonthNameFeb,	"Feb"
+	SysConst_SShortMonthNameMar,	"Mar"
+	SysConst_SShortMonthNameApr,	"Apr"
+	SysConst_SShortMonthNameMay,	"May"
+	SysConst_SShortMonthNameJun,	"Jun"
+	SysConst_SShortMonthNameJul,	"Jul"
+	SysConst_SShortMonthNameAug,	"Aug"
+	SysConst_SShortMonthNameSep,	"Sep"
+	SysConst_SShortMonthNameOct,	"Oct"
+	SysConst_SInvalidVarOpWithHResultWithPrefix,	"Invalid variant operation (%s%.8x)\n%s"
+	SysConst_SVarTypeOutOfRangeWithPrefix,	"Custom variant type (%s%.4x) is out of range"
+	SysConst_SVarTypeAlreadyUsedWithPrefix,	"Custom variant type (%s%.4x) already used by %s"
+	SysConst_SVarTypeNotUsableWithPrefix,	"Custom variant type (%s%.4x) is not usable"
+	SysConst_SVarTypeTooManyCustom,	"Too many custom variant types have been registered"
+	SysConst_SVarTypeCouldNotConvert,	"Could not convert variant of type (%s) into type (%s)"
+	SysConst_SVarTypeConvertOverflow,	"Overflow while converting variant of type (%s) into type (%s)"
+	SysConst_SVarOverflow,	"Variant overflow"
+	SysConst_SVarInvalid,	"Invalid argument"
+	SysConst_SVarBadType,	"Invalid variant type"
+	SysConst_SVarNotImplemented,	"Operation not supported"
+	SysConst_SVarUnexpected,	"Unexpected variant error"
+	SysConst_SExternalException,	"External exception %x"
+	SysConst_SAssertionFailed,	"Assertion failed"
+	SysConst_SIntfCastError,	"Interface not supported"
+	SysConst_SSafecallException,	"Exception in safecall method"
+	SysConst_SPrivilege,	"Privileged instruction"
+	SysConst_SOperationAborted,	"Operation aborted"
+	SysConst_SException,	"Exception %s in module %s at %p.\r\n%s%s\r\n"
+	SysConst_SExceptTitle,	"Application Error"
+	SysConst_SInvalidFormat,	"Format '%s' invalid or incompatible with argument"
+	SysConst_SArgumentMissing,	"No argument for format '%s'"
+	SysConst_SDispatchError,	"Variant method calls not supported"
+	SysConst_SReadAccess,	"Read"
+	SysConst_SWriteAccess,	"Write"
+	SysConst_SFormatTooLong,	"Format string too long"
+	SysConst_SVarArrayCreate,	"Error creating variant or safe array"
+	SysConst_SVarArrayBounds,	"Variant or safe array index out of bounds"
+	SysConst_SVarArrayLocked,	"Variant or safe array is locked"
+	SysConst_SInvalidVarCast,	"Invalid variant type conversion"
+	SysConst_SInvalidVarOp,	"Invalid variant operation"
+	SysConst_SInvalidVarNullOp,	"Invalid NULL variant operation"
+	SysConst_SEndOfFile,	"Read beyond end of file"
+	SysConst_SDiskFull,	"Disk full"
+	SysConst_SInvalidInput,	"Invalid numeric input"
+	SysConst_SDivByZero,	"Division by zero"
+	SysConst_SRangeError,	"Range check error"
+	SysConst_SIntOverflow,	"Integer overflow"
+	SysConst_SInvalidOp,	"Invalid floating point operation"
+	SysConst_SZeroDivide,	"Floating point division by zero"
+	SysConst_SOverflow,	"Floating point overflow"
+	SysConst_SUnderflow,	"Floating point underflow"
+	SysConst_SInvalidPointer,	"Invalid pointer operation"
+	SysConst_SInvalidCast,	"Invalid class typecast"
+	SysConst_SAccessViolationArg3,	"Access violation at address %p. %s of address %p"
+	SysConst_SAccessViolationNoArg,	"Access violation"
+	SysConst_SStackOverflow,	"Stack overflow"
+	SysConst_SControlC,	"Control-C hit"
+	SysConst_SInvalidInteger,	"'%s' is not a valid integer value"
+	SysConst_SInvalidFloat,	"'%s' is not a valid floating point value"
+	SysConst_SInvalidDate,	"'%s' is not a valid date"
+	SysConst_SInvalidTime,	"'%s' is not a valid time"
+	SysConst_SInvalidDateTime,	"'%s' is not a valid date and time"
+	SysConst_SInvalidTimeStamp,	"'%d.%d' is not a valid timestamp"
+	SysConst_SInvalidGUID,	"'%s' is not a valid GUID value"
+	SysConst_SInvalidBoolean,	"'%s' is not a valid boolean value"
+	SysConst_STimeEncodeError,	"Invalid argument to time encode"
+	SysConst_SDateEncodeError,	"Invalid argument to date encode"
+	SysConst_SOutOfMemory,	"Out of memory"
+	SysConst_SInOutError,	"I/O error %d"
+	SysConst_SFileNotFound,	"File not found"
+	SysConst_SInvalidFilename,	"Invalid filename"
+	SysConst_STooManyOpenFiles,	"Too many open files"
+	SysConst_SAccessDenied,	"File access denied"
+END
+

internal/2.20/2/Demos/1 Basic All Data Access/ADO/Unit1.pas

@@ -0,0 +1,120 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, ADODB, Menus, UCBase, UCADOConn, StdCtrls, Buttons,
+  UCXPStyle, UCSettings, UCDataConnector;
+
+type
+  TForm1 = class(TForm)
+    ADOConnection1: TADOConnection;
+    UCADOConn1: TUCADOConn;
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    QVerAcesso: TADOQuery;
+    GroupBox1: TGroupBox;
+    edLogin: TEdit;
+    edSenha: TEdit;
+    Button1: TButton;
+    Label1: TLabel;
+    Label2: TLabel;
+    edComp: TEdit;
+    Label3: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    function PossuiAcesso(Login, Senha, Componente : String) : Boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  ADOConnection1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  if PossuiAcesso(edLogin.Text, edSenha.Text, edComp.Text) then
+    MessageBox(handle, 'Acesso liberado!', 'Informação', MB_ICONINFORMATION or MB_OK)
+  else
+    MessageBox(handle, 'Acesso negado!', 'Aviso', MB_ICONWARNING or MB_OK);
+end;
+
+function TForm1.PossuiAcesso(Login, Senha, Componente : String) : Boolean;
+begin
+  with QVerAcesso do
+  begin
+    Close;
+    Parameters.ParamByName('login').Value := EdLogin.Text;
+    Parameters.ParamByName('componente').Value := edComp.Text;
+    Open;
+    if (IsEmpty) or (Decrypt( QVerAcesso.FieldByName('UCPassword').asString, UserControl1.EncryptKey ) <> Senha) then
+      Result := False
+    else Result := True;
+  end;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/Asta/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/Asta/Unit1.pas

@@ -0,0 +1,99 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, Menus, UCBase, UCADOConn, StdCtrls, Buttons,
+  ScktComp, AstaCustomSocket, AstaClientSocket, UCAstaConn;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    AstaClientSocket1: TAstaClientSocket;
+    UCAstaConn1: TUCAstaConn;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+    procedure AstaClientSocket1CustomConnect(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  AstaClientSocket1.Active := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+procedure TForm1.AstaClientSocket1CustomConnect(Sender: TObject);
+begin
+  AstaClientSocket1.Host := '127.0.0.1';
+  AstaClientSocket1.Port := 9000;
+  AstaClientSocket1.Open;
+  //Delay para conexao ao Asta Server... QmD
+//  for contador := 0 to 1000 do Application.ProcessMessages;
+
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/BDE/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/BDE/Unit1.pas

@@ -0,0 +1,88 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, Menus, UCBase, StdCtrls, Buttons, UCBDEConn, DBTables;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    Database1: TDatabase;
+    UCBDEConn1: TUCBDEConn;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  Database1.DatabaseName := ExtractFilePath(Application.ExeName);
+  Database1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/DBISAM/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/DBISAM/Unit1.pas

@@ -0,0 +1,88 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, Menus, UCBase, StdCtrls, Buttons, dbisamtb, UCDBISAMConn;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    UCDBISAMConn1: TUCDBISAMConn;
+    DBISAMDatabase1: TDBISAMDatabase;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  DBISAMDatabase1.Directory := ExtractFilePath(Application.ExeName);
+  DBISAMDatabase1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/DBX/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/DBX/Unit1.pas

@@ -0,0 +1,89 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons, DBXpress,
+  SqlExpr, UCDBXConn;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    UCDBXConn1: TUCDBXConn;
+    SQLConnection1: TSQLConnection;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  SQLConnection1.Params.Values['Database'] := '127.0.0.1:' + ExtractFilePath(Application.ExeName) + '..\..\Base.Gdb';
+  SQLConnection1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/FIB/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/FIB/Unit1.pas

@@ -0,0 +1,90 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons,
+    FIBDatabase, pFIBDatabase, UCFIBConn;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    pFIBDatabase1: TpFIBDatabase;
+    pFIBTransaction1: TpFIBTransaction;
+    UCFIBConn1: TUCFIBConn;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  pFIBDatabase1.DBName := '127.0.0.1:' + ExtractFilePath(Application.ExeName) + '..\..\Base.Gdb';
+  pFIBDatabase1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/IBO/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/IBO/Unit1.pas

@@ -0,0 +1,89 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons, UCIBOConn,
+  IB_Components, IBODataset;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    IBODatabase1: TIBODatabase;
+    UCIBOConn1: TUCIBOConn;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  IBODatabase1.DatabaseName := '127.0.0.1:' + ExtractFilePath(Application.ExeName) + '..\..\Base.Gdb';
+  IBODatabase1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/IBX/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/IBX/Unit1.pas

@@ -0,0 +1,90 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons,
+  IBDatabase, UCIBXConn;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    UCIBXConn1: TUCIBXConn;
+    IBDatabase1: TIBDatabase;
+    IBTransaction1: TIBTransaction;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  IBDatabase1.DatabaseName := '127.0.0.1:' + ExtractFilePath(Application.ExeName) + '..\..\Base.Gdb';
+  IBDatabase1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/MDO/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/MDO/Unit1.pas

@@ -0,0 +1,90 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons,
+  UCMDOConn, MDODatabase;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    MDODatabase1: TMDODatabase;
+    MDOTransaction1: TMDOTransaction;
+    UCMDOConn1: TUCMDOConn;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  MDODatabase1.DatabaseName := '127.0.0.1:' + ExtractFilePath(Application.ExeName) + '..\..\Base.Gdb';
+  MDODatabase1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/MyDAC/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/MyDAC/Unit1.pas

@@ -0,0 +1,89 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons, ExtCtrls,
+  UCMyDACConn, DBAccess, MyAccess;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    MyConnection1: TMyConnection;
+    UCMyDACConn1: TUCMyDACConn;
+    Panel1: TPanel;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  MyConnection1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/MySQLDAC/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/MySQLDAC/Unit1.pas

@@ -0,0 +1,89 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons, ExtCtrls,
+  mySQLDbTables, UCMySQLDACConn;
+
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    Panel1: TPanel;
+    UCMySQLDACConn1: TUCMySQLDACConn;
+    mySQLDatabase1: TmySQLDatabase;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  mySQLDatabase1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Unit1.pas

@@ -0,0 +1,88 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, UCBase, Menus, StdCtrls, Buttons, ZConnection,
+  UCZEOSConn;
+type
+  TForm1 = class(TForm)
+    UserControl1: TUserControl;
+    MainMenu1: TMainMenu;
+    Arquivo1: TMenuItem;
+    Abrir1: TMenuItem;
+    Salvar1: TMenuItem;
+    Salvar2: TMenuItem;
+    Salvarcomo1: TMenuItem;
+    Fechar1: TMenuItem;
+    N2: TMenuItem;
+    Dados1: TMenuItem;
+    Importar1: TMenuItem;
+    Exportar1: TMenuItem;
+    N4: TMenuItem;
+    Vincular1: TMenuItem;
+    N3: TMenuItem;
+    Sair2: TMenuItem;
+    Editar1: TMenuItem;
+    Copiar1: TMenuItem;
+    Colar1: TMenuItem;
+    Recortar1: TMenuItem;
+    N1: TMenuItem;
+    Selecionartudo1: TMenuItem;
+    N5: TMenuItem;
+    AreadeTransferencia1: TMenuItem;
+    Exibir2: TMenuItem;
+    Esvaziar1: TMenuItem;
+    Exibir1: TMenuItem;
+    Zoom1: TMenuItem;
+    Normal1: TMenuItem;
+    Grande1: TMenuItem;
+    Ajustarnajanela1: TMenuItem;
+    N6: TMenuItem;
+    Personalizar1: TMenuItem;
+    amanhonormal1: TMenuItem;
+    elacheia1: TMenuItem;
+    Relatorios1: TMenuItem;
+    Relatorio11: TMenuItem;
+    Relatorio21: TMenuItem;
+    Relatorio31: TMenuItem;
+    Relatorio41: TMenuItem;
+    Segurana1: TMenuItem;
+    Cadastrodeusuarios1: TMenuItem;
+    Perfildeusurios1: TMenuItem;
+    logdosistema: TMenuItem;
+    N7: TMenuItem;
+    rocarsenha1: TMenuItem;
+    EfetuarLogoff1: TMenuItem;
+    UCSettings1: TUCSettings;
+    UCXPStyle1: TUCXPStyle;
+    UCZEOSConn1: TUCZEOSConn;
+    ZConnection1: TZConnection;
+    procedure FormCreate(Sender: TObject);
+    procedure EfetuarLogoff1Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  ZConnection1.Database := ExtractFilePath(Application.ExeName) + '..\..\Base.Gdb';
+  ZConnection1.Connected := True;
+end;
+
+procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+end.

internal/2.20/2/Demos/10 Modo Passivo e Session Time- ADO/Project1.dpr

@@ -0,0 +1,13 @@
+program Project1;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

internal/2.20/2/Demos/10 Modo Passivo e Session Time- ADO/Unit1.pas

@@ -0,0 +1,92 @@
+unit Unit1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, ADODB, StdCtrls, Buttons, UCIdle, UCBase, UCADOConn,
+  UCXPStyle;
+
+type
+  TForm1 = class(TForm)
+    btLogin: TBitBtn;
+    btLogout: TBitBtn;
+    ADOConnection1: TADOConnection;
+    GroupBox1: TGroupBox;
+    GroupBox2: TGroupBox;
+    BitBtn3: TBitBtn;
+    BitBtn4: TBitBtn;
+    BitBtn5: TBitBtn;
+    BitBtn6: TBitBtn;
+    BitBtn7: TBitBtn;
+    UCADOConn1: TUCADOConn;
+    UserControl1: TUserControl;
+    UCControls1: TUCControls;
+    UCIdle1: TUCIdle;
+    btProtOper: TBitBtn;
+    btUsuarios: TBitBtn;
+    btPerfil: TBitBtn;
+    btSenha: TBitBtn;
+    Memo1: TMemo;
+    UCXPStyle1: TUCXPStyle;
+    UCSettings1: TUCSettings;
+    procedure BitBtn3Click(Sender: TObject);
+    procedure btProtOperClick(Sender: TObject);
+    procedure btLoginClick(Sender: TObject);
+    procedure UserControl1LoginSucess(Sender: TObject; IdUser: Integer;
+      Usuario, Nome, Senha, Email: String; Privilegiado: Boolean);
+    procedure UserControl1Logoff(Sender: TObject; IDUser: Integer);
+    procedure btLogoutClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.BitBtn3Click(Sender: TObject);
+begin
+  showmessage('teste');
+end;
+
+procedure TForm1.btProtOperClick(Sender: TObject);
+begin
+  MessageBox(handle, 'teste de Operação protegida', 'Aviso', MB_ICONWARNING or MB_OK);
+end;
+
+procedure TForm1.btLoginClick(Sender: TObject);
+begin
+  UserControl1.StartLogin;
+end;
+
+procedure TForm1.UserControl1LoginSucess(Sender: TObject; IdUser: Integer;
+  Usuario, Nome, Senha, Email: String; Privilegiado: Boolean);
+begin
+  btLogout.Visible := True;
+  btLogin.Visible := False;
+end;
+
+procedure TForm1.UserControl1Logoff(Sender: TObject; IDUser: Integer);
+begin
+  btLogout.Visible := False;
+  btLogin.Visible := True;
+end;
+
+procedure TForm1.btLogoutClick(Sender: TObject);
+begin
+  UserControl1.Logoff;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  ADOConnection1.Connected := True;
+end;
+
+end.

internal/2.20/2/Demos/2 UCControls - ADO/UCControlsDemo.dpr

@@ -0,0 +1,14 @@
+program UCControlsDemo;
+
+uses
+  Forms,
+  ucontrols in 'ucontrols.pas' {Form1},
+  form2_U in 'form2_U.pas' {Form2};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.