frm_pwdu.~pas

这是一个小区物业管理系统

unit frm_pwdU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,db,ADODB,Config, Mask;

type
  Tfrm_pwd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    btn_ok: TButton;
    btn_cancel: TButton;
    edt_pwd1: TMaskEdit;
    edt_pwd2: TMaskEdit;
    procedure btn_cancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_okClick(Sender: TObject);
  private
    Query:TAdoQuery;
  public
    userID:integer;
    procedure UpdatePwd;
  end;

var
  frm_pwd: Tfrm_pwd;

implementation
uses DataMU,classesU,Control_OperatorU;
{$R *.dfm}
procedure Tfrm_pwd.UpdatePwd;
var
  sql:string;
begin
  if(not DataM.ADOCon.Connected) then
  begin
    DataM.ADOCon.ConnectionString:=TXQWYConfig.getConnectionStr;
    DataM.ADOCon.Open;
  end;
  Query:=TADOQuery.Create(self);
  Query.Connection:=DataM.ADOCon;
  Query.Close;
  sql:='update 操作员 set 密码='+''''+trim(edt_pwd1.Text)+''''+
       ' where id='+inttostr(self.userID);
  DataM.ADOCon.BeginTrans;
  try
    Query.SQL.Clear;
    Query.SQL.Add(sql);
    Query.ExecSQL;
    DataM.ADOCon.CommitTrans;
    MessageBox(Handle, '更改成功', '小区物业', MB_ICONASTERISK);
    close;
  except
    DataM.ADOCon.RollbackTrans;
    MessageBox(Handle, '更改失败', '小区物业', MB_ICONEXCLAMATION);
  end;

end;
procedure Tfrm_pwd.btn_cancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_pwd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_pwd.btn_okClick(Sender: TObject);
var
  operator:TOperator;
begin
if(trim(edt_pwd1.Text)<>trim(edt_pwd2.Text)) then
  begin
    MessageBox(Handle, '密码不一致', '小区物业', MB_ICONEXCLAMATION);
  end
else
  begin
    operator:=TOperator.Create;
    operator.id:=userID;
    operator.pwd:=trim(edt_pwd1.Text);
    if Control_OperatorU.UpdatePWD(operator) then
      MessageBox(Handle, '更改成功', '小区物业', MB_ICONASTERISK)
    else
      MessageBox(Handle, '更改失败', '小区物业', MB_ICONEXCLAMATION);
  end;
end;

end.