jxcglxt.dpr

delphi做的进销存系统

program jxcglxt;

uses
  Forms,
  Windows,
  Controls,
  Messages,
  main in 'main.pas' {mainfrm},
  dm in 'dm.pas' {DM1: TDataModule},
  login in 'login.pas' {loginfrm},
  ygxxgl in 'ygxxgl.pas' {ygxxglfrm},
  khxxgl in 'khxxgl.pas' {khxxglfrm},
  ghsxxgl in 'ghsxxgl.pas' {ghsxxglfrm},
  splbgl in 'splbgl.pas' {splbglfrm},
  jldwgl in 'jldwgl.pas' {jldwglfrm},
  spzlgl in 'spzlgl.pas' {spzlglfrm},
  backup in 'backup.pas' {backupfrm},
  restore in 'restore.pas' {restorefrm},
  csh in 'csh.pas' {cshfrm},
  qxgl in 'qxgl.pas' {qxglfrm},
  jhdgl in 'jhdgl.pas' {jhdglfrm},
  kctj in 'kctj.pas' {kctjfrm},
  xsgl in 'xsgl.pas' {xsglfrm},
  jhtj in 'jhtj.pas' {jhtjfrm},
  xstj in 'xstj.pas' {xstjfrm},
  mlfx in 'mlfx.pas' {mlfxfrm},
  logoscreen in 'logoscreen.pas' {logo};

{$R *.res}

var
  hMutex: THandle;
  FoundWnd: THandle;
  ModuleName: string;

function EnumWndProc(hwnd: THandle; Param: Cardinal): Bool; stdcall;
var
  ClassName, WinModuleName: string;
  WinInstance: THandle;
begin
  Result := True;
  SetLength(ClassName, 100);
  GetClassName (hwnd, PChar (ClassName), Length (ClassName));
  ClassName := PChar(ClassName);
  if ClassName = Tmainfrm.ClassName then
  begin
    {10 获取目标窗口的模块名 }
    SetLength(WinModuleName, 200);
    WinInstance := GetWindowLong(hwnd, GWL_HINSTANCE);
    GetModuleFileName (WinInstance, PChar (WinModuleName),
      Length(WinModuleName));
    WinModuleName := PChar(WinModuleName); // 调整长度

    {20 比较模块名 }
    if WinModuleName = ModuleName then
    begin
      FoundWnd := Hwnd;
      Result := False; // 如果已找到，停止继续列举
    end;
  end;
end;


