personneldatadm.dfm

需要使用Delphi 7.0及以上版本才能将它们打开

object PersonnelData: TPersonnelData
  OldCreateOrder = True
  Left = 186
  Top = 147
  Height = 423
  Width = 470
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=.\Per' +
      'sonnel.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
      'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
      'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
      '5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
      'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
      'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
      ':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
      'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
      'P=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 104
    Top = 16
  end
  object Personnel_infoADOTable: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'preson_info'
    Left = 56
    Top = 80
    object Personnel_infoADOTableEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
    end
    object Personnel_infoADOTableName: TWideStringField
      FieldName = 'Name'
      Size = 8
    end
    object Personnel_infoADOTableSex: TWideStringField
      FieldName = 'Sex'
      Size = 4
    end
    object Personnel_infoADOTableDate: TWideStringField
      FieldName = 'Date'
      Size = 10
    end
    object Personnel_infoADOTableCity: TWideStringField
      FieldName = 'City'
      Size = 10
    end
    object Personnel_infoADOTableNation: TWideStringField
      FieldName = 'Nation'
    end
    object Personnel_infoADOTablePolity: TWideStringField
      FieldName = 'Polity'
      Size = 10
    end
    object Personnel_infoADOTableMarry: TWideStringField
      FieldName = 'Marry'
      Size = 2
    end
    object Personnel_infoADOTableCulture: TWideStringField
      FieldName = 'Culture'
      Size = 6
    end
    object Personnel_infoADOTableGraduate: TWideStringField
      FieldName = 'Graduate'
    end
    object Personnel_infoADOTableSpec: TWideStringField
      FieldName = 'Spec'
      Size = 50
    end
    object Personnel_infoADOTableSpeci: TWideStringField
      FieldName = 'Speci'
      Size = 50
    end
    object Personnel_infoADOTableWType: TWideStringField
      FieldName = 'WType'
    end
    object Personnel_infoADOTableDuty: TWideStringField
      FieldName = 'Duty'
    end
    object Personnel_infoADOTableAddress: TWideStringField
      FieldName = 'Address'
      Size = 50
    end
    object Personnel_infoADOTablePostalcode: TWideStringField
      FieldName = 'Postalcode'
      Size = 6
    end
    object Personnel_infoADOTableHomePhone: TWideStringField
      FieldName = 'HomePhone'
    end
    object Personnel_infoADOTableMo_phone: TWideStringField
      FieldName = 'Mo_phone'
      Size = 12
    end
    object Personnel_infoADOTableEmail: TWideStringField
      FieldName = 'Email'
    end
    object Personnel_infoADOTableIDcard: TWideStringField
      FieldName = 'IDcard'
      Size = 17
    end
    object Personnel_infoADOTablePicture: TBlobField
      FieldName = 'Picture'
    end
    object Personnel_infoADOTableResume: TWideStringField
      FieldName = 'Resume'
      Size = 200
    end
    object Personnel_infoADOTableWork: TWideStringField
      FieldName = 'Work'
      Size = 200
    end
  end
  object Attend_infoADOTable: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Attend_info'
    Left = 56
    Top = 136
    object Attend_infoADOTableEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
    end
    object Attend_infoADOTableName: TWideStringField
      FieldName = 'Name'
      Size = 8
    end
    object Attend_infoADOTableTime: TWideStringField
      FieldName = 'Time'
      Size = 7
    end
    object Attend_infoADOTableLate: TIntegerField
      FieldName = 'Late'
    end
    object Attend_infoADOTableLeave_early: TIntegerField
      FieldName = 'Leave_early'
    end
    object Attend_infoADOTableAbsence: TIntegerField
      FieldName = 'Absence'
    end
    object Attend_infoADOTableJob_wound: TIntegerField
      FieldName = 'Job_wound'
    end
    object Attend_infoADOTableHoliday: TIntegerField
      FieldName = 'Holiday'
    end
    object Attend_infoADOTableS_leave: TIntegerField
      FieldName = 'S_leave'
    end
    object Attend_infoADOTablePa_leave: TIntegerField
      FieldName = 'Pa_leave'
    end
    object Attend_infoADOTableW_leave: TIntegerField
      FieldName = 'W_leave'
    end
    object Attend_infoADOTableM_leave: TIntegerField
      FieldName = 'M_leave'
    end
    object Attend_infoADOTableF_leave: TIntegerField
      FieldName = 'F_leave'
    end
    object Attend_infoADOTableH_leave: TIntegerField
      FieldName = 'H_leave'
    end
  end
  object Depart_infoADOTable: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Depart_info'
    Left = 56
    Top = 200
    object Depart_infoADOTableEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
    end
    object Depart_infoADOTableDepartName: TWideStringField
      FieldName = 'DepartName'
    end
    object Depart_infoADOTableEmployeeClass: TWideStringField
      FieldName = 'EmployeeClass'
      Size = 10
    end
    object Depart_infoADOTablePassword: TIntegerField
      FieldName = 'Password'
    end
    object Depart_infoADOTableDepartID: TFloatField
      FieldName = 'DepartID'
    end
    object Depart_infoADOTableName: TWideStringField
      FieldName = 'Name'
      Size = 8
    end
    object Depart_infoADOTableDuty: TWideStringField
      FieldName = 'Duty'
    end
  end
  object Wage_manageADOTable: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Wage_manage'
    Left = 56
    Top = 272
    object Wage_manageADOTableEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
    end
    object Wage_manageADOTableDepartID: TIntegerField
      FieldName = 'DepartID'
    end
    object Wage_manageADOTableDepartName: TWideStringField
      FieldName = 'DepartName'
      Size = 50
    end
    object Wage_manageADOTableEmployeeClass: TWideStringField
      FieldName = 'EmployeeClass'
      Size = 50
    end
    object Wage_manageADOTableName: TWideStringField
      FieldName = 'Name'
      Size = 10
    end
    object Wage_manageADOTableBase_pay: TFloatField
      FieldName = 'Base_pay'
    end
    object Wage_manageADOTableBase_prize: TFloatField
      FieldName = 'Base_prize'
    end
    object Wage_manageADOTableBenefit_prize: TFloatField
      FieldName = 'Benefit_prize'
    end
    object Wage_manageADOTableE_insurance: TFloatField
      FieldName = 'E_insurance'
    end
    object Wage_manageADOTableMedicare: TFloatField
      FieldName = 'Medicare'
    end
    object Wage_manageADOTableDeprive_pay: TFloatField
      FieldName = 'Deprive_pay'
    end
    object Wage_manageADOTableDeprive_prize: TFloatField
      FieldName = 'Deprive_prize'
    end
    object Wage_manageADOTableDeprive_attend: TFloatField
      FieldName = 'Deprive_attend'
    end
    object Wage_manageADOTablePay: TFloatField
      FieldName = 'Pay'
    end
  end
  object Personnel_infoDS: TDataSource
    DataSet = Personnel_infoADOTable
    Left = 168
    Top = 80
  end
  object Attend_infoDS: TDataSource
    DataSet = Attend_infoADOTable
    Left = 168
    Top = 136
  end
  object Depart_infoDS: TDataSource
    DataSet = Depart_infoADOTable
    Left = 168
    Top = 200
  end
  object Wage_manageDS: TDataSource
    DataSet = Wage_manageADOTable
    Left = 168
    Top = 272
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 56
    Top = 336
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery1
    Left = 168
    Top = 336
  end
  object Personnel_infoDSC: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Personnel_infoADOTable
    Left = 384
    Top = 80
  end
  object Personnel_infoRP: TRvProject
    Engine = RvSystem1
    LoadDesigner = True
    ProjectFile = '.\preson_info.rav'
    Left = 280
    Top = 80
  end
  object RvSystem1: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = 'Report Status'
    TitlePreview = 'Report Preview'
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup]
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 328
    Top = 16
  end
  object Attend_infoDSC: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Attend_infoADOTable
    Left = 384
    Top = 136
  end
  object Attend_infoRP: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\attend.rav'
    Left = 280
    Top = 136
  end
  object Depart_infoRP: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\personlist.rav'
    Left = 280
    Top = 200
  end
  object Depart_infoDSC: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Depart_infoADOTable
    Left = 384
    Top = 200
  end
  object Wage_manageRP: TRvProject
    Engine = RvSystem1
    ProjectFile = '.\Wage.rav'
    Left = 280
    Top = 272
  end
  object Wage_manageDSC: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = Wage_manageADOTable
    Left = 384
    Top = 272
  end
end