ckgl.~dpr

来自「适合新手 绝对精品 仓库管理系统 本人花钱购买来的源代」· ~DPR 代码 · 共 46 行

program Ckgl;

uses
  Forms,
  LogonFrm in 'LogonFrm.pas' {frmLogon},
  MainFrm in 'MainFrm.pas' {frmMain},
  QueryFrm in 'QueryFrm.pas' {frmQuery},
  SystemFrm in 'SystemFrm.pas' {frmSystem},
  JbdaFrm in 'JbdaFrm.pas' {frmJbda},
  CkglFrm in 'CkglFrm.pas' {frmCkgl},
  ConstUnt in 'ConstUnt.pas',
  AboutFrm in 'AboutFrm.pas' {frmAbout},
  ChangpwdFrm in 'ChangpwdFrm.pas' {frmChangpwd},
  PrintFrm in 'PrintFrm.pas' {frmPrint};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '仓库管理系统';;
  
  LogonInf := TLogonInf.Create;
  if not LogonInf.DBTryConnection then
  begin
    LogonInf.Free;
    Exit;
  end;

  with TfrmLogon.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;

  if LogonInf.Logoned then
  begin
    Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
  end;

  LogonInf.Free;


end.