passsd.pas

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

unit passsd;

interface

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

type
  Tpasssdb = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passsdb: Tpasssdb;

implementation

uses datamodule, passedit;

{$R *.DFM}

procedure Tpasssdb.Button1Click(Sender: TObject);
var
passstr:string;
begin
if (edit1.text<>edit3.text) or (edit2.text<>edit4.text) then
begin
showmessage('密码或特权码，跟确认的不一致!');
edit1.setfocus;
end
else
begin
passstr:='select *from pass';
with datamodule1.passs do
begin
close;
sql.clear;
sql.add(passstr);
prepare;
open;
end;
if not datamodule1.passs.eof then
begin
showmessage('密码和特权码已设过，请按更改进行修改');
edit1.setfocus;
end//if
else
begin
datamodule1.passs.append;
datamodule1.passs.fieldbyname('a_pass').asstring:=edit1.text;
datamodule1.passs.fieldbyname('a_pass1').asstring:=edit2.text;
datamodule1.passs.post;
showmessage('设定成功');
end;//else

end;//else第一个的



end;

procedure Tpasssdb.Button2Click(Sender: TObject);
var
passstr:string;
begin
passstr:='select *from pass where a_pass='+''''+edit1.text+'''';
passstr:=passstr+' and a_pass1='+''''+edit2.text+'''';
with datamodule1.passs do
begin
close;
sql.clear;
sql.Add(passstr);
prepare;
open;
end;
if datamodule1.passs.Eof then
showmessage('密码和特权号不符,请重新输入!')
else
passeditb.Edit1.text:=edit1.text;
passeditb.edit3.text:=edit2.text;
passeditb.show;


end;

procedure Tpasssdb.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
edit2.SetFocus;
end;

procedure Tpasssdb.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
edit3.SetFocus;
end;

procedure Tpasssdb.Edit3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
edit4.SetFocus;
end;

procedure Tpasssdb.Edit4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
button1.click;
end;

procedure Tpasssdb.Edit1Enter(Sender: TObject);
begin
with (sender as tedit) do
color:=cllime;
end;

procedure Tpasssdb.Edit1Exit(Sender: TObject);
begin
with (sender as tedit) do
color:=clwhite;
end;

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

end.