personneldatadm.pas

通用工资管理系统 考察某中小型企业

unit PersonnelDataDM;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB, RpBase, RpSystem, RpRave, RpDefine, RpCon,
  RpConDS;

type
  TPersonnelData = class(TDataModule)
    ADOConnection1: TADOConnection;
    Personnel_infoADOTable: TADOTable;
    Attend_infoADOTable: TADOTable;
    Depart_infoADOTable: TADOTable;
    Wage_manageADOTable: TADOTable;
    Personnel_infoDS: TDataSource;
    Attend_infoDS: TDataSource;
    Depart_infoDS: TDataSource;
    Wage_manageDS: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource5: TDataSource;
    Personnel_infoDSC: TRvDataSetConnection;
    Personnel_infoRP: TRvProject;
    RvSystem1: TRvSystem;
    Attend_infoDSC: TRvDataSetConnection;
    Attend_infoRP: TRvProject;
    Depart_infoRP: TRvProject;
    Depart_infoDSC: TRvDataSetConnection;
    Wage_manageRP: TRvProject;
    Wage_manageDSC: TRvDataSetConnection;
    Depart_infoADOTableEmployeeID: TIntegerField;
    Depart_infoADOTableDepartName: TWideStringField;
    Depart_infoADOTableEmployeeClass: TWideStringField;
    Depart_infoADOTablePassword: TIntegerField;
    Depart_infoADOTableDepartID: TFloatField;
    Depart_infoADOTableName: TWideStringField;
    Depart_infoADOTableDuty: TWideStringField;
    Attend_infoADOTableEmployeeID: TIntegerField;
    Attend_infoADOTableName: TWideStringField;
    Attend_infoADOTableTime: TWideStringField;
    Attend_infoADOTableLate: TIntegerField;
    Attend_infoADOTableLeave_early: TIntegerField;
    Attend_infoADOTableAbsence: TIntegerField;
    Attend_infoADOTableJob_wound: TIntegerField;
    Attend_infoADOTableHoliday: TIntegerField;
    Attend_infoADOTableS_leave: TIntegerField;
    Attend_infoADOTablePa_leave: TIntegerField;
    Attend_infoADOTableW_leave: TIntegerField;
    Attend_infoADOTableM_leave: TIntegerField;
    Attend_infoADOTableF_leave: TIntegerField;
    Attend_infoADOTableH_leave: TIntegerField;
    Personnel_infoADOTableEmployeeID: TIntegerField;
    Personnel_infoADOTableName: TWideStringField;
    Personnel_infoADOTableSex: TWideStringField;
    Personnel_infoADOTableDate: TWideStringField;
    Personnel_infoADOTableCity: TWideStringField;
    Personnel_infoADOTableNation: TWideStringField;
    Personnel_infoADOTablePolity: TWideStringField;
    Personnel_infoADOTableMarry: TWideStringField;
    Personnel_infoADOTableCulture: TWideStringField;
    Personnel_infoADOTableGraduate: TWideStringField;
    Personnel_infoADOTableSpec: TWideStringField;
    Personnel_infoADOTableSpeci: TWideStringField;
    Personnel_infoADOTableWType: TWideStringField;
    Personnel_infoADOTableDuty: TWideStringField;
    Personnel_infoADOTableAddress: TWideStringField;
    Personnel_infoADOTablePostalcode: TWideStringField;
    Personnel_infoADOTableHomePhone: TWideStringField;
    Personnel_infoADOTableMo_phone: TWideStringField;
    Personnel_infoADOTableEmail: TWideStringField;
    Personnel_infoADOTableIDcard: TWideStringField;
    Personnel_infoADOTablePicture: TBlobField;
    Personnel_infoADOTableResume: TWideStringField;
    Personnel_infoADOTableWork: TWideStringField;
    Wage_manageADOTableEmployeeID: TIntegerField;
    Wage_manageADOTableDepartID: TIntegerField;
    Wage_manageADOTableDepartName: TWideStringField;
    Wage_manageADOTableEmployeeClass: TWideStringField;
    Wage_manageADOTableName: TWideStringField;
    Wage_manageADOTableBase_pay: TFloatField;
    Wage_manageADOTableBase_prize: TFloatField;
    Wage_manageADOTableBenefit_prize: TFloatField;
    Wage_manageADOTableE_insurance: TFloatField;
    Wage_manageADOTableMedicare: TFloatField;
    Wage_manageADOTableDeprive_pay: TFloatField;
    Wage_manageADOTableDeprive_prize: TFloatField;
    Wage_manageADOTableDeprive_attend: TFloatField;
    Wage_manageADOTablePay: TFloatField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PersonnelData: TPersonnelData;

implementation

{$R *.dfm}

end.