maindata.dfm

我的小程序 是人事管理系统 很好的 并且有可执行文件 但是没有实验的好

object Datarenshi: TDatarenshi
  OldCreateOrder = False
  Left = 290
  Top = 212
  Height = 344
  Width = 391
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21592#24037#20449#24687
    Left = 36
    Top = 77
    object ADOTable1BH: TAutoIncField
      Alignment = taLeftJustify
      DisplayLabel = #32534#21495
      FieldName = 'BH'
    end
    object ADOTable1XM: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'XM'
      Size = 8
    end
    object ADOTable1XB: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'XB'
      Size = 2
    end
    object ADOTable1MZ: TWideStringField
      DisplayLabel = #27665#26063
      FieldName = 'MZ'
      Size = 8
    end
    object ADOTable1CSNY: TDateTimeField
      DisplayLabel = #20986#29983#24180#26376
      FieldName = 'CSNY'
      DisplayFormat = 'yyyy.mm.dd'
    end
    object ADOTable1SFZ: TWideStringField
      DisplayLabel = #36523#20221#35777
      FieldName = 'SFZ'
      Size = 18
    end
    object ADOTable1DH: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'DH'
      Size = 50
    end
    object ADOTable1XX: TWideStringField
      DisplayLabel = #34880#22411
      FieldName = 'XX'
      Size = 2
    end
    object ADOTable1JG: TWideStringField
      DisplayLabel = #31821#36143
      FieldName = 'JG'
      Size = 10
    end
    object ADOTable1BMBH: TWideStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'BMBH'
      Size = 2
    end
    object ADOTable1ZZ: TWideStringField
      DisplayLabel = #23478#24237#20303#22336
      FieldName = 'ZZ'
      Size = 30
    end
    object ADOTable1BZ: TMemoField
      FieldName = 'BZ'
      BlobType = ftMemo
    end
    object ADOTable1XLMC: TWideStringField
      FieldName = 'XLMC'
    end
    object ADOTable1zcbh: TWideStringField
      FieldName = 'zcbh'
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 100
    Top = 77
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\i5\renshi.mdb;Mo' +
      'de=ReadWrite;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 104
    Top = 136
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #37096#38376#20449#24687
    Left = 40
    Top = 136
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #23398#21382#20449#24687
    Left = 32
    Top = 192
  end
  object ADOTable4: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #24037#36164#20449#24687
    Left = 32
    Top = 256
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 96
    Top = 200
  end
  object DataSource4: TDataSource
    DataSet = ADOTable4
    Left = 96
    Top = 256
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From '#21592#24037#20449#24687' where XM like '#39#26460'%'#39' ')
    Left = 216
    Top = 96
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery1
    Left = 240
    Top = 40
  end
end