ckgl.dpr

delphi 开发的完整的仓库管理系统（带数据库）

program CKGL;

uses
  Forms,
  SysUtils,
  Dialogs,
  USC in 'USC.pas' {SC},
  UDM in 'UDM.pas' {DM: TDataModule},
  ULOGIN in 'ULOGIN.pas' {LOGIN},
  UMAIN in 'UMAIN.pas' {MAIN},
  UGYSXX in 'UGYSXX.pas' {GYSXX},
  USPRKXX in 'USPRKXX.pas' {SPRKXX},
  USPCKXX in 'USPCKXX.pas' {SPCKXX},
  USPKCCX in 'USPKCCX.pas' {SPKCCX},
  USPJBXX in 'USPJBXX.pas' {SPJBXX},
  UGYSXX_Z in 'UGYSXX_Z.pas' {GYSXX_Z},
  USPJBXX_Z in 'USPJBXX_Z.pas' {SPJBXX_Z},
  USPRKXX_Z in 'USPRKXX_Z.pas' {SPRKXX_Z},
  USPCKXX_Z in 'USPCKXX_Z.pas' {SPCKXX_Z},
  USJBF in 'USJBF.pas' {SJBF},
  USJHF in 'USJHF.pas' {SJHF},
  UABOUT in 'UABOUT.pas' {ABOUT},
  UMMXG in 'UMMXG.pas' {MMXG};

{$R *.res}
var
  time1:Tdatetime;
begin
  SC:=TSC.Create(nil);
  SC.Show;
  SC.Update;
  time1:=now;
  repeat until time1+StrToTime('00:00:1')<=now;
  Application.Initialize;
  Application.Title := '仓库管理系统 V2.0版';
  Application.CreateForm(TDM, DM);
  if not DM.ADOConn.Connected then
  begin
    ShowMessage('连接后台数据库失败，请检查配置是否完好，数据库是否存在');
    halt;
  end;
  Application.CreateForm(Tmain,main);
  SC.Hide;
  Sc.FreeOnRelease;
  Application.CreateForm(TLOGIN,LOGIN);
  LOGIN.ShowModal;
  LOGIN.Free;
  Application.Run;
end.