zcfzproject.dpr

本程序功能是将银行系统的月计表转换为所需要的资产负债表

program ZCFZProject;

uses
  Forms,
  Windows,
  Controls,
  ZCFZMain in 'ZCFZMain.pas' {ZCFZMainFrm},
  ZCFZ_DataModel in 'ZCFZ_DataModel.pas' {ZCFZ_DM: TDataModule},
  FunctionModel in 'FunctionModel.pas',
  ZCFZStart in 'ZCFZStart.pas' {ZCFZStartFrm},
  ZCFZSjSc in 'ZCFZSjSc.pas' {ZCFZSjScFrm},
  ZCFZShuJuLuRu in 'ZCFZShuJuLuRu.pas' {ZCFZShuJuWeiHuFrm},
  ZCFZLogin in 'ZCFZLogin.pas' {ZCFZPass},
  ZCFZSjhf in 'ZCFZSjhf.pas' {ZCFZSjhfFrm},
  HardwareInfo in 'HardwareInfo.pas',
  ZCFZRJZC in 'ZCFZRJZC.pas' {ZCFZRJZCFrm};

{$R *.res}

var
  hMutex: HWND;
  Ret: Integer;
begin
  Application.Initialize;
  ZCFZStartFrm := TZCFZStartFrm.Create(Application);
  ZCFZStartFrm.Show;
  ZCFZStartFrm.Update; //强制更新封面
  {运行延时}
  while ZCFZStartFrm.Timer1.Enabled do
    Application.ProcessMessages;
  Application.Title := '由月计表生成资产负债表程序';
  Application.CreateForm(TZCFZ_DM, ZCFZ_DM);
  Application.CreateForm(TZCFZMainFrm, ZCFZMainFrm);
  hMutex := CreateMutex(nil, False, '由月计表生成资产负债表程序');
  Ret := GetLastError;
  if Ret <> ERROR_ALREADY_EXISTS then
  begin
    if ZCFZStartFrm <> nil then
    begin
      ZCFZStartFrm.Hide;
      ZCFZStartFrm.Free;
    end;
    ZCFZPass := TZCFZPass.Create(Application);
    if ZCFZPass.ShowModal = mrok then
    begin
      ZCFZPass.Free;
      Application.Run;
    end
    else
    begin
      ZCFZPass.Free;
      ZCFZ_DM.Destroy;
      Application.Terminate;
    end;
  end
  else
  begin
    Application.MessageBox('不能重复运行!', '提示!', MB_OK);
    ReleaseMutex(hMutex);
  end;
end.