ckgl.dpr

系统功能包括操作员档案管理,客户档案管理,计量单位设置,仓库类别设置,货物类别设置等功能

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',
  ChangpwdFrm in 'ChangpwdFrm.pas' {frmChangpwd};

{$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.