dmassistant.~pas

来自「自己写的一个用于管理通讯录、记事、计划管理等的小程序。」· ~PAS 代码 · 共 73 行

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.