buttonfrm.pas

来自「基于Interbase的图书管理系统」· PAS 代码 · 共 68 行

unit ButtonFrm;

interface

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

type
TOptionState=(osBooktype,osBookid,osReaderid,osBorrow,osRenewal,osReturn,osFind);
  Tbuttonform = class(TChildForm)
    Buttonpanel: TPanel;
    BBtnID: TBitBtn;
    BBtnBorrow: TBitBtn;
    BBtnRenewal: TBitBtn;
    BBtnReturn: TBitBtn;
    BBtnPrint: TBitBtn;
    BBtnCancel: TBitBtn;
    BBtnClose: TBitBtn;
    BBtnFind: TBitBtn;
    Bevel1: TBevel;
    Pnlcompontparent: TPanel;
    procedure BBtnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure setbutton(optionstate:TOptionState);
    { Public declarations }
  end;

var
  buttonform: Tbuttonform;
  optionState:TOptionState;
implementation

{$R *.dfm}

{ Tbuttonform }

{ Tbuttonform }

procedure Tbuttonform.setbutton(optionstate: TOptionState);
begin
BBtnID.Enabled:=false;
BBtnBorrow.Enabled:=false;
BBtnRenewal.Enabled:=false;
BBtnReturn.Enabled:=false;
BBtnFind.Enabled:=false;
BBtnPrint.Enabled:=true;
BBtnCancel.Enabled:=true;
BBtnClose.Enabled:=true;
case optionstate of
 osBooktype,osBookid,osReaderid:BBtnID.Enabled:=true;
 osBorrow  :BBtnBorrow.Enabled:=true;
 osRenewal:BBtnRenewal.Enabled:=true;
 osReturn: BBtnReturn.Enabled:=true;
 osFind:BBtnFind.Enabled:=true;
end;
end;

procedure Tbuttonform.BBtnCloseClick(Sender: TObject);
begin
  inherited;
close;
end;

end.