begin
  {10 检测是否互斥已存在 }
  HMutex := CreateMutex(nil, False, 'OneCopyMutex');
  if WaitForSingleObject(hMutex, 0) <> WAIT_TIMEOUT then
  begin
    Application.Initialize;
    Application.Title := '进销存管理系统';
    {10.1 启动Splash屏幕 }
    //frmSplash := TfrmSplash.Create(nil);
    logo:=Tlogo.Create(logo);
    try
      with logo do
      begin
        BeginLoad;
        {10.2 装载主窗体}
        UpdateLoadStatus('正在载入启动参数', 5);
        Application.CreateForm(Tmainfrm, mainfrm);
        UpdateLoadStatus('正在载入主窗体', 10);
        Application.CreateForm(Tloginfrm, loginfrm);
        UpdateLoadStatus('载入登录窗体', 15);
        Application.CreateForm(TDM1, DM1);
        UpdateLoadStatus('开始装载数据模块', 20);
        Application.CreateForm(Tygxxglfrm, ygxxglfrm);
        UpdateLoadStatus('开始装载员工管理模块', 25);
        Application.CreateForm(Tkhxxglfrm, khxxglfrm);
        UpdateLoadStatus('开始装载客户管理模块', 30);
        Application.CreateForm(Tghsxxglfrm, ghsxxglfrm);
        UpdateLoadStatus('开始装载供货商信息管理窗体', 35);
        Application.CreateForm(Tsplbglfrm, splbglfrm);
        UpdateLoadStatus('开始装载商品类别信息模块', 40);
        Application.CreateForm(Tjldwglfrm, jldwglfrm);
        UpdateLoadStatus('开始装载计量单位管理窗体', 45);
        Application.CreateForm(Tspzlglfrm, spzlglfrm);
        UpdateLoadStatus('开始装载商品资料信息模块', 50);
        Application.CreateForm(Tbackupfrm, backupfrm);
        UpdateLoadStatus('开始装载备份模块', 55);
        Application.CreateForm(Trestorefrm, restorefrm);
        UpdateLoadStatus('开始装载数据恢复模块', 60);
        Application.CreateForm(Tcshfrm, cshfrm);
        UpdateLoadStatus('开始装载初始化工具', 65);
        Application.CreateForm(Tqxglfrm, qxglfrm);
        UpdateLoadStatus('开始装载权限管理工具', 70);
        Application.CreateForm(Tjhdglfrm, jhdglfrm);
        UpdateLoadStatus('开始装载进货管理模块', 75);
        Application.CreateForm(Tkctjfrm, kctjfrm);
        UpdateLoadStatus('开始装载库存管理模块', 80);
        Application.CreateForm(Txsglfrm, xsglfrm);
        UpdateLoadStatus('开始装载销售管理模块', 85);
        Application.CreateForm(Tjhtjfrm, jhtjfrm);
        UpdateLoadStatus('开始装载进化统计模块', 90);
        Application.CreateForm(Txstjfrm, xstjfrm);
        UpdateLoadStatus('开始装载销售统计模块', 93);
        Application.CreateForm(Tmlfxfrm, mlfxfrm);
        UpdateLoadStatus('开始装载毛利分析模块', 98);
        {// 结束 }
        {10.5 装载完毕 }
        logo.EndLoad;
      end;
    finally
      logo.Free;
    end;
    Application.Run;
  end
  else
  begin
    {20 获取当前模块名 }
    SetLength(ModuleName, 200);
    GetModuleFileName (HInstance, PChar(ModuleName), Length (ModuleName));
    ModuleName := PChar(ModuleName); // 调整长度

    {30 列表最初实例的窗口 }
    EnumWindows(@EnumWndProc, 0);
    if FoundWnd <> 0 then
    begin
      {40 最后显示最初实例的窗口 }
      if not IsWindowVisible(FoundWnd) then
        PostMessage(FoundWnd, wm_App, 0, 0);
      SetForegroundWindow(FoundWnd);
    end;
  end;
end.


//begin
//  Application.Initialize;
//  Application.Title := '进销存管理系统';
//  logo:=Tlogo.Create(logo);
//  logo.show;
//  logo.update;
//  Application.CreateForm(Tmainfrm, mainfrm);
//  Application.CreateForm(Tloginfrm, loginfrm);
//  Application.CreateForm(TDM1, DM1);
//  Application.CreateForm(Tygxxglfrm, ygxxglfrm);
//  Application.CreateForm(Tkhxxglfrm, khxxglfrm);
//  Application.CreateForm(Tghsxxglfrm, ghsxxglfrm);
//  Application.CreateForm(Tsplbglfrm, splbglfrm);
//  Application.CreateForm(Tjldwglfrm, jldwglfrm);
//  Application.CreateForm(Tspzlglfrm, spzlglfrm);
//  Application.CreateForm(Tbackupfrm, backupfrm);
//  Application.CreateForm(Trestorefrm, restorefrm);
//  Application.CreateForm(Tcshfrm, cshfrm);
//  Application.CreateForm(Tqxglfrm, qxglfrm);
//  Application.CreateForm(Tjhdglfrm, jhdglfrm);
//  Application.CreateForm(Tkctjfrm, kctjfrm);
//  Application.CreateForm(Txsglfrm, xsglfrm);
//  Application.CreateForm(Tjhtjfrm, jhtjfrm);
//  Application.CreateForm(Txstjfrm, xstjfrm);
//  Application.CreateForm(Tmlfxfrm, mlfxfrm);
//  Application.Run;
//end.