unitmodifypwd.pas

绿色衡器称重系统(串口）

unit unitModifyPWD;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
//             该系统源码归青岛东亚电子衡器有限公司版权所有
//                                  Author:HaiBin
//      Email:[e-mail]     DateTime:2005.06.22
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
interface

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

type
  TfrmModifyPWD = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    edtNPWD: TEdit;
    Label3: TLabel;
    edtNPWDC: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    adoQuery: TADOQuery;
    adoConn: TADOConnection;
    Label1: TLabel;
    edtOPWD: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmModifyPWD: TfrmModifyPWD;

implementation

uses unitJoin;

{$R *.dfm}

procedure TfrmModifyPWD.BitBtn2Click(Sender: TObject);
begin
Close;
end;

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

procedure TfrmModifyPWD.BitBtn1Click(Sender: TObject);
var
sql:string;
begin
try
if Trim(edtOPWD.Text)='' then
begin
MessageBox(handle,'旧密码不能为空！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
edtOPWD.SetFocus;
exit;
end;
if Trim(edtNPWD.Text)='' then
begin
MessageBox(handle,'新密码不能为空！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
edtNPWD.SetFocus;
exit;
end;
if Trim(edtNPWDC.Text)='' then
begin
MessageBox(handle,'确认密码不能为空！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
edtNPWDC.SetFocus;
exit;
end;
if Trim(edtNPWD.Text)<>Trim(edtNPWDC.Text) then
begin
MessageBox(handle,'新密码与确认密码不符！',pChar(ClientUSN),MB_OK+MB_ICONERROR);
Exit;
end;
sql:='select * from  uManage Where id=' + quotedstr(userID) + ' and pwd=' + quotedstr(edtOPWD.Text);
if Not adoConn.Connected then
adoConn.Open;
adoQuery.Close;
adoQuery.SQL.Clear;
adoQUery.SQL.add(sql);
adoQUery.Open;
if adoQuery.RecordCount<=0 then
begin
 MessageBox(handle,'旧密码错误！',pChar(ClientUSN),MB_OK+MB_ICONHAND);
 exit;
end
else
begin
sql:='update uManage set pwd='+ quotedstr(edtNPWDC.Text)+' Where id=' + quotedstr(userID);
if Not adoConn.Connected then
adoConn.Open;
adoQuery.Close;
adoQuery.SQL.Clear;
adoQUery.SQL.add(sql);
adoQuery.ExecSQL;
 MessageBox(handle,'修改成功！',pChar(ClientUSN),MB_OK+MB_ICONEXCLAMATION);
 Close;
end;
except
 MessageBox(handle,'修改失败！请重试!',pChar(ClientUSN),MB_OK+MB_ICONERROR);
end;
end;

procedure TfrmModifyPWD.FormShow(Sender: TObject);
var
objFun:TFun;
bcanRead,bcanDelete,bcanModify:boolean;
begin
objFun:=TFun.Create;
if objFun.CheckUserLv(userID,Name,bcanRead,bcanDelete,bCanModify) then
begin
  if (bcanModify) and (bcanRead) and (bcanDelete)then
 begin
    BitBtn1.Enabled:=bcanModify;
    BitBtn2.Enabled:=bcanModify;
    edtOPWD.ReadOnly:=not bcanModify;
    edtNPWD.ReadOnly:=not bcanModify;
    edtNPWDC.ReadOnly:= not bcanModify;
 end
 else
 if (bcanModify) and (bcanRead) then
 begin
    BitBtn1.Enabled:=bcanModify;
    BitBtn2.Enabled:=bcanModify;
    edtOPWD.ReadOnly:=not bcanModify;
    edtNPWD.ReadOnly:=not bcanModify;
    edtNPWDC.ReadOnly:= not bcanModify;
 end
 else
 if bcanRead then
 begin
    BitBtn1.Enabled:=not bcanModify;
    BitBtn2.Enabled:=not bcanModify;
    edtOPWD.ReadOnly:= bcanModify;
    edtNPWD.ReadOnly:= bcanModify;
    edtNPWDC.ReadOnly:=  bcanModify;
 end
 else
 begin
 MessageBox(handle,'对不起，你没有权限操作此功能!',pChar(ClientUSN),MB_OK+MB_ICONERROR);
 Close;
 end;
end
else
begin
MessageBox(handle,'对不起，你没有权限操作此功能!',pChar(ClientUSN),MB_OK+MB_ICONERROR);
Close;
end;
edtOPWD.SetFocus;
end;

procedure TfrmModifyPWD.FormCreate(Sender: TObject);
var
Connstr:string;
begin
if not adoConn.Connected then
begin
Connstr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Paramstr(0)) +'weight.mdb;Persist Security Info=False;Jet OLEDB:Database Password=qdseashore960501';
adoConn.ConnectionString:=Connstr;
adoCOnn.Open;
end;

end;

end.