u_jbxxdelete.pas

来自「简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 」· PAS 代码 · 共 51 行

unit U_JBxxDelete;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, RzButton, ExtCtrls, RzPanel;

type
  TJiBenXinXi = class(TForm)
    rzpnl1: TRzPanel;
    dbgrd1: TDBGrid;
    rzbtbtn1: TRzBitBtn;
    rzbtbtn2: TRzBitBtn;
    procedure btn2Click(Sender: TObject);
    procedure rzbtbtn2Click(Sender: TObject);
    procedure rzbtbtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JiBenXinXi: TJiBenXinXi;

implementation

uses DataModule;


{$R *.dfm}

procedure TJiBenXinXi.btn2Click(Sender: TObject);
begin
     close;
end;

procedure TJiBenXinXi.rzbtbtn2Click(Sender: TObject);
begin
    Close;
end;

procedure TJiBenXinXi.rzbtbtn1Click(Sender: TObject);
begin
    if Application.MessageBox('是否删除','确定',1) = 1 then
         DM.atblEmploeeLuRu.Delete;
end;

end.