fangwumis.dpr

房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能

program FangWuMis;

uses
  Forms,
  MaimForm in 'MaimForm.pas' {MainForm},
  Kfdj in 'Kfdj.pas' {KfdjForm},
  DataModule in 'DataModule.pas' {DB_module: TDataModule},
  Zjgl in 'Zjgl.pas' {ZjglForm},
  FangBasic in 'FangBasic.pas' {FangBasicForm},
  DanJia in 'DanJia.pas' {DanJiaForm},
  Unit_common_files in 'Unit_common_files.pas',
  Khrz in 'Khrz.pas' {KhrzForm},
  Splash in 'Splash.pas' {SplashForm},
  SysUtils in 'E:\Program Files\Borland\Delphi6\Source\Rtl\Sys\SysUtils.pas',
  Cbgl in 'Cbgl.pas' {CbglForm},
  LsSf in 'LsSf.pas' {LsSfForm},
  RsSf in 'RsSf.pas' {RsSfForm},
  Login in 'Login.pas' {LoginForm},
  UpdatePW in 'UpdatePW.pas' {UpdatePWForm},
  DateUtils in 'E:\Program Files\Borland\Delphi6\Source\Rtl\Common\DateUtils.pas',
  YdSf in 'YdSf.pas' {YdSfForm},
  UserManager in 'UserManager.pas' {UserManagerF},
  Tfgl in 'Tfgl.pas' {TfglForm},
  Cbreport in 'Cbreport.pas' {BbForm_report},
  ZfKfCx in 'ZfKfCx.pas' {ZfKfCxForm},
  KfCx in 'KfCx.pas' {KfCxForm},
  CzfCx in 'CzfCx.pas' {CzfCxForm},
  CzfCbcx in 'CzfCbcx.pas' {CzfCbcxForm},
  ZfSfcx in 'ZfSfcx.pas' {ZfSfcxForm},
  Gjcx in 'Gjcx.pas' {GjcxForm},
  ZfSfGjcx in 'ZfSfGjcx.pas' {ZfSfGjcxForm},
  DB in 'E:\Program Files\Borland\Delphi6\Source\Vcl\DB.pas',
  SfCx in 'SfCx.pas' {SfCxForm},
  LsSfCx in 'LsSfCx.pas' {LsSfCxForm},
  LsSfGjCx in 'LsSfGjCx.pas' {LsSfGjCxForm},
  RsSfCx in 'RsSfCx.pas' {RsSfCxForm},
  RsSfGjCx in 'RsSfGjCx.pas' {RsSfGjCxForm},
  YdSfCx in 'YdSfCx.pas' {YdSfCxForm},
  YdSfGjcx in 'YdSfGjcx.pas' {YdSfGjcxForm},
  QtFyTj in 'QtFyTj.pas' {QtFyTjForm},
  AboutBox in 'AboutBox.pas' {AboutBoxForm};

{$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，可以自己定义启动画面演示的时间，
  //当所有的窗体装载完成后，现实主窗口。
  Application.Initialize;
  Application.Title := '房屋出租管理';
  Application.CreateForm(TDB_module, DB_module);
  Application.CreateForm(TMainForm, MainForm);
  Splashform.Hide;
  Splashform.FreeOnRelease;
  application.ShowMainForm:=false;
  loginform:=Tloginform.create(application);
  loginform.showmodal;
  Application.Run;

end.