userhold.pas

工资管理系统 可以用语SQL数据库课程设计

unit userhold;

interface

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

type
  Tuserholdfrm = class(TForm)
    Label1: TLabel;
    usernameed: TEdit;
    Label2: TLabel;
    userpwded: TEdit;
    Pwd_Mod: TButton;
    User_Del: TButton;
    cancel_btn: TButton;
    Label3: TLabel;
    pastpwd: TEdit;
    Label4: TLabel;
    newpwd1: TEdit;
    procedure cancel_btnClick(Sender: TObject);
    procedure Pwd_ModClick(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

{$R *.dfm}

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

procedure Tuserholdfrm.Pwd_ModClick(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 loginfrmUnit3.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.