unit11.pas

一个小型的职工管理系统希望大家多多指教!基本功能已经实现

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
var
result:variant;
begin
with adotable1 do
begin
    Active:=false;
   // TableName:='password';
    active:=true;
    if locate('name',edit1.Text,[]) then
    begin
      result:=lookup('name',edit1.Text,'password');
      if (result=edit2.Text) and (edit3.text=edit4.text) then
       begin
       edit;
       FieldByName('password').asstring := edit3.Text;
       post;
       active:=false;
       beep();
       showmessage('你已成功的更改了密码！');
       edit1.Text:='';
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       end
       else
       begin
       if result<>edit2.Text then
      begin
       beep();
       showmessage('你的旧密码不正确！');
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       end
       else
       begin
       beep();
       showmessage('你两次输入的密码不一致！');
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       end;
       end
    end
    else
    begin
       edit1.Text:='';
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       beep();
    showmessage('该用户不存在！');
    end;
end;

end;

procedure TForm11.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TForm11.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 Button1.SetFocus ;
end;

procedure TForm11.FormActivate(Sender: TObject);
begin
edit1.SetFocus ;
end;

procedure TForm11.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit2.SetFocus ;
end;

procedure TForm11.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit3.SetFocus ;
end;

procedure TForm11.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 edit4.SetFocus ;
end;

end.