wlgl.dpr

来自「明日科技的《Delphi数据库开发案例精选》中的资源管理系统源代码。界面美观」· DPR 代码 · 共 48 行

program WLGL;

uses
  Forms,
  SysUtils,
  Dialogs,
  USC in 'USC.pas' {FRM_SC},
  UDM in 'UDM.pas' {DM: TDataModule},
  ULOGIN in 'ULOGIN.pas' {FRM_LOGIN},
  UMAIN in 'UMAIN.pas' {FRM_MAIN},
  UABOUT in 'UABOUT.pas' {FRM_ABOUT},
  UYHQX in 'UYHQX.pas' {FRM_YHQX},
  UGSJBXX in 'UGSJBXX.pas' {FRM_GSJBXX},
  UBMJBXX in 'UBMJBXX.pas' {FRM_BMJBXX},
  UYGJBXX in 'UYGJBXX.pas' {FRM_YGJBXX},
  UKHJBXX in 'UKHJBXX.pas' {FRM_KHJBXX},
  USJJBXX in 'USJJBXX.pas' {FRM_SJJBXX},
  UCLJBXX in 'UCLJBXX.pas' {FRM_CLJBXX},
  UHWTYGL in 'UHWTYGL.pas' {FRM_HWTYGL},
  UHWSQXX in 'UHWSQXX.pas' {FRM_HWSQXX},
  UKHYSXX in 'UKHYSXX.pas' {FRM_KHYSXX};

{$R *.res}
var
  time1:Tdatetime;
begin
  FRM_SC:=TFRM_SC.Create(nil);
  FRM_SC.Show;
  FRM_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(TFRM_MAIN,FRM_MAIN);
  FRM_SC.Hide;
  FRM_SC.FreeOnRelease;
  Application.CreateForm(TFRM_LOGIN,FRM_LOGIN);
  FRM_LOGIN.ShowModal;
  FRM_LOGIN.Free;
  Application.Run;
end.