inherit.pas

适合新手 绝对精品 档案管理系统 本人花钱购买来的源代

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);
    procedure cmdstoreClick(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;

procedure TF_Inherit.cmdstoreClick(Sender: TObject);
begin
 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;
 cmdquit.caption:='退出';
end;

end.