userhold.pas.~2~

本系统是结合行业管理中实际的人力资源、工资制度

unit userhold;

interface

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

type
  Tuserholdfrm = class(TForm)
    Label1: TLabel;
    usernameed: TEdit;
    Label2: TLabel;
    userpwded: TEdit;
    modify_btn: TButton;
    delete_btn: TButton;
    cancel_btn: TButton;
    procedure cancel_btnClick(Sender: TObject);
    procedure modify_btnClick(Sender: TObject);
    procedure delete_btnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userholdfrm: Tuserholdfrm;

implementation

{$R *.dfm}

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

procedure Tuserholdfrm.modify_btnClick(Sender: TObject);
begin
if  application.MessageBox('要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
if usernameed.Text =''  then
begin
showmessage('请输入要修改帐户的用户名！');
exit;
end;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from user_table where '
+'user_name='''+usernameed.Text+'''');
adoquery1.Open;

if adoquery1.Eof  then
begin
showmessage('该用户名不存在！');
exit;
end;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update user_table set user_pwd='''+userpwded.Text+'''  '
+'where user_name='''+usernameed.Text+'''');
adoquery1.ExecSQL;
showmessage('密码修改成功！');
end;
end;

procedure Tuserholdfrm.delete_btnClick(Sender: TObject);
begin
if  application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
if usernameed.Text =''  then
begin
showmessage('请输入要删除帐户的用户名！');
exit;
end;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from user_table where user_name='''+usernameed.Text+'''');
adoquery1.Open;

if adoquery1.Eof  then
begin
showmessage('该用户名不存在！');
exit;
end;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete from  user_table   where user_name='''+usernameed.Text+'''');
adoquery1.ExecSQL;
showmessage('帐号删除成功！');
usernameed.Text:='';userpwded.Text :='';
end;
end;

end.