wlkgl.~dpr

完整的物流管理系统源码,包含数据库,适合初学者参考

program WLGL;

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

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