frm_klxg.pas

来自「简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 」· PAS 代码 · 共 96 行

unit frm_klxg;

interface

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

type
  Tklxiugai = class(TForm)
    grp1: TGroupBox;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    rzbtbtn1: TRzBitBtn;
    rzbtbtn2: TRzBitBtn;
    edtOld: TRzEdit;
    edtNew1: TRzEdit;
    edtNew2: TRzEdit;
    procedure rzbtbtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure rzbtbtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    CurUserName,CurUserPWD:string;
    IsAdmin:Boolean;
    { Public declarations }
  end;

var
  klxiugai: Tklxiugai;

implementation
         uses Unit1,DataModule;
{$R *.dfm}

procedure Tklxiugai.rzbtbtn2Click(Sender: TObject);
begin
     close;
end;

procedure Tklxiugai.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caFree;
end;

procedure Tklxiugai.rzbtbtn1Click(Sender: TObject);
begin
    if edtOld.Text<>CurUserPWD then
    begin
      ShowMessage('原始密码不正确，请重新输入！');
      Exit;
    end;

    if edtNew1.Text<>edtNew2.Text then
    begin
       ShowMessage('两次输入的密码不相同，请重新输入！');
       Exit;
    end;

    if Trim(edtNew1.Text)='' then
    begin
       ShowMessage('密码不允许为空，请重新输入！');
       Exit;
    end;

    if MessageDlg('你确定需要修改密码？',mtInformation,[mbYes,mbNo],0)=mryes then
    begin
       if IsAdmin then
       begin
          DM.atbl1.Close;
          DM.atbl1.TableName:='admin';
          DM.atbl1.Open;
          if DM.atbl1.Locate('帐号;密码',VarArrayOf([CurUserName,CurUserPWD]),[loCaseInsensitive]) then
          begin
             DM.atbl1.Edit;
             DM.atbl1.FieldByName('密码').Value:=edtNew2.Text;
             DM.atbl1.Post;
          end;
          DM.atbl1.Close;
          Self.Close;
       end;
    end;
end;

procedure Tklxiugai.FormShow(Sender: TObject);
begin
    CurUserName:=MainForm.UserName;
    CurUserPWD:=MainForm.PWD;
end;

end.