changepassword.pas

这是工资管理系统,能够应用于各种类型的企业。

unit changepassword;

interface

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

type
  TChangePasswordForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangePasswordForm: TChangePasswordForm;

implementation

uses main;
{$R *.dfm}

procedure TChangePasswordForm.FormActivate(Sender: TObject);
begin
    Edit1.Text:='';
    Edit2.Text:='';
    Edit1.SetFocus;
    if username<>'admin' then
    begin
          Edit1.Text:=username;
          Edit1.Enabled:=false;
          Edit1.TabStop:=false;
          Edit2.SetFocus; 
    end;
end;

procedure TChangePasswordForm.BitBtn2Click(Sender: TObject);
begin
      close;
end;

procedure TChangePasswordForm.BitBtn1Click(Sender: TObject);
begin
       Table1.DatabaseName:='gzgl';
       Table1.TableName:='operator';
       Table1.Active:=true;
       Table1.EditKey;
       Table1.FieldByName('name').AsString:=edit1.Text;
       Table1.GotoKey;
       if (Table1.FieldByName('name').AsString=Edit1.Text) and (Edit2.Text=Edit3.Text)then
       begin
            Table1.Edit;
            Table1.FieldByName('password').AsString:=Edit2.Text;
            Table1.Post;
       end
       else
            Application.MessageBox('用户名错误或两次密码不一致，请检查!','提示信息',mb_OK);
       Table1.Active:=false;
       Edit2.Text:='';
       Edit3.Text:='';
       if username='admin' then
       begin
              Edit1.Text:='';
              edit1.setfocus;
       end
       else
              Edit2.SetFocus;
end;

end.