u_main.pas

1. 在IBConsole中添加两个用户LOGIN和MATER

unit u_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ToolWin, Buttons, Menus;

type
  TF_main = class(TForm)
    MainMenu1: TMainMenu;
    M_system: TMenuItem;
    M_function: TMenuItem;
    M_help: TMenuItem;
    M_connect: TMenuItem;
    M_disconnect: TMenuItem;
    N1: TMenuItem;
    M_exit: TMenuItem;
    M_buy: TMenuItem;
    M_sale: TMenuItem;
    M_store: TMenuItem;
    M_content: TMenuItem;
    M_index: TMenuItem;
    B_buy: TSpeedButton;
    B_store: TSpeedButton;
    B_sale: TSpeedButton;
    StatusBar1: TStatusBar;
    B_maintain: TSpeedButton;
    N2: TMenuItem;
    M_maintain: TMenuItem;
    B_help: TBitBtn;
    B_login: TBitBtn;
    B_logout: TBitBtn;
    procedure M_connectClick(Sender: TObject);
    procedure M_disconnectClick(Sender: TObject);
    procedure M_exitClick(Sender: TObject);
    procedure M_buyClick(Sender: TObject);
    procedure M_saleClick(Sender: TObject);
    procedure M_storeClick(Sender: TObject);
    procedure M_maintainClick(Sender: TObject);
    procedure M_contentClick(Sender: TObject);
    procedure M_indexClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses u_datamodule, u_buy, u_sale, u_store, u_maintain;

{$R *.DFM}

procedure TF_main.M_connectClick(Sender: TObject);
begin
  if DM_main.Login then
  begin
    StatusBar1.SimpleText:='已经连接到服务器';
    M_function.Enabled:=True;
    B_buy.Enabled:=True;
    B_sale.Enabled:=True;
    B_store.Enabled:=True;
    B_maintain.Enabled:=True;
  end;
end;

procedure TF_main.M_disconnectClick(Sender: TObject);
begin
  DM_main.Logout;
  StatusBar1.SimpleText:='系统尚未与数据库连接';
  M_function.Enabled:=False;
  B_buy.Enabled:=False;
  B_sale.Enabled:=False;
  B_store.Enabled:=False;
  B_maintain.Enabled:=False;
end;

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

procedure TF_main.M_buyClick(Sender: TObject);
begin
  F_buy.Show;
end;

procedure TF_main.M_saleClick(Sender: TObject);
begin
  F_sale.Show;
end;

procedure TF_main.M_storeClick(Sender: TObject);
begin
  F_store.Show;
end;

procedure TF_main.M_maintainClick(Sender: TObject);
begin
  F_maintain.Show;
end;

procedure TF_main.M_contentClick(Sender: TObject);
begin
  Application.HelpCommand(15, 0);
end;

procedure TF_main.M_indexClick(Sender: TObject);
begin
  Application.HelpCommand(HELP_FINDER, 0);
end;

procedure TF_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM_main.Logout;
end;

end.