passwordset_unit.pas

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

unit PasswordSet_Unit;

interface

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

type
  TfrmPasswordSet = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lblLoginID: TLabel;
    edtNewPassword: TEdit;
    edtOldPasswrod: TEdit;
    edtPasswrodAgain: TEdit;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    qryPassword: TADOQuery;
    procedure btnOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPasswordSet: TfrmPasswordSet;

implementation

uses Common_Unit, LeechdomMain_Unit;

{$R *.dfm}

procedure TfrmPasswordSet.btnOkClick(Sender: TObject);
var
  SelectSQL, ModfiySQL: string;
begin
  SelectSQL := 'Exec proc_Base @Flag=''Exists_LoginID'',@Flag1=''Login'''
              +',@LoginID=' + Quotedstr(lblLoginID.Caption)
              +',@Pass=' + Quotedstr(edtOldPasswrod.Text);
  if FindSQL(SelectSQL) = False then
  begin
    Application.MessageBox('原始密码错误,请重新输入!','提示',16);
    edtOldPasswrod.Text := '';
    edtOldPasswrod.SetFocus;
    Exit;
  end;
  if edtNewPassword.Text <> edtPasswrodAgain.Text then
  begin
    Application.MessageBox('新密码输入不一致,请重新输入!','提示',16);
    edtNewPassword.Text := '';
    edtPasswrodAgain.Text := '';
    edtNewPassword.SetFocus;
    Exit;
  end;
  ModfiySQL := 'Exec proc_Base @Flag=''Exists_LoginID'',@Flag1=''1'''
              +',@LoginID=' + Quotedstr(lblLoginID.Caption)
              +',@Pass=' + Quotedstr(edtNewPassword.Text);
  ExecSQL(qryPassword,ModfiySQL);
  Application.MessageBox('密码修改成功!','提示',64);
end;

procedure TfrmPasswordSet.FormShow(Sender: TObject);
begin
  lblLoginID.Caption := LoginID;
end;

procedure TfrmPasswordSet.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  frmPasswordSet := nil;
end;

procedure TfrmPasswordSet.btnCancelClick(Sender: TObject);
begin
  Close;
end;

end.