bmwh.pas

Delphi开发的人事管理系统

unit Bmwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RSGLCommon, DB, Grids, DBGrids, ActnList, dmRsgl, StdCtrls, ExtCtrls;

type
  TBmwhForm = class(TForm)
    dbBmwh: TDBGrid;
    dsBmwh: TDataSource;
    alBmwh: TActionList;
    acDel: TAction;
    pnlToolBar: TPanel;
    btDel: TButton;
    btExit: TButton;
    acExit: TAction;
    procedure acDelExecute(Sender: TObject);
    procedure alBmwhUpdate(Action: TBasicAction; var Handled: Boolean);
    procedure acExitExecute(Sender: TObject);
  private
    { Private declarations }
    FdmRsgl: TdmRsgl;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; AdmRsgl: TdmRsgl); reintroduce;
  end;


implementation

{$R *.dfm}

constructor TBmwhForm.Create(AOwner: TComponent; AdmRsgl: TdmRsgl);
begin
  inherited Create(AOwner);
  FdmRsgl := admRsgl;

  with dsBmwh do
  begin
    DataSet := FdmRsgl.adotBmxx;
    DataSet.Open;
    DataSet.Refresh;
  end;
end;

procedure TBmwhForm.acDelExecute(Sender: TObject);
begin
  if Application.MessageBox('是否删除?', '确认', 1) = 1 then
    dsBmwh.DataSet.Delete;
end;

procedure TBmwhForm.alBmwhUpdate(Action: TBasicAction;
  var Handled: Boolean);
begin
  acDel.Enabled := not (dsBmwh.DataSet.Bof and dsBmwh.DataSet.Eof);
end;

procedure TBmwhForm.acExitExecute(Sender: TObject);
begin
  Close;
end;

end.