userhold.~pas

这是用delphi开发的一个物资管理信息系统

unit userhold;

interface

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

type
  Tuserholdfrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    usernameed: TEdit;
    userpwded: TEdit;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    userpwded1: TEdit;
    cancel_btn: TBitBtn;
    modify_btn: TBitBtn;
    delete_btn: TBitBtn;
    Label5: TLabel;
    procedure modify_btnClick(Sender: TObject);
    procedure delete_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure usernameedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure userpwdedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    usertable:Tusertable;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userholdfrm: Tuserholdfrm;

implementation

{$R *.dfm}

procedure Tuserholdfrm.modify_btnClick(Sender: TObject);
var
  modsql:string;
begin
usertable:=Tusertable.create ;
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('该用户名不存在！');
usernameed.SetFocus ;
exit;
end;

if userpwded.Text<>userpwded1.Text  then
begin
showmessage('新密码与确认密码不一致！');
exit;
end;

if login.userlevel<>'系统管理员' then
begin
  if edit1.Text='' then
  begin
    showmessage('请输入原密码！');
    exit;
  end;
  if login.userpwd<>edit1.Text  then
  begin
    showmessage('原密码不正确，修改失败！');
    exit;
  end;
end;



modsql:='update user_table set user_pwd='''+userpwded.Text+'''  '
+'where user_name='''+usernameed.Text+'''';
usertable.UserUpdate(modsql);
usernameed.Text:='';userpwded.Text :='';
userpwded1.Text :=''; edit1.Text :='';
showmessage('密码修改成功！');
end;
end;

procedure Tuserholdfrm.delete_btnClick(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 )<>edit1.Text  then
  begin
   showmessage('原密码不正确，删除失败！');
   exit;
 end;

delsql:='delete from  user_table  where user_name='''+usernameed.Text+'''';
usertable.UserDelete(delsql);
showmessage('帐号删除成功！');

usernameed.Text:='';edit1.Text :='';
end;
end;

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

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

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

procedure Tuserholdfrm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   userpwded.SetFocus ;
end;

procedure Tuserholdfrm.usernameedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   edit1.SetFocus ;
end;

procedure Tuserholdfrm.userpwdedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   userpwded1.SetFocus ;
end;
end.