db.~dfm

用c++builder编写的人事管理系统,主要用于公司进行人事管理,工资发放使用.界面简介好用,功能较为简单,本人本科设计时编写

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 616
  Top = 137
  Height = 183
  Width = 400
  object Table1: TTable
    DatabaseName = 'db'
    TableName = 'dbo.Employ'
    Left = 48
    Top = 8
    object Table1ENO: TIntegerField
      FieldName = 'ENO'
      Required = True
    end
    object Table1EName: TStringField
      FieldName = 'EName'
      Required = True
      Size = 50
    end
    object Table1Address: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object Table1TelNO: TStringField
      FieldName = 'TelNO'
      Size = 50
    end
    object Table1Salary: TFloatField
      FieldName = 'Salary'
    end
    object Table1ID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object Table1EnterDate: TDateTimeField
      FieldName = 'EnterDate'
    end
    object Table1DNO: TIntegerField
      FieldName = 'DNO'
    end
  end
  object Database1: TDatabase
    AliasName = 'PersonalSystem'
    DatabaseName = 'db'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 8
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 48
    Top = 56
  end
  object Table2: TTable
    DatabaseName = 'db'
    IndexFieldNames = 'DNO'
    TableName = 'dbo.Department'
    Left = 88
    Top = 8
    object Table2DNO: TIntegerField
      FieldName = 'DNO'
      Required = True
    end
    object Table2DName: TStringField
      FieldName = 'DName'
      Size = 50
    end
    object Table2TelNO: TStringField
      FieldName = 'TelNO'
      Size = 50
    end
    object Table2ChargeNO: TIntegerField
      FieldName = 'ChargeNO'
    end
  end
  object Table3: TTable
    DatabaseName = 'db'
    IndexFieldNames = 'ENO'
    TableName = 'dbo.Award_Pulish'
    Left = 128
    Top = 8
    object Table3ENO: TIntegerField
      FieldName = 'ENO'
      Required = True
    end
    object Table3APDate: TDateTimeField
      FieldName = 'APDate'
    end
    object Table3Content: TMemoField
      FieldName = 'Content'
      BlobType = ftMemo
      Size = 1
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 88
    Top = 56
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 128
    Top = 56
  end
  object Table4: TTable
    DatabaseName = 'db'
    IndexFieldNames = 'Account'
    TableName = 'dbo.Account'
    Left = 168
    Top = 8
    object Table4Account: TStringField
      FieldName = 'Account'
      Required = True
      Size = 50
    end
    object Table4Password: TStringField
      FieldName = 'Password'
      Size = 50
    end
    object Table4ifManager: TIntegerField
      FieldName = 'ifManager'
    end
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 168
    Top = 56
  end
  object Table5: TTable
    DatabaseName = 'db'
    IndexFieldNames = 'ENO'
    MasterFields = 'ChargeNO'
    MasterSource = DataSource2
    TableName = 'dbo.Employ'
    Left = 200
    Top = 8
    object Table5ENO: TIntegerField
      FieldName = 'ENO'
      Required = True
    end
    object Table5EName: TStringField
      FieldName = 'EName'
      Required = True
      Size = 50
    end
    object Table5Address: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object Table5TelNO: TStringField
      FieldName = 'TelNO'
      Size = 50
    end
    object Table5Salary: TFloatField
      FieldName = 'Salary'
    end
    object Table5ID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object Table5EnterDate: TDateTimeField
      FieldName = 'EnterDate'
    end
    object Table5DNO: TIntegerField
      FieldName = 'DNO'
    end
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 200
    Top = 56
  end
  object Table6: TTable
    DatabaseName = 'db'
    IndexFieldNames = 'ENO'
    MasterFields = 'ENO'
    MasterSource = DataSource3
    TableName = 'dbo.Employ'
    Left = 240
    Top = 8
    object Table6ENO: TIntegerField
      FieldName = 'ENO'
      Required = True
    end
    object Table6EName: TStringField
      FieldName = 'EName'
      Required = True
      Size = 50
    end
    object Table6Address: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object Table6TelNO: TStringField
      FieldName = 'TelNO'
      Size = 50
    end
    object Table6Salary: TFloatField
      FieldName = 'Salary'
    end
    object Table6ID: TStringField
      FieldName = 'ID'
      Size = 50
    end
    object Table6EnterDate: TDateTimeField
      FieldName = 'EnterDate'
    end
    object Table6DNO: TIntegerField
      FieldName = 'DNO'
    end
  end
  object DataSource6: TDataSource
    DataSet = Table6
    Left = 240
    Top = 56
  end
  object Table7: TTable
    DatabaseName = 'db'
    IndexFieldNames = 'DNO'
    MasterFields = 'DNO'
    MasterSource = DataSource1
    TableName = 'dbo.Department'
    Left = 280
    Top = 8
  end
  object DataSource7: TDataSource
    DataSet = Table7
    Left = 280
    Top = 56
  end
end