project1.dpr

来自「很好的汽车管理系统 很实用的 谢谢合作」· DPR 代码 · 共 80 行

program Project1;

uses
  Forms,
  SysUtils,
  Dialogs,
  UMain in 'UMain.pas' {Main},
  UDM in 'UDM.pas' {DM: TDataModule},
  Uabout in 'Uabout.pas' {About},
  UCLXX in 'UCLXX.pas' {CLXX},
  UKHXX in 'UKHXX.pas' {KHXX},
  UJYZXX in 'UJYZXX.pas' {JYZXX},
  UJSYXX in 'UJSYXX.pas' {JSYXX},
  USJBF in 'USJBF.pas' {SJBF},
  UQXXG in 'UQXXG.pas' {QXXG},
  UZLDJ in 'UZLDJ.pas' {ZLDJ},
  UZLJSCX in 'UZLJSCX.pas' {ZLJSCX},
  UZLDJCX in 'UZLDJCX.pas' {ZLDJCX},
  UWXXX in 'UWXXX.pas' {WXXX},
  UGHCLDJ in 'UGHCLDJ.pas' {GHCLDJ},
  UGHCLJS in 'UGHCLJS.pas' {GHCLJS},
  UGHCLDJCX in 'UGHCLDJCX.pas' {GHCLDJCX},
  UGHCLJSCX in 'UGHCLJSCX.pas' {GHCLJSCX},
  USC in 'USC.pas' {SC},
  ULOGIN in 'ULOGIN.pas' {LOGIN},
  UBXXX in 'UBXXX.pas' {BXXX},
  UWZDJ in 'UWZDJ.pas' {WZDJ},
  UCLXX_ED in 'UCLXX_ED.pas' {CLXX_ED},
  UWZDJCX in 'UWZDJCX.pas' {WZDJCX},
  UKHXX_ED in 'UKHXX_ED.pas' {KHXX_ED},
  UJSYXX_ED in 'UJSYXX_ED.pas' {JSYXX_ED},
  UWXXX_ED in 'UWXXX_ED.pas' {WXXX_ED},
  UXPCXX in 'UXPCXX.pas' {XPCXX},
  UBXXX_ED in 'UBXXX_ED.pas' {BXXX_ED},
  UWZDJ_ED in 'UWZDJ_ED.pas' {WZDJ_ED},
  UJYXX in 'UJYXX.pas' {JYXX},
  UJYXX_ED in 'UJYXX_ED.pas' {JYXX_ED},
  UQTFY in 'UQTFY.pas' {QTFY},
  UJYJLCX in 'UJYJLCX.pas' {JYJLCX},
  UPUBLICFUNCTION in 'UPUBLICFUNCTION.pas',
  UHYXX in 'UHYXX.pas' {HYXX},
  UHYXXCX in 'UHYXXCX.pas' {HYXXCX},
  UHYXX_ED in 'UHYXX_ED.pas' {HYXX_ED},
  UZLDJ_ED in 'UZLDJ_ED.pas' {ZLDJ_ED},
  UZLJS_ED in 'UZLJS_ED.pas' {ZLJS_ED},
  UZLJS in 'UZLJS.pas' {ZLJS},
  UWXJLCX in 'UWXJLCX.pas' {WXJLCX},
  UBXLXSZ in 'UBXLXSZ.pas' {BXLXSZ},
  UQTFY_Z in 'UQTFY_Z.pas' {QTFY_Z},
  UJYZXX_Z in 'UJYZXX_Z.pas' {JYZXX_Z},
  UXPCXX_Z in 'UXPCXX_Z.pas' {XPCXX_Z},
  USJHF in 'USJHF.pas' {SJHF};

{$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 := '明日汽车租赁管理系统 V4.5版';
  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.