?? dmassistant.pas
字號:
unit dmAssistant;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModuleAssistant = class(TDataModule)
ADOConnection: TADOConnection;
ADOQueryAddressList: TADOQuery;
DataSourceAddressList: TDataSource;
ADOQueryAddressListID: TAutoIncField;
ADOQueryAddressListname: TWideStringField;
ADOQueryAddressListmobiletelephone: TWideStringField;
ADOQueryAddressListpas: TWideStringField;
ADOQueryAddressListhousetelephone: TWideStringField;
ADOQueryAddressListofficetelephone: TWideStringField;
ADOQueryAddressListothertelephone: TWideStringField;
ADOQueryAddressListclass: TWideStringField;
ADOQueryAddressListdepartment: TWideStringField;
ADOQueryAddressListemail: TWideStringField;
ADOQueryAddressListQQ: TWideStringField;
ADOQueryAddressListMSN: TWideStringField;
ADOQueryAddressListhouseaddress: TWideStringField;
ADOQueryAddressListcommunicationaddress: TWideStringField;
ADOQueryAddressListmemo: TWideStringField;
ADOQueryRoutine: TADOQuery;
DataSourceRoutine: TDataSource;
ADOQueryScheme: TADOQuery;
DataSourceScheme: TDataSource;
ADOQueryNotepad: TADOQuery;
DataSourceNotepad: TDataSource;
ADOQuerySecurity: TADOQuery;
ADOQueryNotepadID: TAutoIncField;
ADOQueryNotepadtitle: TWideStringField;
ADOQueryNotepadcontent: TWideStringField;
ADOQueryNotepadissecurity: TBooleanField;
ADOQueryRoutineID: TAutoIncField;
ADOQueryRoutinedate: TDateTimeField;
ADOQueryRoutinestarttime: TDateTimeField;
ADOQueryRoutineendtime: TDateTimeField;
ADOQueryRoutinecontent: TWideStringField;
ADOQueryRoutinestartalert: TSmallintField;
ADOQueryRoutineendalert: TSmallintField;
ADOQueryRoutinestate: TWideStringField;
ADOQuerySchemeID: TAutoIncField;
ADOQuerySchemestartdate: TDateTimeField;
ADOQuerySchemeenddate: TDateTimeField;
ADOQuerySchemeplan: TWideStringField;
ADOQuerySchemestartalert: TSmallintField;
ADOQuerySchemeendalert: TSmallintField;
ADOQuerySchemestate: TWideStringField;
ADOQuerySecurityID: TAutoIncField;
ADOQuerySecurityloginpassword: TWideStringField;
ADOQuerySecuritynotepassword: TWideStringField;
ADOQuerySecurityseed: TWideStringField;
ADOQuerySchemetitle: TWideStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModuleAssistant: TDataModuleAssistant;
implementation
{$R *.dfm}
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -