- Recompilado para D2007 UPD3
- Cambiado el formato de fechas 'mm/dd/yyyy' a 'dd/mm/yyyy'. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@14 970f2627-a9d2-4748-b3d4-b5283c4fe7db
This commit is contained in:
parent
395209dad6
commit
630e91ec0c
@ -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>
|
||||||
@ -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
|
||||||
142
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.dof
Normal file
142
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.dof
Normal file
@ -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;
|
||||||
@ -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.
|
||||||
940
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.drc
Normal file
940
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.drc
Normal file
@ -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
|
||||||
|
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.exe
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.exe
Normal file
Binary file not shown.
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.res
Normal file
Binary file not shown.
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.rsm
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Project1.rsm
Normal file
Binary file not shown.
1588
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Unit1.dfm
Normal file
1588
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
120
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Unit1.pas
Normal file
120
internal/2.20/2/Demos/1 Basic All Data Access/ADO/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/Asta/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/Asta/Project1.res
Normal file
Binary file not shown.
1466
internal/2.20/2/Demos/1 Basic All Data Access/Asta/Unit1.dfm
Normal file
1466
internal/2.20/2/Demos/1 Basic All Data Access/Asta/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
99
internal/2.20/2/Demos/1 Basic All Data Access/Asta/Unit1.pas
Normal file
99
internal/2.20/2/Demos/1 Basic All Data Access/Asta/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/BDE/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/BDE/Project1.res
Normal file
Binary file not shown.
1451
internal/2.20/2/Demos/1 Basic All Data Access/BDE/Unit1.dfm
Normal file
1451
internal/2.20/2/Demos/1 Basic All Data Access/BDE/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
88
internal/2.20/2/Demos/1 Basic All Data Access/BDE/Unit1.pas
Normal file
88
internal/2.20/2/Demos/1 Basic All Data Access/BDE/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
Binary file not shown.
1455
internal/2.20/2/Demos/1 Basic All Data Access/DBISAM/Unit1.dfm
Normal file
1455
internal/2.20/2/Demos/1 Basic All Data Access/DBISAM/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/DBX/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/DBX/Project1.res
Normal file
Binary file not shown.
1472
internal/2.20/2/Demos/1 Basic All Data Access/DBX/Unit1.dfm
Normal file
1472
internal/2.20/2/Demos/1 Basic All Data Access/DBX/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
89
internal/2.20/2/Demos/1 Basic All Data Access/DBX/Unit1.pas
Normal file
89
internal/2.20/2/Demos/1 Basic All Data Access/DBX/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/FIB/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/FIB/Project1.res
Normal file
Binary file not shown.
1466
internal/2.20/2/Demos/1 Basic All Data Access/FIB/Unit1.dfm
Normal file
1466
internal/2.20/2/Demos/1 Basic All Data Access/FIB/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
90
internal/2.20/2/Demos/1 Basic All Data Access/FIB/Unit1.pas
Normal file
90
internal/2.20/2/Demos/1 Basic All Data Access/FIB/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/IBO/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/IBO/Project1.res
Normal file
Binary file not shown.
1460
internal/2.20/2/Demos/1 Basic All Data Access/IBO/Unit1.dfm
Normal file
1460
internal/2.20/2/Demos/1 Basic All Data Access/IBO/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
89
internal/2.20/2/Demos/1 Basic All Data Access/IBO/Unit1.pas
Normal file
89
internal/2.20/2/Demos/1 Basic All Data Access/IBO/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/IBX/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/IBX/Project1.res
Normal file
Binary file not shown.
1467
internal/2.20/2/Demos/1 Basic All Data Access/IBX/Unit1.dfm
Normal file
1467
internal/2.20/2/Demos/1 Basic All Data Access/IBX/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
90
internal/2.20/2/Demos/1 Basic All Data Access/IBX/Unit1.pas
Normal file
90
internal/2.20/2/Demos/1 Basic All Data Access/IBX/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/MDO/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/MDO/Project1.res
Normal file
Binary file not shown.
1469
internal/2.20/2/Demos/1 Basic All Data Access/MDO/Unit1.dfm
Normal file
1469
internal/2.20/2/Demos/1 Basic All Data Access/MDO/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
90
internal/2.20/2/Demos/1 Basic All Data Access/MDO/Unit1.pas
Normal file
90
internal/2.20/2/Demos/1 Basic All Data Access/MDO/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/MyDAC/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/MyDAC/Project1.res
Normal file
Binary file not shown.
1472
internal/2.20/2/Demos/1 Basic All Data Access/MyDAC/Unit1.dfm
Normal file
1472
internal/2.20/2/Demos/1 Basic All Data Access/MyDAC/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
@ -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.
|
||||||
@ -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.
|
||||||
Binary file not shown.
1479
internal/2.20/2/Demos/1 Basic All Data Access/MySQLDAC/Unit1.dfm
Normal file
1479
internal/2.20/2/Demos/1 Basic All Data Access/MySQLDAC/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
@ -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.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Project1.res
Normal file
BIN
internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Project1.res
Normal file
Binary file not shown.
1459
internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Unit1.dfm
Normal file
1459
internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
88
internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Unit1.pas
Normal file
88
internal/2.20/2/Demos/1 Basic All Data Access/ZEOS/Unit1.pas
Normal file
@ -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.
|
||||||
@ -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.
|
||||||
Binary file not shown.
Binary file not shown.
1804
internal/2.20/2/Demos/10 Modo Passivo e Session Time- ADO/Unit1.dfm
Normal file
1804
internal/2.20/2/Demos/10 Modo Passivo e Session Time- ADO/Unit1.dfm
Normal file
File diff suppressed because it is too large
Load Diff
@ -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.
|
||||||
14
internal/2.20/2/Demos/2 UCControls - ADO/UCControlsDemo.dpr
Normal file
14
internal/2.20/2/Demos/2 UCControls - ADO/UCControlsDemo.dpr
Normal file
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/2 UCControls - ADO/UCControlsDemo.res
Normal file
BIN
internal/2.20/2/Demos/2 UCControls - ADO/UCControlsDemo.res
Normal file
Binary file not shown.
515
internal/2.20/2/Demos/2 UCControls - ADO/form2_U.dfm
Normal file
515
internal/2.20/2/Demos/2 UCControls - ADO/form2_U.dfm
Normal file
@ -0,0 +1,515 @@
|
|||||||
|
object Form2: TForm2
|
||||||
|
Left = 310
|
||||||
|
Top = 155
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = 'Form2'
|
||||||
|
ClientHeight = 462
|
||||||
|
ClientWidth = 546
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poDesktopCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 24
|
||||||
|
Top = 8
|
||||||
|
Width = 513
|
||||||
|
Height = 73
|
||||||
|
TabOrder = 0
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 32
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Label1'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 216
|
||||||
|
Top = 16
|
||||||
|
Width = 32
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Label2'
|
||||||
|
end
|
||||||
|
object Edit1: TEdit
|
||||||
|
Left = 64
|
||||||
|
Top = 8
|
||||||
|
Width = 121
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Edit2: TEdit
|
||||||
|
Left = 272
|
||||||
|
Top = 8
|
||||||
|
Width = 121
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'Edit2'
|
||||||
|
end
|
||||||
|
object RadioButton1: TRadioButton
|
||||||
|
Left = 40
|
||||||
|
Top = 48
|
||||||
|
Width = 113
|
||||||
|
Height = 17
|
||||||
|
Caption = 'RadioButton1'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object RadioButton2: TRadioButton
|
||||||
|
Left = 192
|
||||||
|
Top = 48
|
||||||
|
Width = 113
|
||||||
|
Height = 17
|
||||||
|
Caption = 'RadioButton2'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object RadioButton3: TRadioButton
|
||||||
|
Left = 328
|
||||||
|
Top = 48
|
||||||
|
Width = 113
|
||||||
|
Height = 17
|
||||||
|
Caption = 'RadioButton3'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object CheckBox1: TCheckBox
|
||||||
|
Left = 32
|
||||||
|
Top = 96
|
||||||
|
Width = 97
|
||||||
|
Height = 17
|
||||||
|
Caption = 'CheckBox1'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object CheckBox2: TCheckBox
|
||||||
|
Left = 32
|
||||||
|
Top = 128
|
||||||
|
Width = 97
|
||||||
|
Height = 17
|
||||||
|
Caption = 'CheckBox2'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 152
|
||||||
|
Top = 96
|
||||||
|
Width = 385
|
||||||
|
Height = 57
|
||||||
|
Lines.Strings = (
|
||||||
|
'Memo1')
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 71
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Incluir'
|
||||||
|
TabOrder = 4
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000420B0000420B00000001000000010000B5847300AD73
|
||||||
|
8400B5848400B58C8400B5948C00D6BDB500C6C6C600EFD6C600CECECE00D6D6
|
||||||
|
D600DEDEDE00E7E7E700EFEFEF0042B5F7008CD6F700B5DEF700F7F7F700FF00
|
||||||
|
FF003184FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
|
||||||
|
1111111111111111111111111101020202020202020202020211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
13131313131313130211111112121210101010101010101002111111120D120C
|
||||||
|
0C0C0C0C0C0C0C0C02111212120D1212120B0B0B0B0004030211120E0F0F0F0E
|
||||||
|
120A0A0A0600131302111212120F1212120909090600130211111111120F1208
|
||||||
|
0808080806000211111111111212120707070707050011111111}
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 185
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Alterar'
|
||||||
|
TabOrder = 5
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000420B0000420B000000010000000100002D2D2D001855
|
||||||
|
6F004544420058534E005160610054777B007C707800B56D3E00CE630000C171
|
||||||
|
3500C07638008A5B5200947E7500AD7B7300EFA65A00EDA75F00F0A85C000000
|
||||||
|
9A000316AC0041749600477AA9000018C6001029D600106BFF00FF00FF0035A8
|
||||||
|
F5004A9EED006D8AFD009B9B9B009891A200AAAAAA00ADB5BD00F1BC8600F8C2
|
||||||
|
8C00F9C48D00F7D6AD00FBD3A900FFD6AD00BDC6C600FFE7C600FFEFD600FFF7
|
||||||
|
E700FFFFF700FFFFFF0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000181818181818
|
||||||
|
181818181818181818181808080808080808080808080808080818082B2B2A29
|
||||||
|
2827252523252525250818082B2626262626262626262626250818082B2B0003
|
||||||
|
1E29272725252325250818082B260302041C262626262626250818082B2B2B05
|
||||||
|
14010B1E27272525250818082B262605130C090B1C26261F250818082B2B2B2B
|
||||||
|
0620100A0B1E2725250818082B2626260D24220E0A0B1C26250818082B2B2B2B
|
||||||
|
2B0D242210090B1E250818082B2B2B2B2B2B0D24210F070B1C08180808080808
|
||||||
|
0808080D241D19121108181808080808080808080D1A16161211181818181818
|
||||||
|
1818181818151B17161818181818181818181818181815151818}
|
||||||
|
end
|
||||||
|
object BitBtn3: TBitBtn
|
||||||
|
Left = 300
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Excluir'
|
||||||
|
TabOrder = 6
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000220B0000220B000000010000000100000031DE000031
|
||||||
|
E7000031EF000031F700FF00FF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00040404040404
|
||||||
|
0404040404040404000004000004040404040404040404000004040000000404
|
||||||
|
0404040404040000040404000000000404040404040000040404040402000000
|
||||||
|
0404040400000404040404040404000000040000000404040404040404040400
|
||||||
|
0101010004040404040404040404040401010204040404040404040404040400
|
||||||
|
0201020304040404040404040404030201040403030404040404040404050203
|
||||||
|
0404040405030404040404040303050404040404040303040404040303030404
|
||||||
|
0404040404040403040403030304040404040404040404040404030304040404
|
||||||
|
0404040404040404040404040404040404040404040404040404}
|
||||||
|
end
|
||||||
|
object BitBtn4: TBitBtn
|
||||||
|
Left = 415
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Fechar'
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = BitBtn4Click
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000220B0000220B00000001000000010000006400004242
|
||||||
|
42008C6363009A666600B9666600BB686800B0717200C3686900C66A6B00C76A
|
||||||
|
6D00CF6C6E00D2686900D16D6E00CC6E7100C0797A00D2707200D4707100D572
|
||||||
|
7300D0727500D3747600D9757600D8767700E37D7E000080000000960000DC7F
|
||||||
|
8000FF00FF00D7868700DA888800D8888A00DA888A00DF898A00E6808100E085
|
||||||
|
8500E9818200EE868700E3888900E78C8D00F0878800F18B8C00F28B8C00F18D
|
||||||
|
8E00F48C8D00F48E8F00EB8F9000EC969700E49A9800F3919200F7909100F791
|
||||||
|
9200F2939400F9909200F9949500FA949500F9969700F0999A00FC999A00FF9D
|
||||||
|
9E00F7B58400F5A7A500FACCAA00FBD6BB00FADCDC00FFFFFF00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000001A1A1A1A1A1A
|
||||||
|
1A02011A1A1A1A1A1A1A1A1A1A1A02030405011A1A1A1A1A1A1A1A1A0203080B
|
||||||
|
0B07010303030303031A1A1A030C0C0C0A09010E1F323B3B031A1A1A030C0C10
|
||||||
|
0F0D01181818183B031A1A1A03111114151201181818183B031A1A1A03161616
|
||||||
|
201301181717173B031A1A1A0326222D3E1D01171700003B031A1A1A03262337
|
||||||
|
3F1E013C3A3A3A3B031A1A1A03272B282A19013C3D3D3D3B031A1A1A03273031
|
||||||
|
2921013C3D3D3D3B031A1A1A032734352F24013C3D3D3D3B031A1A1A03273338
|
||||||
|
3625013C3D3D3D3B031A1A1A03032E33392C013C3D3D3D3B031A1A1A1A1A0306
|
||||||
|
1B1C010303030303031A1A1A1A1A1A1A0303011A1A1A1A1A1A1A}
|
||||||
|
end
|
||||||
|
object ScrollBox1: TScrollBox
|
||||||
|
Left = 16
|
||||||
|
Top = 216
|
||||||
|
Width = 505
|
||||||
|
Height = 233
|
||||||
|
TabOrder = 8
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 16
|
||||||
|
Width = 31
|
||||||
|
Height = 13
|
||||||
|
Caption = 'IdUser'
|
||||||
|
FocusControl = edID
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 56
|
||||||
|
Width = 28
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Nome'
|
||||||
|
FocusControl = edNome
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 96
|
||||||
|
Width = 26
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Login'
|
||||||
|
FocusControl = edLogin
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 136
|
||||||
|
Width = 31
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Senha'
|
||||||
|
FocusControl = edSenha
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 176
|
||||||
|
Width = 25
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Email'
|
||||||
|
FocusControl = edEmail
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 216
|
||||||
|
Width = 54
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Privilegiado'
|
||||||
|
FocusControl = edPriv
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 256
|
||||||
|
Width = 21
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Tipo'
|
||||||
|
FocusControl = edTipo
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 296
|
||||||
|
Width = 23
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Perfil'
|
||||||
|
FocusControl = edPerfil
|
||||||
|
end
|
||||||
|
object edID: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 32
|
||||||
|
Width = 134
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCIdUser'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object edNome: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 72
|
||||||
|
Width = 394
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCUserName'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object edLogin: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 112
|
||||||
|
Width = 199
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCLogin'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object edSenha: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 152
|
||||||
|
Width = 394
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCPassword'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object edEmail: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 192
|
||||||
|
Width = 1304
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCEmail'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object edPriv: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 232
|
||||||
|
Width = 134
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCPrivileged'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object edTipo: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 272
|
||||||
|
Width = 17
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCTypeRec'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object edPerfil: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 312
|
||||||
|
Width = 134
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCProfile'
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object DBNavigator1: TDBNavigator
|
||||||
|
Left = 200
|
||||||
|
Top = 24
|
||||||
|
Width = 240
|
||||||
|
Height = 25
|
||||||
|
DataSource = DataSource1
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ADOTable1: TADOTable
|
||||||
|
Connection = Form1.ADOConnection1
|
||||||
|
CursorType = ctStatic
|
||||||
|
TableName = 'UCCTTabUsers'
|
||||||
|
Left = 104
|
||||||
|
Top = 248
|
||||||
|
object ADOTable1UCIdUser: TIntegerField
|
||||||
|
FieldName = 'UCIdUser'
|
||||||
|
end
|
||||||
|
object ADOTable1UCUserName: TWideStringField
|
||||||
|
FieldName = 'UCUserName'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object ADOTable1UCLogin: TWideStringField
|
||||||
|
FieldName = 'UCLogin'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object ADOTable1UCPassword: TWideStringField
|
||||||
|
FieldName = 'UCPassword'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object ADOTable1UCEmail: TWideStringField
|
||||||
|
FieldName = 'UCEmail'
|
||||||
|
Size = 150
|
||||||
|
end
|
||||||
|
object ADOTable1UCPrivileged: TIntegerField
|
||||||
|
FieldName = 'UCPrivileged'
|
||||||
|
end
|
||||||
|
object ADOTable1UCTypeRec: TWideStringField
|
||||||
|
FieldName = 'UCTypeRec'
|
||||||
|
FixedChar = True
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object ADOTable1UCProfile: TIntegerField
|
||||||
|
FieldName = 'UCProfile'
|
||||||
|
end
|
||||||
|
object ADOTable1UCKey: TWideStringField
|
||||||
|
FieldName = 'UCKey'
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = ADOTable1
|
||||||
|
Left = 136
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
object UCControls1: TUCControls
|
||||||
|
GroupName = 'Formul'#225'rio 2'
|
||||||
|
UserControl = Form1.UserControl1
|
||||||
|
NotAllowed = naInvisible
|
||||||
|
Left = 40
|
||||||
|
Top = 160
|
||||||
|
end
|
||||||
|
end
|
||||||
93
internal/2.20/2/Demos/2 UCControls - ADO/form2_U.pas
Normal file
93
internal/2.20/2/Demos/2 UCControls - ADO/form2_U.pas
Normal file
@ -0,0 +1,93 @@
|
|||||||
|
unit form2_U;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF VER130}
|
||||||
|
{$ELSE}
|
||||||
|
Variants,
|
||||||
|
{$ENDIF}
|
||||||
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB, DBCtrls, Mask, UCBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm2 = class(TForm)
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label1: TLabel;
|
||||||
|
Edit1: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
Edit2: TEdit;
|
||||||
|
RadioButton1: TRadioButton;
|
||||||
|
RadioButton2: TRadioButton;
|
||||||
|
RadioButton3: TRadioButton;
|
||||||
|
CheckBox1: TCheckBox;
|
||||||
|
CheckBox2: TCheckBox;
|
||||||
|
Memo1: TMemo;
|
||||||
|
BitBtn1: TBitBtn;
|
||||||
|
BitBtn2: TBitBtn;
|
||||||
|
BitBtn3: TBitBtn;
|
||||||
|
BitBtn4: TBitBtn;
|
||||||
|
ADOTable1: TADOTable;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
ScrollBox1: TScrollBox;
|
||||||
|
Label3: TLabel;
|
||||||
|
edID: TDBEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
edNome: TDBEdit;
|
||||||
|
Label5: TLabel;
|
||||||
|
edLogin: TDBEdit;
|
||||||
|
Label6: TLabel;
|
||||||
|
edSenha: TDBEdit;
|
||||||
|
Label7: TLabel;
|
||||||
|
edEmail: TDBEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
edPriv: TDBEdit;
|
||||||
|
Label9: TLabel;
|
||||||
|
edTipo: TDBEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
edPerfil: TDBEdit;
|
||||||
|
DBNavigator1: TDBNavigator;
|
||||||
|
UCControls1: TUCControls;
|
||||||
|
ADOTable1UCIdUser: TIntegerField;
|
||||||
|
ADOTable1UCUserName: TWideStringField;
|
||||||
|
ADOTable1UCLogin: TWideStringField;
|
||||||
|
ADOTable1UCPassword: TWideStringField;
|
||||||
|
ADOTable1UCEmail: TWideStringField;
|
||||||
|
ADOTable1UCPrivileged: TIntegerField;
|
||||||
|
ADOTable1UCTypeRec: TWideStringField;
|
||||||
|
ADOTable1UCProfile: TIntegerField;
|
||||||
|
ADOTable1UCKey: TWideStringField;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure BitBtn4Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form2: TForm2;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses ucontrols;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.BitBtn4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ADOTable1.Open;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
internal/2.20/2/Demos/2 UCControls - ADO/ucontrols.ddp
Normal file
BIN
internal/2.20/2/Demos/2 UCControls - ADO/ucontrols.ddp
Normal file
Binary file not shown.
2007
internal/2.20/2/Demos/2 UCControls - ADO/ucontrols.dfm
Normal file
2007
internal/2.20/2/Demos/2 UCControls - ADO/ucontrols.dfm
Normal file
File diff suppressed because it is too large
Load Diff
229
internal/2.20/2/Demos/2 UCControls - ADO/ucontrols.pas
Normal file
229
internal/2.20/2/Demos/2 UCControls - ADO/ucontrols.pas
Normal file
@ -0,0 +1,229 @@
|
|||||||
|
unit ucontrols;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF VER130}
|
||||||
|
{$ELSE}
|
||||||
|
Variants,
|
||||||
|
{$ENDIF}
|
||||||
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, Menus, DB, ActnList, StdCtrls, AppEvnts, ADODB, ComCtrls, Buttons,
|
||||||
|
UCBase, UCADOConn, UCXPStyle;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
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;
|
||||||
|
rocarsenha1: TMenuItem;
|
||||||
|
ActionList1: TActionList;
|
||||||
|
Action1: TAction;
|
||||||
|
Action2: TAction;
|
||||||
|
Action3: TAction;
|
||||||
|
Action4: TAction;
|
||||||
|
Action5: TAction;
|
||||||
|
Action6: TAction;
|
||||||
|
Action7: TAction;
|
||||||
|
Action8: TAction;
|
||||||
|
Action9: TAction;
|
||||||
|
N7: TMenuItem;
|
||||||
|
EfetuarLogoff1: TMenuItem;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
Perfildeusurios1: TMenuItem;
|
||||||
|
logdosistema: TMenuItem;
|
||||||
|
ADOQuery1: TADOQuery;
|
||||||
|
ApplicationEvents1: TApplicationEvents;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
GroupBox4: TGroupBox;
|
||||||
|
EditErro: TEdit;
|
||||||
|
GroupBox5: TGroupBox;
|
||||||
|
EditLog: TEdit;
|
||||||
|
cbNivel: TComboBox;
|
||||||
|
BitBtn1: TBitBtn;
|
||||||
|
BitBtn2: TBitBtn;
|
||||||
|
PageControl1: TPageControl;
|
||||||
|
TabSheet1: TTabSheet;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
GroupBox2: TGroupBox;
|
||||||
|
Button4: TButton;
|
||||||
|
Button5: TButton;
|
||||||
|
Button6: TButton;
|
||||||
|
GroupBox3: TGroupBox;
|
||||||
|
Button7: TButton;
|
||||||
|
Button8: TButton;
|
||||||
|
Button9: TButton;
|
||||||
|
UCSettings1: TUCSettings;
|
||||||
|
BitBtn3: TBitBtn;
|
||||||
|
UCADOConn1: TUCADOConn;
|
||||||
|
UserControl1: TUserControl;
|
||||||
|
UCXPStyle1: TUCXPStyle;
|
||||||
|
procedure EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
procedure ADOUserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
procedure ADOUserControl1LoginSucess(Sender: TObject; IdUser: Integer;
|
||||||
|
Usuario, Nome, Senha, Email: String; Privilegiado: Boolean);
|
||||||
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
procedure Button10Click(Sender: TObject);
|
||||||
|
procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
|
||||||
|
procedure BitBtn1Click(Sender: TObject);
|
||||||
|
procedure BitBtn2Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure ADOUserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure BitBtn3Click(Sender: TObject);
|
||||||
|
procedure Action1Execute(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses form2_U;
|
||||||
|
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Logoff;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(Format('Erro de login do usuário: "%s" senha: "%s"',[Usuario, Senha]),0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1LoginSucess(Sender: TObject;
|
||||||
|
IdUser: Integer; Usuario, Nome, Senha, Email: String;
|
||||||
|
Privilegiado: Boolean);
|
||||||
|
var
|
||||||
|
LastLogin : TDateTime;
|
||||||
|
StrData : String;
|
||||||
|
begin
|
||||||
|
//Pesquisar ultimo login do usuario
|
||||||
|
ADOQuery1.Close;
|
||||||
|
ADOQuery1.SQL.Text := 'Select Max(Data) as Data from ' + UserControl1.LogControl.TableLog +
|
||||||
|
' where IdUser = ' + IntToStr(IdUser) +
|
||||||
|
' and MSG like ' + QuotedStr('Entrada no sistema%');
|
||||||
|
ADOQuery1.Open;
|
||||||
|
StrData := ADOQuery1.FieldByName('data').asString;
|
||||||
|
if StrData <> '' then begin
|
||||||
|
LastLogin := EncodeDate( StrToInt(Copy(StrData,1,4)), StrToInt(Copy(StrData,5,2)), StrToInt(Copy(StrData,7,2)) ) +
|
||||||
|
EncodeTime( StrToInt(Copy(StrData,9,2)), StrToInt(Copy(StrData,11,2)), StrToInt(Copy(StrData,13,2)),0);
|
||||||
|
MessageDlg('Seu último Login foi em '+ FormatDateTime('DD/MM/YYYY', LastLogin)+' '+ FormatDateTime('hh:mm', LastLogin), mtInformation, [mbOK], 0);
|
||||||
|
end else MessageDlg('Bem vindo!'+#13+#10+'Este é seu primeiro Login no sistema.', mtInformation, [mbOK], 0);
|
||||||
|
|
||||||
|
ADOQuery1.Close;
|
||||||
|
|
||||||
|
// Logar este login do usuario
|
||||||
|
UserControl1.Log(Format('Entrada no sistema usuário: "%s" nome: "%s"',[Usuario, Nome]),0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Sistema encerrado.',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button10Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
raise Exception.Create('');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
|
||||||
|
E: Exception);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(E.Message,3);
|
||||||
|
beep;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(EditLog.Text, cbNivel.ItemIndex);
|
||||||
|
MessageDlg('Log adicionado', mtInformation, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
raise Exception.Create(EditErro.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cbNivel.ItemIndex := 0;
|
||||||
|
ADOConnection1.Connected := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Efetuado Logoff',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Form1.Height := 434;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Form2 := TForm2.Create(Application);
|
||||||
|
Form2.ShowModal;
|
||||||
|
FreeAndNil(Form2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Action1Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MessageBox(handle, 'Teste', 'Action onExecute', MB_ICONINFORMATION or MB_OK);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
13
internal/2.20/2/Demos/3 Mail Demo - ADO/ADODemo.dpr
Normal file
13
internal/2.20/2/Demos/3 Mail Demo - ADO/ADODemo.dpr
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
program ADODemo;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
uadodemo in 'uadodemo.pas' {Form1};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
BIN
internal/2.20/2/Demos/3 Mail Demo - ADO/ADODemo.res
Normal file
BIN
internal/2.20/2/Demos/3 Mail Demo - ADO/ADODemo.res
Normal file
Binary file not shown.
BIN
internal/2.20/2/Demos/3 Mail Demo - ADO/uadodemo.ddp
Normal file
BIN
internal/2.20/2/Demos/3 Mail Demo - ADO/uadodemo.ddp
Normal file
Binary file not shown.
1701
internal/2.20/2/Demos/3 Mail Demo - ADO/uadodemo.dfm
Normal file
1701
internal/2.20/2/Demos/3 Mail Demo - ADO/uadodemo.dfm
Normal file
File diff suppressed because it is too large
Load Diff
120
internal/2.20/2/Demos/3 Mail Demo - ADO/uadodemo.pas
Normal file
120
internal/2.20/2/Demos/3 Mail Demo - ADO/uadodemo.pas
Normal file
@ -0,0 +1,120 @@
|
|||||||
|
unit uadodemo;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, Menus, DB, ActnList, StdCtrls, ADODB, UCMail, UCBase, UCADOConn,
|
||||||
|
UCXPStyle;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
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;
|
||||||
|
rocarsenha1: TMenuItem;
|
||||||
|
ActionList1: TActionList;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
GroupBox2: TGroupBox;
|
||||||
|
Button4: TButton;
|
||||||
|
Button5: TButton;
|
||||||
|
Button6: TButton;
|
||||||
|
GroupBox3: TGroupBox;
|
||||||
|
Button7: TButton;
|
||||||
|
Button8: TButton;
|
||||||
|
Button9: TButton;
|
||||||
|
Action1: TAction;
|
||||||
|
Action2: TAction;
|
||||||
|
Action3: TAction;
|
||||||
|
Action4: TAction;
|
||||||
|
Action5: TAction;
|
||||||
|
Action6: TAction;
|
||||||
|
Action7: TAction;
|
||||||
|
Action8: TAction;
|
||||||
|
Action9: TAction;
|
||||||
|
N7: TMenuItem;
|
||||||
|
EfetuarLogoff1: TMenuItem;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
Perfildeusurios1: TMenuItem;
|
||||||
|
MailUserControl1: TMailUserControl;
|
||||||
|
LogdoSistema1: TMenuItem;
|
||||||
|
N8: TMenuItem;
|
||||||
|
UCSettings1: TUCSettings;
|
||||||
|
UCADOConn1: TUCADOConn;
|
||||||
|
UserControl1: TUserControl;
|
||||||
|
UCXPStyle1: TUCXPStyle;
|
||||||
|
procedure Action1Execute(Sender: TObject);
|
||||||
|
procedure EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.Action1Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MessageDlg('Teste', mtInformation, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Logoff;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ADOConnection1.Connected := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
13
internal/2.20/2/Demos/4 AppMessages - ADO/ADODemo.dpr
Normal file
13
internal/2.20/2/Demos/4 AppMessages - ADO/ADODemo.dpr
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
program ADODemo;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
uadodemo in 'uadodemo.pas' {Form1};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
BIN
internal/2.20/2/Demos/4 AppMessages - ADO/ADODemo.res
Normal file
BIN
internal/2.20/2/Demos/4 AppMessages - ADO/ADODemo.res
Normal file
Binary file not shown.
BIN
internal/2.20/2/Demos/4 AppMessages - ADO/uadodemo.ddp
Normal file
BIN
internal/2.20/2/Demos/4 AppMessages - ADO/uadodemo.ddp
Normal file
Binary file not shown.
1581
internal/2.20/2/Demos/4 AppMessages - ADO/uadodemo.dfm
Normal file
1581
internal/2.20/2/Demos/4 AppMessages - ADO/uadodemo.dfm
Normal file
File diff suppressed because it is too large
Load Diff
139
internal/2.20/2/Demos/4 AppMessages - ADO/uadodemo.pas
Normal file
139
internal/2.20/2/Demos/4 AppMessages - ADO/uadodemo.pas
Normal file
@ -0,0 +1,139 @@
|
|||||||
|
unit uadodemo;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF VER130}
|
||||||
|
{$ELSE}
|
||||||
|
Variants,
|
||||||
|
{$ENDIF}
|
||||||
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, Menus, DB, ActnList, StdCtrls, AppEvnts, ADODB, ComCtrls, Buttons,
|
||||||
|
UCBase, UCADOConn;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
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;
|
||||||
|
rocarsenha1: TMenuItem;
|
||||||
|
N7: TMenuItem;
|
||||||
|
EfetuarLogoff1: TMenuItem;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
Perfildeusurios1: TMenuItem;
|
||||||
|
logdosistema: TMenuItem;
|
||||||
|
UCAppMessage1: TUCAppMessage;
|
||||||
|
UCSettings1: TUCSettings;
|
||||||
|
BitBtn1: TBitBtn;
|
||||||
|
BitBtn2: TBitBtn;
|
||||||
|
UCADOConn1: TUCADOConn;
|
||||||
|
UserControl1: TUserControl;
|
||||||
|
procedure EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
procedure ADOUserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
procedure ADOUserControl1LoginSucess(Sender: TObject; IdUser: Integer;
|
||||||
|
Usuario, Nome, Senha, Email: String; Privilegiado: Boolean);
|
||||||
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
procedure ADOUserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
procedure BitBtn1Click(Sender: TObject);
|
||||||
|
procedure BitBtn2Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Logoff;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
begin
|
||||||
|
Usercontrol1.Log(Format('Erro de login do usuário: "%s" senha: "%s"',[Usuario, Senha]),0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1LoginSucess(Sender: TObject;
|
||||||
|
IdUser: Integer; Usuario, Nome, Senha, Email: String;
|
||||||
|
Privilegiado: Boolean);
|
||||||
|
begin
|
||||||
|
Usercontrol1.Log(Format('Entrada no sistema usuário: "%s" nome: "%s"',[Usuario, Nome]),0);
|
||||||
|
UCAppMessage1.CheckMessages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Sistema encerrado.',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Efetuado Logoff',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UCAppMessage1.ShowMessages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UCAppMessage1.CheckMessages;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ADOConnection1.Connected := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,60 @@
|
|||||||
|
object DataModule1: TDataModule1
|
||||||
|
OldCreateOrder = False
|
||||||
|
Left = 428
|
||||||
|
Top = 485
|
||||||
|
Height = 150
|
||||||
|
Width = 272
|
||||||
|
object ADOTable1: TADOTable
|
||||||
|
Connection = Form1.ADOConnection1
|
||||||
|
CursorType = ctStatic
|
||||||
|
TableName = 'UCCTDMTabUsers'
|
||||||
|
Left = 24
|
||||||
|
Top = 16
|
||||||
|
object ADOTable1UCIdUser: TIntegerField
|
||||||
|
FieldName = 'UCIdUser'
|
||||||
|
end
|
||||||
|
object ADOTable1UCUserName: TWideStringField
|
||||||
|
FieldName = 'UCUserName'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object ADOTable1UCLogin: TWideStringField
|
||||||
|
FieldName = 'UCLogin'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object ADOTable1UCPassword: TWideStringField
|
||||||
|
FieldName = 'UCPassword'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object ADOTable1UCEmail: TWideStringField
|
||||||
|
FieldName = 'UCEmail'
|
||||||
|
Size = 150
|
||||||
|
end
|
||||||
|
object ADOTable1UCPrivileged: TIntegerField
|
||||||
|
FieldName = 'UCPrivileged'
|
||||||
|
end
|
||||||
|
object ADOTable1UCTypeRec: TWideStringField
|
||||||
|
FieldName = 'UCTypeRec'
|
||||||
|
FixedChar = True
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object ADOTable1UCProfile: TIntegerField
|
||||||
|
FieldName = 'UCProfile'
|
||||||
|
end
|
||||||
|
object ADOTable1UCKey: TWideStringField
|
||||||
|
FieldName = 'UCKey'
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = ADOTable1
|
||||||
|
Left = 96
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object UCControls1: TUCControls
|
||||||
|
GroupName = 'Campos de Tabela'
|
||||||
|
UserControl = Form1.UserControl1
|
||||||
|
NotAllowed = naInvisible
|
||||||
|
Left = 176
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,37 @@
|
|||||||
|
unit DataM_U;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, DB, ADODB, UCBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
TDataModule1 = class(TDataModule)
|
||||||
|
ADOTable1: TADOTable;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
UCControls1: TUCControls;
|
||||||
|
ADOTable1UCIdUser: TIntegerField;
|
||||||
|
ADOTable1UCUserName: TWideStringField;
|
||||||
|
ADOTable1UCLogin: TWideStringField;
|
||||||
|
ADOTable1UCPassword: TWideStringField;
|
||||||
|
ADOTable1UCEmail: TWideStringField;
|
||||||
|
ADOTable1UCPrivileged: TIntegerField;
|
||||||
|
ADOTable1UCTypeRec: TWideStringField;
|
||||||
|
ADOTable1UCProfile: TIntegerField;
|
||||||
|
ADOTable1UCKey: TWideStringField;
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
DataModule1: TDataModule1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses ucontrols;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,16 @@
|
|||||||
|
program UCControlsDemo;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
ucontrols in 'ucontrols.pas' {Form1},
|
||||||
|
form2_U in 'form2_U.pas' {Form2},
|
||||||
|
DataM_U in 'DataM_U.pas' {DataModule1: TDataModule};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.CreateForm(TDataModule1, DataModule1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
Binary file not shown.
@ -0,0 +1,468 @@
|
|||||||
|
object Form2: TForm2
|
||||||
|
Left = 310
|
||||||
|
Top = 155
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = 'Form2'
|
||||||
|
ClientHeight = 462
|
||||||
|
ClientWidth = 546
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poDesktopCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 24
|
||||||
|
Top = 8
|
||||||
|
Width = 513
|
||||||
|
Height = 73
|
||||||
|
TabOrder = 0
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 32
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Label1'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 216
|
||||||
|
Top = 16
|
||||||
|
Width = 32
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Label2'
|
||||||
|
end
|
||||||
|
object Edit1: TEdit
|
||||||
|
Left = 64
|
||||||
|
Top = 8
|
||||||
|
Width = 121
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Edit2: TEdit
|
||||||
|
Left = 272
|
||||||
|
Top = 8
|
||||||
|
Width = 121
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'Edit2'
|
||||||
|
end
|
||||||
|
object RadioButton1: TRadioButton
|
||||||
|
Left = 40
|
||||||
|
Top = 48
|
||||||
|
Width = 113
|
||||||
|
Height = 17
|
||||||
|
Caption = 'RadioButton1'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object RadioButton2: TRadioButton
|
||||||
|
Left = 192
|
||||||
|
Top = 48
|
||||||
|
Width = 113
|
||||||
|
Height = 17
|
||||||
|
Caption = 'RadioButton2'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object RadioButton3: TRadioButton
|
||||||
|
Left = 328
|
||||||
|
Top = 48
|
||||||
|
Width = 113
|
||||||
|
Height = 17
|
||||||
|
Caption = 'RadioButton3'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object CheckBox1: TCheckBox
|
||||||
|
Left = 32
|
||||||
|
Top = 96
|
||||||
|
Width = 97
|
||||||
|
Height = 17
|
||||||
|
Caption = 'CheckBox1'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object CheckBox2: TCheckBox
|
||||||
|
Left = 32
|
||||||
|
Top = 128
|
||||||
|
Width = 97
|
||||||
|
Height = 17
|
||||||
|
Caption = 'CheckBox2'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 152
|
||||||
|
Top = 96
|
||||||
|
Width = 385
|
||||||
|
Height = 57
|
||||||
|
Lines.Strings = (
|
||||||
|
'Memo1')
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 71
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Incluir'
|
||||||
|
TabOrder = 4
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000420B0000420B00000001000000010000B5847300AD73
|
||||||
|
8400B5848400B58C8400B5948C00D6BDB500C6C6C600EFD6C600CECECE00D6D6
|
||||||
|
D600DEDEDE00E7E7E700EFEFEF0042B5F7008CD6F700B5DEF700F7F7F700FF00
|
||||||
|
FF003184FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
|
||||||
|
1111111111111111111111111101020202020202020202020211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
13131313131313130211111112121210101010101010101002111111120D120C
|
||||||
|
0C0C0C0C0C0C0C0C02111212120D1212120B0B0B0B0004030211120E0F0F0F0E
|
||||||
|
120A0A0A0600131302111212120F1212120909090600130211111111120F1208
|
||||||
|
0808080806000211111111111212120707070707050011111111}
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 185
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Alterar'
|
||||||
|
TabOrder = 5
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000420B0000420B000000010000000100002D2D2D001855
|
||||||
|
6F004544420058534E005160610054777B007C707800B56D3E00CE630000C171
|
||||||
|
3500C07638008A5B5200947E7500AD7B7300EFA65A00EDA75F00F0A85C000000
|
||||||
|
9A000316AC0041749600477AA9000018C6001029D600106BFF00FF00FF0035A8
|
||||||
|
F5004A9EED006D8AFD009B9B9B009891A200AAAAAA00ADB5BD00F1BC8600F8C2
|
||||||
|
8C00F9C48D00F7D6AD00FBD3A900FFD6AD00BDC6C600FFE7C600FFEFD600FFF7
|
||||||
|
E700FFFFF700FFFFFF0000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000181818181818
|
||||||
|
181818181818181818181808080808080808080808080808080818082B2B2A29
|
||||||
|
2827252523252525250818082B2626262626262626262626250818082B2B0003
|
||||||
|
1E29272725252325250818082B260302041C262626262626250818082B2B2B05
|
||||||
|
14010B1E27272525250818082B262605130C090B1C26261F250818082B2B2B2B
|
||||||
|
0620100A0B1E2725250818082B2626260D24220E0A0B1C26250818082B2B2B2B
|
||||||
|
2B0D242210090B1E250818082B2B2B2B2B2B0D24210F070B1C08180808080808
|
||||||
|
0808080D241D19121108181808080808080808080D1A16161211181818181818
|
||||||
|
1818181818151B17161818181818181818181818181815151818}
|
||||||
|
end
|
||||||
|
object BitBtn3: TBitBtn
|
||||||
|
Left = 300
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Excluir'
|
||||||
|
TabOrder = 6
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000220B0000220B000000010000000100000031DE000031
|
||||||
|
E7000031EF000031F700FF00FF000031FF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00040404040404
|
||||||
|
0404040404040404000004000004040404040404040404000004040000000404
|
||||||
|
0404040404040000040404000000000404040404040000040404040402000000
|
||||||
|
0404040400000404040404040404000000040000000404040404040404040400
|
||||||
|
0101010004040404040404040404040401010204040404040404040404040400
|
||||||
|
0201020304040404040404040404030201040403030404040404040404050203
|
||||||
|
0404040405030404040404040303050404040404040303040404040303030404
|
||||||
|
0404040404040403040403030304040404040404040404040404030304040404
|
||||||
|
0404040404040404040404040404040404040404040404040404}
|
||||||
|
end
|
||||||
|
object BitBtn4: TBitBtn
|
||||||
|
Left = 415
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = '&Fechar'
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = BitBtn4Click
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000220B0000220B00000001000000010000006400004242
|
||||||
|
42008C6363009A666600B9666600BB686800B0717200C3686900C66A6B00C76A
|
||||||
|
6D00CF6C6E00D2686900D16D6E00CC6E7100C0797A00D2707200D4707100D572
|
||||||
|
7300D0727500D3747600D9757600D8767700E37D7E000080000000960000DC7F
|
||||||
|
8000FF00FF00D7868700DA888800D8888A00DA888A00DF898A00E6808100E085
|
||||||
|
8500E9818200EE868700E3888900E78C8D00F0878800F18B8C00F28B8C00F18D
|
||||||
|
8E00F48C8D00F48E8F00EB8F9000EC969700E49A9800F3919200F7909100F791
|
||||||
|
9200F2939400F9909200F9949500FA949500F9969700F0999A00FC999A00FF9D
|
||||||
|
9E00F7B58400F5A7A500FACCAA00FBD6BB00FADCDC00FFFFFF00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000001A1A1A1A1A1A
|
||||||
|
1A02011A1A1A1A1A1A1A1A1A1A1A02030405011A1A1A1A1A1A1A1A1A0203080B
|
||||||
|
0B07010303030303031A1A1A030C0C0C0A09010E1F323B3B031A1A1A030C0C10
|
||||||
|
0F0D01181818183B031A1A1A03111114151201181818183B031A1A1A03161616
|
||||||
|
201301181717173B031A1A1A0326222D3E1D01171700003B031A1A1A03262337
|
||||||
|
3F1E013C3A3A3A3B031A1A1A03272B282A19013C3D3D3D3B031A1A1A03273031
|
||||||
|
2921013C3D3D3D3B031A1A1A032734352F24013C3D3D3D3B031A1A1A03273338
|
||||||
|
3625013C3D3D3D3B031A1A1A03032E33392C013C3D3D3D3B031A1A1A1A1A0306
|
||||||
|
1B1C010303030303031A1A1A1A1A1A1A0303011A1A1A1A1A1A1A}
|
||||||
|
end
|
||||||
|
object ScrollBox1: TScrollBox
|
||||||
|
Left = 16
|
||||||
|
Top = 216
|
||||||
|
Width = 505
|
||||||
|
Height = 233
|
||||||
|
TabOrder = 8
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 16
|
||||||
|
Width = 31
|
||||||
|
Height = 13
|
||||||
|
Caption = 'IdUser'
|
||||||
|
FocusControl = EdUserID
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 56
|
||||||
|
Width = 28
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Nome'
|
||||||
|
FocusControl = edNome
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 96
|
||||||
|
Width = 26
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Login'
|
||||||
|
FocusControl = edLogin
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 136
|
||||||
|
Width = 31
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Senha'
|
||||||
|
FocusControl = edSenha
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 176
|
||||||
|
Width = 25
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Email'
|
||||||
|
FocusControl = edEmail
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 216
|
||||||
|
Width = 54
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Privilegiado'
|
||||||
|
FocusControl = edPriv
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 256
|
||||||
|
Width = 21
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Tipo'
|
||||||
|
FocusControl = edTipo
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 296
|
||||||
|
Width = 23
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Perfil'
|
||||||
|
FocusControl = edPerfil
|
||||||
|
end
|
||||||
|
object EdUserID: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 32
|
||||||
|
Width = 134
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCIdUser'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object edNome: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 72
|
||||||
|
Width = 394
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCUserName'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object edLogin: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 112
|
||||||
|
Width = 199
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCLogin'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object edSenha: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 152
|
||||||
|
Width = 394
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCPassword'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object edEmail: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 192
|
||||||
|
Width = 1304
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCEmail'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object edPriv: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 232
|
||||||
|
Width = 134
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCPrivileged'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object edTipo: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 272
|
||||||
|
Width = 17
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCTypeRec'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object edPerfil: TDBEdit
|
||||||
|
Left = 24
|
||||||
|
Top = 312
|
||||||
|
Width = 134
|
||||||
|
Height = 21
|
||||||
|
DataField = 'UCProfile'
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object DBNavigator1: TDBNavigator
|
||||||
|
Left = 200
|
||||||
|
Top = 24
|
||||||
|
Width = 240
|
||||||
|
Height = 25
|
||||||
|
DataSource = DataModule1.DataSource1
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object UCControls1: TUCControls
|
||||||
|
GroupName = 'Formul'#225'rio 2'
|
||||||
|
UserControl = Form1.UserControl1
|
||||||
|
NotAllowed = naInvisible
|
||||||
|
Left = 40
|
||||||
|
Top = 160
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,73 @@
|
|||||||
|
unit form2_U;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB, DBCtrls, Mask,
|
||||||
|
UCBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm2 = class(TForm)
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label1: TLabel;
|
||||||
|
Edit1: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
Edit2: TEdit;
|
||||||
|
RadioButton1: TRadioButton;
|
||||||
|
RadioButton2: TRadioButton;
|
||||||
|
RadioButton3: TRadioButton;
|
||||||
|
CheckBox1: TCheckBox;
|
||||||
|
CheckBox2: TCheckBox;
|
||||||
|
Memo1: TMemo;
|
||||||
|
BitBtn1: TBitBtn;
|
||||||
|
BitBtn2: TBitBtn;
|
||||||
|
BitBtn3: TBitBtn;
|
||||||
|
BitBtn4: TBitBtn;
|
||||||
|
UCControls1: TUCControls;
|
||||||
|
ScrollBox1: TScrollBox;
|
||||||
|
Label3: TLabel;
|
||||||
|
EdUserID: TDBEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
edNome: TDBEdit;
|
||||||
|
Label5: TLabel;
|
||||||
|
edLogin: TDBEdit;
|
||||||
|
Label6: TLabel;
|
||||||
|
edSenha: TDBEdit;
|
||||||
|
Label7: TLabel;
|
||||||
|
edEmail: TDBEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
edPriv: TDBEdit;
|
||||||
|
Label9: TLabel;
|
||||||
|
edTipo: TDBEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
edPerfil: TDBEdit;
|
||||||
|
DBNavigator1: TDBNavigator;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure BitBtn4Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form2: TForm2;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses ucontrols, DataM_U;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.BitBtn4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,240 @@
|
|||||||
|
unit ucontrols;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF VER130}
|
||||||
|
{$ELSE}
|
||||||
|
Variants,
|
||||||
|
{$ENDIF}
|
||||||
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, Menus, DB, ActnList, StdCtrls, AppEvnts, ADODB, ComCtrls, Buttons,
|
||||||
|
UCBase, UCADOConn, UCXPStyle;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
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;
|
||||||
|
rocarsenha1: TMenuItem;
|
||||||
|
ActionList1: TActionList;
|
||||||
|
Action1: TAction;
|
||||||
|
Action2: TAction;
|
||||||
|
Action3: TAction;
|
||||||
|
Action4: TAction;
|
||||||
|
Action5: TAction;
|
||||||
|
Action6: TAction;
|
||||||
|
Action7: TAction;
|
||||||
|
Action8: TAction;
|
||||||
|
Action9: TAction;
|
||||||
|
N7: TMenuItem;
|
||||||
|
EfetuarLogoff1: TMenuItem;
|
||||||
|
Perfildeusurios1: TMenuItem;
|
||||||
|
logdosistema: TMenuItem;
|
||||||
|
ADOQuery1: TADOQuery;
|
||||||
|
ApplicationEvents1: TApplicationEvents;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
GroupBox4: TGroupBox;
|
||||||
|
EditErro: TEdit;
|
||||||
|
GroupBox5: TGroupBox;
|
||||||
|
EditLog: TEdit;
|
||||||
|
cbNivel: TComboBox;
|
||||||
|
BitBtn1: TBitBtn;
|
||||||
|
BitBtn2: TBitBtn;
|
||||||
|
PageControl1: TPageControl;
|
||||||
|
TabSheet1: TTabSheet;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
GroupBox2: TGroupBox;
|
||||||
|
Button4: TButton;
|
||||||
|
Button5: TButton;
|
||||||
|
Button6: TButton;
|
||||||
|
GroupBox3: TGroupBox;
|
||||||
|
Button7: TButton;
|
||||||
|
Button8: TButton;
|
||||||
|
Button9: TButton;
|
||||||
|
UCSettings1: TUCSettings;
|
||||||
|
BitBtn3: TBitBtn;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
UCADOConn1: TUCADOConn;
|
||||||
|
UserControl1: TUserControl;
|
||||||
|
UCXPStyle1: TUCXPStyle;
|
||||||
|
procedure Action1Execute(Sender: TObject);
|
||||||
|
procedure EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
procedure UserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
procedure UserControl1LoginSucess(Sender: TObject; IdUser: Integer;
|
||||||
|
Usuario, Nome, Senha, Email: String; Privilegiado: Boolean);
|
||||||
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
procedure Button10Click(Sender: TObject);
|
||||||
|
procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
|
||||||
|
procedure BitBtn1Click(Sender: TObject);
|
||||||
|
procedure BitBtn2Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure UserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure BitBtn3Click(Sender: TObject);
|
||||||
|
procedure UserControl1Login(Sender: TObject; var User,
|
||||||
|
Password: String);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses form2_U, DataM_U;
|
||||||
|
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.Action1Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MessageDlg('Teste', mtInformation, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Logoff;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.UserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(Format('Erro de login do usuário: "%s" senha: "%s"',[Usuario, Senha]),0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.UserControl1LoginSucess(Sender: TObject;
|
||||||
|
IdUser: Integer; Usuario, Nome, Senha, Email: String;
|
||||||
|
Privilegiado: Boolean);
|
||||||
|
var
|
||||||
|
LastLogin : TDateTime;
|
||||||
|
StrData : String;
|
||||||
|
begin
|
||||||
|
//Pesquisar ultimo login do usuario
|
||||||
|
ADOQuery1.Close;
|
||||||
|
ADOQuery1.SQL.Text := 'Select Max(Data) as Data from ' + UserControl1.LogControl.TableLog +
|
||||||
|
' where IdUser = ' + IntToStr(IdUser) +
|
||||||
|
' and MSG like ' + QuotedStr('Entrada no sistema%');
|
||||||
|
ADOQuery1.Open;
|
||||||
|
StrData := ADOQuery1.FieldByName('data').asString;
|
||||||
|
if StrData <> '' then begin
|
||||||
|
LastLogin := EncodeDate( StrToInt(Copy(StrData,1,4)), StrToInt(Copy(StrData,5,2)), StrToInt(Copy(StrData,7,2)) ) +
|
||||||
|
EncodeTime( StrToInt(Copy(StrData,9,2)), StrToInt(Copy(StrData,11,2)), StrToInt(Copy(StrData,13,2)),0);
|
||||||
|
MessageDlg('Seu último Login foi em '+ FormatDateTime('DD/MM/YYYY', LastLogin)+' '+ FormatDateTime('hh:mm', LastLogin), mtInformation, [mbOK], 0);
|
||||||
|
end else MessageDlg('Bem vindo!'+#13+#10+'Este é seu primeiro Login no sistema.', mtInformation, [mbOK], 0);
|
||||||
|
|
||||||
|
ADOQuery1.Close;
|
||||||
|
|
||||||
|
// Logar este login do usuario
|
||||||
|
UserControl1.Log(Format('Entrada no sistema usuário: "%s" nome: "%s"',[Usuario, Nome]),0);
|
||||||
|
|
||||||
|
if Assigned(DataModule1) then DataModule1.UCControls1.ApplyRights; // reaplica as permissoes no datamodule
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Sistema encerrado.',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button10Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
raise Exception.Create('');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
|
||||||
|
E: Exception);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(E.Message,3);
|
||||||
|
beep;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(EditLog.Text, cbNivel.ItemIndex);
|
||||||
|
MessageDlg('Log adicionado', mtInformation, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
raise Exception.Create(EditErro.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cbNivel.ItemIndex := 0;
|
||||||
|
ADOConnection1.Connected := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.UserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Efetuado Logoff',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Form1.Height := 434;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Form2 := TForm2.Create(Application);
|
||||||
|
Form2.ShowModal;
|
||||||
|
FreeAndNil(Form2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.UserControl1Login(Sender: TObject; var User,
|
||||||
|
Password: String);
|
||||||
|
begin
|
||||||
|
DataModule1.ADOTable1.Open;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
15
internal/2.20/2/Demos/6 CustomLoginForm - ADO/ADODemo.dpr
Normal file
15
internal/2.20/2/Demos/6 CustomLoginForm - ADO/ADODemo.dpr
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
program ADODemo;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
uadodemo in 'uadodemo.pas' {Form1},
|
||||||
|
Unit2 in 'Unit2.pas' {Form2};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.CreateForm(TForm2, Form2);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
BIN
internal/2.20/2/Demos/6 CustomLoginForm - ADO/ADODemo.res
Normal file
BIN
internal/2.20/2/Demos/6 CustomLoginForm - ADO/ADODemo.res
Normal file
Binary file not shown.
BIN
internal/2.20/2/Demos/6 CustomLoginForm - ADO/Unit2.ddp
Normal file
BIN
internal/2.20/2/Demos/6 CustomLoginForm - ADO/Unit2.ddp
Normal file
Binary file not shown.
518
internal/2.20/2/Demos/6 CustomLoginForm - ADO/Unit2.dfm
Normal file
518
internal/2.20/2/Demos/6 CustomLoginForm - ADO/Unit2.dfm
Normal file
@ -0,0 +1,518 @@
|
|||||||
|
object Form2: TForm2
|
||||||
|
Left = 268
|
||||||
|
Top = 207
|
||||||
|
Width = 411
|
||||||
|
Height = 225
|
||||||
|
Caption = 'Sample CustomLoginForm'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poDesktopCenter
|
||||||
|
OnCloseQuery = FormCloseQuery
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Image1: TImage
|
||||||
|
Left = 8
|
||||||
|
Top = 8
|
||||||
|
Width = 153
|
||||||
|
Height = 185
|
||||||
|
Picture.Data = {
|
||||||
|
0A544A504547496D616765A6260000FFD8FFE000104A46494600010200006400
|
||||||
|
640000FFFE001241646F626520496D6167655265616479FFEC00114475636B79
|
||||||
|
000100040000002E0000FFEE000E41646F62650064C000000001FFDB0084000A
|
||||||
|
07070707070A07070A0E0908090E100C0A0A0C10130F0F100F0F13120E100F0F
|
||||||
|
100E12121516171615121D1D1F1F1D1D29292929292F2F2F2F2F2F2F2F2F2F01
|
||||||
|
0A09090A0B0A0D0B0B0D100D0E0D10140E0E0E0E14170F0F110F0F171D151212
|
||||||
|
1212151D1A1C1717171C1A20201D1D202028282628282F2F2F2F2F2F2F2F2F2F
|
||||||
|
FFC000110800D4011B03012200021101031101FFC400AA000002020301000000
|
||||||
|
0000000000000000000102050304060701000105010100000000000000000000
|
||||||
|
0000010204050603071000010302050204040404040504030000010011022103
|
||||||
|
314112040551617181220691A13213B1C14214D1E15223F0F115076272923316
|
||||||
|
82A2C25354351711000103020402070604050500000000000100020311042131
|
||||||
|
4112710551618191223213A1C1D1425214B1724315F0E1F133066282C22324FF
|
||||||
|
DA000C03010002110311003F00E7016C8A2D922E10695759A4D10F2969EE4AC0
|
||||||
|
24277B544EA07039284722B63CC40F45B8E3BC7BD5E6CC92031AE4A5BABA40EF
|
||||||
|
D42C3B4D5114C82C3BA980EF2513555C00AAD5DF6E3FB24FC1545B0741273AAD
|
||||||
|
CDE48CA020335AE469808F453611B5BC4A893F89C7A82ADBE7FBD2ECC15A7136
|
||||||
|
6E5B98BB2610BB12235AD2AAAAED6F4BC55D71A4DC8C0FE9B50D3E67F92B1B4D
|
||||||
|
C6EA30DFAB1E033512FBD26F2BB8321A7FD546FE7750059B93FF00F5FB8FF93F
|
||||||
|
35C9DAF496EEBB59463721284C3C660C48F10B8A20C2ECE07104853B9A37C4C7
|
||||||
|
74823BBFAACFF2478D923350E0EEF14F72DAC2B1A3A81C6B9A60B808906554AF
|
||||||
|
29AA882D38F8AEBEDC8E889EA07E0B8F8D671F10BB1881A2207F487F82B6E57F
|
||||||
|
A9D9EF545CF328B8BBDCA5A8A7AAB5C1450AD15154AC9F74C7E82405286E6FC0
|
||||||
|
9D33945F162CB0A01485A3A2A9C1EE19388E0B686FB760D2F4FF00EA2B358E6B
|
||||||
|
92DBB8B3B99C41A9AE6B409CF0404D31B0E6D07B13C4F28383DC3B55C5BF7573
|
||||||
|
96C931DDCAB8BB1FC9658FBBF9C044BF7248150081FC15123BA61B784FE9B7B8
|
||||||
|
2E82F2E47EABFBD74D1F7D73831940BFFC2B28F7F73218E9B440C5C1AFCD729A
|
||||||
|
821FA26FDA407F4DA9FF00B85D0FD572ECE1FEE26FDFD5B6B723D890B2C3FDC4
|
||||||
|
DC0FAF6B1EED2FE4B8704BA6986C6DFE81DE53C733BAFAEBD8177F1FF706C4F1
|
||||||
|
DA17FF00982BDE1B9BB1CDC652B3B795B8DAA4A536673905E57B3DB5DDE6E6DE
|
||||||
|
DEC87B97242217AEF15C75AE33636F696F101E72EB2389506F6182100341DC7A
|
||||||
|
F20ACF97DC5C4E4B9E46C6F56656E16005180551BDE7F86B1B89ECF7B2631157
|
||||||
|
0F1AACDCE7296F8AE3EE6E091AC822D039C97946EB7973737677665E73249F12
|
||||||
|
B9DA5AFAD526A1A300474AEB7B7A2DC00002E38D0F42F471C87B4370DAA76A98
|
||||||
|
3864CC3D9F78C8EAB04CB13A99797EB383A4647AA9BFB7D3295E157FEED5CE16
|
||||||
|
15E937B8CF67DC817B969B0713C3E6A07DA5C05F8B59BD421C34C1A2F39D4426
|
||||||
|
2F5C8FD3331F02425FB3947967776A69E6509F35B37B3FA2EFEE7B0F8D9906DE
|
||||||
|
E24D9B90562FFF009F6D3FFCB38F40B881BCDD4430BD700ED33FC51FBDDD7FF6
|
||||||
|
DCFF00ACFF0014BF6D7397AE7B927DED9E7F6C2BC5544769B69CB519199E9391
|
||||||
|
2B24069BCCC033618792D936E12FA857AAD611D3B83115A86598CC1E0BD3F983
|
||||||
|
1AD89A4003C62B4E055C583A2C19E64305A5BB944559BB2D93297DA8DB8E58AD
|
||||||
|
0BD09DFBB1B511DC951DADC7155DBB03458A11FBA65222992D6BC4464415712B
|
||||||
|
31B56DB319854DBC2D33215FE6BBC2773E8B84E36C7BBBD56B6AB923DD5958DE
|
||||||
|
C36F6A36A1076A93D4AD1886AA902AF2D5A63ABF273BD815173191B386C07163
|
||||||
|
295C7370F82DF3CADCCA0150EEEBBAB93C0CCEAF8ADFC569EF6158DCF24EBB73
|
||||||
|
A48F135DA6AA3D9C51C52781B4DC28546D9A294B058ED9590870AB55A8C963B7
|
||||||
|
FF00723E2AE3F7BB966D6CCAA6CC0CAE0394715BEA7D9B9C03A848AD3255D78C
|
||||||
|
6B9CDDCD0EA573155B1FBDDCFF005A71DFEE47EA7F25AD4C93752FD47FD47BD4
|
||||||
|
33045F437B82DE8F2731F5C41F05963C9DA3F5448558FDD008C53C4F20D6BC57
|
||||||
|
2759C07E5A702AEED6EACDD2D0957A159973F1918C84A388CD591E46D8B21BFE
|
||||||
|
E1182ED1CE083BA828A1CF64E691E9D5C0E1C16D5DDC5AB23D643F45A3779299
|
||||||
|
2D6C003A9C5694E72B92339172546A4AE4F9DC7CB80F6A9315946D157F88F5E4
|
||||||
|
B60EF7724BEB528EFAF8FD5F15AD51821BE298247FD47BD773045F437B9585BE
|
||||||
|
4E4DEB8FC16D59DE59BB4074C8E455305B1B2DBCF77B986DE01CC8D4F419A7B6
|
||||||
|
778CF15C1F6711F282D3D4BD57D89C2B5BFF0057BE292A58FCE4BB532CC8A2A5
|
||||||
|
F6BC6EDAE32D58906B56869B7D48097BA798B7C5F1972227A7757C18D919D719
|
||||||
|
792AA94BE79CEA5C683A82B689ACB7B71A06B6A4F495C7FBCF9D3BFDE1D95820
|
||||||
|
EDB6E58119CB35CB92E9C8925CE25455EC31363606374599B89DD34AE7BB5380
|
||||||
|
E81D09A10862CF92E8B8A3E484248427E19248A843942160FB53341321618C25
|
||||||
|
1B843926271EAB65BAA5100C8F5758AAAF61E67844CA6AFF007159253060F215
|
||||||
|
FEAEAACB84DA5ABF391BF2F511E9199F82D295991B12D22A587C51B6D56AE088
|
||||||
|
F48CD727500558D04E15A2CFC8DB16A663463D300B9FDF9A38C5C2E8F7B284ED
|
||||||
|
B0AF52B9CDFC59C1C5C909F6847AADE299760FA0F1AD168D3328A3230F349DF1
|
||||||
|
5A25994C285FB7F72D188C710A5878A6410908A820EB8201A10468AB205A982C
|
||||||
|
E25458B710FB7788C04AA111AAAD7368483A1566C755A0F485B3B761A9EA495B
|
||||||
|
2ECEA10B06D4048D4CBD43C14C91E4A5DA3816BA9D2A2DDB0B5CDAEA13054490
|
||||||
|
E9A194951520734D0842109F7293A48AA14AA98A04936A25090A62B552A0F12A
|
||||||
|
21DBA26C4272694DDD767ED1E0EE4846EE9FEFDFFA47F4C3AAA3F6EF0D7F98DE
|
||||||
|
885BB729DBB6D29B0A760EBD638AF6E9DA4ADEE27774CE23E8865D895C279434
|
||||||
|
52B895D618CB8D6980571B5B30D8ED236C968DA8BC8F862BCBFDCBCB7FABF273
|
||||||
|
BF107ECC3FB7681A7A467E6BACF7DF337369B5871FB7998DDDC56EC8622032F3
|
||||||
|
5E7649EAEEBAF2F830333B33837DE543E6B758881BA50BBDC10E3F825DD0E50A
|
||||||
|
C9535514477C1080094212421095221084510858E77610049200EA542C5E85C9
|
||||||
|
19C0B87C5684769BCDD9D77CFDBB790CFF00E95B76AD436C630B6FA312E5C939
|
||||||
|
AC59000CEA57AFDEB9F2440EDDAC0E046EF31EC5736AE016889D0C851D3BD6A7
|
||||||
|
28DB990E455DB2592C906102CE32A2DC91372DC224FA3019D2BFC54571C1416E
|
||||||
|
042D0BF068EA91670EDD573FC8C5AE7AB1673E6BA1DCC1A25B0CA4B9FE4089CE
|
||||||
|
7305EAC0F8275B60F09B38AC6554B7C94A3515F8A44904B290A07382D2B3100F
|
||||||
|
52CB3C5091D6A39D0293B25FA909C9AB5B7D6CCAD8BC3F49F9159787D90DE5D9
|
||||||
|
133D3F680911D54AEC7EE5A943A8A0561ED7B71959DC3C7D4E03E6DD1577303B
|
||||||
|
1A5E3503BD59F2D01EF0C763425477BA44C4736208C96A01123BF7565BFB622E
|
||||||
|
7C402AB1BFC92F2E70DA51CD1BE36A7A50C546AE0A6EAC2AAB10B6F6BB09EE06
|
||||||
|
A27443227351DA6D65B99F480FA8ABA8405B8884430145221877789D968A1DD5
|
||||||
|
CECF030F8B5EA5A038AB60FAA64ACB1E3B6C3227A9256E65828E3E2A488A31F2
|
||||||
|
855EEB898FCEEECC16286CF6D0A8B63CEAA476DB693EAB513F2593E4A59512ED
|
||||||
|
6E5409A2492B5DC7B4AD3B9C6D9912604C3B64B26CB841B8DC42CEB3394C8021
|
||||||
|
11524ADA8C754AB425771EC7E0C02795BF105BD3B7FF00E5251EE1D1C4C2F205
|
||||||
|
741D6A6DA7AF34819B8EDAF889E85D1705C36DF84E3EDED2CC00936ABB202A64
|
||||||
|
7175B9BDDDDAD8EDAEEEEF52DDA8924664E402CECD9B775C1FBEF96FBB7A1C65
|
||||||
|
8B8D6ED7AAF44673C83F65510C6E9E5009CCD5C7A95D4F2B6DE12EE81468EBD1
|
||||||
|
731CAF237B93DEDDDDDFFAA6691C8446115A401380EE99A17C7AA55757ED686B
|
||||||
|
435B80028165A4717BCB9C6A49A949252219802E953A2726512455D8A68C4D10
|
||||||
|
84B34274084A911E96EE92687425AAD1DDF216ECBC63EA9F41F9AC3B2BF72F19
|
||||||
|
8BB892251CA86852E26DF1D6A5FBBE467ACC4FF6EC33D7FAA7FC15EEEF90E2F7
|
||||||
|
1B610DBDCB72BC640C40A48750B2FF006B489CE231A54762F46BAE6C659D91B4
|
||||||
|
8DBB807532C70C3A566D85C1287DB996D382B1FA22D16951FB2A9DBC58090A32
|
||||||
|
DE85C2235A6219533CF88852C0C015ABBBD728B1A80F45CFEF65EB9838BABDDC
|
||||||
|
C88AE0454BAE7F7B332917C4D4F9AED6F8B9327A062D12FA8F441AE1E4AEF63C
|
||||||
|
08DFECE1B98DDD129920C48A50B2C93F6B5F89F4DF84BC5C2D1C646C6E3A0597
|
||||||
|
92BBDD86A550397F5064DB3C95C4BDB5BF80789849F27AFCD619701C902DF69C
|
||||||
|
7570C9F5EB4CEC556FD4D3B66ADF8080B766E350CEE924766A2D59F11C8471DB
|
||||||
|
C87560EB678EB57B6E4FDC8181D408120CEA0F316175B93F49054FE56F0DB900
|
||||||
|
FCC0852E47D739066D2F866AAEE5A9DBF51FA4E12EFD175F778E89D8FEEB4810
|
||||||
|
32316772ECEA9EE6DC07888EA81FA864CA059DD08F02302ACAF6D3D61B9A710A
|
||||||
|
972592C589DFB8210065D4F45B1778EB9A81B1EA8C8B36717EAAF6CF1DFB4B71
|
||||||
|
86862C1C8CFCC2BF8364BE2046D59ABA749078769DC7B875AC1B7B30B1010800
|
||||||
|
C31591F2CD66FB2416355136A4644E27053C16E992A7735E4D4D492715871A29
|
||||||
|
08BB64B21B24508638BF6518C2598764B509BB483885121A86BD14837C3B2621
|
||||||
|
5C1F2AACB66CFDCB82152E5A890B82735849A019AB1E0786BBCAEEE36044FDBA
|
||||||
|
4AE4B2115EA7B7B16F6D66162D474DBB7111881D9557B67888F1BB08921AEDEF
|
||||||
|
5CBB0392B86EA69D551DDCE659283CADC07C568ECED84310FA9D8BBE0B5394E4
|
||||||
|
2D71BB2BBBBBA40D313A01CE4D4885E49BCBE7737E57E759DC2647CEABA3F797
|
||||||
|
3677BB93B2B047D8DB121C1FAA59CBF25CA50B9C7B2B0B0836337BBCCEFC3455
|
||||||
|
7CCEE77BFD36E2D67E2910C52FF0E986AA4594F554515C7CD2F9765201EADD94
|
||||||
|
5BE0841080D519A1B24D8A6408E6E737C115453049A9D10002EC80DE1F343B21
|
||||||
|
18247F04DC7F4A6EF8E0965E484B82AEBDC6D9B83FB67ED9ED87C169CB63B9DB
|
||||||
|
5D8DC10D718105E15C3AAB80FD3CD63BDBAB5B51AAE4989C00A951E58227035F
|
||||||
|
0F5A9B05DCED7002AFC70199561B5234986588F02B722408D497CCAABE3EFC77
|
||||||
|
16E3743B4DC5710C56EEB9C5A31F50A96CC2C54ECDB2B9B5C891DCBD0207EF89
|
||||||
|
8FA5370069C561DE1F44EB4EAB9DDD1FEE31C95FEE8CA5124D23FD39AA0DE0F5
|
||||||
|
923E6BB5B6745CEE4F86A8DBF27BDDB44DBB374C6D8C062DE0EB62DFB83918D0
|
||||||
|
DC173A190AFC9556322EE039439C060AFD9835BC02CDBC55CEE255F47DD5BB1F
|
||||||
|
55A8498369A8AF57596D7BB0B1FBB643B51A581EEB9DC73A948759164A9BDA57
|
||||||
|
536FDD7B7207DEB7289342638277B99D96FF004EDA02466660C090C305CA122A
|
||||||
|
43A9D8BD3DBDD85F049D3207C82E730DD1BDA0625A405D6076C963793835C09E
|
||||||
|
15C577966E88ED6562E0D585730CB534C672916F4E056681D5B4FBCFF5C41F88
|
||||||
|
5551DC5DB93959DBFAE4ECC3F15996349AF52D538804535592FD936CFDC81619
|
||||||
|
0E8BB3F62F23B0E4DF86E436F09DFB5094AD5D385C802E6331FD517A1E8B96DB
|
||||||
|
6B9467B7DD5B31321E8933D563D9ECEF59DF836AE9B178026CCC1D2F21938EA1
|
||||||
|
4B8272C3473E835A7428B756E2469A306ED2BD2BD56EFB5386BB232168C1F281
|
||||||
|
FC1DD9629FB3F8893811988FF4EAFD5D579FC7DC5CD6DAE4AD9DD5D84E27D40C
|
||||||
|
ABF35B36FDDFCDC0897EE492F5762FE455EB2DEE1ED0F8E60E6918104ACC4975
|
||||||
|
6F1BDD1CB0963DA68E0E685D7CFD91B191911765170444003487ECB5E5EC3B24
|
||||||
|
B7DD150DAC06FF00DB82E7BFF38E769FDE886AB68182DFB3FEE16FC0D3776D6A
|
||||||
|
65A846A8D7E29C61BE6E4EAF6A60B9E5EECDB4E216C4FD83B807D17E126218B1
|
||||||
|
14CDC765B5C67B3A7B3DE5BBDB890B96EDCB538A6A6FA5E29717EF0DE7257A16
|
||||||
|
2D6DA2664B4C07A7CD975CE748D78E7D1719A6B96782434A8522186D5F47C6DA
|
||||||
|
D0E690707490C157F37B8DC6DF6174ED604DE97A62C0967A3D16EDEB91B16E57
|
||||||
|
6E49A1006449C805CE47DF3C689CA17E172117F4188D448EE1478A37B8D5AD2E
|
||||||
|
DB985225918D147BC32B912B8DDCF0FC81D57FF6F310ABCA5121EAD9AD33B0DD
|
||||||
|
090B72B53795453239AF451EF4E06418DC91068C6068B2D9F747B7AEFA46E2DC
|
||||||
|
4E03545B3EE1588BBB868C613ED5586CAD5E6A2618F585E5F2DBCE32D2412D41
|
||||||
|
DC85136883860BD5A5CAFB6AE12277B6C6512EE44716C5D933B6F6E6E0C2E69D
|
||||||
|
B1330F0AC412FD025FDC1C3CD138261E56C27C3282BC9CDB23AF728D3203B775
|
||||||
|
EAB2F6FF0001789D56A12D752449DC7C56297B3B839068DB94730C416F074E1C
|
||||||
|
CA3D5AE4D3CA64F95ED5E59A5EA422A4F5EEBD2EEFB178AB9A6566772DCA20E2
|
||||||
|
C417CF2345AF7FD81B59C47D8DD18CC62651041F8278E6301E91D8B99E5338C8
|
||||||
|
83DABCF4C70341E091896C183AEE6EFF00B7D330D56B710D79C4FD3E456BCBFD
|
||||||
|
BFE4B49946E5A3370000480DD45324F17D6E7E7EF5CCF2DB91F257815C707069
|
||||||
|
44691D7B2EA67EC6E6A328C0421319C84E9F358BFF0009E73FFA063FD413FEEE
|
||||||
|
0CF7B7BD33EC2E72D8E5E73737FB9BBF54F4768D02C127917913E26AA27AD03F
|
||||||
|
544B07C478282E739DE624F156ED635B83406F00AE382BCE2E587F5408B91F03
|
||||||
|
42BA0C62E18BE0EB8FE3AF8DBEEEDCF004B11E345D63C4C1C020338545CC63DB
|
||||||
|
2EED1D8F6EAB41CB65DD0EDD5869D9A2C7B83AC69110017F2543BC8B97E8BA13
|
||||||
|
839A96CBB60EA977F10096C0AE36E68E5267156154F2FA8E60134EE8A9C56FEC
|
||||||
|
F656B73727F7091A58E9147583786C46E7D9DB4008C1C19753E2B451B0985B21
|
||||||
|
228460352B2D24805C3A10092D352740335AE643014EEA3955FC10E5881EAC30
|
||||||
|
087767A366913E898FE906AB6363B63B9BAD27FB50FACFE4B58B9A0A038E4BAD
|
||||||
|
F6E6E361B2D8C86E76FF0076EDD3AB510241BFA58A425CD05CD8DD26DC76B75F
|
||||||
|
E480D6BC863A56C5BB0DEE34A70AEBD0AAF75B8DFEDEC0B16E7A2D49C089180E
|
||||||
|
8B5F61CE6EB63136B8EB119DE73AEFCE2664F80C02B9E42CED6F826C0941DF48
|
||||||
|
97E807A2C36ECDBB3016AD474C4745C2CF973A50E74ECD809AD08C49E1F15DF9
|
||||||
|
87376C05ACB793D4701B4969F081F9BE0B447B87DCD1BBF72F47EFDB2DAADCAD
|
||||||
|
011A7F4E90085D159DEEDF97E3BEF5906DEE2D9AC7F542432215750F5511F76D
|
||||||
|
4FEF6DE66D5D66D4CE08E931985D6EB92B1CCAC146BC6429407AB051ECFF00C8
|
||||||
|
1ED9036E01319CDC0D5CDEBC5587DFB7C898D9DD1167751A0B8DF5360567B3C5
|
||||||
|
5A8DE8DBDEEE06DEDC81D37DB5409180ECB1DBDC6CF91B42C6F2236DB92C2372
|
||||||
|
2FA09EB19E31F356FB1E237D11295FDE58BF62D47546374FAA43BCE1D3AB2A86
|
||||||
|
497968F2C6974353E47794F58270577247CBEF63123832700537B7CE3AB0C550
|
||||||
|
5D85BB576508CBEE441311301849B364C408918EA00B75A2B1DDF2F29ED0ECED
|
||||||
|
58B76AD5C69021A5427107BB29703C70E477F6B6D5FB9AC4C821C7DB8D645696
|
||||||
|
19A530EF9D9E9968C710EAD3E6C164EE2DA0171E9DBC9EA071C3C25BB7A1B8E6
|
||||||
|
BADF667071DA5A3C8DD795EBA1ADF403A8EE57560D2B874C546DC236EDC6101A
|
||||||
|
6311A623B04AFDF8D8B172F4E90B7132978054F2C8E95E5C73255DC51B628C31
|
||||||
|
B8001733EF5E623B5DA7FA75927EF5DF548C7F4C4755E773999172715BFCC6EA
|
||||||
|
E6F7797AFCCC65F7A6489469407A055A465890AEED21114606A713C567EFA774
|
||||||
|
B293A0C1A9EB23B23513518E4A25AA1AA87F30305268A154F4A909E9CF146B39
|
||||||
|
5141B0AA2ADE08A049B8F059A1BBDCDBAC2ECE0D4A488659E1CB72501A63BBBA
|
||||||
|
220E1AE4CEB4BCD15FF24858C39B41EC4E12C83273876AB5FF00C879AD3189DD
|
||||||
|
DD9089700C9D6DEDBDE7CF581A7F702E87C2E443FC5973E984C74111142C6F72
|
||||||
|
E8DBB9C1A891FDEBABB7EFFE601FEE42C9072D247CDD66B3FEE1EF63030BDB7B
|
||||||
|
7764E74CC13061D08AAE38C89604BB260B02705CCD9DB9FD31D8BB0E63720FF7
|
||||||
|
0F6D1779B6FF0070ED1881B9DA9127A981A7CD6CFF00E7FC5B7FD8BCEDDB17C3
|
||||||
|
15E7213D43A1F8A67D85BEEAED3C2B827FEE973B6956F1A62B91724396AE0B2D
|
||||||
|
9B17EF52DC244756A7C55E5BDAEDAD7D16E23BB39F9ACE1B01F048DB33F33BB9
|
||||||
|
757F321F233B5C7DCA9ED713B89CB55D22DF7152BA3D9CE46D8B723A880C65E1
|
||||||
|
9F9AD42D4659B6647DE634D4287A10A2734B263AD1CF603BA3F1F5EDF9BE2A5F
|
||||||
|
27E6520BD6B242364BE0A0C83BE5F82DA9DB21C92E3B66AA77F13A4B866C15D4
|
||||||
|
80B409955B3559C8C44A0641CB8AACD447C438AD83C55A782A58DF958174C4B1
|
||||||
|
947483D0B85A44893EAF8ACFB88D3A56AB0000C71C56861713134682BED59AB8
|
||||||
|
68133DD4C5C457B304391415EB9242A5DAA89063D927213D72596CDB9DDBB1B7
|
||||||
|
1C6470C57496E1F6E1180C221957F13B4D10FDC4FEA90683E43AAB25616D1ED6
|
||||||
|
EE39BBF05537B307BF68C99ED293A0A08E8872CCA428753AA316098C402954E6
|
||||||
|
9B79A115A1528961E152A4272671E0C143D2D51EAEA815C121683984E1238646
|
||||||
|
9868B20A9D6F5ECBD2BDA7C41E336477576265B8DC80611C0C6D9A81D9CE2B92
|
||||||
|
F6970A796DFC6E4EBB6DB913BC7A9778C0F890BD373C3E192ABE613E51378BBD
|
||||||
|
C15BF2CB7C0CCED7CBEF2A62A1BF9AE2BDE9CF8819713B793B0FEF4A273CA27B
|
||||||
|
2E9F97E4ADF17C75EDE5D20480D36CBB7ACD22BC82ECCDC9CAE4C994A44C8C8B
|
||||||
|
9249CEA99616E1EE323B26E5D67F92E9CCAE8C4C11B3CCF06BD4D513324825A5
|
||||||
|
99EE9121FA0E89020609B9CD5C2CF93549A58A7DF2F8A5E284A910845304E9F1
|
||||||
|
424A248CE9E48C990842108ED445508A2182752590C704B3A212D3A94A803664
|
||||||
|
75514C8232A94776EFF9244E5851FE0A43BE09A1294F3EE98241D40B317F825E
|
||||||
|
1E29B8F0484020822A0E0500969041A106A0856D688DC59141EA151DD633B184
|
||||||
|
A2637012DF0E8B1F1A6EEB300C63890722ACEF8D36B0D54A2C35F45F6D732440
|
||||||
|
E00D5BF94E217A372FB8FB9B58A62285EDF17E61839715CC588D8BE6DC30350A
|
||||||
|
ACF6F3575BCDBDC96EE57EF0A82D086401555B9B12B170C7089AC4AB6B29018C
|
||||||
|
309A9A5555DFC444AE7D2809A2C66A16D6C36A3737C44FD11F54D6A0E9F3573C
|
||||||
|
3DAD3667725FA8B449ECACA0687C801CB32AA6EA431C2E70CF21DAAC2830A018
|
||||||
|
7821FA26C011AB0CD238D3E0AC951948774C07CB04C1ECFD90CC58D1093AD1E0
|
||||||
|
8A37743793265C877C508481E9E6B25AB73BB38DB88794C88C436249601400C1
|
||||||
|
B35DB7B1B82FB973FD56F87B762966043FF77FABFF00485C6799B1465E7B0749
|
||||||
|
522D6DDD3481832CC9E80BA9E07891C2F1B6F681A578FAEFCA39CE5FC3056203
|
||||||
|
0A0A945684D42A9F72F2F1E238D95D8E995EBA7EDDA819693EA1590F0ECA846F
|
||||||
|
964E973CFB4AD292C8A3E86B07B02E33DE7CE5DE437D2D95AF4ED36D268FFC52
|
||||||
|
14949D733515059B052B970CE4652352493E65D47362B41146D8E30C0320B2F3
|
||||||
|
CAE9657484E670EA1A04134AE3F8A09049493CBE5E4BAAE29233A04511423C10
|
||||||
|
928978D53CFA22A97C908A275C331E4847F87454A1087EA8A377C918F649084D
|
||||||
|
0F5EA8A21C0F242114C08EE874B1A6684216219290A04800451483244F290098
|
||||||
|
AE09871FC5361FC9085B7C65C8C6F981C643D27C17473D9EAD8CB7224E633103
|
||||||
|
167A10EEEB918C8C242512C625D753C5F23AEC4A26B0B91D17227F1F22B2FCFA
|
||||||
|
D76CCDB8A55AF1B1C7A1E060B5DFE3D79BEDCDB568F89DB9A3EA638E3DC5546E
|
||||||
|
B6B0265708F5160EA937FB28CE3A263497F4C8647AAEA6FDB73222BA4B766557
|
||||||
|
BCDBE8BB42F19E0FDD54DBCCE8DC08392BF9E26CAC2D2335C7CAC4E178589069
|
||||||
|
12006CFBAE86D5A8D9B71B70FA601963DC6DE31319483CAD4B5448C7BACC2427
|
||||||
|
1138B34BFC32D5F2D9E395AE208DFD1D4B19CE6DA585CD041F4F1C7FD4834C3E
|
||||||
|
483D3F14DBBB209ABE47CD59AA5283D717CD26A625FA7652C0FA7F8D106465F5
|
||||||
|
57C508483B3754C569440C30FF002596D5A94E7A6204A4707CD21344AD152066
|
||||||
|
B6789E36EF27BFB7B3B512653955B203127B05EB9B4DAD9D96D6DED2C0685A02
|
||||||
|
21F12D89F3547ECDE123C7ECBF79760DB8DC03A750F50B6723E2BA29528A92F6
|
||||||
|
E3D59368F2B70E27A568AC2D84316E23C4FC4F0D0285CBD66C5B9DFBB210B36E
|
||||||
|
265391C001895E57EE4E565CBF2772F46467B68536F1FE980CFCD765EF5E5E1B
|
||||||
|
2E3C6C625AFEEF1A3B4062F5A395E6F2944BD33C549E5D0E065233C1BC3A544E
|
||||||
|
6971942D23EA77B82810F87C5181403D10431A5559AA543A6285FC8245BA203E
|
||||||
|
39042508A79648EC82CCFD7243BD109288C9D1F9A3274568317C12A133441350
|
||||||
|
D8A59D7E48CBF242108478FF002433D054A125124F26FC91F24764210F8A12EC
|
||||||
|
8642141F00986389A1500D47F87F3528B0C704D5D4A95304C782546270AA61CE
|
||||||
|
03FCD092880CF50FE2B738DBD2B7B98DA8E170E96EF92D32061D56DF186C4790
|
||||||
|
DBCAECB4C233064490D4FE6A35E31AFB695AE6EE1B1C69D605429960F7C7770B
|
||||||
|
98EDA7D468AF538D0FB1741B6128EE62046372177FB73848622542DD0F7541C9
|
||||||
|
CBECEFFF006B6E5AEDEA3084BA905BF05D1EEAED9B17613B248AEB6CF53FE6B9
|
||||||
|
BDF6D4CB9FB71D60435CA712EC0031330B15181883A548EE5E835398C2A07B0A
|
||||||
|
C3B9B061BEB36E5F4DEF4BF7670A31D85DB5B895B074EA2F684BE997FC3E3D15
|
||||||
|
CEFF00691DCEC6538D371B62241BA0CD66D9476FCA6D446E01A241BBC26325D2
|
||||||
|
2B99622D7C64B48C2A1729EDE1998E64AD0F69D0AE7E51B966663723A663F495
|
||||||
|
138B9CF3A0565BE8CAD5CFD9F20755AFD1B91521BE9D7FC56B6EB65776DA643F
|
||||||
|
BD039C5891E4B4167CE98FA32E408DC7278F21F82CC5F7F8FC8CABED0991B998
|
||||||
|
CF9C70FA82D7224311E49E26803649C6DDDD1F77EDCBED7F5189671D52A360FD
|
||||||
|
55CB5ED7005AE0E07569A8540F8DEC25AF69611A3850FB53638357E4AEFDB1C4
|
||||||
|
DCE4F91B76E4E2CDA3AAF60C220BB79AA8DBC0DCB908089B9291118C00CCE0BD
|
||||||
|
63DBFC4C786D80B05A57E7EBBF2662E72F2512F6E3D38F68F33B01F153B97DB7
|
||||||
|
A926F3E56E27E0ACC08C622311A460C3058AFDEB5B7B73BF7E4236600CA73380
|
||||||
|
0B25063407CD725EFAE4A30DBC78B87AA570EB99C453E98AA88633248D60D73E
|
||||||
|
0AEE694451B9E741ED5C873FC85DE4B90B9B8993A093F6A323510FD20765578A
|
||||||
|
C932F276639F4A281A634F05A18DA1AD0D1A0A2CB4CF2F7B9E4D771AA431EE80
|
||||||
|
48C33EC9B3D09EC192ABFC93D734792301D5360DDFA229D3F8A109649E00A471
|
||||||
|
EC8C70F821222983A284219EBFE682E093F8E28421BBF9264659A4C3CD19D4A5
|
||||||
|
4210DDFC9373953B25D90841A7F048397A2789465DC212259A18A9570C5F2FCD
|
||||||
|
2A7F8E8912AC41B03452F48C3CBAAC6CD4F3521DE84A6AEC4290E9967E2149DC
|
||||||
|
A8C4B53AA912E7074A9A861E49C58F7EDD547AB9C948464D4A66E84A165B32D3
|
||||||
|
7A0462287F82D2F7338B46770D6622C19A8305B30338CA2CECE301529FBAADDC
|
||||||
|
BDB68688D231897EC0F4E95541CD230CBBB778006F1B7B5A6BEF5A9E492BA4B2
|
||||||
|
B961249678BB1CDA7FC53F696F0C36276F7A7491946D3E430D25FBAD8DCEDB95
|
||||||
|
E309DE6CA4E24754EDB3C6407E90157EDECC76D6636A31D42234826B8E27C55A
|
||||||
|
ECB93946C9D9EE4EA84A9099F96AFE2B95FF002C9633EBC2D0F6900CB1E78EA4
|
||||||
|
0E84EE5DCDE297FF003CEE31BAA445265E1F9413A10B26C79BDBEE4FD9E52C0B
|
||||||
|
3334133F49073D780F365B1BADB4B6F7233E365AE38FDBB91A570C0FE0B16DFD
|
||||||
|
B1BBDCDC90B0622D989B86571C0FF9433E2B5ADCB75C4EEE401D372D50DB3EB8
|
||||||
|
31A8A60CB832C20B96EFB4928EA54C32FB8F4292FE637168F2DBB8F732B46CD1
|
||||||
|
1C0D72DCDD0ADFB9C972F7B8ABF623B311DACC985DB91812C68FEAFCD95308EA
|
||||||
|
FA439CC3ABBBDEE5DEDFDBCF6F6EDDBB36EEC4C272882ED2A12160E0F899F29B
|
||||||
|
BB566C4A80B5C91C230CCD7F057362C7DBC2E12C6D8A98D5A776EF69A2A2E62F
|
||||||
|
8EEA76186474B5AE0E14DB8E980AAE97D91C230972D7C3C496DBC641BC64D936
|
||||||
|
4BB42C6B52B1D8B16B6D661B7B234DBB7110801D02C875641BBAAE9A532C85E7
|
||||||
|
5CB82B28626C51B5834CF8AD6DEEEED6C36B777775846D8720E67203C579472B
|
||||||
|
C84F90DC4EFCEA644CB5E05F2018E0174FEF7E6356E23C75A9B5B807B9A31333
|
||||||
|
E0721D571522D22300FE4C559D841B5BEA3862ECB82A9E6773577A4D3837CDC5
|
||||||
|
4751218976F92007E83325D04035FF000C9B191A06ED4A2B0553894BF3438005
|
||||||
|
2B8BE2820CA4C017190AA65C172086A17EBDD0800A5D483F925937CD0E71C7F1
|
||||||
|
457CD2A69464E803AE081D4141A634295223C50E7F9A3CD18A108E9927DBE28F
|
||||||
|
1CD1A9E98B5122508AD1BF04B2AFC949F16C334B2642548E2C86FF0034C96F04
|
||||||
|
BBA126A8A9FE2873DB1743A3578E3D72E8847E2B078E4A400E9F151D2C58877A
|
||||||
|
A9C00228EF9B9A265549213EE3E4A419A943D4A23161E181CA8800E181CC254D
|
||||||
|
A290A8C83649B448626A320E4A41F363D903D46A7C5BF0424438120C5741C67B
|
||||||
|
876DB4D8CB6BBBDA46F990D11986AC728CB53AE7C45CB8C007FF000E9C0962C7
|
||||||
|
E23F92E3716D14ED0D905686A31A10548B5BA96DDE5D1BA9B850E15052219F40
|
||||||
|
023224C620D407C3C938B80090FD09E9FC932F2029812C3AA401152588A782EC
|
||||||
|
30140B81C5C49CFB82DCDBF25BFDA4746DEFCEDC46004BD35E8EB5E52370CAED
|
||||||
|
C9133B85EE4892492737502063424643A290D527880413534A2E6D8636B8BDAC
|
||||||
|
6B5C73700013C4AEAE9E57B031CF7168C9A49207059A10FB9A610389018D4634
|
||||||
|
F0F25E9DEDAE1E3C5EC21AE2FB9BC355D9528F847C1729ECFE1ADEEF772DC5F8
|
||||||
|
9946C3488C23D40F35E86317A8755B7F3D4FA4D380C5CAD797DBED6FAAE18914
|
||||||
|
1C1360F981E3455BEE0E4A5C4F19737109445F90D36B561A8E6286A05558B88E
|
||||||
|
58E2BCEFDE1CE8DEDF96D2C17DB5A3A5E27EA23EAA66A35B4265940A540C5DC1
|
||||||
|
49BA9843139D5A138378AE62FDDB97EE4EE5D3AAE4E465290C492B155882E1BF
|
||||||
|
14F1D44160300E96A7724F9E2E56800D02CC135353AA1C9638B21EAFD50C625E
|
||||||
|
84E410400CF5EE95250A3E9A82E951C025C2640C1DC75094869A624668498F72
|
||||||
|
01AB9EEF4411D5C2544DD8BE69525524DC8A20B67F24BA212649D0D7E2818BFE
|
||||||
|
297E1D90704213F0424870DDD08AA6C87EC8C7E9180AFF0034AB5FC1084FE7F2
|
||||||
|
43C9B36438C0FC105F1AB212D12293A756C9458F44229D48F5B47A6583A06BA3
|
||||||
|
FE4842E63B14977FB94B3A79A98D4D2D386782108EE49AFCCA56DDE2CD9FD6CD
|
||||||
|
F352F4E8FD3DFAF9210839A737CAB1C59CB79EAFC932CF2FAB477EA842529832
|
||||||
|
F8E499D1AFFE1CDB0EC907CFE86AA108D11AFC131A349D2D87CFF1528FD6753E
|
||||||
|
8FD6DD3CD0848528D38F62F51F69FED3FD16C7ED1DEBF75F1D7DFC95DC7E9F56
|
||||||
|
0842CF4DFDD7E7E639E6B4D0FF0069997946592AFE6FF79FE997BF61FF00773C
|
||||||
|
1F47EAC7B745E497757DDAB6AFD5D5DAAEE842B1E5BE57E59F6F6AACE6B9C79E
|
||||||
|
BC3B3AD612CE7A64FF0034C36AA63978210ACD52A8867A203B96FF001F14212A
|
||||||
|
4E840D55C591473A70C9FA210846889E3979608CA9F24210121FE3A505B24B3E
|
||||||
|
E842107F8A267E918627C7CD4A4EC1DB437E9C108425E9ECFE0A84B56A3AFEAC
|
||||||
|
D3F4B77421090E67DF9A59290FA28DA9FCFF00821084A33EC510F9294DB5167D
|
||||||
|
2E8420E68191E2A3E9FF0024A9DD08425EEF72FFD9}
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 200
|
||||||
|
Top = 48
|
||||||
|
Width = 42
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Usuario :'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 200
|
||||||
|
Top = 80
|
||||||
|
Width = 37
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Senha :'
|
||||||
|
end
|
||||||
|
object SpeedButton1: TSpeedButton
|
||||||
|
Left = 200
|
||||||
|
Top = 112
|
||||||
|
Width = 73
|
||||||
|
Height = 49
|
||||||
|
Flat = True
|
||||||
|
Glyph.Data = {
|
||||||
|
76060000424D7606000000000000360400002800000018000000180000000100
|
||||||
|
08000000000040020000E30E0000E30E00000001000000010000213152003142
|
||||||
|
5A00213163002939630039426300525A63002139730029427300394A7300525A
|
||||||
|
730021397B0042527B004A527B00214284002942840029428C00314A8C003952
|
||||||
|
8C00294A9400425A9400294A9C0031529C005A739C00637B9C002952A5003152
|
||||||
|
A5004263A5005273A5003152AD00315AAD00395AAD005A7BAD00315AB5004A73
|
||||||
|
B500315ABD003963BD004273BD00527BBD003163C6003963CE003973CE004273
|
||||||
|
CE003973DE004273DE00427BDE004A84DE003973E7004273E700A5BDE700427B
|
||||||
|
EF004A84EF00427BF7004284F700528CF7005294F7008CB5F700B5C6F700FF00
|
||||||
|
FF004284FF004A8CFF004A94FF005294FF005A94FF00529CFF005A9CFF00639C
|
||||||
|
FF005AA5FF0063A5FF0073A5FF0063ADFF0073ADFF0073B5FF007BB5FF008CB5
|
||||||
|
FF0073BDFF007BBDFF0084BDFF007BC6FF008CC6FF0094C6FF008CCEFF0094CE
|
||||||
|
FF0094DEFF00A5E7FF00A5EFFF00ADEFFF00ADF7FF00B5FFFF00BDFFFF00C6FF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00393939393939
|
||||||
|
3939393939393939393939393939393939393939393939393939391611080439
|
||||||
|
3939172328043939393939393935322F2810232F2A1C0A03111A282A2F290439
|
||||||
|
39393939494B4640351832433B2A19122327282A2F2A1B393939393930413632
|
||||||
|
2B1D4757483127272320140F14201E393939393939322B2B27192D5247342A2A
|
||||||
|
2A261C1202020C39393939394B4743403B23153D3D3434342F2A221406003939
|
||||||
|
3939393958524C463D271E3D3D3B3B3B312A26190D00393939393939392A2623
|
||||||
|
201535403C3D3F3D352B261C0E003939393939394C484340352219403F454843
|
||||||
|
3B2F26190A0039393939393959534E4840271E42455253483D2F261906013939
|
||||||
|
3939393939362D2C282341454D59584B3B2B2314020439393939393948433E35
|
||||||
|
2F1C24454A5353473B2A200F043939393939393959555048402719403D3B3535
|
||||||
|
312719073939393939393939394F48443E25213D453D2A1C2A22103939393939
|
||||||
|
39393939393939393939384B4C35260E22133939393939393939393939393939
|
||||||
|
393937594831190B3939393939393939393939393939393939395159432A0E39
|
||||||
|
39393939393939393939393939393939393759553D2307393939393939393939
|
||||||
|
3939393939393939393759533D26070539393939393939393939393939393939
|
||||||
|
39375252402F200E0939393939393939393939393939393939393747423B2B1C
|
||||||
|
0C393939393939393939393939393939393939373D352B1F3939393939393939
|
||||||
|
3939393939393939393939393939393939393939393939393939}
|
||||||
|
OnClick = SpeedButton1Click
|
||||||
|
end
|
||||||
|
object SpeedButton2: TSpeedButton
|
||||||
|
Left = 296
|
||||||
|
Top = 112
|
||||||
|
Width = 73
|
||||||
|
Height = 49
|
||||||
|
Flat = True
|
||||||
|
Glyph.Data = {
|
||||||
|
76060000424D7606000000000000360400002800000018000000180000000100
|
||||||
|
08000000000040020000230F0000230F00000001000000010000316B4A003173
|
||||||
|
4A0029735A00397B5200317B5A00327E5900377E5B00424242005A6B52004A7B
|
||||||
|
5A00637B5200427B63008C6363009A666600A7666600AD6B6300A76C6D00AF68
|
||||||
|
6900B0666700B3666700B4676800B6696A00B86B6B00B96C6D00BB6E6F00AD70
|
||||||
|
7000B3737300BD707000BE717200C6666700CD676800C0696A00CE696A00D06A
|
||||||
|
6B00D16B6C00D26C6D00D36D6E00D46E6F00D56F7000C0737400C2757500C376
|
||||||
|
7700C0797A00C5787800C77A7A00C87B7C00CA7D7D00CC7F7F00D6707100D872
|
||||||
|
7300DA747500DB757600DC767700DD777800DE787900DF797A00E07A7B00E17B
|
||||||
|
7C00E27C7D00E37D7E00E47E7F00EF7C790029845A0039845A001C9A74001E9D
|
||||||
|
7700199E78001B9F7800298463002B8763002D866400298C630029896400218C
|
||||||
|
6B00238F6C00298C6B00298D6B0035896B00368E6E0021946B00209370002194
|
||||||
|
730020967200249672002E937100279A7500239C760017A37C0015A57D0016A4
|
||||||
|
7D0015A57E0014A77F0018A17A0018A17B0018A27B0018A37B0018A37C0019A4
|
||||||
|
7C0019A57D0042846B0094946B00B59C7300F6A46800FF00FF00C6848400CD80
|
||||||
|
8000DF898A00E6808100E7818200E6878200E8828300EA848500EB858600EC86
|
||||||
|
8700E7878800ED878800EE888900EF898A00F08A8B00F18B8C00F28C8D00F38D
|
||||||
|
8E00F48E8F00F58F9000E49A9800F6909100F7919200F2939400F8929300F993
|
||||||
|
9400FA949500FB959600FC969700FD979800FE989900FF999A00F7B58400F5BB
|
||||||
|
BC00F7C09800F2C4A700F7C6A500EFCEBD00F7CEBD00FCD4BC00F7D6CE00FFDE
|
||||||
|
CE00FADCDC00FFE7DE00FFFFFF00000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000676767676767
|
||||||
|
6767670C07676767676767676767676767676767676767670C0D0F0E07676767
|
||||||
|
676767676767676767676767670C0D0F121D1E13070C0C0C0C0C0C0C0C0C0C0C
|
||||||
|
6767670C0D111F1E1E1E1E13072A686A7F7F7F7F7F7F7F0C6767670F1E1E1E20
|
||||||
|
2122221407475B5A58595F6061627F0C6767670F222222232425241507475A59
|
||||||
|
575C434156557F0C6767670F252526303030251607475E5E5D424053544E7F0C
|
||||||
|
6767670F253132333332321707445052514F4A4C4D637F0C6767670F25343637
|
||||||
|
373635180702494B474845464B0B7F0C6767670F31343B3B3A39381B074B443E
|
||||||
|
0405063F0B087F0C6767670F346E6C6B723D3C1C070003030103090808647F0C
|
||||||
|
6767670F3B71706F89923D27070808010A0A646588887F0C6767670F3B757473
|
||||||
|
92947F28076465658888888888887F0C6767670F6D7877767592732907668888
|
||||||
|
8888888888887F0C6767670F777D7B7A7978772B076688888888888888887F0C
|
||||||
|
6767670F7781807E7D7B7A2C0766888C8D8D8D8C88887F0C6767670F77848382
|
||||||
|
81807E2D078C8C939393918D8D887F0C6767670F778786858584832E078D8F93
|
||||||
|
91908D938C887F0C6767670F778787878786862F07668A8E93908E8C88887F0C
|
||||||
|
6767670F7787878787878769076688888B8B8B8888887F0C6767670F0F687C87
|
||||||
|
87878769076688888888888888887F0C67676767670D0F10687C8769070C0F0F
|
||||||
|
0F0F0F0F0F0F0F0F67676767676767670D0F191A076767676767676767676767
|
||||||
|
67676767676767676767670F0767676767676767676767676767}
|
||||||
|
OnClick = SpeedButton2Click
|
||||||
|
end
|
||||||
|
object EditLogin: TEdit
|
||||||
|
Left = 248
|
||||||
|
Top = 40
|
||||||
|
Width = 121
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object EditSenha: TEdit
|
||||||
|
Left = 248
|
||||||
|
Top = 72
|
||||||
|
Width = 121
|
||||||
|
Height = 21
|
||||||
|
PasswordChar = '?'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object UCXPStyle1: TUCXPStyle
|
||||||
|
Active = True
|
||||||
|
XPSettings.DimLevel = 30
|
||||||
|
XPSettings.GrayLevel = 10
|
||||||
|
XPSettings.Font.Charset = ANSI_CHARSET
|
||||||
|
XPSettings.Font.Color = clMenuText
|
||||||
|
XPSettings.Font.Height = -11
|
||||||
|
XPSettings.Font.Name = 'Tahoma'
|
||||||
|
XPSettings.Font.Style = []
|
||||||
|
XPSettings.Color = clBtnFace
|
||||||
|
XPSettings.DrawMenuBar = False
|
||||||
|
XPSettings.IconBackColor = clBtnFace
|
||||||
|
XPSettings.MenuBarColor = clBtnFace
|
||||||
|
XPSettings.SelectColor = clHighlight
|
||||||
|
XPSettings.SelectBorderColor = clHighlight
|
||||||
|
XPSettings.SelectFontColor = clMenuText
|
||||||
|
XPSettings.DisabledColor = clInactiveCaption
|
||||||
|
XPSettings.SeparatorColor = clBtnFace
|
||||||
|
XPSettings.CheckedColor = clHighlight
|
||||||
|
XPSettings.IconWidth = 24
|
||||||
|
XPSettings.DrawSelect = True
|
||||||
|
XPSettings.UseSystemColors = True
|
||||||
|
XPSettings.UseDimColor = False
|
||||||
|
XPSettings.OverrideOwnerDraw = False
|
||||||
|
XPSettings.Gradient = False
|
||||||
|
XPSettings.FlatMenu = False
|
||||||
|
XPSettings.AutoDetect = False
|
||||||
|
XPSettings.BitBtnColor = clBtnFace
|
||||||
|
XPSettings.ColorsChanged = True
|
||||||
|
Left = 184
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
53
internal/2.20/2/Demos/6 CustomLoginForm - ADO/Unit2.pas
Normal file
53
internal/2.20/2/Demos/6 CustomLoginForm - ADO/Unit2.pas
Normal file
@ -0,0 +1,53 @@
|
|||||||
|
unit Unit2;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls, UCXPStyle;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm2 = class(TForm)
|
||||||
|
Image1: TImage;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
EditLogin: TEdit;
|
||||||
|
EditSenha: TEdit;
|
||||||
|
SpeedButton1: TSpeedButton;
|
||||||
|
SpeedButton2: TSpeedButton;
|
||||||
|
UCXPStyle1: TUCXPStyle;
|
||||||
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
procedure SpeedButton2Click(Sender: TObject);
|
||||||
|
procedure SpeedButton1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form2: TForm2;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses uadodemo;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
begin
|
||||||
|
canclose := Form1.UserControl1.CurrentUser.UserID > 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.SpeedButton2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Application.Terminate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm2.SpeedButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if not Form1.UserControl1.VerificaLogin(EditLogin.text, EditSenha.text) then Showmessage('Login inválido!!!!!')
|
||||||
|
else Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
internal/2.20/2/Demos/6 CustomLoginForm - ADO/uadodemo.ddp
Normal file
BIN
internal/2.20/2/Demos/6 CustomLoginForm - ADO/uadodemo.ddp
Normal file
Binary file not shown.
579
internal/2.20/2/Demos/6 CustomLoginForm - ADO/uadodemo.dfm
Normal file
579
internal/2.20/2/Demos/6 CustomLoginForm - ADO/uadodemo.dfm
Normal file
@ -0,0 +1,579 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 208
|
||||||
|
Top = 104
|
||||||
|
Width = 469
|
||||||
|
Height = 464
|
||||||
|
Caption = 'UserControl - Custom Login '
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
Menu = MainMenu1
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poDesktopCenter
|
||||||
|
OnCloseQuery = FormCloseQuery
|
||||||
|
OnCreate = FormCreate
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 72
|
||||||
|
Top = 400
|
||||||
|
Width = 298
|
||||||
|
Height = 13
|
||||||
|
Caption = '<<= incluido para logar Exceptions. Veja o evento OnException'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object GroupBox4: TGroupBox
|
||||||
|
Left = 10
|
||||||
|
Top = 336
|
||||||
|
Width = 441
|
||||||
|
Height = 49
|
||||||
|
Caption = 'Gerar erro'
|
||||||
|
TabOrder = 1
|
||||||
|
object EditErro: TEdit
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 217
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'Erro gerado pelo demo'
|
||||||
|
end
|
||||||
|
object BitBtn2: TBitBtn
|
||||||
|
Left = 256
|
||||||
|
Top = 16
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Except!'
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = BitBtn2Click
|
||||||
|
Glyph.Data = {
|
||||||
|
36030000424D3603000000000000360000002800000010000000100000000100
|
||||||
|
18000000000000030000420B0000420B00000000000000000000FF00FFFF00FF
|
||||||
|
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||||
|
FFFF00FFFF00FFFF00FFFF00FFCC6701CC6701CC6701CC6701CC6701CC6701CC
|
||||||
|
6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701FF00FFCC6701
|
||||||
|
FFFFFFFFFFFFFFFAF5FFF3E6FEEBD5FEE3C3FEDCB5FED7ABFED7ABFED7ABFED7
|
||||||
|
ABFED7ABFED7ABCC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFAF5FFF3E6FE
|
||||||
|
EBD5FEE3C4FEDCB500C0C000C0C000C0C000C0C0FED7ABCC6701FF00FFCC6701
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFAF5FFF3E6FFEBD5FEE3C4FFFFFFFFFFFFFFFF
|
||||||
|
FF00C0C0FED7ABCC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FAF5FFF3E6FFEBD5FEE3C4FEDCB5FED7ABFED7ABFED7ABCC6701FF00FFCC6701
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAF5FFF3E6FFEBD5FEE3C4FEDC
|
||||||
|
B5FED7ABFED7ABCC6701FF00FFCC6701FFFFFFFFFFFFFFFFFF80808080808080
|
||||||
|
8080FFFFFF808080FFF3E6808080808080808080FED7ABCC6701FF00FFCC6701
|
||||||
|
8080FF0000FF8080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAF5FFF3E6FFEB
|
||||||
|
D5FEE3C4FEDCB5CC6701FF00FFCC67010000FF0000FF0000FFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFAF5FFF3E6FFEBD5FEE3C4CC6701FF00FFCC6701
|
||||||
|
8080FF0000FF8080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA
|
||||||
|
F5FFF3E6FFEBD5CC6701FF00FFCC6701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAF5FFF3E6CC6701FF00FFCC6701
|
||||||
|
CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701CC67
|
||||||
|
01CC6701CC6701CC6701FF00FFFF00FFCC6701CC6701CC6701CC6701CC6701CC
|
||||||
|
6701CC6701CC6701CC6701CC6701CC6701CC6701CC6701FF00FFFF00FFFF00FF
|
||||||
|
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
||||||
|
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
||||||
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GroupBox5: TGroupBox
|
||||||
|
Left = 10
|
||||||
|
Top = 280
|
||||||
|
Width = 441
|
||||||
|
Height = 49
|
||||||
|
Caption = 'Incluir log'
|
||||||
|
TabOrder = 0
|
||||||
|
object EditLog: TEdit
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 121
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'Teste de log'
|
||||||
|
end
|
||||||
|
object cbNivel: TComboBox
|
||||||
|
Left = 144
|
||||||
|
Top = 16
|
||||||
|
Width = 97
|
||||||
|
Height = 21
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemHeight = 13
|
||||||
|
TabOrder = 1
|
||||||
|
Items.Strings = (
|
||||||
|
'N'#237'vel 0'
|
||||||
|
'N'#237'vel 1'
|
||||||
|
'N'#237'vel 2'
|
||||||
|
'N'#237'vel 3')
|
||||||
|
end
|
||||||
|
object BitBtn1: TBitBtn
|
||||||
|
Left = 256
|
||||||
|
Top = 16
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Logar'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = BitBtn1Click
|
||||||
|
Glyph.Data = {
|
||||||
|
36050000424D3605000000000000360400002800000010000000100000000100
|
||||||
|
08000000000000010000420B0000420B00000001000000010000B5847300AD73
|
||||||
|
8400B5848400B58C8400B5948C00D6BDB500C6C6C600EFD6C600CECECE00D6D6
|
||||||
|
D600DEDEDE00E7E7E700EFEFEF0042B5F7008CD6F700B5DEF700F7F7F700FF00
|
||||||
|
FF003184FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
|
||||||
|
1111111111111111111111111101020202020202020202020211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
1313131313131313021111111101131313131313131313130211111111011313
|
||||||
|
13131313131313130211111112121210101010101010101002111111120D120C
|
||||||
|
0C0C0C0C0C0C0C0C02111212120D1212120B0B0B0B0004030211120E0F0F0F0E
|
||||||
|
120A0A0A0600131302111212120F1212120909090600130211111111120F1208
|
||||||
|
0808080806000211111111111212120707070707050011111111}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object PageControl1: TPageControl
|
||||||
|
Left = 8
|
||||||
|
Top = 88
|
||||||
|
Width = 441
|
||||||
|
Height = 185
|
||||||
|
ActivePage = TabSheet1
|
||||||
|
TabOrder = 2
|
||||||
|
object TabSheet1: TTabSheet
|
||||||
|
Caption = 'Actions'
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 10
|
||||||
|
Top = 12
|
||||||
|
Width = 103
|
||||||
|
Height = 121
|
||||||
|
Caption = 'GroupBox1'
|
||||||
|
TabOrder = 0
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 24
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 56
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Button3: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 88
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action3
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GroupBox2: TGroupBox
|
||||||
|
Left = 162
|
||||||
|
Top = 12
|
||||||
|
Width = 103
|
||||||
|
Height = 121
|
||||||
|
Caption = 'GroupBox2'
|
||||||
|
TabOrder = 1
|
||||||
|
object Button4: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 24
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action4
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Button5: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 56
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action5
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Button6: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 88
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action6
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GroupBox3: TGroupBox
|
||||||
|
Left = 314
|
||||||
|
Top = 12
|
||||||
|
Width = 103
|
||||||
|
Height = 121
|
||||||
|
Caption = 'GroupBox3'
|
||||||
|
TabOrder = 2
|
||||||
|
object Button7: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 24
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action7
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Button8: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 56
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action8
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Button9: TButton
|
||||||
|
Left = 15
|
||||||
|
Top = 88
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Action = Action9
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenu1: TMainMenu
|
||||||
|
AutoHotkeys = maManual
|
||||||
|
OwnerDraw = True
|
||||||
|
Left = 8
|
||||||
|
Top = 8
|
||||||
|
object Arquivo1: TMenuItem
|
||||||
|
Caption = 'Arquivo'
|
||||||
|
object Abrir1: TMenuItem
|
||||||
|
Caption = 'Abrir'
|
||||||
|
end
|
||||||
|
object Salvar1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Salvar2: TMenuItem
|
||||||
|
Caption = 'Salvar'
|
||||||
|
end
|
||||||
|
object Salvarcomo1: TMenuItem
|
||||||
|
Caption = 'Salvar como...'
|
||||||
|
end
|
||||||
|
object Fechar1: TMenuItem
|
||||||
|
Caption = 'Fechar'
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Dados1: TMenuItem
|
||||||
|
Caption = 'Dados'
|
||||||
|
object Importar1: TMenuItem
|
||||||
|
Caption = 'Importar'
|
||||||
|
end
|
||||||
|
object Exportar1: TMenuItem
|
||||||
|
Caption = 'Exportar'
|
||||||
|
end
|
||||||
|
object N4: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Vincular1: TMenuItem
|
||||||
|
Caption = 'Vincular'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object N3: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Sair2: TMenuItem
|
||||||
|
Caption = 'Sair'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Editar1: TMenuItem
|
||||||
|
Caption = 'Editar'
|
||||||
|
object Copiar1: TMenuItem
|
||||||
|
Caption = 'Copiar'
|
||||||
|
end
|
||||||
|
object Colar1: TMenuItem
|
||||||
|
Caption = 'Colar'
|
||||||
|
end
|
||||||
|
object Recortar1: TMenuItem
|
||||||
|
Caption = 'Recortar'
|
||||||
|
end
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Selecionartudo1: TMenuItem
|
||||||
|
Caption = 'Selecionar tudo'
|
||||||
|
end
|
||||||
|
object N5: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object AreadeTransferencia1: TMenuItem
|
||||||
|
Caption = 'Area de Transferencia'
|
||||||
|
object Exibir2: TMenuItem
|
||||||
|
Caption = 'Exibir'
|
||||||
|
end
|
||||||
|
object Esvaziar1: TMenuItem
|
||||||
|
Caption = 'Esvaziar'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Exibir1: TMenuItem
|
||||||
|
Caption = 'Exibir'
|
||||||
|
object Zoom1: TMenuItem
|
||||||
|
Caption = 'Zoom...'
|
||||||
|
object Normal1: TMenuItem
|
||||||
|
Caption = 'Normal'
|
||||||
|
Checked = True
|
||||||
|
GroupIndex = 1
|
||||||
|
RadioItem = True
|
||||||
|
end
|
||||||
|
object Grande1: TMenuItem
|
||||||
|
Caption = 'Grande'
|
||||||
|
GroupIndex = 1
|
||||||
|
RadioItem = True
|
||||||
|
end
|
||||||
|
object Ajustarnajanela1: TMenuItem
|
||||||
|
Caption = 'Ajustar na janela'
|
||||||
|
GroupIndex = 1
|
||||||
|
RadioItem = True
|
||||||
|
end
|
||||||
|
object N6: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
GroupIndex = 1
|
||||||
|
end
|
||||||
|
object Personalizar1: TMenuItem
|
||||||
|
Caption = 'Personalizar'
|
||||||
|
GroupIndex = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object amanhonormal1: TMenuItem
|
||||||
|
Caption = 'Tamanho normal'
|
||||||
|
end
|
||||||
|
object elacheia1: TMenuItem
|
||||||
|
Caption = 'Tela cheia'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Relatorios1: TMenuItem
|
||||||
|
Caption = 'Relatorios'
|
||||||
|
object Relatorio11: TMenuItem
|
||||||
|
Caption = 'Relatorio 1'
|
||||||
|
end
|
||||||
|
object Relatorio21: TMenuItem
|
||||||
|
Caption = 'Relatorio 2'
|
||||||
|
end
|
||||||
|
object Relatorio31: TMenuItem
|
||||||
|
Caption = 'Relatorio 3'
|
||||||
|
end
|
||||||
|
object Relatorio41: TMenuItem
|
||||||
|
Caption = 'Relatorio 4'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Segurana1: TMenuItem
|
||||||
|
Caption = 'Seguran'#231'a'
|
||||||
|
object Cadastrodeusuarios1: TMenuItem
|
||||||
|
Caption = 'Cadastro de usuarios'
|
||||||
|
end
|
||||||
|
object Perfildeusurios1: TMenuItem
|
||||||
|
Caption = 'Perfil de usuarios'
|
||||||
|
end
|
||||||
|
object logdosistema: TMenuItem
|
||||||
|
Caption = 'Log do Sistema'
|
||||||
|
OnClick = Action1Execute
|
||||||
|
end
|
||||||
|
object N7: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object rocarsenha1: TMenuItem
|
||||||
|
Caption = 'Trocar senha'
|
||||||
|
end
|
||||||
|
object EfetuarLogoff1: TMenuItem
|
||||||
|
Caption = 'Efetuar Logoff'
|
||||||
|
OnClick = EfetuarLogoff1Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ActionList1: TActionList
|
||||||
|
Left = 40
|
||||||
|
Top = 8
|
||||||
|
object Action1: TAction
|
||||||
|
Category = 'Grupo1'
|
||||||
|
Caption = 'Action1'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action2: TAction
|
||||||
|
Category = 'Grupo1'
|
||||||
|
Caption = 'Action2'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action3: TAction
|
||||||
|
Category = 'Grupo1'
|
||||||
|
Caption = 'Action3'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action4: TAction
|
||||||
|
Category = 'Grupo2'
|
||||||
|
Caption = 'Action4'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action5: TAction
|
||||||
|
Category = 'Grupo2'
|
||||||
|
Caption = 'Action5'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action6: TAction
|
||||||
|
Category = 'Grupo2'
|
||||||
|
Caption = 'Action6'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action7: TAction
|
||||||
|
Category = 'Grupo3'
|
||||||
|
Caption = 'Action7'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action8: TAction
|
||||||
|
Category = 'Grupo3'
|
||||||
|
Caption = 'Action8'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
object Action9: TAction
|
||||||
|
Category = 'Grupo3'
|
||||||
|
Caption = 'Action9'
|
||||||
|
OnExecute = Action1Execute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ADOConnection1: TADOConnection
|
||||||
|
ConnectionString =
|
||||||
|
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\BASE.MDB;Persist' +
|
||||||
|
' Security Info=False'
|
||||||
|
LoginPrompt = False
|
||||||
|
Provider = 'Microsoft.Jet.OLEDB.4.0'
|
||||||
|
Left = 72
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
object ApplicationEvents1: TApplicationEvents
|
||||||
|
OnException = ApplicationEvents1Exception
|
||||||
|
Left = 32
|
||||||
|
Top = 392
|
||||||
|
end
|
||||||
|
object UCADOConn1: TUCADOConn
|
||||||
|
Connection = ADOConnection1
|
||||||
|
Left = 104
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
object UserControl1: TUserControl
|
||||||
|
AutoStart = True
|
||||||
|
ApplicationID = 'customlogin'
|
||||||
|
ControlRight.ActionList = ActionList1
|
||||||
|
ControlRight.MainMenu = MainMenu1
|
||||||
|
UsersForm.MenuItem = Cadastrodeusuarios1
|
||||||
|
UsersForm.UsePrivilegedField = False
|
||||||
|
UsersForm.ProtectAdmin = True
|
||||||
|
EncryptKey = 0
|
||||||
|
NotAllowedItems.MenuVisible = True
|
||||||
|
NotAllowedItems.ActionVisible = True
|
||||||
|
Login.AutoLogon.Active = False
|
||||||
|
Login.AutoLogon.MessageOnError = True
|
||||||
|
Login.InitialLogin.User = 'Admin'
|
||||||
|
Login.InitialLogin.Email = 'qmd@usercontrol.com.br'
|
||||||
|
Login.InitialLogin.Password = '#delphi'
|
||||||
|
Login.MaxLoginAttempts = 0
|
||||||
|
Login.GetLoginName = lnNone
|
||||||
|
LogControl.Active = True
|
||||||
|
LogControl.TableLog = 'UCCLLog'
|
||||||
|
LogControl.MenuItem = logdosistema
|
||||||
|
ExtraRight = <>
|
||||||
|
LoginMode = lmActive
|
||||||
|
UsersProfile.Active = True
|
||||||
|
UsersProfile.MenuItem = Perfildeusurios1
|
||||||
|
TableUsers.FieldUserID = 'UCIdUser'
|
||||||
|
TableUsers.FieldUserName = 'UCUserName'
|
||||||
|
TableUsers.FieldLogin = 'UCLogin'
|
||||||
|
TableUsers.FieldPassword = 'UCPassword'
|
||||||
|
TableUsers.FieldEmail = 'UCEmail'
|
||||||
|
TableUsers.FieldPrivileged = 'UCPrivileged'
|
||||||
|
TableUsers.FieldTypeRec = 'UCTypeRec'
|
||||||
|
TableUsers.FieldProfile = 'UCProfile'
|
||||||
|
TableUsers.FieldKey = 'UCKey'
|
||||||
|
TableUsers.TableName = 'UCCLTabUsers'
|
||||||
|
TableRights.FieldUserID = 'UCIdUser'
|
||||||
|
TableRights.FieldModule = 'UCModule'
|
||||||
|
TableRights.FieldComponentName = 'UCCompName'
|
||||||
|
TableRights.FieldFormName = 'UCFormName'
|
||||||
|
TableRights.FieldKey = 'UCKey'
|
||||||
|
TableRights.TableName = 'UCCLTabRights'
|
||||||
|
ChangePasswordForm.MenuItem = rocarsenha1
|
||||||
|
ChangePasswordForm.ForcePassword = False
|
||||||
|
ChangePasswordForm.MinPasswordLength = 0
|
||||||
|
OnLoginSucess = ADOUserControl1LoginSucess
|
||||||
|
OnLoginError = ADOUserControl1LoginError
|
||||||
|
OnCustomLoginForm = ADOUserControl1CustomLoginForm
|
||||||
|
DataConnector = UCADOConn1
|
||||||
|
CheckValidationKey = False
|
||||||
|
Left = 136
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
object UCXPStyle1: TUCXPStyle
|
||||||
|
Active = True
|
||||||
|
XPSettings.DimLevel = 30
|
||||||
|
XPSettings.GrayLevel = 10
|
||||||
|
XPSettings.Font.Charset = ANSI_CHARSET
|
||||||
|
XPSettings.Font.Color = clMenuText
|
||||||
|
XPSettings.Font.Height = -11
|
||||||
|
XPSettings.Font.Name = 'Tahoma'
|
||||||
|
XPSettings.Font.Style = []
|
||||||
|
XPSettings.Color = clBtnFace
|
||||||
|
XPSettings.DrawMenuBar = False
|
||||||
|
XPSettings.IconBackColor = clBtnFace
|
||||||
|
XPSettings.MenuBarColor = clBtnFace
|
||||||
|
XPSettings.SelectColor = clHighlight
|
||||||
|
XPSettings.SelectBorderColor = clHighlight
|
||||||
|
XPSettings.SelectFontColor = clMenuText
|
||||||
|
XPSettings.DisabledColor = clInactiveCaption
|
||||||
|
XPSettings.SeparatorColor = clBtnFace
|
||||||
|
XPSettings.CheckedColor = clHighlight
|
||||||
|
XPSettings.IconWidth = 24
|
||||||
|
XPSettings.DrawSelect = True
|
||||||
|
XPSettings.UseSystemColors = True
|
||||||
|
XPSettings.UseDimColor = False
|
||||||
|
XPSettings.OverrideOwnerDraw = False
|
||||||
|
XPSettings.Gradient = False
|
||||||
|
XPSettings.FlatMenu = False
|
||||||
|
XPSettings.AutoDetect = False
|
||||||
|
XPSettings.BitBtnColor = clBtnFace
|
||||||
|
XPSettings.ColorsChanged = False
|
||||||
|
Left = 168
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
200
internal/2.20/2/Demos/6 CustomLoginForm - ADO/uadodemo.pas
Normal file
200
internal/2.20/2/Demos/6 CustomLoginForm - ADO/uadodemo.pas
Normal file
@ -0,0 +1,200 @@
|
|||||||
|
unit uadodemo;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF VER130}
|
||||||
|
{$ELSE}
|
||||||
|
Variants, MidasLib,
|
||||||
|
{$ENDIF}
|
||||||
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, Menus, DB, ActnList, StdCtrls, ADODB,
|
||||||
|
AppEvnts, Buttons, ComCtrls, UCBase, UCADOConn, UCXPStyle;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
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;
|
||||||
|
rocarsenha1: TMenuItem;
|
||||||
|
ActionList1: TActionList;
|
||||||
|
Action1: TAction;
|
||||||
|
Action2: TAction;
|
||||||
|
Action3: TAction;
|
||||||
|
Action4: TAction;
|
||||||
|
Action5: TAction;
|
||||||
|
Action6: TAction;
|
||||||
|
Action7: TAction;
|
||||||
|
Action8: TAction;
|
||||||
|
Action9: TAction;
|
||||||
|
N7: TMenuItem;
|
||||||
|
EfetuarLogoff1: TMenuItem;
|
||||||
|
ADOConnection1: TADOConnection;
|
||||||
|
Perfildeusurios1: TMenuItem;
|
||||||
|
logdosistema: TMenuItem;
|
||||||
|
ApplicationEvents1: TApplicationEvents;
|
||||||
|
Label2: TLabel;
|
||||||
|
GroupBox4: TGroupBox;
|
||||||
|
EditErro: TEdit;
|
||||||
|
GroupBox5: TGroupBox;
|
||||||
|
EditLog: TEdit;
|
||||||
|
cbNivel: TComboBox;
|
||||||
|
BitBtn1: TBitBtn;
|
||||||
|
BitBtn2: TBitBtn;
|
||||||
|
PageControl1: TPageControl;
|
||||||
|
TabSheet1: TTabSheet;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
Button3: TButton;
|
||||||
|
GroupBox2: TGroupBox;
|
||||||
|
Button4: TButton;
|
||||||
|
Button5: TButton;
|
||||||
|
Button6: TButton;
|
||||||
|
GroupBox3: TGroupBox;
|
||||||
|
Button7: TButton;
|
||||||
|
Button8: TButton;
|
||||||
|
Button9: TButton;
|
||||||
|
UCADOConn1: TUCADOConn;
|
||||||
|
UserControl1: TUserControl;
|
||||||
|
UCXPStyle1: TUCXPStyle;
|
||||||
|
procedure Action1Execute(Sender: TObject);
|
||||||
|
procedure EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
procedure ADOUserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
procedure ADOUserControl1LoginSucess(Sender: TObject; IdUser: Integer;
|
||||||
|
Usuario, Nome, Senha, Email: String; Privilegiado: Boolean);
|
||||||
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
procedure Button10Click(Sender: TObject);
|
||||||
|
procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
|
||||||
|
procedure BitBtn1Click(Sender: TObject);
|
||||||
|
procedure BitBtn2Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure ADOUserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
procedure ADOUserControl1CustomLoginForm(Sender: TObject;
|
||||||
|
var CustomForm: TCustomForm);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses Unit2;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.Action1Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MessageDlg('Teste', mtInformation, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.EfetuarLogoff1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Logoff;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1LoginError(Sender: TObject; Usuario,
|
||||||
|
Senha: String);
|
||||||
|
begin
|
||||||
|
Usercontrol1.Log(Format('Erro de login do usuário: "%s" senha: "%s"',[Usuario, Senha]),0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1LoginSucess(Sender: TObject;
|
||||||
|
IdUser: Integer; Usuario, Nome, Senha, Email: String;
|
||||||
|
Privilegiado: Boolean);
|
||||||
|
|
||||||
|
begin
|
||||||
|
Usercontrol1.Log(Format('Entrada no sistema usuário: "%s" nome: "%s"',[Usuario, Nome]),0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Sistema encerrado.',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button10Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
raise Exception.Create('');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
|
||||||
|
E: Exception);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(E.Message,3);
|
||||||
|
beep;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UserControl1.Log(EditLog.Text, cbNivel.ItemIndex);
|
||||||
|
MessageDlg('Log adicionado', mtInformation, [mbOK], 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.BitBtn2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
raise Exception.Create(EditErro.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cbNivel.ItemIndex := 0;
|
||||||
|
ADOConnection1.Connected := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1Logoff(Sender: TObject; IDUser: Integer);
|
||||||
|
begin
|
||||||
|
UserControl1.Log('Efetuou logoff');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.ADOUserControl1CustomLoginForm(Sender: TObject;
|
||||||
|
var CustomForm: TCustomForm);
|
||||||
|
begin
|
||||||
|
CustomForm := TForm2.Create(Application);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,13 @@
|
|||||||
|
program Project2;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
Unit1 in 'Unit1.pas' {Form1};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,84 @@
|
|||||||
|
unit Unit1;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, UCBase, Menus, UCADOConn, DB, ADODB,
|
||||||
|
UCXPStyle;
|
||||||
|
|
||||||
|
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;
|
||||||
|
Memo1: TMemo;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ADOConnection1.Connected := True;
|
||||||
|
UserControl1.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -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.
|
||||||
BIN
internal/2.20/2/Demos/8 UCControls Sample2 - ADO/Project1.res
Normal file
BIN
internal/2.20/2/Demos/8 UCControls Sample2 - ADO/Project1.res
Normal file
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user