program Project1;

uses
  Dialogs,
  Forms,
  SysUtils,
  Umain in 'Umain.pas' {MainForm},
  splash in 'splash.pas' {Splash},
  AboutFormUnit in 'AboutFormUnit.pas' {AboutForm},
  TloginFormUnit in 'TloginFormUnit.pas' {LoginForm},
  Udm in 'Udm.pas' {adodm: TDataModule},
  TdataBackUnit in 'TdataBackUnit.pas' {DataBack},
  SelectDirUnit in 'SelectDirUnit.pas' {SelectDir},
  UserManageUnit in 'UserManageUnit.pas' {UserManageForm},
  NewUserUnit in 'NewUserUnit.pas' {NewUser},
  ChangePassWordUnit in 'ChangePassWordUnit.pas' {ChangePasswordForm},
  ZHTSUnit in 'ZHTSUnit.pas' {ZHTSForm},
  ZHBXUnit in 'ZHBXUnit.pas' {ZHBXForm},
  ParkUnit in 'ParkUnit.pas' {ParkForm},
  clientUnit in 'clientUnit.pas' {ClientForm},
  ModelUnit in 'ModelUnit.pas' {ModelForm},
  DateUnit in 'DateUnit.pas' {DateForm},
  SelectTextUnit in 'SelectTextUnit.pas' {SelectTextForm},
  ChargeItemUnit in 'ChargeItemUnit.pas' {ChargeItemForm},
  PartPositionUnit in 'PartPositionUnit.pas' {PartPositionForm},
  SelectDataUnit in 'SelectDataUnit.pas' {SelectDataForm},
  ClientPayUnit in 'ClientPayUnit.pas' {ClientPayForm},
  ClientAdvanceUnit in 'ClientAdvanceUnit.pas' {ClientAdvanceForm},
  TSrptUnit in 'TSrptUnit.pas' {TSrptForm},
  BXrptUnit in 'BXrptUnit.pas' {BXrptForm},
  ChargeRptUnit in 'ChargeRptUnit.pas' {ChargeRptForm},
  TsrptPreUnit in 'TsrptPreUnit.pas' {TSprint: TQuickRep},
  BXprint in 'BXprint.pas' {BXrptPrint: TQuickRep},
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
  time1: Tdatetime;
begin
  Splashform := TSplashform.Create(nil);
  Splashform.show;
  Splashform.update;
  time1 := now;
  repeat until time1 + StrtoTime('00:00:1') <= now;
  //延時1S，可以自己定義啟動畫面演示的時間，
  //當(dāng)所有的窗體裝載完成后，現(xiàn)實(shí)主窗口。
  Application.Initialize;
  Application.Title := '小區(qū)物業(yè)管理';
  Application.CreateForm(Tadodm, adodm);
  Application.CreateForm(TTSprint, TSprint);
  Application.CreateForm(TBXrptPrint, BXrptPrint);
  Application.CreateForm(TForm1, Form1);
  if not adodm.XQconn.Connected then //如果連接失敗
  begin
    ShowMessage('連接后臺數(shù)據(jù)庫失敗,請檢查配置是否完好,數(shù)據(jù)庫XQ是否存在');
    //提示錯誤
    halt; //退出程序
  end;
  Application.CreateForm(TMainForm, MainForm);
  Splashform.Hide;
  Splashform.FreeOnRelease;
  Application.CreateForm(TLoginForm, LoginForm);
  LoginForm.ShowModal;
  LoginForm.Free;
  Application.Run;
end.