passedit.pas

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

unit passedit;

interface

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

type
  Tpasseditb = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button1Click(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 Edit5KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyUp(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
  passeditb: Tpasseditb;

implementation

uses datamodule;

{$R *.DFM}

procedure Tpasseditb.Button1Click(Sender: TObject);
var
passstr:string;
begin
passstr:='select *from pass where a_pass='+''''+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
if datamodule1.passs.fieldbyname('a_pass1').asstring<>edit3.text then
begin
showmessage('特权码输错，请重来');
edit3.setfocus;
end
else
begin
if (edit2.text<>edit5.text) or (edit4.text<>edit6.text) then
begin
showmessage('密码或特权码与其对应的确认码不一致');
edit5.setfocus;
end
else
begin
datamodule1.passs.edit;
datamodule1.passs.fieldbyname('a_pass').asstring:=edit2.text;
datamodule1.passs.fieldbyname('a_pass1').asstring:=edit4.text;
datamodule1.passs.post;
showmessage('修改成功');
end;//else



end;//else

end;//else

end;

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

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

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

procedure Tpasseditb.Edit4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
edit5.setfocus;
end;

procedure Tpasseditb.Edit5KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
edit6.setfocus;
end;

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

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

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

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

end.