edituserinfo.pas

传奇服务端全部源程序Delphi7版 2009新来的!!!!!!!!!

unit EditUserInfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls,IDDB,Grobal2;
type
  TFrmUserInfoEdit=class(TForm)
    Label1: TLabel;
    EdId: TEdit;
    Label2: TLabel;
    EdPasswd: TEdit;
    Label3: TLabel;
    EdUserName: TEdit;
    Label4: TLabel;
    EdBirthDay: TEdit;
    Label5: TLabel;
    EdPhone: TEdit;
    Button1: TButton;
    Button2: TButton;
    CkFullEdit: TCheckBox;
    Label9: TLabel;
    EdSSNo: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    EdQuiz: TEdit;
    EdAnswer: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    EdQuiz2: TEdit;
    EdAnswer2: TEdit;
    Label12: TLabel;
    EdMobilePhone: TEdit;
    Label13: TLabel;
    EdMemo1: TEdit;
    Label14: TLabel;
    EdMemo2: TEdit;
    Label8: TLabel;
    EdEMail: TEdit;
    procedure CkFullEditClick(Sender : TObject);

  private
    { Private declarations }
  public
    function sub_466B10(boNew:Boolean;var DBRecord:TAccountDBRecord):Boolean;
    function sub_466AEC(var DBRecord:TAccountDBRecord):Boolean;
    { Public declarations }
  end ;

var
  FrmUserInfoEdit: TFrmUserInfoEdit;


implementation

{$R *.DFM}
//00467148
procedure TFrmUserInfoEdit.CkFullEditClick(Sender : TObject);
var
  bo05:Boolean;
begin
  bo05:=CkFullEdit.Checked;
  EdUserName.Enabled:=bo05;
  EdSSNo.Enabled:=bo05;
  EdBirthDay.Enabled:=bo05;
  EdQuiz.Enabled:=bo05;
  EdAnswer.Enabled:=bo05;
  EdQuiz2.Enabled:=bo05;
  EdAnswer2.Enabled:=bo05;
  EdPhone.Enabled:=bo05;
  EdMobilePhone.Enabled:=bo05;
  EdMemo1.Enabled:=bo05;
  EdMemo2.Enabled:=bo05;
  EdEMail.Enabled:=bo05;

end;
//00466B10
function TFrmUserInfoEdit.sub_466B10(boNew:Boolean;var DBRecord:TAccountDBRecord):Boolean;
begin
  Result:=False;
  if not boNew then begin
    CkFullEdit.Enabled:=True;
    CkFullEdit.Checked:=False;
    CkFullEditClick(Self);
    EdId.Enabled:=False;
  end else begin
    CkFullEdit.Enabled:=False;
    CkFullEdit.Checked:=True;
    CkFullEditClick(Self);
    EdId.Enabled:=True;
  end;
  EdId.Text:=DBRecord.UserEntry.sAccount;
  EdPasswd.Text:=DBRecord.UserEntry.sPassword;
  EdUserName.Text:=DBRecord.UserEntry.sUserName;
  EdSSNo.Text:=DBRecord.UserEntry.sSSNo;
  EdBirthDay.Text:=DBRecord.UserEntryAdd.sBirthDay;
  EdQuiz.Text:=DBRecord.UserEntry.sQuiz;
  EdAnswer.Text:=DBRecord.UserEntry.sAnswer;
  EdQuiz2.Text:=DBRecord.UserEntryAdd.sQuiz2;
  EdAnswer2.Text:=DBRecord.UserEntryAdd.sAnswer2;
  EdPhone.Text:=DBRecord.UserEntry.sPhone;
  EdMobilePhone.Text:=DBRecord.UserEntryAdd.sMobilePhone;
  EdMemo1.Text:=DBRecord.UserEntryAdd.sMemo;
  EdMemo2.Text:=DBRecord.UserEntryAdd.sMemo2;
  EdEMail.Text:=DBRecord.UserEntry.sEMail;
  if Self.ShowModal <> mrOK then exit;
  if boNew then begin
    DBRecord.UserEntry.sAccount:=Trim(EdId.Text);
  end;
  DBRecord.UserEntry.sPassword:=Trim(EdPasswd.Text);
  DBRecord.UserEntry.sUserName:=Trim(EdUserName.Text);
  DBRecord.UserEntry.sSSNo:=Trim(EdSSNo.Text);
  DBRecord.UserEntryAdd.sBirthDay:=Trim(EdBirthDay.Text);
  DBRecord.UserEntry.sQuiz:=Trim(EdQuiz.Text);
  DBRecord.UserEntry.sAnswer:=Trim(EdAnswer.Text);
  DBRecord.UserEntryAdd.sQuiz2:=Trim(EdQuiz2.Text);
  DBRecord.UserEntryAdd.sAnswer2:=Trim(EdAnswer2.Text);
  DBRecord.UserEntry.sPhone:=Trim(EdPhone.Text);
  DBRecord.UserEntryAdd.sMobilePhone:=Trim(EdMobilePhone.Text);
  DBRecord.UserEntryAdd.sMemo:=Trim(EdMemo1.Text);
  DBRecord.UserEntryAdd.sMemo2:=Trim(EdMemo2.Text);
  DBRecord.UserEntry.sEMail:=Trim(EdEMail.Text);
  Result:=True;
end;

function TFrmUserInfoEdit.sub_466AEC(var DBRecord:TAccountDBRecord):Boolean;
begin
  Result:=sub_466B10(False,DBRecord);
end;

end.