pasa.dpr

pasa人力资源考勤管理系统

program Pasa;
{%File 'Unit3.~dfm'}
uses
  Forms,
  windows,
  Registry,
  SysUtils,
  main in 'main.pas' {formmain},
  year in 'year.pas' {Formyear},
  security in 'security.pas' {Formsecurity},
  datamol in 'datamol.pas' {DataMod: TDataModule},
  frmpassword in 'frmpassword.pas' {formpassword},
  changepass in 'changepass.pas' {Formchangepass},
  about in 'about.pas' {formabout},
  factory in 'factory.pas' {formfactory},
  copysecurity in 'copysecurity.pas' {Formcopysecurity},
  profmove in 'profmove.pas' {Formprofmove},
  formcomrec in 'formcomrec.pas' {formcomrecorder},
  formctycode in 'formctycode.pas' {formcontrycode},
  formdepatment in 'formdepatment.pas' {formdept},
  formdeptchart in 'formdeptchart.pas' {formDchart},
  formdismiss1 in 'formdismiss1.pas' {formdismiss},
  formperson in 'formperson.pas' {formpeople},
  formpersonal1 in 'formpersonal1.pas' {formpersonal},
  formsalkind in 'formsalkind.pas' {formsalsample},
  formuserdefine in 'formuserdefine.pas' {Userdefine},
  formzonghe in 'formzonghe.pas' {formallkind},
  formcompany in 'formcompany.pas' {formcom},
  formhistory in 'formhistory.pas' {formhistorylib},
  activeset in 'activeset.pas' {Formactiveset},
  atdset in 'atdset.pas' {Formatdset},
  schebrow in 'schebrow.pas' {Formschebrow},
  overtime in 'overtime.pas' {Formot},
  jiangchen in 'jiangchen.pas' {formJiangChen},
  changesche in 'changesche.pas' {Formchangesche},
  readrecord in 'readrecord.pas' {Formreadrecord},
  publicfunction in 'publicfunction.pas',
  atddata in 'atddata.pas' {Formatddata},
  raisepay in 'raisepay.pas' {formraisepay},
  stoppay in 'stoppay.pas' {formstoppay},
  ask in 'ask.pas' {Formask},
  salaryway in 'salaryway.pas' {formsalaryway},
  publicparameter in 'publicparameter.pas' {Formpublicparameter},
  original in 'original.pas' {Formoriginal},
  permove in 'permove.pas' {formpermove},
  atd_clockset in 'atd_clockset.pas' {Formatdclock},
  insrecord in 'insrecord.pas' {Forminsrecord},
  arrange in 'arrange.pas' {formarrange},
  atdchange in 'atdchange.pas' {Formatdchange},
  otmoney in 'otmoney.pas' {Formotmoney},
  salset in 'salset.pas' {formsalset},
  canfind in 'canfind.pas' {formcanfind},
  saldata in 'saldata.pas' {Formsaldata},
  salcal in 'salcal.pas' {Formsalcal},
  othersalset in 'othersalset.pas' {Formothersalset},
  jiben in 'jiben.pas' {formjiben},
  changeschedefine in 'changeschedefine.pas' {formchangeschedefine},
  otkind in 'otkind.pas' {formotkind},
  process in 'process.pas' {Formprocess},
  changebc in 'changebc.pas' {Formchangebc},
  changetime in 'changetime.pas' {formchangetime},
  turnrule in 'turnrule.pas' {Formturnrule},
  saltotalotset in 'saltotalotset.pas' {Formsaltotalotset},
  logo in 'logo.pas' {Formlogo},
  labor in 'labor.pas' {Formlabor},
  labdefine in 'labdefine.pas' {Formlabdefine},
  CVCode in 'cvcode.pas',
  insdefine in 'insdefine.pas' {Forminsdefine},
  tiaoxing in 'tiaoxing.pas' {Formtiaoxing},
  jiangchengrule in 'jiangchengrule.pas' {formjiangchengrule},
  jiangcheng in 'jiangcheng.pas' {muljiangcheng},
  pub in 'pub.pas' {Formpub},
  per_sallist in 'per_sallist.pas' {Formper_sallist},
  per_salset in 'per_salset.pas' {Formper_salset},
  othermoney in 'othermoney.pas' {Formothermoney},
  othermoenydef in 'othermoenydef.pas' {Formothermoneydef},
  personalreport in 'personalreport.pas' {formpersonalreport},
  salarysum in 'salarysum.pas' {salaryreport},
  reportforpeople in 'reportforpeople.pas' {reportformpeople},
  manchangereport in 'manchangereport.pas' {reportformanchange},
  reportforprofmove in 'reportforprofmove.pas' {reportforprof},
  reportforraisepay in 'reportforraisepay.pas' {reportformraisepay},
  reportforreward in 'reportforreward.pas' {rewardorpanish},
  reportofleave in 'reportofleave.pas' {reportleave},
  reportforstoppay in 'reportforstoppay.pas' {reportofstoppay},
  ppPrvDlg in 'ppPrvDlg.pas' {ppPrintPreview},
  repprintsetup in 'repprintsetup.pas' {printsetup},
  printsetup2 in 'printsetup2.pas' {printsetup1},
  panishreport in 'panishreport.pas' {reportforpanish},
  profanalyse in 'profanalyse.pas' {QRListForm},
  saldatabrow in 'saldatabrow.pas' {Formsaldatabrow},
  printsel in 'printsel.pas' {Formprintsel},
  masterbrow in 'masterbrow.pas' {Formmasterbrow},
  TreeFunc in 'TreeFunc.pas',
  rep1 in 'rep1.pas' {userdefinereport: TQuickRep},
  saldatareport in 'saldatareport.pas',
  formreportlianban in 'formreportlianban.pas' {formreport_lianban},
  atddealrep in 'atddealrep.pas' {formatddealrep},
  factory_report in 'factory_report.pas' {Formfactory_report},
  DbConsts in 'dbconsts.pas',
  form_mianqianka in 'form_mianqianka.pas' {formmianqianka},
  personalanalyse in 'personalanalyse.pas' {formanalyse: TQuickRep},
  reportdsg in 'reportdsg.PAS' {formreportdsg},
  fieldshow in 'fieldshow.pas' {Formfieldshow},
  reportabout in 'reportabout.pas' {Formreportabout},
  definecolor in 'definecolor.pas' {Formdefinecolor},
  fullcompanymanchange in 'fullcompanymanchange.pas' {fullcompanyman},
  backup in 'backup.pas' {Formbackup},
  restore in 'restore.pas' {formrestore},
  search in 'search.pas' {formpubsearch},
  atdreport in 'atdreport.pas' {Formatdreport},
  qianka in 'qianka.pas' {Formqianka},
  Unit1 in 'Unit1.pas' {Form1},
  changecard in 'changecard.pas' {Formchangecard},
  tread_atdprocess in 'tread_atdprocess.pas',
  reportofchangesche in 'reportofchangesche.pas' {changeschereport},
  tread_readcard in 'tread_readcard.pas',
  reportask in 'reportask.pas' {reportofask},
  per_sal_modify in 'per_sal_modify.pas' {Formsal_modify},
  pubpersonal in 'pubpersonal.pas' {Formpubpersonal},
  Unit3 in 'Unit3.pas' {form3},
  mel_mx in 'mel_mx.pas' {Formmel_mx},
  process2 in 'process2.pas' {formprocess2},
  otbc in 'otbc.pas' {Formotbc},
  hetongdata in 'hetongdata.pas',
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  multi in 'multi.pas',
  pub_input in 'pub_input.pas' {Formpubinput},
  Unit2 in 'Unit2.pas' {QuickReport2: TQuickRep},
  factory_report1 in 'factory_report1.pas' {Formfactory_report1},
  report_tax in 'report_tax.pas' {formtax},
  report_date in 'report_date.pas' {report_sb},
  mulchange in 'mulchange.pas',
  account in 'account.pas',
  u_tc in 'u_tc.pas' {tc_from},
  salsum in 'salsum.pas' {salsumreport},
  salaryjia in 'salaryjia.pas' {salaryjiareport},
  salsumjia in 'salsumjia.pas' {Formsalsumjia},
  bank in 'bank.pas' {Formbank},
  empset in 'empset.pas' {Formempset},
  empface in 'empface.pas' {formempface},
  empreq in 'empreq.pas' {Formempreq},
  empsave in 'empsave.pas' {Formempsave},
  eduset in 'eduset.pas' {Formeduset},
  meal in 'meal.pas' {Formmeal},
  mealprint in 'mealprint.pas' {Formmealprint},
  sendcard in 'sendcard.pas' {formcard},
  door in 'door.pas' {Formdoor},
  bankset in 'bankset.pas' {Formbankset},
  salnameset in 'salnameset.pas' {Formsalnameset},
  zhantao in 'zhantao.pas' {Formzhantao},
  addzt1 in 'addzt1.pas' {Formaddzt1},
  addzt in 'addzt.pas' {Formaddzt},
  print in 'print.pas' {Formprint},
  goods in 'goods.pas' {fromgoods},
  goodsindetail in 'goodsindetail.pas' {Formgoodsindetail},
  dingdan in 'dingdan.pas' {Formdingdan},
  dingdanman in 'dingdanman.pas' {Formdingdanman},
  zjll in 'zjll.pas' {Formzjll};

{Formaccount}
{$R *.RES}
var
  x,y:integer;
begin
  Application.CreateForm(TDataMod, DataMod);
  formlogo:=Tformlogo.create(application);
  formlogo.show;
  formlogo.update;
  x:=GetSystemMetrics(SM_CXFULLSCREEN);
  y:=GetSystemMetrics(SM_CYFULLSCREEN);
  if (x<800) and (y<600) then
  begin
     if Application.MessageBox('萤幕显示区域过小,最好使用800*600或更大,是否强制打开?','分辨率不足',mb_okcancel+mb_iconwarning)=idcancel then
        Application.Terminate;
  end;
  Formpassword:=TFormpassword.Create(Application);
  formlogo.Hide ;
  formlogo.Update ;
  Formpassword.Showmodal;
  Formpassword.Update;
  Application.Initialize;
  Application.Title := 'PASA 考勤王';
  Application.HelpFile := '..\Help\PASAHELP.HLP';
  Application.CreateForm(Tformmain, formmain);
  Formpassword.Free;
  formlogo.free;
  Application.Run;
  end.