u_myinfo.pas

来自「Delphi 应用举例」· PAS 代码 · 共 79 行

unit U_myInfo;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Controls, Forms, u_Frame,
  IWCompButton, IWCompLabel, Classes, IWControl, IWCompEdit, U_frame_head;

type
  TformMainMyInfo = class(TIWAppForm)
    IWEditID: TIWEdit;
    IWEditPWDOld: TIWEdit;
    IWEditMail: TIWEdit;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWButton1: TIWButton;
    IWEditPWDNew: TIWEdit;
    Frame21: TFrame2;
    IWEditPWDNew1: TIWEdit;
    IWLabel4: TIWLabel;
    Frame31: TFrame3;
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
  public

  end;

implementation
{$R *.dfm}

uses
  ServerController,SysUtils;

procedure TformMainMyInfo.IWAppFormCreate(Sender: TObject);
var buf:TUserinfo;
begin
    Frame31.lbluser.Caption:='当前用户：'+Usersession.userID;
    Frame31.lblCount.Caption:='在线用户数：'+IntToStr(UserOnLine);

    //
   buf:=userList.find(UserSession.UserID);
   if buf.userID='' then exit;
   IWEditID.Text:=buf.userID;
   IWEditMail.Text:=buf.mail;
   IWEditPWDOld.text:='';
   IWEditPWDNew1.text:='';
   IWEditPWDNew.text:='';

end;

procedure TformMainMyInfo.IWButton1Click(Sender: TObject);
var buf:TUserinfo;
begin
    buf:=userList.find(UserSession.UserID);
    if IWEditPWDOld.text<>buf.pwd then begin
       webapplication.ShowMessage('必须先输入正确的旧口令！');
       exit;
    end;
    if IWEditPWDNew.text='' then begin
    end;
    if IWEditPWDNew.text<>buf.pwd then begin
       webapplication.ShowMessage('新口令不能空！');
       exit;
    end;
    if IWEditPWDNew.text<>IWEditPWDNew1.text then begin
       webapplication.ShowMessage('两次输入的新口令不一样！');
       exit;
    end;
    //edit;
    buf.pwd:=IWEditPWDNew.text;
    buf.mail:=IWEditMail.text;
    userList.add(buf);//修改

end;

end.