xgmmut.~pas

来自「宾馆客房管理系统,功能强大,界面美观,全部delphi源代码」· ~PAS 代码 · 共 82 行

unit xgmmut;

interface

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

type
  Txgmmfm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    xm: TLabel;
    jmm: TLabeledEdit;
    xmm: TLabeledEdit;
    qrmm: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    mmado: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgmmfm: Txgmmfm;

implementation

uses hotelmis;

{$R *.dfm}

procedure Txgmmfm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Txgmmfm.BitBtn1Click(Sender: TObject);
begin
   with mmado do
     begin
       close;
       sql.Clear;
        sql.Add('select * from 操作员表 where 姓名=:vxm and 密码=:mm');
          Parameters.ParamByName('vxm').Value:=trim(xm.Caption);
          Parameters.ParamByName('mm').Value:=trim(jmm.Text);
       open;
       if recordcount<1 then
        begin
          showmessage('旧密码不正确!');
          exit;
        end;
     end;
     if xmm.Text<>qrmm.Text then
      begin
        showmessage('新密码和确认密码不一致');
        exit;
      end;
     with mmado do
     begin
       close;
       sql.Clear;
       sql.Add('update 操作员表 set 密码=:xmm where 姓名=:xm');
        Parameters.ParamByName('xm').Value:=trim(xm.Caption);
          Parameters.ParamByName('xmm').Value:=trim(xmm.Text);
        execsql;
          end;
          showmessage('密码修改成功！');
end;

procedure Txgmmfm.FormCreate(Sender: TObject);
begin
xm.Caption:=hotelfm.username;
end;

end.