whunit.pas

来自「龙矿集团工资管理系统2004源码」· PAS 代码 · 共 51 行

unit WHUNIT;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type
  TWH = class(TForm)
    DBGrid2: TDBGrid;
    Button1: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WH: TWH;

implementation

uses passwordunit;
{$R *.DFM}

procedure TWH.SpeedButton1Click(Sender: TObject);
begin
//        hz:=fieldbyname('name').asstring;
//        fieldbyname('xmdm').asstring:=hzpy(hz);
end;

procedure TWH.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;


procedure TWH.Button1Click(Sender: TObject);
begin
if password.Table1.Active then
   password.Table1.Close;
   password.Table1.EmptyTable;
   password.Table1.open;
end;

end.