userhold.pas

信息管理系统

unit userhold;

interface

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

type
  Tuserholdfrm = class(TForm)
    Label1: TLabel;
    usernameed: TEdit;
    Label2: TLabel;
    userpwded: TEdit;
    modify_btn: TButton;
    user_del: TButton;
    cancel_btn: TButton;
    Label3: TLabel;
    pastpwd: TEdit;
    Label4: TLabel;
    newpwd1: TEdit;
    procedure cancel_btnClick(Sender: TObject);
    procedure modify_btnClick(Sender: TObject);
    procedure user_delClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    usertable:Tusertable;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userholdfrm: Tuserholdfrm;

implementation
uses loginfrmunit3;
{$R *.dfm}

procedure Tuserholdfrm.cancel_btnClick(Sender: TObject);
begin
  usernameed.Text:='';
  userpwded.Text :='';
  userholdfrm.Close;
end;

procedure Tuserholdfrm.modify_btnClick(Sender: TObject);
var
  sql:string;
begin
  if  application.MessageBox('要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
  begin
    if usernameed.Text =''  then
    begin
      showmessage('请输入要修改帐户的用户名！');
      exit;
    end;
    if loginfrm.powerlevel<>'系统管理员' then
    begin
      //判断原密码是否为空
      if pastpwd.Text =''  then
      begin
        showmessage('请输入原密码！');
        exit;
      end;
      //判断原密码是否正确
      if usertable.GetUserPwd(usernameed.Text)<>pastpwd.Text  then
      begin
        showmessage('原密码不正确，修改密码失败！');
        exit;
      end;
    end;
    //判断新密码是否为空
    if userpwded.Text =''  then
    begin
      showmessage('请输入新密码！');
      exit;
    end;
    //判断确认密码是否有误
    if newpwd1.Text<>userpwded.Text  then
    begin
      showmessage('确认新密码有误，请重新输入！');
      exit;
    end;
    //判断修改记录是否存在
    if usertable.CheckUser(usernameed.Text)=false  then
    begin
      showmessage('该用户名不存在！');
      exit;
    end;
    //赋值修改操作语句
    sql:='update user_table set user_pwd='''+userpwded.Text+'''  '
    +'where user_name='''+usernameed.Text+'''';
    //执行修改操作
    usertable.UserUpdate(sql);
    showmessage('密码修改成功！');
  end;
end;

procedure Tuserholdfrm.user_delClick(Sender: TObject);
var
  delsql:string;
begin
  if  application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
  begin
    if usernameed.Text =''  then
    begin
      showmessage('请输入要删除帐户的用户名！');
      exit;
    end;
    //判断用户帐号是否存在
    if usertable.CheckUser(usernameed.Text)=false then
    begin
      showmessage('该用户名不存在！');
      exit;
    end;
    //判断原密码是否正确
    if usertable.GetUserPwd(usernameed.Text)<>pastpwd.Text  then
    begin
      showmessage('原密码不正确，删除失败！');
      exit;
    end;
    //赋值删除操作语句
    delsql:='delete from  user_table   where user_name='''+usernameed.Text+'''';
    //执行删除操作
    usertable.UserDelete(delsql);
    showmessage('帐号删除成功！');
    usernameed.Text:='';userpwded.Text :='';
  end;
end;

procedure Tuserholdfrm.FormActivate(Sender: TObject);
begin
  usertable:=Tusertable.create ;
end;

procedure Tuserholdfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  usertable.Free;
end;

end.