updatepasswordunit.pas

教学管理系统源代码

unit updatepasswordUnit;

interface

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

type
  TupdatepasswordForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    MaskEdit3: TMaskEdit;
    Label4: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    ComboBox1: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  updatepasswordForm: TupdatepasswordForm;

implementation
uses mainformunit,datamoduleunit;

{$R *.dfm}

procedure TupdatepasswordForm.BitBtn1Click(Sender: TObject);
begin
if combobox1.Text<>mainform.user then
    begin
     messagebox (handle,'你只有对当前用户进行修改的权限！','警告',mb_ok) ;
     combobox1.ItemIndex:=combobox1.Items.IndexOf(mainform.user);
     combobox1.SetFocus;
     exit;
    end;
if maskedit2.Text<>maskedit3.Text then
   begin
     messagebox (handle,'两次输入的密码不相同！请重输！','警告',mb_ok) ;
     maskedit3.Text:='';
     maskedit2.Text:='';
     maskedit2.SetFocus;
     exit;
    end;
with datamodule1.Tablesys do
 begin
  open;
  if locate('user;psw',vararrayof([combobox1.Text,maskedit1.text]),[]) then
    begin
     edit;
     fieldbyname('psw').AsString:=maskedit2.Text;
     updaterecord;
     post;
     messagebox (handle,'你的密码更新成功！','确认',mb_ok) ;
     modalresult:=mrok;
     end
   else
     begin
       messagebox (handle,'旧密码不正确！请重输！','警告',mb_ok) ;
       maskedit1.SetFocus;
     end;
  end;

end;

procedure TupdatepasswordForm.FormCreate(Sender: TObject);
begin
with datamodule1.tablesys do
 begin
   open;
   while not eof do
      begin
      combobox1.Items.Add(fieldbyname('user').AsString);
      next;
      end;
  close;
 end;
end;

procedure TupdatepasswordForm.ComboBox1Change(Sender: TObject);
begin
if (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'')
and (maskedit3.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure TupdatepasswordForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
datamodule1.Tablesys.Close;
end;

end.