data.dfm

关于DEPHI7.0的人力资源信息管理系统源代码

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 406
  Top = 184
  Height = 402
  Width = 310
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 40
    Top = 24
  end
  object Table1: TTable
    DatabaseName = 'd:\Delphi7\DevBOOK\Ch05_human\db'
    TableName = 'Person.DB'
    Left = 120
    Top = 24
    object Table1EMPID: TStringField
      FieldName = 'EMPID'
      Size = 4
    end
    object Table1SEX: TStringField
      FieldName = 'SEX'
      Size = 2
    end
    object Table1BIRTHDAY: TDateField
      FieldName = 'BIRTHDAY'
    end
    object Table1IDCARD: TStringField
      FieldName = 'IDCARD'
      Size = 18
    end
    object Table1NATIVE: TStringField
      FieldName = 'NATIVE'
      Size = 40
    end
    object Table1JOBFROM: TDateField
      FieldName = 'JOBFROM'
    end
    object Table1JOBYEAR: TStringField
      FieldName = 'JOBYEAR'
      Size = 2
    end
    object Table1HOMEADDRESS: TStringField
      FieldName = 'HOMEADDRESS'
      Size = 120
    end
    object Table1TECHTITLE: TStringField
      FieldName = 'TECHTITLE'
    end
    object Table1POSITIONTITLE: TStringField
      FieldName = 'POSITIONTITLE'
    end
    object Table1MARRIAGE: TStringField
      FieldName = 'MARRIAGE'
      Size = 10
    end
    object Table1EDU: TStringField
      FieldName = 'EDU'
    end
    object Table1POLITY: TStringField
      FieldName = 'POLITY'
    end
    object Table1NATION: TStringField
      FieldName = 'NATION'
    end
    object Table1DEGREE: TStringField
      FieldName = 'DEGREE'
      Size = 10
    end
    object Table1ADMINPOSITION: TStringField
      FieldName = 'ADMINPOSITION'
    end
    object Table1JOBKIND: TStringField
      FieldName = 'JOBKIND'
      Size = 10
    end
    object Table1HEALTH: TStringField
      FieldName = 'HEALTH'
      Size = 10
    end
    object Table1JOBTYPE: TStringField
      FieldName = 'JOBTYPE'
    end
    object Table1EMPSTATE: TStringField
      FieldName = 'EMPSTATE'
    end
    object Table1POSTCLASS: TStringField
      FieldName = 'POSTCLASS'
      Size = 30
    end
    object Table1ADMINSIGN: TStringField
      FieldName = 'ADMINSIGN'
      Size = 10
    end
    object Table1SPECIALITY: TStringField
      FieldName = 'SPECIALITY'
      Size = 80
    end
    object Table1CLANDATE: TDateField
      FieldName = 'CLANDATE'
    end
    object Table1FOREIGNLANGUAGE: TStringField
      FieldName = 'FOREIGNLANGUAGE'
    end
    object Table1FOREIGNGRADE: TStringField
      FieldName = 'FOREIGNGRADE'
      Size = 10
    end
    object Table1PHONE: TStringField
      FieldName = 'PHONE'
    end
    object Table1EMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object Table1OFFICE: TStringField
      FieldName = 'OFFICE'
    end
    object Table1EMPNAME: TStringField
      FieldName = 'EMPNAME'
      Size = 10
    end
    object Table1MOBILEPHONE: TStringField
      FieldName = 'MOBILEPHONE'
      Size = 15
    end
    object Table1ZIP: TStringField
      FieldName = 'ZIP'
      Size = 6
    end
    object Table1EMPDEPT: TStringField
      FieldName = 'EMPDEPT'
      Size = 30
    end
    object Table1ENTERDATE: TDateField
      FieldName = 'ENTERDATE'
    end
    object Table1PHOTO: TStringField
      FieldName = 'PHOTO'
      Size = 100
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 40
    Top = 88
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 40
    Top = 200
  end
  object Table5: TTable
    DatabaseName = 'd:\Delphi7\DevBOOK\Ch05_human\db'
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = DataSource1
    TableName = 'Contract.db'
    Left = 120
    Top = 200
    object Table5HTNUMBER: TStringField
      FieldName = 'HTNUMBER'
    end
    object Table5HTTIMELIMIT: TStringField
      FieldName = 'HTTIMELIMIT'
      Size = 10
    end
    object Table5StartDate: TDateField
      FieldName = 'StartDate'
    end
    object Table5VISEDate: TDateField
      FieldName = 'VISEDate'
    end
    object Table5EndDate: TDateField
      FieldName = 'EndDate'
    end
    object Table5STOPREASON: TStringField
      FieldName = 'STOPREASON'
      Size = 50
    end
    object Table5STOPBYDEPT: TStringField
      FieldName = 'STOPBYDEPT'
      Size = 30
    end
    object Table5STOPDate: TDateField
      FieldName = 'STOPDate'
    end
    object Table5EMPID: TStringField
      FieldName = 'EMPID'
      Size = 4
    end
    object Table5EMPDEPT: TStringField
      FieldName = 'EMPDEPT'
      Size = 30
    end
    object Table5EMPNAME: TStringField
      FieldName = 'EMPNAME'
      Size = 10
    end
  end
  object DataSource6: TDataSource
    DataSet = Table6
    Left = 40
    Top = 256
  end
  object Table6: TTable
    DatabaseName = 'd:\Delphi7\DevBOOK\Ch05_human\db'
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = DataSource1
    TableName = 'Achievement.db'
    Left = 120
    Top = 256
    object Table6EMPID: TStringField
      FieldName = 'EMPID'
      Size = 4
    end
    object Table6StartDate: TDateField
      FieldName = 'StartDate'
    end
    object Table6EndDate: TDateField
      FieldName = 'EndDate'
    end
    object Table6ACHIEVESUVEY: TStringField
      FieldName = 'ACHIEVESUVEY'
      Size = 100
    end
    object Table6ENCOURAGE: TStringField
      FieldName = 'ENCOURAGE'
      Size = 50
    end
    object Table6DEALSTATION: TStringField
      FieldName = 'DEALSTATION'
      Size = 50
    end
    object Table6ACHIEVENAME: TStringField
      FieldName = 'ACHIEVENAME'
      Size = 30
    end
    object Table6EMPNAME: TStringField
      FieldName = 'EMPNAME'
      Size = 10
    end
    object Table6EMPDEPT: TStringField
      FieldName = 'EMPDEPT'
    end
  end
  object DataSource7: TDataSource
    DataSet = Table7
    Left = 40
    Top = 312
  end
  object Table2: TTable
    DatabaseName = 'd:\Delphi7\DevBOOK\Ch05_human\db'
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = DataSource1
    TableName = 'Edu.DB'
    Left = 120
    Top = 88
    object Table2EMPID: TStringField
      FieldName = 'EMPID'
      Size = 4
    end
    object Table2EDUDEGREE: TStringField
      FieldName = 'EDUDEGREE'
      Size = 10
    end
    object Table2SPECIALITY: TStringField
      FieldName = 'SPECIALITY'
      Size = 30
    end
    object Table2SCHOOL: TStringField
      FieldName = 'SCHOOL'
      Size = 40
    end
    object Table2GRADUATEDate: TDateField
      FieldName = 'GRADUATEDate'
    end
    object Table2SPECIALITY2: TStringField
      FieldName = 'SPECIALITY2'
      Size = 40
    end
    object Table2SCHOOL2: TStringField
      FieldName = 'SCHOOL2'
      Size = 40
    end
    object Table2GRADUATEDate2: TDateField
      FieldName = 'GRADUATEDate2'
    end
    object Table2EMPNAME: TStringField
      FieldName = 'EMPNAME'
      Size = 10
    end
    object Table2EMPDEPT: TStringField
      FieldName = 'EMPDEPT'
    end
  end
  object Table7: TTable
    DatabaseName = 'd:\Delphi7\DevBOOK\Ch05_human\db'
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = DataSource1
    TableName = 'Photo.db'
    Left = 120
    Top = 312
    object Table7EMPID: TStringField
      FieldName = 'EMPID'
      Size = 4
    end
    object Table7EMPNAME: TStringField
      FieldName = 'EMPNAME'
      Size = 10
    end
    object Table7EMPDEPT: TStringField
      FieldName = 'EMPDEPT'
    end
    object Table7PHOTO: TGraphicField
      FieldName = 'PHOTO'
      BlobType = ftGraphic
    end
  end
  object Table4: TTable
    DatabaseName = 'd:\Delphi7\DevBOOK\Ch05_human\db'
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = DataSource1
    TableName = 'JobExp.db'
    Left = 120
    Top = 144
    object Table4StartDate: TDateField
      FieldName = 'StartDate'
    end
    object Table4EndDate: TDateField
      FieldName = 'EndDate'
    end
    object Table4TECHGRADE: TStringField
      FieldName = 'TECHGRADE'
      Size = 40
    end
    object Table4TECHPOSITION: TStringField
      FieldName = 'TECHPOSITION'
    end
    object Table4ADMINGRADE: TStringField
      FieldName = 'ADMINGRADE'
      Size = 10
    end
    object Table4ADMINPOSITION: TStringField
      FieldName = 'ADMINPOSITION'
    end
    object Table4JOBPOSITION: TStringField
      FieldName = 'JOBPOSITION'
    end
    object Table4JOBTYPE: TStringField
      FieldName = 'JOBTYPE'
    end
    object Table4EMPID: TStringField
      FieldName = 'EMPID'
      Size = 4
    end
    object Table4EMPNAME: TStringField
      FieldName = 'EMPNAME'
      Size = 10
    end
    object Table4INDEPT: TStringField
      FieldName = 'INDEPT'
      Size = 40
    end
    object Table4INCORP: TStringField
      FieldName = 'INCORP'
      Size = 40
    end
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 40
    Top = 144
  end
  object Table3: TTable
    DatabaseName = 'd:\Delphi7\DevBOOK\Ch05_human\db'
    TableName = 'Password.db'
    Left = 232
    Top = 72
    object Table3ManagerName: TStringField
      FieldName = 'ManagerName'
    end
    object Table3PassWord: TStringField
      FieldName = 'PassWord'
      Size = 12
    end
    object Table3UseDate: TDateField
      FieldName = 'UseDate'
    end
    object Table3UseTime: TTimeField
      FieldName = 'UseTime'
    end
  end
  object DataSource3: TDataSource
    AutoEdit = False
    DataSet = Table3
    Left = 232
    Top = 128
  end
end