archdatamodule.~dfm

档案信息管理系统

object MainDataModule: TMainDataModule
  OldCreateOrder = False
  Left = 395
  Top = 221
  Height = 368
  Width = 518
  object ArchDBConnection: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=archD' +
      'B'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 64
    Top = 16
  end
  object AccountTable: TADOTable
    Connection = ArchDBConnection
    CursorType = ctStatic
    TableName = 'AccountTable'
    Left = 184
    Top = 8
    object AccountTableUserName: TStringField
      FieldName = 'UserName'
      FixedChar = True
      Size = 12
    end
    object AccountTablePassword: TStringField
      FieldName = 'Password'
      FixedChar = True
    end
    object AccountTableAccountRight: TStringField
      FieldName = 'AccountRight'
      FixedChar = True
      Size = 7
    end
  end
  object StuffTable: TADOTable
    Connection = ArchDBConnection
    CursorType = ctStatic
    TableName = 'StuffTable'
    Left = 184
    Top = 88
    object StuffTableName: TStringField
      FieldName = 'Name'
      FixedChar = True
      Size = 12
    end
    object StuffTableArchiveNo: TIntegerField
      FieldName = 'ArchiveNo'
    end
    object StuffTableBirthday: TDateTimeField
      FieldName = 'Birthday'
    end
    object StuffTableDegree: TStringField
      FieldName = 'Degree'
      FixedChar = True
      Size = 10
    end
    object StuffTablePosistion: TStringField
      FieldName = 'Posistion'
      FixedChar = True
      Size = 40
    end
    object StuffTableJobStartDate: TDateTimeField
      FieldName = 'JobStartDate'
    end
    object StuffTableJobEndDate: TDateTimeField
      FieldName = 'JobEndDate'
    end
    object StuffTableNote: TMemoField
      FieldName = 'Note'
      BlobType = ftMemo
    end
    object StuffTableCreateTime: TDateTimeField
      FieldName = 'CreateTime'
    end
    object StuffTableDepNo: TIntegerField
      FieldName = 'DepNo'
    end
    object StuffTableCreater: TStringField
      FieldName = 'Creater'
      FixedChar = True
      Size = 10
    end
    object StuffTableAddress: TStringField
      FieldName = 'Address'
      FixedChar = True
      Size = 30
    end
    object StuffTableTelnumber: TStringField
      FieldName = 'Telnumber'
      FixedChar = True
      Size = 10
    end
    object StuffTableGender: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Gender'
      FixedChar = True
      Size = 2
    end
  end
  object DepTable: TADOTable
    Connection = ArchDBConnection
    CursorType = ctStatic
    TableName = 'DepartmentTable'
    Left = 184
    Top = 152
    object DepTableDepNo: TAutoIncField
      FieldName = 'DepNo'
      ReadOnly = True
    end
    object DepTableDepName: TStringField
      FieldName = 'DepName'
      FixedChar = True
      Size = 10
    end
    object DepTableDepLeader: TStringField
      FieldName = 'DepLeader'
      FixedChar = True
      Size = 10
    end
    object DepTableDepMemberNo: TIntegerField
      FieldName = 'DepMemberNo'
    end
  end
  object AccountDataSource: TDataSource
    DataSet = AccountTable
    Left = 344
    Top = 16
  end
  object StuffDataSource: TDataSource
    DataSet = StuffQuery
    Left = 352
    Top = 96
  end
  object DepDataSource: TDataSource
    DataSet = DepTable
    Left = 352
    Top = 168
  end
  object StuffQuery: TADOQuery
    Connection = ArchDBConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select Name,ArchiveNo,Birthday,Gender,Degree,Posistion,JobStartD' +
        'ate,JobEndDAte,Address,TelNumber,Note,StuffTable.DepNo,DepName '
      'From Stufftable,DepartmentTable'
      'where Stufftable.DepNo = DepartmentTable.DepNo')
    Left = 184
    Top = 208
    object StuffQueryName: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'Name'
      FixedChar = True
      Size = 12
    end
    object StuffQueryArchiveNo: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = #26723#26696#21495
      FieldName = 'ArchiveNo'
    end
    object StuffQueryBirthday: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'Birthday'
    end
    object StuffQueryDegree: TStringField
      DisplayLabel = #23398#21382
      FieldName = 'Degree'
      FixedChar = True
      Size = 10
    end
    object StuffQueryPosistion: TStringField
      DisplayLabel = #32844#20301
      FieldName = 'Posistion'
      FixedChar = True
      Size = 40
    end
    object StuffQueryJobStartDate: TDateTimeField
      DisplayLabel = #31614#32422#26102#38388
      FieldName = 'JobStartDate'
    end
    object StuffQueryJobEndDAte: TDateTimeField
      DisplayLabel = #25130#27490#26085#26399
      FieldName = 'JobEndDAte'
    end
    object StuffQueryAddress: TStringField
      DisplayLabel = #23478#24237#20303#22336
      FieldName = 'Address'
      FixedChar = True
      Size = 30
    end
    object StuffQueryTelNumber: TStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'TelNumber'
      FixedChar = True
      Size = 10
    end
    object StuffQueryNote: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'Note'
      BlobType = ftMemo
    end
    object StuffQueryDepName: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'DepName'
      FixedChar = True
      Size = 10
    end
    object StuffQueryGender: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Gender'
      FixedChar = True
      Size = 2
    end
    object StuffQueryDepNo: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'DepNo'
    end
  end
  object SelectRecord: TADOQuery
    Connection = ArchDBConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select Name,ArchiveNo,Birthday,Gender,Degree,Posistion,JobStartD' +
        'ate,JobEndDAte,Address,TelNumber,Note,StuffTable.DepNo,DepName '
      'From Stufftable,DepartmentTable'
      'where Stufftable.DepNo = DepartmentTable.DepNo')
    Left = 184
    Top = 264
    object SelectRecordName: TStringField
      FieldName = 'Name'
      FixedChar = True
      Size = 12
    end
    object SelectRecordArchiveNo: TIntegerField
      FieldName = 'ArchiveNo'
    end
    object SelectRecordBirthday: TDateTimeField
      FieldName = 'Birthday'
    end
    object SelectRecordGender: TStringField
      FieldName = 'Gender'
      FixedChar = True
      Size = 2
    end
    object SelectRecordDegree: TStringField
      FieldName = 'Degree'
      FixedChar = True
      Size = 10
    end
    object SelectRecordPosistion: TStringField
      FieldName = 'Posistion'
      FixedChar = True
      Size = 40
    end
    object SelectRecordJobStartDate: TDateTimeField
      FieldName = 'JobStartDate'
    end
    object SelectRecordJobEndDAte: TDateTimeField
      FieldName = 'JobEndDAte'
    end
    object SelectRecordAddress: TStringField
      FieldName = 'Address'
      FixedChar = True
      Size = 30
    end
    object SelectRecordTelNumber: TStringField
      FieldName = 'TelNumber'
      FixedChar = True
      Size = 10
    end
    object SelectRecordNote: TMemoField
      FieldName = 'Note'
      BlobType = ftMemo
    end
    object SelectRecordDepNo: TIntegerField
      FieldName = 'DepNo'
    end
    object SelectRecordDepName: TStringField
      FieldName = 'DepName'
      FixedChar = True
      Size = 10
    end
  end
end