gbysrj.dpr

工程预算系统

program gbysrj;

uses
  Forms,
  windows,
  messages,
  SysUtils,
  ComObj,
  main in 'form\MAIN.PAS' {MainForm},
  ys in 'form\YS.PAS' {frm_ys},
  pubunit in 'pubunit\PUBUNIT.PAS',
  fh in 'FORM\FH.PAS' {frm_fh},
  Hu_Calu in 'FORM\Hu_Calu.pas' {H_Calu},
  HU_feixls in 'FORM\HU_feixls.pas' {H_feixls},
  Hu_jsfy in 'FORM\Hu_jsfy.pas' {H_jsfy},
  HU_setfield in 'FORM\HU_setfield.pas' {H_setfield},
  hu_pub in 'FORM\hu_pub.pas',
  hu_hshl in 'FORM\hu_hshl.pas' {h_hshl},
  hu_hsrcj in 'FORM\hu_hsrcj.pas' {h_hsrcj},
  hu_jca in 'FORM\hu_jca.pas' {h_jca},
  Hu_jcnew in 'FORM\Hu_jcnew.pas' {H_jcnew},
  Hu_jc_s in 'FORM\Hu_jc_s.pas' {H_jc_s},
  Hu_qfnew in 'FORM\Hu_qfnew.pas' {H_qfnew},
  Hu_flnew in 'FORM\Hu_flnew.pas' {H_flnew},
  Hu_tsall in 'FORM\Hu_tsall.pas' {H_tsall},
  Hu_gcpwd in 'FORM\Hu_gcpwd.pas' {H_gcpwd},
  HU_settab in 'FORM\HU_settab.pas' {H_settab},
  Hu_calujs in 'FORM\Hu_calujs.pas' {H_calujs},
  Hu_hsform in 'FORM\Hu_hsform.pas' {H_hsform},
  Hu_mcfind in 'FORM\Hu_mcfind.pas' {H_mcfind},
  Hu_FC_de in 'FORM\Hu_FC_de.pas' {H_FC_de},
  Hu_copyjc in 'FORM\Hu_copyjc.pas' {H_copyjc},
  Hu_des in 'FORM\Hu_des.pas' {H_des},
  about_Unit in 'FORM\about_Unit.pas' {AboutBox},
  Hu_login in 'FORM\Hu_login.pas' {H_login},
  Hu_pwd in 'FORM\Hu_pwd.pas' {H_pwd},
  Hu_opt in 'FORM\Hu_opt.pas' {H_opt},
  Hu_opta in 'FORM\Hu_opta.pas' {H_opta},
  Hu_Tdehs in 'FORM\Hu_Tdehs.pas' {H_Tdehs},
  Hu_fbrcj in 'FORM\Hu_fbrcj.pas' {H_fbrcj},
  Hu_hs_sps in 'FORM\Hu_hs_sps.pas' {H_hs_sps},
  Hu_gjtz in 'FORM\Hu_gjtz.pas' {H_gjtz},
  Hu_sysset in 'FORM\Hu_sysset.pas' {H_sysset},
  Hu_rcjall in 'FORM\Hu_rcjall.pas' {H_rcjall},
  Dialogs in 'FORM\Dialogs.pas',
  HU_hbl in 'FORM\HU_hbl.pas' {H_hbl},
  HU_moban in 'FORM\HU_moban.pas' {H_moban},
  Hu_sps_pi in 'FORM\Hu_sps_pi.pas' {h_sps_pi},
  hu_daos in 'FORM\hu_daos.pas' {h_daos},
  hu_err_ts in 'FORM\hu_err_ts.pas' {h_err_ts},
  HU_bakzip in 'FORM\HU_bakzip.pas' {H_bakzip},
  HU_bdsbj in 'FORM\HU_bdsbj.pas' {H_bdsbj},
  Txsw_strgrid in 'FORM\Txsw_strgrid.pas',
  HU_showqddek in 'FORM\HU_showqddek.pas' {H_showqddek},
  hu_zjhs in 'FORM\hu_zjhs.pas' {h_zjhs},
  HU_xsxmtz in 'FORM\HU_xsxmtz.pas' {H_xssmtz},
  HU_wjjzc in 'FORM\HU_wjjzc.pas' {H_wjjzc},
  F_qdfm in 'FORM\F_qdfm.pas' {frm_qdfm},
  bg in 'FORM\bg.pas' {frm_bg},
  MyPreView in 'FORM\MyPreView.pas' {F_MyPreView},
  qd_worde in 'PUBUNIT\qd_worde.pas',
  pub_rep in 'PUBUNIT\pub_rep.pas',
  Excelunit in 'PUBUNIT\Excelunit.pas',
  wordunit in 'PUBUNIT\wordunit.pas',
  Hu_flash in 'FORM\Hu_flash.pas' {H_flash},
  HU_accesskey in 'FORM\HU_accesskey.pas',
  SaveR in 'FORM\SaveR.pas' {H_saveR},
  Setdog in 'FORM\Setdog.pas' {Fdogfrm},
  qd_rep in 'PUBUNIT\qd_rep.pas',
  HU_mutircj in 'FORM\HU_mutircj.pas' {H_mutircj},
  HU_qsqzh in 'FORM\HU_qsqzh.pas' {H_qsqzh},
  HU_dekwh in 'FORM\HU_dekwh.pas' {H_dekwh},
  w_addde in 'FORM\w_addde.pas' {wu_addde},
  HU_qdimport in 'FORM\HU_qdimport.pas' {H_qdimport},
  HU_qddewh in 'FORM\HU_qddewh.pas' {H_qddewh},
  F_repgroup in 'FORM\F_repgroup.pas' {frm_repgroup},
  F_outrep in 'FORM\F_outrep.pas' {frm_outrep},
  F_catalog in 'FORM\F_catalog.pas' {frm_catalog};

