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},
  uvipcard in 'Form\Baseform\uvipcard.pas' {frmvipcard},
  uemployee_m in 'Form\Baseform\uemployee_m.pas' {frmemployee_m},
  uvipcard_m in 'Form\Baseform\uvipcard_m.pas' {frmvipcard_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},
  uvip in 'Form\Baseform\uvip.pas' {frmvip},
  uvip_m in 'Form\Baseform\uvip_m.pas' {frmvip_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},
  uvipfull in 'Form\Baseform\uvipfull.pas' {frmvipfull};

{$R *.res}

const
  iAtom='SingleApp';
var
  rtime:Real;

  begin
  if GlobalFindAtom(iAtom)=0 then
    begin
      GlobalAddAtom(iAtom);
      frmFlash:=TfrmFlash.Create(application);
      frmFlash.Show;
      frmFlash.Update;
      rtime:=Gettickcount div 1000;
      while (gettickcount div 1000)<(rtime+2) do
         application.ProcessMessages;

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