pmain.~dpr

在打沙场用的最简单

program Pmain;

uses
  Forms,
  Windows,
  Base in 'Class\Base.pas' {frmBase},
  main in 'Form\Login\main.pas' {frmmain},
  Regist in 'Form\Login\Regist.pas' {frmregist},
  Abort in 'Form\Login\Abort.pas' {frmabout},
  Global in 'Common\Global.pas',
  data in 'Common\data.pas' {Datam: TDataModule},
  common in 'Bin\common.pas',
  MDIbase in 'Class\MDIbase.pas' {frmMDIbase},
  boot in 'Form\Login\boot.pas' {frmboot},
  BaseInfo in 'Class\BaseInfo.pas' {frmBaseinfo},
  uemployeetype in 'Form\Baseform\uemployeetype.pas' {frmemployeetype},
  BaseInfo_m in 'Class\BaseInfo_m.pas' {frmbaseinfo_m},
  ugroup_m in 'Form\Baseform\ugroup_m.pas' {frmgroup_m},
  usearch in 'Form\Baseform\usearch.pas' {frmsearch},
  ugroup in 'Form\Baseform\ugroup.pas' {frmgroup},
  uunit_m in 'Form\Baseform\uunit_m.pas' {frmunit_m},
  uemployeetype_m in 'Form\Baseform\uemployeetype_m.pas' {frmemployeetype_m},
  uunit in 'Form\Baseform\uunit.pas' {frmunit},
  uemployee in 'Form\Baseform\uemployee.pas' {frmemployee},
  ubilltype_m in 'Form\Baseform\ubilltype_m.pas' {frmbilltype_m},
  uform in 'Form\Baseform\uform.pas' {frmform},
  uform_m in 'Form\Baseform\uform_m.pas' {frmform_m},
  uemployee_m in 'Form\Baseform\uemployee_m.pas' {frmemployee_m},
  ubilltype in 'Form\Baseform\ubilltype.pas' {frmbilltype},
  BaseTree in 'Class\BaseTree.pas' {frmbaseTree},
  uarea in 'Form\Baseform\uarea.pas' {frmarea},
  udept in 'Form\Baseform\udept.pas' {frmdept},
  udept_m in 'Form\Baseform\udept_m.pas' {frmdept_m},
  item in 'Form\Baseform\item.pas' {frmitem},
  uitem_m in 'Form\Baseform\uitem_m.pas' {frmitem_m},
  uworkmode in 'Form\Baseform\uworkmode.pas' {frmworkmode},
  userverproj_m in 'Form\Baseform\userverproj_m.pas' {frmserverproj_m},
  userverproj in 'Form\Baseform\userverproj.pas' {frmserverproj},
  itemtype_m in 'Form\Baseform\itemtype_m.pas' {frmitemtype_m},
  itemtype in 'Form\Baseform\itemtype.pas' {frmitemtype},
  uworkmode_m in 'Form\Baseform\uworkmode_m.pas' {frmworkmode_m},
  MDIbaseinfo in 'Class\MDIbaseinfo.pas' {frmMDIbaseinfo},
  uliaochen in 'Form\Baseform\uliaochen.pas' {frmliaochen},
  uliaochen_m in 'Form\Baseform\uliaochen_m.pas' {frmliaochen_m},
  ufuli in 'Form\Baseform\ufuli.pas' {frmfuli},
  ufuli_m in 'Form\Baseform\ufuli_m.pas' {frmfuli_m},
  upurchase in 'Form\BaseMD\upurchase.pas' {frmpurchase},
  upermiss in 'Form\Baseform\upermiss.pas' {frmpermiss},
  ucurrency in 'Form\Baseform\ucurrency.pas' {frmcurrency},
  ucurrency_m in 'Form\Baseform\ucurrency_m.pas' {frmcurrency_m},
  uuser_m in 'Form\Baseform\uuser_m.pas' {frmuser_m},
  utest in 'Form\Other\utest.pas' {frmtest},
  Flash in 'Form\Login\Flash.pas' {frmflash},
  usyslog in 'Form\Baseform\usyslog.pas' {frmsyslog},
  uchangepwd in 'Form\Baseform\uchangepwd.pas' {frmchangepwd},
  Login in 'Form\Login\Login.pas' {frmlogin},
  uitem_f in 'Form\BaseMD\uitem_f.pas' {frmitem_f},
  upurpayment_f in 'Form\BaseMD\upurpayment_f.pas' {frmpurpayment_f},
  ustore in 'Form\BaseMD\ustore.pas' {frmstore},
  upurreturn_f in 'Form\BaseMD\upurreturn_f.pas' {frmpurreturn_f},
  upurreturn in 'Form\BaseMD\upurreturn.pas' {frmpurreturn},
  usale_f in 'Form\BaseMD\usale_f.pas' {frmsale_f},
  upurpayment in 'Form\BaseMD\upurpayment.pas' {frmpurpayment},
  ustore_f in 'Form\BaseMD\ustore_f.pas' {frmstore_f},
  usale in 'Form\BaseMD\usale.pas' {frmsale},
  upurchase_f in 'Form\BaseMD\upurchase_f.pas' {frmpurchase_f},
  BasePrint2 in 'Class\BasePrint2.pas' {frmBasePrint2},
  upurchasedetail in 'Form\BasePrint\upurchasedetail.pas' {frmpurchasedetail},
  BasePrint in 'Class\BasePrint.pas' {frmBasePrint},
  upurchasetotal in 'Form\BasePrint\upurchasetotal.pas' {frmpurchasetotal},
  usaledetail in 'Form\BasePrint\usaledetail.pas' {frmsaledetail},
  BasePrint1 in 'Class\BasePrint1.pas' {frmBasePrint1},
  upaymentdetail in 'Form\BasePrint\upaymentdetail.pas' {frmpaymentdetail},
  ufz in 'Form\BaseMD\ufz.pas' {ffz},
  uhm in 'Form\BaseMD\uhm.pas' {frmhm},
  usp in 'Form\BaseMD\usp.pas' {frmsp},
  ufzpayment in 'Form\Baseform\ufzpayment.pas' {fzpayment},
  ufzrep in 'Form\Baseform\ufzrep.pas',
  ubasereport in 'Form\Baseform\ubasereport.pas' {frmbasereport},
  uhmrep in 'Form\Baseform\uhmrep.pas' {frmhmrep},
  usprep in 'Form\Baseform\usprep.pas' {frmsprep},
  ustorerep in 'Form\Baseform\ustorerep.pas' {frmstorerep},
  usalerep in 'Form\Baseform\usalerep.pas' {frmsalerep},
  cgreport in 'Form\BasePrint\cgreport.pas' {frmreport},
  rmpurreturn01 in 'rmpurreturn01.pas' {rmpurreturn},
  fzpayment01 in 'Form\Baseform\fzpayment01.pas' {fzpayment1},
  ufzsprep in 'Form\Baseform\ufzsprep.pas' {frmfzsprep},
  uzd in 'Form\BaseMD\uzd.pas' {frmzd},
  usc in 'Form\Baseform\usc.pas' {frmscrep};

{$R *.res}

begin

 // begin
  //if GlobalFindAtom(iAtom)=0 then
  //  begin
     // GlobalAddAtom(iAtom);
      Application.Initialize;
      Application.Title := 'PNP　ERP电脑管理系统';

      frmFlash:=TfrmFlash.Create(application);
      frmFlash.Show;
      frmFlash.Update;

         //   rtime:=Gettickcount div 1000;
    //  while (gettickcount div 1000)<(rtime+2) do
     //    application.ProcessMessages;


      Application.CreateForm(Tfrmmain, frmmain);
  frmFlash.Hide;
      frmFlash.Free;
      Application.Run;
     // GlobalDeleteAtom(GloBalFindAtom(iAtom));
   // end
   // else
   // Messagebox(0,'You can not run a second copy of this App','',mb_ok);
end.