tpass.pas

2004090611144625767.rar 资源名称:通用工资管理

unit tpass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Ttpassb = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tpassb: Ttpassb;

implementation

uses datamodule, passedit;

{$R *.DFM}

procedure Ttpassb.Button1Click(Sender: TObject);
var
passstr:string;
begin
passstr:='select *from pass where a_pass1='+''''+edit1.text+'''';
with datamodule1.passs do
begin
close;
sql.clear;
sql.add(passstr);
prepare;
open;
end;
if datamodule1.passs.eof then
begin
showmessage('输入的特权码不对，请重来');
edit1.setfocus;
end
else
begin
passeditb.edit1.text:=datamodule1.passs.fieldbyname('a_pass').asstring;
passeditb.edit3.text:=datamodule1.passs.fieldbyname('a_pass1').asstring;
passeditb.show;
end;
end;
procedure Ttpassb.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
button1.click;
end;

procedure Ttpassb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.release;
end;

end.