slwh.pas

工资管理系统的代码实例

unit Slwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, Dialogs,
  Grids, DBGrids, DB, StdCtrls, ExtCtrls, ADODB, GZGLCommon, Menus;

type
  TSlwhForm = class(TForm)
    pnlSm: TPanel;
    lblSm: TLabel;
    dsSlxx: TDataSource;
    adotSlxx: TADOTable;
    dbSlxx: TDBGrid;
    pmSlxx: TPopupMenu;
    pnDel: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure pnDelClick(Sender: TObject);
    procedure pmSlxxPopup(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TSlwhForm.FormCreate(Sender: TObject);
var
  l_adoq: TADOQuery;
begin
  with adotSlxx do
  begin
    Connection := AdoGzgl;
    Open;
  end;

  l_adoq := TADOQuery.Create(nil);
  with l_adoq do
  try
    Connection := AdoGzgl;
    l_adoq.SQL.Text := 'Select * from GzglField where GridName = ''dbSlxx''';
    Open;
    InitDBGrid(l_adoq, dbSlxx);
    Close;
  finally
    Free;
  end;
end;

procedure TSlwhForm.FormDestroy(Sender: TObject);
begin
  adotSlxx.Close;
end;

procedure TSlwhForm.pnDelClick(Sender: TObject);
begin
  if Application.MessageBox('是否删除此记录？', '确认', 1) = 1 then
    adotSlxx.Delete;
end;

procedure TSlwhForm.pmSlxxPopup(Sender: TObject);
begin
  pnDel.Enabled := not (adotSlxx.Bof and adotSlxx.Eof);
end;

end.