update_psw_frms.pas

证券公司考试系统,三层架构,从题库自动产生试卷,全部主观题

unit Update_Psw_Frms;

interface

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

type
  TUpdate_Psw_Frm = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    Button1: TButton;
    Panel3: TPanel;
    Label2: TLabel;
    Re_New_Psw_Edit: TEdit;
    New_Psw_Edit: TEdit;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Update_Psw_Frm: TUpdate_Psw_Frm;

implementation

uses login_pas, Client_Data_Module;

{$R *.dfm}

procedure TUpdate_Psw_Frm.Button1Click(Sender: TObject);
Var
   Check:Boolean;
   Password:string;{要修改的加密前的密码}
   MiWen:string;{要修改的加密后的密码}
   Fname:string;{登陆员工姓名}
begin
  If New_Psw_Edit.Text<>Re_New_Psw_Edit.Text
   then StatusBar1.Panels[0].Text:='密码不一致！'
   else
    begin
     Password:= New_Psw_Edit.Text;
     Login_Frm.Validity_Check(Password,Check);{检测密码串合法性}
     If Not Check
      then StatusBar1.Panels[0].Text:='密码串不合法！'
      else
       begin
        Login_Frm.JiaMi(MiYao,Password,MiWen);
        {调用远程过程修改密码}
        Try
         with Remote_DataModule do
          Exam_SocketConnection.AppServer.Update_Login_Psw(Login_Name, MiWen);
         Close;
         Showmessage('密码修改成功');
         New_Psw_Edit.Text:='';
         Re_New_Psw_Edit.Text:='';


         FName:=Names;{将Names的类型变成String}

        {------------------------中间件上日志记录-----------------------------------------}

         Remote_DataModule.Exam_SocketConnection.AppServer.Action_Log('用户名：'+Login_Name
         +',员工名称: '+ FName,Sales_Department,Department, '动作：修改密码成功！');

        {------------------------中间件上日志记录-----------------------------------------}

        Except
         StatusBar1.Panels[0].Text:='修改密码不成功！'
        end;
       end;
    end;
end;

procedure TUpdate_Psw_Frm.Button2Click(Sender: TObject);
begin
  New_Psw_Edit.Text:='';
  Re_New_Psw_Edit.Text:='';
  close;
end;

end.