changekey.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

unit ChangeKey;

interface

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

type
  TForm_ChangeKey = class(TForm)
    ADOCommand1: TADOCommand;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    edtOldKey: TEdit;
    edtNewKey1: TEdit;
    edtNewKey: TEdit;
    OKBtn: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_ChangeKey: TForm_ChangeKey;

implementation

uses data,sharevar,sharefun;

{$R *.dfm}

procedure TForm_ChangeKey.FormShow(Sender: TObject);
begin  
  edtOldkey.SetFocus;
end;

procedure TForm_ChangeKey.OKBtnClick(Sender: TObject);
begin  
  if edtOldKey.Text<>curAdmin.user_pwd then
  begin
    MsgErr(handle,'原密码不正确！');
    exit;
  end
  else begin
    if edtNewKey.Text <>edtNewKey1.Text then
    begin
      MsgErr(handle,'两次输入的密码不一致，请重新输入！');
      exit;
    end
    else begin
      curAdmin.user_pwd  :=edtNewKey.Text;
      ADOCommand1.Parameters.ParamByName('pwd').Value :=curAdmin.user_pwd ;
      ADOCommand1.Parameters.ParamByName('logid').Value :=curAdmin.user_id ;
      ADOCommand1.Execute;
      if datamod.ADOQ_Operator.Active then  datamod.ADOQ_Operator.Refresh;
      ModalResult:=mrOK;
    end;
  end;
end;

procedure TForm_ChangeKey.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

end.