u_changepswd.pas

一个简单的学籍管理软件

unit U_ChangePswd;

interface

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

type
  TFm_ChangePswd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Ed_OldPswd: TEdit;
    Ed_Password: TEdit;
    Ed_Confirm: TEdit;
    Bevel1: TBevel;
    Btn_Ok: TButton;
    Btn_Cancel: TButton;
    procedure Btn_OkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function Show_ChangePswd: Boolean;
implementation
uses DBTables, U_GlobalVar, U_DM, U_GlobalProc;
{$R *.DFM}

function Show_ChangePswd: Boolean;
var
  Fm_ChangePswd: TFm_ChangePswd;
  DQuery: TQuery;
begin
  Result := False;
  Fm_ChangePswd := TFm_ChangePswd.Create(Application);
  with Fm_ChangePswd do
  try
    if ShowModal = mrOk then
    begin
      S_UserPassword := Ed_Password.Text;
      DQuery := TQuery.Create(Application);
      try
        with DQuery do
        begin
          DatabaseName := SysDbase;
          SQL.Text := 'UPDATE czry SET s_rykl = ''' + S_UserPassword +
            ''' WHERE s_rydm = ''' + S_UserCode + '''';
          ExecSQL;
        end;
      finally
        DQuery.Free;
      end;
      Result := True;
    end;
  finally
    Free;
  end;
end;

procedure TFm_ChangePswd.Btn_OkClick(Sender: TObject);
begin
  if Ed_Password.Text <> Ed_Confirm.Text then
  begin
    U_GlobalProc.Show_ErrorMess('新密码与确认密码不一致。');
    Ed_Password.Text := '';
    Ed_Confirm.Text := '';

    Ed_Password.SetFocus;
  end
  else
    ModalResult := mrOk;
end;

end.