datamoduleunit.dfm

人力资源的信息。其他人不需帐号就可自由下载此源码

object dmHR: TdmHR
  OldCreateOrder = False
  Left = 226
  Top = 155
  Height = 270
  Width = 453
  object badoCorp: TBetterADODataSet
    Connection = adocHR
    CommandText = 
      'select ChnInfo, ChnName, Comments, CorpID, EngInfo, EngName, Fax' +
      ', Phone from TblCorp'
    Parameters = <>
    Left = 24
    Top = 32
    object badoCorpNo: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'No'
      Calculated = True
    end
    object badoCorpChnInfo: TMemoField
      FieldName = 'ChnInfo'
      BlobType = ftMemo
    end
    object badoCorpChnName: TWideStringField
      FieldName = 'ChnName'
      Size = 64
    end
    object badoCorpComments: TMemoField
      FieldName = 'Comments'
      BlobType = ftMemo
    end
    object badoCorpCorpID: TAutoIncField
      FieldName = 'CorpID'
      ReadOnly = True
    end
    object badoCorpEngInfo: TMemoField
      FieldName = 'EngInfo'
      BlobType = ftMemo
    end
    object badoCorpEngName: TWideStringField
      FieldName = 'EngName'
      Size = 64
    end
    object badoCorpFax: TWideStringField
      FieldName = 'Fax'
      Size = 32
    end
    object badoCorpPhone: TWideStringField
      FieldName = 'Phone'
      Size = 32
    end
  end
  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 = 80
    Top = 32
  end
  object dsCorp: TDataSource
    DataSet = badoCorp
    Left = 144
    Top = 32
  end
  object adocEdit: TADOCommand
    Connection = adocHR
    Parameters = <>
    Left = 224
    Top = 104
  end
  object badoHuman: TBetterADODataSet
    Connection = adocHR
    Filtered = True
    CommandText = 'select * from TblHuman'
    Parameters = <>
    Left = 24
    Top = 104
  end
  object dsHuman: TDataSource
    DataSet = badoHuman
    Left = 152
    Top = 103
  end
  object badoSex: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblSexCode'
    Parameters = <>
    Left = 24
    Top = 160
  end
  object badoCountry: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblCountryCode'
    Parameters = <>
    Left = 88
    Top = 104
  end
  object badoEduLevel: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblEduLvl'
    Parameters = <>
    Left = 144
    Top = 160
  end
  object badoEngLevel: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblEngLevel'
    Parameters = <>
    Left = 232
    Top = 160
  end
  object badoTech: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblTechCode'
    Parameters = <>
    Left = 304
    Top = 168
  end
  object badoTechLevel: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select LevelName, TechLevel from TblTechLevel'
    Parameters = <>
    Left = 304
    Top = 104
  end
  object badoHumanTech: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select TechCode, TechLevel from TblHumanTech Where HID=:HID'
    Parameters = <
      item
        Name = 'HID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 304
    Top = 48
  end
  object badoOperator: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblOperator'
    Parameters = <>
    Left = 384
    Top = 168
  end
  object badoQuery: TBetterADODataSet
    Connection = adocHR
    Parameters = <>
    Left = 384
    Top = 104
  end
end