datamoduleunit.dfm

Delphi深度探索,Delphi深度探索（第二版）

object dmHR: TdmHR
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 226
  Top = 155
  Height = 323
  Width = 640
  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=D:\httpd\HtDocs\hr\' +
      'HR.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 96
    Top = 24
  end
  object dsCorp: TDataSource
    DataSet = badoCorp
    Left = 152
    Top = 24
  end
  object adocEdit: TADOCommand
    CommandText = 
      'Insert into TblOperator (OperName, Password, VisitTimes) Values(' +
      #39'intraweb'#39', '#39'intraweb'#39', 0)'
    Connection = adocHR
    Parameters = <>
    Left = 232
    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 = 328
    Top = 232
  end
  object badoEduLevel: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblEduLvl'
    Parameters = <>
    Left = 144
    Top = 224
  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 = 328
    Top = 160
  end
  object badoTechLevel: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select LevelName, TechLevel from TblTechLevel'
    Parameters = <>
    Left = 352
    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 = 312
    Top = 48
  end
  object badoOperator: TBetterADODataSet
    Connection = adocHR
    CommandText = 'select * from TblOperator'
    Parameters = <>
    Left = 472
    Top = 152
  end
  object badoQuery: TBetterADODataSet
    Connection = adocHR
    Parameters = <>
    Left = 472
    Top = 64
  end
  object dsOper: TDataSource
    AutoEdit = False
    DataSet = badoOperator
    Left = 472
    Top = 216
  end
end