u_main.pas

来自「以多个信息系统为例」· PAS 代码 · 共 120 行

unit u_main;

interface

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

type
  TF_main = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    B_room: TBitBtn;
    B_search: TBitBtn;
    B_login: TButton;
    B_exit: TButton;
    B_help: TBitBtn;
    B_about: TButton;
    GB_login: TGroupBox;
    Label2: TLabel;
    i_user: TEdit;
    Label3: TLabel;
    i_passwd: TEdit;
    o_user: TLabel;
    Label5: TLabel;
    B_bill: TBitBtn;
    procedure B_aboutClick(Sender: TObject);
    procedure B_exitClick(Sender: TObject);
    procedure B_loginClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure B_roomClick(Sender: TObject);
    procedure B_searchClick(Sender: TObject);
    procedure B_billClick(Sender: TObject);
  private
    procedure SetButtonState;
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses u_about,u_data,u_room,u_search,u_bill;
{$R *.DFM}

procedure TF_main.SetButtonState;
begin
  with DM_main.Database do
  begin
    B_room.Enabled:=Connected;
    B_search.Enabled:=Connected;
    B_bill.Enabled:=Connected;
  end;
end;

procedure TF_main.B_aboutClick(Sender: TObject);
begin
  Application.CreateForm(TF_about, F_about);
  F_about.Show;   //显示封面
  while F_about.Timer1.Enabled do
    Application.ProcessMessages; //延时
  F_about.Hide;
  F_about.Free;
end;

procedure TF_main.B_exitClick(Sender: TObject);
begin
  Close;
end;

procedure TF_main.B_loginClick(Sender: TObject);
var
  name:String;
begin
  if GB_login.Visible then
  begin
    name:=DM_main.Login(i_user.Text, i_passwd.Text);
    if name<>'' then
    begin
      GB_login.Visible:=False;
      o_user.Caption:='当前用户：'+name;
      B_login.Caption:='重新登录';
    end;
  end
  else
  begin
    DM_main.Logout;
    GB_login.Visible:=True;
    i_passwd.Text:='';
    B_login.Caption:='登录';
  end;
  SetButtonState;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
  DM_main.Database.Connected:=False;
  SetButtonState;
end;

procedure TF_main.B_roomClick(Sender: TObject);
begin
  F_room.Show;
end;

procedure TF_main.B_searchClick(Sender: TObject);
begin
  F_search.Show;
end;

procedure TF_main.B_billClick(Sender: TObject);
begin
  F_bill.Show;
end;

end.