- 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