xgklunit.pas

工资管理系统

unit XgKlUnit;

interface

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

type
  TXgKlForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XgKlForm: TXgKlForm;

implementation

uses PassWordUnit, DataTUnit;

{$R *.DFM}


procedure TXgKlForm.FormShow(Sender: TObject);
begin
   label1.Caption:='';
   label1.Caption:='用户名'+':        '+password.DBC1.Text;
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
end;

procedure TXgKlForm.Edit1Exit(Sender: TObject);
begin
    if edit1.Text<>password.Edit1.Text then
    begin
MessageBox(Handle,'口令错误,请重输!!!',pchar(caption),mb_iconstop+mb_ok);
edit1.SetFocus;
edit1.SelectAll;
abort;
    end;

end;

procedure TXgKlForm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
   if (edit3.Text<>edit2.Text) or (edit1.Text<>password.Edit1.Text) or (Length(edit1.Text)=0) or (Length(edit2.Text)=0) or (Length(edit3.Text)=0) then
      begin
    MessageBox(Handle,'新口令错误,请重输!!!',pchar(caption),mb_iconstop+mb_ok);
    edit3.SetFocus;
    edit3.SelectAll;
    abort;
      end
     else
      begin
       datat.table3.Edit;
       datat.Table3.FieldByName('pass').AsString:=edit3.Text;
       datat.table3.post;
       MessageBox(Handle,'成功的修改了口令!!!',pchar(caption),mb_iconinformation+mb_ok);
       end;
  end;
end;

procedure TXgKlForm.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TXgKlForm.SpeedButton1Click(Sender: TObject);
begin
begin
     if (edit3.Text<>edit2.Text) or (edit1.Text<>password.Edit1.Text) or (Length(edit1.Text)=0) or (Length(edit2.Text)=0) or (Length(edit3.Text)=0) then
      begin
    MessageBox(Handle,'新口令错误,请重输!!!',pchar(caption),mb_iconstop+mb_ok);
    edit3.SetFocus;
    edit3.SelectAll;
    abort;
      end
     else
      begin
       datat.table3.Edit;
       datat.Table3.FieldByName('pass').AsString:=edit3.Text;
       datat.table3.post;
       MessageBox(Handle,'成功的修改了口令!!!',pchar(caption),mb_iconinformation+mb_ok);
        edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
       end;
  end;
end;

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

end.