person.dpr

一个很不错的人事考勤系统,功能齐全,附带源码.

program Person;

uses
  Forms,
  main in 'main.pas' {mainfm},
  U_RSGL in 'U_RSGL.pas' {F_RSGL},
  U_dm in 'U_dm.pas' {DM: TDataModule},
  U_KQGL in 'U_KQGL.pas' {F_KQGL},
  U_teams in 'U_teams.pas' {F_teams},
  U_date in 'U_date.pas' {F_date},
  U_empteams in 'U_empteams.pas' {F_empteams},
  U_state in 'U_state.pas' {F_state},
  U_RS_DM in 'U_RS_DM.pas' {RS_DM: TDataModule},
  U_empbase in 'U_empbase.pas' {F_empbase},
  U_addemp in 'U_addemp.pas' {F_addemp},
  U_inputemp in 'U_inputemp.pas' {F_inputemp},
  U_fromdateto in 'U_fromdateto.pas' {F_fromdateto},
  U_kqdata in 'U_kqdata.pas' {F_kqdata},
  RU_teams in 'RU_teams.pas' {RF_teams},
  U_changecard in 'U_changecard.pas' {F_changecard},
  U_handexception in 'U_handexception.pas' {F_handexception},
  U_lookupkqdata in 'U_lookupkqdata.pas' {F_lookupkqdata},
  U_everydaytime in 'U_everydaytime.pas' {F_everydaytime},
  RU_exceptionclass in 'RU_exceptionclass.pas' {QR_exceptionclass},
  U_Noteams in 'U_Noteams.pas' {F_Noteams},
  UR_lookupkqdata in 'UR_lookupkqdata.pas' {FR_lookupkqdata},
  U_GSout in 'U_GSout.pas' {F_GSout},
  U_empworktime in 'U_empworktime.pas' {F_empworktime},
  U_GS_DM in 'U_GS_DM.pas' {GS_DM: TDataModule},
  U_holiday in 'U_holiday.pas' {F_holiday},
  U_AsOK in 'U_AsOK.pas' {F_AsOK},
  URP_empworktime in 'URP_empworktime.pas' {RP_empworktime},
  U_fk_record in 'U_fk_record.pas' {F_fk_record},
  URP_yjdep_worktime in 'URP_yjdep_worktime.pas' {RP_yjdep_worktime},
  URP_ejdep_worktime in 'URP_ejdep_worktime.pas' {RP_ejdep_worktime},
  U_logo in 'U_logo.pas' {F_logo},
  UQR_mdform in 'UQR_mdform.pas' {QRMDForm},
  U_password in 'U_password.pas' {F_password},
  U_fr_DBchar in 'U_fr_DBchar.pas' {Fr_DBChat: TFrame},
  U_public in 'U_public.pas' {F_public},
  U_Fr_yearper in 'Frame\U_Fr_yearper.pas' {Fr_yearper: TFrame},
  U_Fr_DM in 'Frame\U_Fr_DM.pas' {Fr_DM: TDataModule},
  U_okbtndlg in 'Frame\U_okbtndlg.pas' {OKBtnDlg},
  U_Fr_fk_Printselect in 'Frame\U_Fr_fk_Printselect.pas' {Fr_fk_printselect: TFrame},
  U_fkokbottomdlg in 'DialogBox\U_fkokbottomdlg.pas' {fkOKBottomDlg},
  URP_fk in 'URP_fk.pas' {RP_fk},
  UGZ_DM in 'GZ\UGZ_DM.pas' {GZ_DM: TDataModule},
  U_changesal in 'GZ\U_changesal.pas' {F_changesal},
  U_Fr_jb in 'Frame\U_Fr_jb.pas' {Fr_jb: TFrame},
  U_fr_yj_ej_emp in 'Frame\U_fr_yj_ej_emp.pas' {Fr_yj_ej_emp: TFrame},
  U_waitPri in 'U_waitPri.pas' {F_waitpri},
  U_changesalPrisel in 'DialogBox\U_changesalPrisel.pas' {F_changesalprisel},
  U_Prichangesal in 'GZ\U_Prichangesal.pas' {F_PriChangesal},
  U_checkDK in 'DialogBox\U_checkDK.pas' {F_checkDK},
  U_deletedemp in 'U_deletedemp.pas' {F_deletedemp},
  U_badcardbox in 'DialogBox\U_badcardbox.pas' {F_badcardbox},
  U_fr_jj_emp in 'Frame\U_fr_jj_emp.pas' {Fr_jj_emp: TFrame},
  U_status in 'DialogBox\U_status.pas' {F_status},
  U_selectBK in 'DialogBox\U_selectBK.pas' {F_selectBK},
  U_RSserch in 'U_RSserch.pas' {F_RSsearch};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'σ对';
  F_logo:=TF_logo.Create(Application);
  F_logo.Show;
  F_logo.Update;
  Application.CreateForm(Tmainfm, mainfm);
  F_logo.ProgressBar1.Position:=5;
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TF_waitpri, F_waitpri);
F_logo.ProgressBar1.Position:=8;
  Application.CreateForm(TF_changesalprisel, F_changesalprisel);
  Application.CreateForm(TF_PriChangesal, F_PriChangesal);
F_logo.ProgressBar1.Position:=10;
  Application.CreateForm(TF_password, F_password);
  Application.CreateForm(TFr_DM, Fr_DM);
F_logo.ProgressBar1.Position:=15;
  Application.CreateForm(TOKBtnDlg, OKBtnDlg);
  Application.CreateForm(TfkOKBottomDlg, fkOKBottomDlg);
F_logo.ProgressBar1.Position:=20;
  Application.CreateForm(TF_date, F_date);
F_logo.ProgressBar1.Position:=30;
  Application.CreateForm(TRS_DM, RS_DM);
  Application.CreateForm(TGZ_DM, GZ_DM);
F_logo.ProgressBar1.Position:=40;
  Application.CreateForm(TQR_exceptionclass, QR_exceptionclass);
F_logo.ProgressBar1.Position:=50;
  Application.CreateForm(TFR_lookupkqdata, FR_lookupkqdata);
F_logo.ProgressBar1.Position:=60;
  Application.CreateForm(TGS_DM, GS_DM);
F_logo.ProgressBar1.Position:=70;
  Application.CreateForm(TRP_empworktime, RP_empworktime);
F_logo.ProgressBar1.Position:=80;
  Application.CreateForm(TRP_yjdep_worktime, RP_yjdep_worktime);
F_logo.ProgressBar1.Position:=97;
  Application.CreateForm(TRP_ejdep_worktime, RP_ejdep_worktime);
F_logo.ProgressBar1.Position:=100;
  F_logo.Hide;
  F_logo.Free;
  Application.Run;
end.