{$R *.RES}

const
  CM_RESTORE = WM_USER + $1000;
Var
  hMutex : hWnd;
  Ret : integer;
begin
  hMutex:=CreateMutex(NIL,False,'xsw_gbys');
  Ret:=GetLastError;
  IF Ret=ERROR_ALREADY_EXISTS then
  begin
    application.MessageBox(pchar('高博恒睿提醒您：您的机子一次只能运行一个主程序！'+#13#10
                                +'而在主程序的[文件]菜单中也至多能同时打开5个预算'+#13#10
                                +'工程！'+#13#10
                                +'如有必要，请联络程序供应商或程序设计人员！'+#13#10#10
                                +'   开发商：杭州高博恒睿软件有限公司'+#13#10
                                +'   网  址：http://www.jz18.com'+#13#10
                                +'   开发部：工程部  于2004-03'),'高博恒睿',mb_iconinformation);
    PostMessage(hMutex, CM_RESTORE, 0, 0);
    exit
  end; 

  //----------------------------------
  {RvHandle := FindWindow(MYAPPNAME, NIL);
  if RvHandle > 0 then
  begin
     PostMessage(RvHandle, CM_RESTORE, 0, 0);
     Exit;
  end;  }
  //-----------------------------------

  //----------------以下是处理显示图片标志-------------------
  {H_flash:=Th_flash.Create(nil);
  try
    H_flash.Timer1.Interval:=8000; //显示启动画面10秒
    H_flash.Timer1.Enabled:=true;
    H_flash.ShowModal;
  finally
    H_flash.Free;
    H_flash:=nil;
  end; } 

  application.HintHidePause:=1000;
  APPLICATION.HintPause:=30;
  Application.Initialize;
  Application.Title := '高博恒睿预算';
  try
    Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(Tfrm_repgroup, frm_repgroup);
  Application.CreateForm(Tfrm_repgroup, frm_repgroup);
  Application.CreateForm(Tfrm_outrep, frm_outrep);
  Application.CreateForm(Tfrm_catalog, frm_catalog);
  Application.CreateForm(Tfrm_outrep, frm_outrep);
  Application.CreateForm(Tfrm_catalog, frm_catalog);
  except
    on EAbort:exception do
    begin
      if EAbort is EOleSysError then
      if (fileexists(extractfilepath(application.ExeName)+'Msscript.ocx')=true) and
         (winexec (pchar('regsvr32.exe '+extractfilepath(application.ExeName)+'Msscript.ocx'),sw_hide)>=31) then

        application.MessageBox(pchar('不好意思了，出错了。出错原因：类型组件没有注册！'+#13#10
                                    +'程序在发现错误后已自动注册！请再重新启动程序一次！'+#13#10
                                    +'如有必要，请联络程序供应商或程序设计人员！'+#13#10#10
                                    +'    开发商：杭州高博恒睿软件有限公司'+#13#10
                                    +'    网  址：http://www.jz18.com '+#13#10
                                    +'    开发部：工程部  于2004-03'),'注册组件(高博恒睿)',mb_iconinformation)
      else
        application.MessageBox(pchar('不好意思了，出错了。出错原因：类型组件没有注册！'+#13#10
                                    +'程序试图在发现错误时自动注册此组件，但没有成功！'+#13#10
                                    +'如有必要，请联络程序供应商或程序设计人员！'+#13#10#10
                                    +'    开发商：杭州高博恒睿软件有限公司'+#13#10
                                    +'    网  址：http://www.jz18.com '+#13#10
                                    +'    开发部：工程部  于2004-03'),'注册组件(高博恒睿)',mb_iconError);

      application.Terminate;
    end;
  end;

  Application.CreateForm(TH_jsfy, H_jsfy);
  Application.Run;
end.