unit Inherit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls, DBCtrls, Grids, DBGrids,
  StdCtrls;

type
  TF_Inherit = class(TForm)
    cmdadd: TButton;
    cmdpre: TButton;
    cmdmodi: TButton;
    cmdnext: TButton;
    cmdsearch: TButton;
    cmdlast: TButton;
    cmddel: TButton;
    cmdstore: TButton;
    cmdfirst: TButton;
    cmdquit: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmdquitClick(Sender: TObject);
    procedure cmdaddClick(Sender: TObject);
    procedure cmdmodiClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Inherit: TF_Inherit;

implementation
uses  DataModule;    //引用數據模塊項目
{$R *.dfm}

procedure TF_Inherit.FormClose(Sender: TObject; var Action: TCloseAction);
begin  {*****窗口關閉事件*****}
    case (Sender as TForm).Tag of  //判斷關閉窗口的標志值
      1:  begin
          DM.DS_Class.Enabled := false;  //檔案分類資料數據源控件處于非使能態，與提交、取消按鈕數據感知控件失去關聯關系
          end;
      2:  begin
          DM.DS_Borrow.Enabled := false; //檔案借用管理數據源控件處于非使能態，
          end;
      3:  begin
          DM.DS_Manage.Enabled := false; //檔案管理數據源控件處于非使能態，
          end;
      4:  begin
          DM.DS_Borrow.Enabled := false; //檔案借用管理數據源控件處于非使能態，
          DM.DS_Return.Enabled := false; //檔案歸還管理數據源控件處于非使能態，
          end;
    end;
    Action := caFree;  //釋放空間
//    (Sender as TForm).Free;
end;

procedure TF_Inherit.cmdquitClick(Sender: TObject);
begin
if cmdquit.caption='退出' then
 //  cmdquit.caption:='取消'
else
  begin
    cmdquit.caption:='退出';
    cmdadd.enabled:=true;
    cmdmodi.enabled:=true;
    cmdsearch.enabled:=true;
    cmddel.enabled:=true;
    cmdfirst.enabled:=true;
    cmdlast.enabled:=true;
    cmdpre.enabled:=true;
    cmdnext.enabled:=true;
    cmdstore.enabled:=false;
  end;
end;

procedure TF_Inherit.cmdaddClick(Sender: TObject);
begin
cmdadd.enabled:=false;
cmdmodi.enabled:=false;
cmdsearch.enabled:=false;
cmddel.enabled:=false;
cmdfirst.enabled:=false;
cmdlast.enabled:=false;
cmdpre.enabled:=false;
cmdnext.enabled:=false;
cmdstore.enabled:=true;
cmdquit.caption:='取消';
end;

procedure TF_Inherit.cmdmodiClick(Sender: TObject);
begin
cmdadd.enabled:=false;
cmdmodi.enabled:=false;
cmdsearch.enabled:=false;
cmddel.enabled:=false;
cmdfirst.enabled:=false;
cmdlast.enabled:=false;
cmdpre.enabled:=false;
cmdnext.enabled:=false;
cmdstore.enabled:=true;
cmdquit.caption:='取消';
end;

end.