mdiapp.dpr

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

program Mdiapp;

uses
  Forms,
  windows,
  Sysutils,
  Classes,
  Main in 'MAIN.PAS' {MainForm},
  Common in 'Common.pas',
  SaleCause in 'SaleCause.pas' {Frm_SaleCause},
  base in 'base.pas' {Frm_Base},
  ChangeUser in 'ChangeUser.pas' {Frm_ChangeUser},
  DataBase in 'DataBase.pas' {DataModule1: TDataModule},
  login in 'login.pas' {Frm_Login},
  UserChgPwd in 'UserChgPwd.pas' {Frm_UserChgPwd},
  SaleDetail in 'SaleDetail.pas' {Frm_SaleDetail},
  UserPower in 'UserPower.pas' {Frm_UserPower},
  QuerySale in 'QuerySale.pas' {Frm_QuerySale},
  SysSet in 'SysSet.pas' {Frm_SysSet},
  LendDetail in 'LendDetail.pas' {Frm_LendDetail},
  QueryLend in 'QueryLend.pas' {Frm_QueryLend},
  LendCause in 'LendCause.pas' {Frm_LendCause};

{$R *.RES}

begin
  Application.Initialize;
  gs_WorkPath := ExtractFilePath(Application.EXEName);

  // 打开数据库模板
  Application.Title := '房产中介管理系统';
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TMainForm, MainForm);
  MainForm.show;

  //  连接数据库
  if f_ConnectDataBase()=False then
  begin
    Application.MessageBox('连接数据库出错,可能原因有:'#13#10'1. 配置文件 exhib.ini 的数据库配置小节有问题~n~r'#13#10'2. 本系统运行路径不对'#13#10'3. 本机未安装数据库的 Client 端驱动程序'#13#10'4. 其他问题'#13#10'请与管理员联系.','系统出错',MB_OK);
    Application.Terminate;
  end;

  // 系统参数初始化
  f_SysParmInit();

  // 显示登录窗口
  Frm_login:=TFrm_Login.Create(Application);
  try
    Frm_Login.ShowModal;
    if Frm_Login.login=True then
    begin
      // 为登录用户定制界面
      MainForm.StatusBar.Panels[0].text :=gs_OrgName;
      MainForm.StatusBar.Panels[1].text :='操作员：'+gs_Login_UserName;
      MainForm.StatusBar.Panels[2].text :='工作日期：'+FormatDateTime('yyyy-mm-dd',gt_login_time);
      //
      MainForm.f_InitUserMenu;

      // 打开查询窗口
      

    end else
    begin
      Application.Terminate;
    end;
  Finally
    Frm_Login.Free;
  end;
  //
   Application.Run;

  end.