changepassword.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

unit changepassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, StdCtrls;

type
  Tfchangepassword = class(Tfbaseform)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fchangepassword: Tfchangepassword;

implementation

uses dataform;

{$R *.dfm}

procedure Tfchangepassword.Button1Click(Sender: TObject);
begin
  inherited;
if Trim(edit1.Text)=fData.Sqltmp.FieldByName('User_pas').Value then
   begin    
   if Trim(Edit2.Text)=Trim(Edit3.Text) then
      begin
      fData.Sqltmp.Edit;
      fData.Sqltmp.FieldByName('user_pas').Value:=Trim(edit1.Text);
      fData.Sqltmp.Post;
      MessageBox(0, '修改成功！', '提示', MB_OK + MB_ICONINFORMATION + 
        MB_TOPMOST);
      Close; 
      end
      else
      begin
      MessageBox(0, '两次输入的密码不符！请重新输入！', '提示', MB_OK +
        MB_ICONINFORMATION + MB_TOPMOST);
      Edit2.Text:='';
      Edit3.Text:='';
      Edit2.SetFocus;
      end;
   end
   else
   begin
      MessageBox(0, '旧密码不正确！请重新输入！', '提示', MB_OK +
        MB_ICONINFORMATION + MB_TOPMOST);
      Edit2.Text:='';
      Edit3.Text:='';
      Edit1.Text:='';
      edit1.SetFocus;
   end;
end;

procedure Tfchangepassword.Button2Click(Sender: TObject);
begin
  inherited;
Close;
end;

procedure Tfchangepassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
Action:=caFree;
end;

end.