nthouse.dpr

房屋中介管理系统.支持多用户有不同的权限 采用MDI界面 由于没有打包

program nthouse;

uses
  Forms,
  mainfrm in 'mainfrm.pas' {mainform},
  datamodulefrm in 'datamodulefrm.pas' {DataModule2: TDataModule},
  housefrm in 'housefrm.pas' {houseform},
  jobfrm in 'jobfrm.pas' {jobform},
  pass in 'pass.pas' {passwordform},
  changeuserfrm in 'changeuserfrm.pas' {changeuserform},
  changepasswordfrm in 'changepasswordfrm.pas' {changepasswordform},
  outfrm in 'outfrm.pas' {outform},
  printhouse1frm in 'printhouse1frm.pas' {printhouse1form},
  printhouse2frm in 'printhouse2frm.pas' {printhouse2form},
  inputfrm in 'inputfrm.pas' {inputform},
  printhouse3frm in 'printhouse3frm.pas' {printhouse3form},
  buyfrm in 'buyfrm.pas' {buyForm},
  printbuyfrm in 'printbuyfrm.pas' {printbuyform},
  printhirefrm in 'printhirefrm.pas' {printhireform},
  hirefrm in 'hirefrm.pas' {hireForm};

{$R *.RES}

begin
  passwordform:=tpasswordform.Create(application);
  passwordform.ShowModal;
  if passwordform.modalresult=1 then
  begin
  Application.Initialize;
  Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(Tprinthouse3form, printhouse3form);
  Application.CreateForm(Tprintbuyform, printbuyform);
  Application.CreateForm(Tprinthireform, printhireform);
  Application.Run;
  end;

end.