datamoduleunit.dfm

HR人力资源 (修改版) 含开发手记

object dmHR: TdmHR
  OldCreateOrder = False
  Left = 226
  Top = 155
  Height = 270
  Width = 453
  object adocHR: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HR.mdb;Persist Secu' +
      'rity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 8
  end
  object dsCorp: TDataSource
    DataSet = BADOCorp
    Left = 56
    Top = 56
  end
  object adocEdit: TADOCommand
    Connection = adocHR
    Parameters = <>
    Left = 8
    Top = 160
  end
  object dsHuman: TDataSource
    DataSet = BADOHuman
    Left = 64
    Top = 103
  end
  object BADOCorp: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblCorp'
    Parameters = <>
    Left = 8
    Top = 56
    object BADOCorpCorpID: TAutoIncField
      FieldName = 'CorpID'
      ReadOnly = True
    end
    object BADOCorpChnName: TWideStringField
      FieldName = 'ChnName'
      Size = 64
    end
    object BADOCorpEngName: TWideStringField
      FieldName = 'EngName'
      Size = 64
    end
    object BADOCorpPhone: TWideStringField
      FieldName = 'Phone'
      Size = 32
    end
    object BADOCorpFax: TWideStringField
      FieldName = 'Fax'
      Size = 32
    end
    object BADOCorpChnInfo: TMemoField
      FieldName = 'ChnInfo'
      BlobType = ftMemo
    end
    object BADOCorpEngInfo: TMemoField
      FieldName = 'EngInfo'
      BlobType = ftMemo
    end
    object BADOCorpComments: TMemoField
      FieldName = 'Comments'
      BlobType = ftMemo
    end
  end
  object BADOHuman: TADODataSet
    Connection = adocHR
    CommandText = 'select * from TblHuman'
    Parameters = <>
    Left = 8
    Top = 104
  end
  object BADOSex: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblSexCode'
    Parameters = <>
    Left = 264
    Top = 88
  end
  object BADOCountry: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblCountryCode'
    Parameters = <>
    Left = 320
    Top = 88
  end
  object BADOEduLevel: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblEduLvl'
    Parameters = <>
    Left = 384
    Top = 88
  end
  object BADOEngLevel: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblEngLevel'
    Parameters = <>
    Left = 264
    Top = 136
  end
  object BADOTech: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblTechCode'
    Parameters = <>
    Left = 328
    Top = 136
  end
  object BADOTechLevel: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblTechLevel'
    Parameters = <>
    Left = 384
    Top = 136
  end
  object BADOHumanTech: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblHumanTech'
    Parameters = <>
    Left = 264
    Top = 192
  end
  object BADOOperator: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from TblOperator'
    Parameters = <>
    Left = 320
    Top = 184
  end
  object BADOQuery: TADODataSet
    Connection = adocHR
    CursorType = ctStatic
    CommandText = 'select * from FilterQuery'
    Parameters = <>
    Left = 384
    Top = 192
  end
end