main.pas

来自「用delphi编的房屋租赁管里系统」· PAS 代码 · 共 95 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, ExtCtrls;

type
  TMainForm = class(TForm)
    ExitButton: TButton;
    HouseButton: TButton;
    ContractButton: TButton;
    RentButton: TButton;
    StatisticsButton: TButton;
    SystemButton: TButton;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure ExitButtonClick(Sender: TObject);
    procedure HouseButtonClick(Sender: TObject);
    procedure RentButtonClick(Sender: TObject);
    procedure ContractButtonClick(Sender: TObject);
    procedure SystemButtonClick(Sender: TObject);
    procedure StatisticsButtonClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HaveLogin : Boolean;
  MainForm: TMainForm;
  

implementation


uses  DataModule, House, Rent, contract, SysInfo, Login, Statistics;
{$R *.DFM}

procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
 DataContrls.CTable.Close;    // 关闭合同数据表
 DataContrls.RTable.Close;    // 关闭租金数据表
 DataContrls.HTable.Close;    // 关闭房产数据表
 Close;                       // 关闭主窗体，即关闭应用程序
end;

procedure TMainForm.HouseButtonClick(Sender: TObject);
begin
  HouseForm.Show        // 房产管理窗体
end;

procedure TMainForm.RentButtonClick(Sender: TObject);
begin
  RentForm.Show;         // 租金管理窗体
end;

procedure TMainForm.ContractButtonClick(Sender: TObject);
begin
  ContractForm.Show;     // 合同管理窗体
end;

procedure TMainForm.SystemButtonClick(Sender: TObject);
begin
  SysInfoForm.Show       // 系统维护窗体
end;

procedure TMainForm.StatisticsButtonClick(Sender: TObject);
begin
  StatisticsForm.Show;    // 信息统计窗体
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
  if not HaveLogin then
  begin
    LoginForm.Show;
    HaveLogin:=True;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  HaveLogin:=False;
end;

end.