unit_frmpwd.pas

影院售票系统完整源码

unit Unit_FrmPwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, CyberXPMenu;

type
  TFrmPassword = class(TForm)
    BtnOk: TBitBtn;
    BtnExit: TBitBtn;
    CyberXPMenu1: TCyberXPMenu;
    GroupBox1: TGroupBox;
    LblOperator: TLabel;
    EdtOperator: TEdit;
    Label3: TLabel;
    Label1: TLabel;
    Edit_oldpwd: TEdit;
    Edtpwd: TMaskEdit;
    Label2: TLabel;
    EdtPerform: TMaskEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPassword: TFrmPassword;
 
implementation

uses unit_Public,unit_adodm;

{$R *.dfm}

procedure TFrmPassword.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then perform(WM_NEXTDLGCTL,0,0);
  if Key=27 then close;
end;

procedure TFrmPassword.BtnOkClick(Sender: TObject);
var
  sqlstr:string;
begin
  if trim(edtpwd.Text)<>trim(edtperform.Text) then
  begin
    Application.MessageBox('新密码两次不一致,请重新输入！',pchar('警告'),mb_ok);
    edtpwd.SetFocus ;
  end;
  sqlstr:='select count(loginname) as reccount from tbluser where loginname='+#39+EdtOperator.Text+#39+
          ' and pwd='+#39+Edit_oldpwd.Text+#39;
  if publicinfo.Execsql(sqlstr,false) then
  begin
     sqlstr:='update tbluser set pwd='+#39+Edtpwd.Text+#39 +'where loginname='+#39+EdtOperator.Text+#39+
             ' and pwd='+#39+Edit_oldpwd.Text+#39;
    if  publicinfo.Execsql(sqlstr,true) then
    begin
      application.MessageBox('密码修改成功,请记牢！',pchar('提示'),mb_ok);
      ModalResult := mrOK
    end;
  end
  else
    application.MessageBox('原始密码不对无权修改！',pchar('警告'),mb_ok);

end;

end.