main.~pas

飞思科技的书不错

unit main;

interface

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

type
  TFrmMain = class(TForm)
    ToolBar1: TToolBar;
    BtnCacheUpdate: TSpeedButton;
    BtnAbout: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    BtnQuit: TSpeedButton;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    F1: TMenuItem;
    M1: TMenuItem;
    N3: TMenuItem;
    Q1: TMenuItem;
    procedure BtnCacheUpdateClick(Sender: TObject);
    procedure BtnTransactionClick(Sender: TObject);
    procedure BtnAboutClick(Sender: TObject);
    procedure BtnQuitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses UcacheUpdate, UTransaction, UDlgAbout;

{$R *.dfm}

procedure TFrmMain.BtnCacheUpdateClick(Sender: TObject);
begin
    FrmCacheUpdate.ShowModal;
end;

procedure TFrmMain.BtnTransactionClick(Sender: TObject);
begin
    FrmTransaction.ShowModal;
end;

procedure TFrmMain.BtnAboutClick(Sender: TObject);
begin
    DlgAbout.ShowModal;
end;

procedure TFrmMain.BtnQuitClick(Sender: TObject);
begin
    Close;
end;

end.