operatemodul.pas

delphi renyuanguanlixinxioxitong

unit OperateModul;

interface

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

type
  TfrmOperateModul = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    tbtnNew: TToolButton;
    tbtnDelete: TToolButton;
    tbtnUpdate: TToolButton;
    tbtnSave: TToolButton;
    tbtnQuery: TToolButton;
    tbtnExit: TToolButton;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    procedure tbtnNewClick(Sender: TObject);
  private

    { Private declarations }
  protected
     function funNew()    :integer; virtual; abstract;   //新增函数
     function funDelete() :integer; virtual; abstract;   //删除函数
     function funUpdate() :integer; virtual; abstract;   //更新函数
     function funSave()   :integer; virtual; abstract;   //保存函数
     function funQuery()  :integer; virtual; abstract;   //查询函数
     function funExit()   :integer; virtual; abstract;   //退出函数
  public
    { Public declarations }
  end;

var
  frmOperateModul: TfrmOperateModul;

implementation

{$R *.dfm}

procedure TfrmOperateModul.tbtnNewClick(Sender: TObject);
begin
   Case ((Sender as TComponent).Tag) of
      10: funNew;
      20: funDelete;
      30: funUpdate;
      40: funSave;
      50: funQuery;
      100: funExit;
   end;
end;

end.