passwordunit.pas

学籍管理

{**********************************************************************}
{                    ===================                               }
{                       用户修改密码                                   }
{                   ===================                                }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{   根据注册表信息帮助用户维护程序安全性。                             }
{                                                                      }
{**********************************************************************}
unit PasswordUnit;

interface

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

type
  TfmPassword = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdtUseName: TEdit;
    EdtOldPass: TEdit;
    Button1: TButton;
    Button2: TButton;
    EdtAnother: TEdit;
    EdtNewPass: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmPassword: TfmPassword;

implementation

{$R *.DFM}
uses SchoolManager_TLB, DataMoudle, PasswordAndReg;

procedure TfmPassword.Button2Click(Sender: TObject);
begin
  fmPassword.Close;
end;

procedure TfmPassword.Button1Click(Sender: TObject);
//var          //可以考虑用字符串数组只传递一个OLE变量
  //INewPassword:ISchoolMTSDisp;
  //UseNameChar,OldPasswordChar,NewPasswordChar:OleVariant;
begin
   if EdtNewPass.Text=EdtAnother.Text then
   begin
     if ReadReg('登陆记录','OldPassword','')=''then
     begin
       WriteReg('登陆记录','用户名',edtUseName.Text);
       WriteReg('登陆记录','OldPassword',EdtNewPass.Text);
       MessageBox(fmPassword.Handle,'密码设置成功！'+#13#10+
       '请记住您的登陆密码！！','设置信息',MB_ICONINFORMATION);
       fmPassword.Close;
     end
     else
     begin
       if ReadReg('登陆记录','OldPassword','')=EdtOldPass.Text then
       begin
          WriteReg('登陆记录','OldPassword',EdtNewPass.Text);
          MessageBox(fmPassword.Handle,'密码修改成功！'+#13#10+
          '请记住您 的新密码！！','修改信息',MB_ICONINFORMATION);
          fmPassword.Close;
       end
       else
       begin
          MessageBox(fmPassword.Handle,
             '您的密码不对，请重新输入！','密码错误信息',MB_ICONWARNING);
          EdtOldPass.Text:='';
       end;
     end;
   end
   else
   begin
     MessageBox(fmPassword.Handle,'您两次输入的新密码不一致，请重新输入！',
      '错误信息',MB_ICONWARNING);
     EdtNewPass.Text:='';
     EdtAnother.Text:='';
   end;
  {if EdtNewPass.Text=EdtAnother.Text then
  begin
    UseNameChar:=EdtUseName.Text;
    OldPasswordChar:=EdtOldPass.Text;
    NewPasswordChar:=EdtNewPass.Text;
    INewPassword:=ISchoolMTSDisp(IDispatch
         (DataModule1.ClientDataSet1.Appserver));
    INewPassword.NewPassword(UseNameChar,
                  OldPasswordChar,NewPasswordChar);
    if UseNameChar='T'then
      MessageDlg('恭喜，密码修改成功！',mtInformation,[mbOK],0)
    else
    if UseNameChar='F'then
      MessageDlg('对不起，你的权限不够！',mtInformation,[mbOK],0)
    else
    if UseNameChar='D' then
      MessageDlg('应用程序已关闭，修改失败！',mtInformation,[mbOK],0);
    end
  else
  begin
    MessageDlg('您两次输入的新密码不一致，请重新输入！',mtError,[mbOK],0);
  end; }
end;

procedure TfmPassword.FormShow(Sender: TObject);
begin
  EdtUseName.Text:=ReadReg('登陆记录','用户名','');
  if EdtUseName.Text='' then
  begin
    MessageBox(fmPassword.Handle,'密码尚未设置，请设置您的用户名和密码！',
      '首次登陆提示',MB_ICONINFORMATION);
    EdtUseName.Enabled:=True;
    EdtOldPass.Enabled:=False;
    EdtOldPass.Color:=clMenu;
  end;
end;

end.