changepassword.~pas

来自「这是一个小型的工资管理系统」· ~PAS 代码 · 共 89 行

unit changepassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIEdit, DB, DBTables;

type
  Tchangepasswordform = class(TForm)
    suiform1: TsuiForm;
    Table1: TTable;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    suiEdit1: TsuiEdit;
    suiEdit2: TsuiEdit;
    suiEdit3: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure FormActivate(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changepasswordform: Tchangepasswordform;

implementation
 uses main1;
{$R *.dfm}
 //系统启动时,初始化模块
procedure Tchangepasswordform.FormActivate(Sender: TObject);
begin
  suiedit1.SetFocus;
//检测用户是否为系统管理员用户
  if username<>'admin' then
  begin
     suiedit1.Text:=username;
     suiedit1.Enabled:=false;
     suiedit1.TabStop:=false;
     suiedit2.SetFocus;
  end;
end;
 //退出模块
procedure Tchangepasswordform.suiButton2Click(Sender: TObject);
begin
  close;
end;
//确认修改

procedure Tchangepasswordform.suiButton1Click(Sender: TObject);
begin
  table1.DatabaseName:='DBMS';
  table1.TableName:='operator';
  table1.Active:=true;
  table1.EditKey;
  table1.FieldByName('name').AsString:=suiedit1.Text;
  table1.GotoKey;
  if (table1.FieldByName('name').AsString=suiedit1.Text) and
  (suiedit2.Text=suiedit3.Text) then
  //两次密码一致,密码修改
  begin
    table1.Edit;
    table1.FieldByName('password').AsString:=suiedit2.Text;
    table1.Post;
  end
  //两次密码不一致
  else
    application.MessageBox('用户名错误或两次密码不一致,请检查!','提示信息',mb_OK);
    table1.Active:=false;
    suiedit2.Text:='';
    suiedit3.Text:='';
    if username='admin' then
    begin
      suiedit1.Text:='';
      suiedit1.SetFocus;
      end
      else
        suiedit2.SetFocus;
      end;

end.