salary.dpr

三層源碼,DELPHI寫的三層源碼,三層源碼,

program salary;

uses
  Forms,
  windows,
  main in 'main.pas' {mainform},
  shareunit in 'shareunit.pas',
  aboutUnit in 'other\aboutUnit.pas' {About},
  checkpassdlg in 'other\checkpassdlg.pas' {loginpassdlgs},
  sldata in 'sldata.pas' {sl_data: TDataModule},
  depts in 'deptfun\depts.pas' {dept},
  useradmin in 'userfun\useradmin.pas' {user_admin},
  useradminmodify in 'userfun\useradminmodify.pas' {useradmin_modify},
  useradminnew in 'userfun\useradminnew.pas' {useradmin_new},
  personnels in 'Parchives\personnels.pas' {personnel},
  personnelnew in 'Parchives\personnelnew.pas' {personnel_new},
  personneledit in 'Parchives\personneledit.pas' {personnel_edit},
  seldate in 'other\seldate.pas' {sel_date},
  setprint in 'other\setprint.pas' {setprints},
  peopleprint in 'Parchives\peopleprint.pas' {people_print},
  companys in 'other\companys.pas' {company},
  bormmain in 'dormitory\bormmain.pas' {borm_main},
  bromadd in 'dormitory\bromadd.pas' {brom_add},
  bromedit in 'dormitory\bromedit.pas' {brom_edit},
  bromprint in 'dormitory\bromprint.pas' {brom_print},
  eventunit in 'event\eventunit.pas' {event},
  dimissionmain in 'Parchives\dimissionmain.pas' {dimission_main},
  dimissionreport in 'Parchives\dimissionreport.pas' {dimission_report},
  dimissionnew in 'Parchives\dimissionnew.pas' {dimission_new},
  viewforms in 'other\viewforms.pas' {viewform},
  cessadd in 'cess\cessadd.pas' {cess_add},
  cessunit in 'cess\cessunit.pas' {cessform},
  cessedit in 'cess\cessedit.pas' {cess_edit},
  medicareunit in 'medicare\medicareunit.pas' {medicare},
  medicaremodify in 'medicare\medicaremodify.pas' {medicare_modify},
  insurancemodify in 'insurance\insurancemodify.pas' {insurance_modify},
  insuranceunit in 'insurance\insuranceunit.pas' {insurance},
  incometaxmodify in 'incometax\incometaxmodify.pas' {incometax_modify},
  incometaxunit in 'incometax\incometaxunit.pas' {incometax},
  eventadd in 'event\eventadd.pas' {event_add},
  eventedit in 'event\eventedit.pas' {event_edit},
  taxreportunit in 'report\taxreportunit.pas' {taxreport};

{$R *.RES}

var handle:hwnd;
Begin
handle:=findwindow('yhcolors',nil);
if handle>0 then exit;
  Application.Initialize;
  Application.Title := '工资系统';
  Application.CreateForm(Tsl_data, sl_data);
  with tloginpassdlgs.Create(application)do
    try
    showmodal;
    finally
    free;
    end;
  if loginok then
  Application.CreateForm(Tmainform, mainform);
  Application.Run;
end.