dmassistant.~dfm

自己写的一个用于管理通讯录、记事、计划管理等的小程序。

object DataModuleAssistant: TDataModuleAssistant
  OldCreateOrder = False
  Left = 199
  Top = 292
  Height = 233
  Width = 697
  object ADOConnection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Extended Properti' +
      'es="DBQ=E:\myassistant\data\myassistant.mdb;DefaultDir=E:\myassi' +
      'stant\data;Driver={Driver do Microsoft Access (*.mdb)};DriverId=' +
      '25;Exclusive=0;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;Re' +
      'adOnly=0;UID=admin;"'
    LoginPrompt = False
    Left = 48
    Top = 24
  end
  object ADOQueryAddressList: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from addresslist')
    Left = 152
    Top = 24
    object ADOQueryAddressListID: TAutoIncField
      Alignment = taLeftJustify
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQueryAddressListname: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'name'
      Size = 8
    end
    object ADOQueryAddressListmobiletelephone: TWideStringField
      DisplayLabel = #25163#26426
      FieldName = 'mobiletelephone'
      Size = 12
    end
    object ADOQueryAddressListemail: TWideStringField
      DisplayLabel = #30005#23376#20449#31665
      DisplayWidth = 20
      FieldName = 'email'
      Size = 50
    end
    object ADOQueryAddressListQQ: TWideStringField
      DisplayLabel = 'QQ'#21495#30721
      FieldName = 'QQ'
      Size = 10
    end
    object ADOQueryAddressListMSN: TWideStringField
      DisplayLabel = 'MSN'#24080#21495
      DisplayWidth = 20
      FieldName = 'MSN'
      Size = 25
    end
    object ADOQueryAddressListpas: TWideStringField
      DisplayLabel = #23567#28789#36890
      FieldName = 'pas'
      Size = 12
    end
    object ADOQueryAddressListhousetelephone: TWideStringField
      DisplayLabel = #23478#24237#30005#35805
      FieldName = 'housetelephone'
      Size = 12
    end
    object ADOQueryAddressListofficetelephone: TWideStringField
      DisplayLabel = #21150#20844#30005#35805
      FieldName = 'officetelephone'
      Size = 12
    end
    object ADOQueryAddressListothertelephone: TWideStringField
      DisplayLabel = #20854#23427#30005#35805
      DisplayWidth = 12
      FieldName = 'othertelephone'
      Size = 25
    end
    object ADOQueryAddressListclass: TWideStringField
      DisplayLabel = #20998#31867
      FieldName = 'class'
      Size = 6
    end
    object ADOQueryAddressListdepartment: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'department'
    end
    object ADOQueryAddressListhouseaddress: TWideStringField
      DisplayLabel = #23478#24237#20303#22336
      DisplayWidth = 20
      FieldName = 'houseaddress'
      Size = 26
    end
    object ADOQueryAddressListcommunicationaddress: TWideStringField
      DisplayLabel = #36890#20449#22320#22336
      DisplayWidth = 20
      FieldName = 'communicationaddress'
      Size = 30
    end
    object ADOQueryAddressListmemo: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'memo'
      Size = 100
    end
  end
  object DataSourceAddressList: TDataSource
    DataSet = ADOQueryAddressList
    Left = 152
    Top = 88
  end
  object ADOQueryRoutine: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from routine')
    Left = 264
    Top = 24
    object ADOQueryRoutineID: TAutoIncField
      Alignment = taLeftJustify
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQueryRoutinedate: TDateTimeField
      Alignment = taCenter
      DisplayLabel = '  '#26085'  '#26399
      DisplayWidth = 10
      FieldName = 'date'
    end
    object ADOQueryRoutinestarttime: TDateTimeField
      Alignment = taCenter
      DisplayLabel = #24320#22987#26102#38388
      DisplayWidth = 8
      FieldName = 'starttime'
      KeyFields = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfHidden]
      EditMask = '!90:00;1;_'
    end
    object ADOQueryRoutineendtime: TDateTimeField
      Alignment = taCenter
      DisplayLabel = #32467#26463#26102#38388
      DisplayWidth = 8
      FieldName = 'endtime'
      EditMask = '!90:00;1;_'
    end
    object ADOQueryRoutinestartalert: TSmallintField
      DisplayLabel = #24320#22987#25552#37266
      FieldName = 'startalert'
    end
    object ADOQueryRoutinestate: TWideStringField
      DisplayLabel = #29366#24577
      FieldName = 'state'
      Size = 6
    end
    object ADOQueryRoutineendalert: TSmallintField
      DisplayLabel = #32467#26463#25552#37266
      FieldName = 'endalert'
    end
    object ADOQueryRoutinecontent: TWideStringField
      DisplayLabel = #26085#31243#23433#25490
      DisplayWidth = 20
      FieldName = 'content'
      Size = 200
    end
  end
  object DataSourceRoutine: TDataSource
    DataSet = ADOQueryRoutine
    Left = 272
    Top = 88
  end
  object ADOQueryScheme: TADOQuery
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from scheme')
    Left = 384
    Top = 24
    object ADOQuerySchemeID: TAutoIncField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuerySchemestartdate: TDateTimeField
      DisplayLabel = #24320#22987#26085#26399
      DisplayWidth = 9
      FieldName = 'startdate'
    end
    object ADOQuerySchemeenddate: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      DisplayWidth = 9
      FieldName = 'enddate'
    end
    object ADOQuerySchemetitle: TWideStringField
      Alignment = taCenter
      DisplayLabel = #26631#39064
      DisplayWidth = 20
      FieldName = 'title'
      Size = 30
    end
    object ADOQuerySchemestate: TWideStringField
      DisplayLabel = #29366#24577
      DisplayWidth = 6
      FieldName = 'state'
      Size = 6
    end
    object ADOQuerySchemeplan: TWideStringField
      DisplayLabel = #35745#21010
      FieldName = 'plan'
      Size = 200
    end
    object ADOQuerySchemestartalert: TSmallintField
      FieldName = 'startalert'
    end
    object ADOQuerySchemeendalert: TSmallintField
      FieldName = 'endalert'
    end
  end
  object DataSourceScheme: TDataSource
    DataSet = ADOQueryScheme
    Left = 384
    Top = 88
  end
  object ADOQueryNotepad: TADOQuery
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from notepad')
    Left = 504
    Top = 24
    object ADOQueryNotepadID: TAutoIncField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQueryNotepadtitle: TWideStringField
      DisplayLabel = #26631#39064
      DisplayWidth = 28
      FieldName = 'title'
      Size = 50
    end
    object ADOQueryNotepadissecurity: TBooleanField
      DisplayLabel = #20445#23494
      DisplayWidth = 7
      FieldName = 'issecurity'
      DisplayValues = 'True'
    end
    object ADOQueryNotepadcontent: TWideStringField
      DisplayLabel = #20869#23481
      FieldName = 'content'
      Visible = False
      Size = 250
    end
  end
  object DataSourceNotepad: TDataSource
    DataSet = ADOQueryNotepad
    Left = 504
    Top = 88
  end
  object ADOQuerySecurity: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from user')
    Left = 616
    Top = 24
    object ADOQuerySecurityID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuerySecurityloginpassword: TWideStringField
      FieldName = 'loginpassword'
      Size = 12
    end
    object ADOQuerySecuritynotepassword: TWideStringField
      FieldName = 'notepassword'
      Size = 12
    end
    object ADOQuerySecurityseed: TWideStringField
      FieldName = 'seed'
      Size = 5
    end
  end
end