lh_bom.~dpr

产品信息系统!关于产品基础信息的系统!功能强大!

program LH_BOM;

uses
  Forms,
  Windows,
  SysUtils,
  Messages,
  Dialogs,
  main in 'public\main.pas' {frmMain},
  Base in 'public\Base.pas' {frmBase},
  Global in 'public\Global.pas',
  MDIBase in 'public\MDIBase.pas' {frmMDIBase},
  MainControl in 'public\MainControl.pas' {frmMainControl},
  Loading in 'public\Loading.pas' {frmLoading},
  MDISystem in 'public\MDISystem.pas' {frmMDISystem},
  Login in 'public\Login.pas' {frmLogin},
  DailogBase in 'public\DailogBase.pas' {frmDailogBase},
  LookupBase in 'public\LookupBase.pas' {frmLookupBase},
  TreeBase in 'public\TreeBase.pas' {frmTreeBase},
  QueryBase in 'public\QueryBase.pas' {frmQueryBase},
  ChangePWD in 'public\ChangePWD.pas' {frmChangePWD},
  InfoBase in 'public\InfoBase.pas' {frmInfoBase},
  BaseInfoBase in 'public\BaseInfoBase.pas' {frmBaseInfoBase},
  BaseUser in 'System\BaseUser.pas' {frmBaseUser},
  GroupRight in 'System\GroupRight.pas' {frmGroupRight},
  BaseGroup in 'System\BaseGroup.pas' {frmBaseGroup},
  BaseEType in 'System\BaseEType.pas' {frmBaseEType},
  PersonalSet in 'System\PersonalSet.pas' {frmPersonalSet},
  ModuleControl in 'Public\ModuleControl.pas' {frmModuleControl},
  BaseModule_Func in 'System\BaseModule_Func.pas' {frmBaseModule_Func},
  BaseDefine in 'Public\BaseDefine.pas' {frmBaseDefine},
  DataModule in 'Public\DataModule.pas' {dmClient: TDataModule},
  ProductInfo in 'syl\ProductInfo.pas' {frmProductInfo},
  pasBom in 'syl\pasBom.pas' {frmBom},
  pasMDIBom in 'syl\pasMDIBom.pas' {frmMDIBom},
  LookupGeneralCcinput in 'syl\LookupGeneralCcinput.pas' {frmLookupGeneralCcinput},
  khcx in 'zlf\khcx.pas' {frmkhcx},
  BaseWorkingProcedure in 'zlf\BaseWorkingProcedure.pas' {frmBaseWorkingProcedure},
  CcBaseNames in 'zlf\CcBaseNames.pas' {frmCcBaseNames},
  Slip_money in 'wxh\Slip_money.pas' {frmSlip_money},
  CcSlipFile in 'wxh\CcSlipFile.pas' {frmCcSlipFile},
  LookupSlipFile in 'wxh\LookupSlipFile.pas' {frmLookupSlipFile},
  import in 'syl\import.pas' {frmimport},
  InfoImport in 'syl\InfoImport.pas' {frmInfoImport},
  Slip_Print in 'wxh\Slip_Print.pas' {frmSlip_Print},
  printxh in 'yww\printxh.pas' {frmprintxh},
  select in 'syl\select.pas' {Frmselect},
  TechnicsFlow in 'syl\TechnicsFlow.pas' {frmTechnicsFlow},
  otherclass in 'syl\otherclass.pas' {frmotherclass};

{$R *.res}
const
    CM_Restore=WM_User+$1000;
    MyAppName='LH_BOM';

var
    currentTime:Longword;
    RvHandle:HWND;
begin
    RvHandle:=FindWindow(MyAppName,Nil);
    if RvHandle>0 then
    begin
        {Application.MessageBox('已打开相同程序，请节约资源！','信息提示',MB_OK);
        PostMessage(RvHandle,CM_Restore,0,0);
        Exit;}//去掉此判断，暂时不用。
    end;

    frmLoading:=TfrmLoading.Create(frmLoading);
    frmLoading.Show;
    frmLoading.Update;

    currentTime:=GetTickCount div 1000;
    while ((GetTickCount div 1000)<(currentTime)) do//控制时间为3秒
    begin
    end;

  Application.Initialize;

  Application.Title := '产品信息管理系统';
  Application.CreateForm(TdmClient, dmClient);
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(Tfrmotherclass, frmotherclass);
  //Login.frmLogin:=login.TfrmLogin.Create(Login.frmLogin);
  frmLoading.Hide;
  FreeAndNil(frmLoading);
  //frmLoading.Close;

  Application.Run;
end.