RealICQClient/DataProvider/DataModel.pas

unit DataModel;

interface

type
  TUser = class(TInterfacedObject)
  private
    FLoginName: AnsiString;
    FServerID: AnsiString;
    FBranchID: AnsiString;
    FDisplayName: AnsiString;
    FTrueName: AnsiString;
    FMobile: AnsiString;
    FEmail: AnsiString;
    FHeadImageFileType: Integer;
    FProvince: AnsiString;
    FCompany: AnsiString;
    FHeadImageHashValue: AnsiString;
    FCalling: AnsiString;
    FLeaveMessage: AnsiString;
    FTel: AnsiString;
    FWatchword: AnsiString;
    FHomeAddress: AnsiString;
    FPost: AnsiString;
    FRemarkMobile: AnsiString;
    FCountry: AnsiString;
    FBranch: AnsiString;
    FShortMobile: AnsiString;
    FSex: Integer;
    FCity: AnsiString;
    FDuty: AnsiString;
    FIntro: AnsiString;
    FHeadImageFile: AnsiString;
    FVersion: Integer;
    function GetBranch: AnsiString; stdcall;
    function GetBranchID: AnsiString stdcall;
    function GetCalling: AnsiString stdcall;
    function GetCity: AnsiString stdcall;
    function GetCompany: AnsiString stdcall;
    function GetCountry: AnsiString stdcall;
    function GetDisplayName: AnsiString stdcall;
    function GetDuty: AnsiString stdcall;
    function GetEmail: AnsiString stdcall;
    function GetHeadImageFile: AnsiString stdcall;
    function GetHeadImageFileType: Integer stdcall;
    function GetHeadImageHashValue: AnsiString stdcall;
    function GetHomeAddress: AnsiString stdcall;
    function GetIntro: AnsiString stdcall;
    function GetLeaveMessage: AnsiString stdcall;
    function GetLoginName: AnsiString stdcall;
    function GetMobile: AnsiString stdcall;
    function GetPost: AnsiString stdcall;
    function GetProvince: AnsiString stdcall;
    function GetRemarkMobile: AnsiString stdcall;
    function GetServerID: AnsiString stdcall;
    function GetSex: Integer stdcall;
    function GetShortMobile: AnsiString stdcall;
    function GetTel: AnsiString stdcall;
    function GetTrueName: AnsiString stdcall;
    function GetWatchword: AnsiString stdcall;
    procedure SetBranch(const Value: AnsiString) stdcall;
    procedure SetBranchID(const Value: AnsiString) stdcall;
    procedure SetCalling(const Value: AnsiString) stdcall;
    procedure SetCity(const Value: AnsiString) stdcall;
    procedure SetCompany(const Value: AnsiString) stdcall;
    procedure SetCountry(const Value: AnsiString) stdcall;
    procedure SetDisplayName(const Value: AnsiString) stdcall;
    procedure SetDuty(const Value: AnsiString) stdcall;
    procedure SetEmail(const Value: AnsiString) stdcall;
    procedure SetHeadImageFile(const Value: AnsiString) stdcall;
    procedure SetHeadImageFileType(const Value: Integer) stdcall;
    procedure SetHeadImageHashValue(const Value: AnsiString) stdcall;
    procedure SetHomeAddress(const Value: AnsiString) stdcall;
    procedure SetIntro(const Value: AnsiString) stdcall;
    procedure SetLeaveMessage(const Value: AnsiString) stdcall;
    procedure SetLoginName(const Value: AnsiString) stdcall;
    procedure SetMobile(const Value: AnsiString) stdcall;
    procedure SetPost(const Value: AnsiString) stdcall;
    procedure SetProvince(const Value: AnsiString) stdcall;
    procedure SetRemarkMobile(const Value: AnsiString) stdcall;
    procedure SetServerID(const Value: AnsiString) stdcall;
    procedure SetSex(const Value: Integer) stdcall;
    procedure SetShortMobile(const Value: AnsiString) stdcall;
    procedure SetTel(const Value: AnsiString) stdcall;
    procedure SetTrueName(const Value: AnsiString) stdcall;
    procedure SetWatchword(const Value: AnsiString) stdcall;
    function GetVersion: Integer stdcall;
    procedure SetVersion(const Value: Integer) stdcall;

  public
    property LoginName: AnsiString read GetLoginName write SetLoginName;
    property ServerID: AnsiString read GetServerID write SetServerID;
    property DisplayName: AnsiString read GetDisplayName write SetDisplayName;
    property BranchID: AnsiString read GetBranchID write SetBranchID;
    property Sex: Integer read GetSex write SetSex;
    property Watchword: AnsiString read GetWatchword write SetWatchword;
    property RemarkMobile: AnsiString read GetRemarkMobile write SetRemarkMobile;
    property LeaveMessage: AnsiString read GetLeaveMessage write SetLeaveMessage;
    property HeadImageFileType: Integer read GetHeadImageFileType write SetHeadImageFileType;
    property HeadImageHashValue: AnsiString read GetHeadImageHashValue write SetHeadImageHashValue;
    property HeadImageFile: AnsiString read GetHeadImageFile write SetHeadImageFile;
    property TrueName: AnsiString read GetTrueName write SetTrueName;
    property Company: AnsiString read GetCompany write SetCompany;
    property Branch: AnsiString read GetBranch write SetBranch;
    property Duty: AnsiString read GetDuty write SetDuty;
    property Calling: AnsiString read GetCalling write SetCalling;
    property Country: AnsiString read GetCountry write SetCountry;
    property Province: AnsiString read GetProvince write SetProvince;
    property City: AnsiString read GetCity write SetCity;
    property Tel: AnsiString read GetTel write SetTel;
    property Mobile: AnsiString read GetMobile write SetMobile;
    property Email: AnsiString read GetEmail write SetEmail;
    property Post: AnsiString read GetPost write SetPost;
    property HomeAddress: AnsiString read GetHomeAddress write SetHomeAddress;
    property Intro: AnsiString read GetIntro write SetIntro;
    property ShortMobile: AnsiString read GetShortMobile write SetShortMobile;
    property Version: Integer read GetVersion write SetVersion;
  end;

implementation

{ TUser }

procedure TUser.SetBranch(const Value: AnsiString);
begin
  FBranch := Value;
end;

procedure TUser.SetBranchID(const Value: AnsiString);
begin
  FBranchID := Value;
end;

procedure TUser.SetCalling(const Value: AnsiString);
begin
  FCalling := Value;
end;

procedure TUser.SetCity(const Value: AnsiString);
begin
  FCity := Value;
end;

procedure TUser.SetCompany(const Value: AnsiString);
begin
  FCompany := Value;
end;

procedure TUser.SetCountry(const Value: AnsiString);
begin
  FCountry := Value;
end;

procedure TUser.SetDisplayName(const Value: AnsiString);
begin
  FDisplayName := Value;
end;

procedure TUser.SetDuty(const Value: AnsiString);
begin
  FDuty := Value;
end;

procedure TUser.SetEmail(const Value: AnsiString);
begin
  FEmail := Value;
end;

procedure TUser.SetHeadImageFile(const Value: AnsiString);
begin
  FHeadImageFile := Value;
end;

procedure TUser.SetHeadImageFileType(const Value: Integer);
begin
  FHeadImageFileType := Value;
end;

procedure TUser.SetHeadImageHashValue(const Value: AnsiString);
begin
  FHeadImageHashValue := Value;
end;

procedure TUser.SetHomeAddress(const Value: AnsiString);
begin
  FHomeAddress := Value;
end;

procedure TUser.SetIntro(const Value: AnsiString);
begin
  FIntro := Value;
end;

procedure TUser.SetLeaveMessage(const Value: AnsiString);
begin
  FLeaveMessage := Value;
end;

procedure TUser.SetLoginName(const Value: AnsiString);
begin
  FLoginName := Value;
end;

procedure TUser.SetMobile(const Value: AnsiString);
begin
  FMobile := Value;
end;

procedure TUser.SetPost(const Value: AnsiString);
begin
  FPost := Value;
end;

procedure TUser.SetProvince(const Value: AnsiString);
begin
  FProvince := Value;
end;

procedure TUser.SetRemarkMobile(const Value: AnsiString);
begin
  FRemarkMobile := Value;
end;

procedure TUser.SetServerID(const Value: AnsiString);
begin
  FServerID := Value;
end;

procedure TUser.SetSex(const Value: Integer);
begin
  FSex := Value;
end;

procedure TUser.SetShortMobile(const Value: AnsiString);
begin
  FShortMobile := Value;
end;

procedure TUser.SetTel(const Value: AnsiString);
begin
  FTel := Value;
end;

procedure TUser.SetTrueName(const Value: AnsiString);
begin
  FTrueName := Value;
end;

procedure TUser.SetVersion(const Value: Integer);
begin
  FVersion := Value;
end;

procedure TUser.SetWatchword(const Value: AnsiString);
begin
  FWatchword := Value;
end;

function TUser.GetBranch: AnsiString;
begin
  Result := FBranch;
end;

function TUser.GetBranchID: AnsiString;
begin
  Result := FBranchID;
end;

function TUser.GetCalling: AnsiString;
begin
  Result := FCalling;
end;

function TUser.GetCity: AnsiString;
begin
  Result := FCity;
end;

function TUser.GetCompany: AnsiString;
begin
  Result := FCompany;
end;

function TUser.GetCountry: AnsiString;
begin
  Result := FCountry;
end;

function TUser.GetDisplayName: AnsiString;
begin
  Result := FDisplayName;
end;

function TUser.GetDuty: AnsiString;
begin
  Result := FDuty;
end;

function TUser.GetEmail: AnsiString;
begin
  Result := FEmail;
end;

function TUser.GetHeadImageFile: AnsiString;
begin
  Result := FHeadImageFile;
end;

function TUser.GetHeadImageFileType: Integer;
begin
  Result := FHeadImageFileType;
end;

function TUser.GetHeadImageHashValue: AnsiString;
begin
  Result := FHeadImageHashValue;
end;

function TUser.GetHomeAddress: AnsiString;
begin
  Result := FHomeAddress;
end;

function TUser.GetIntro: AnsiString;
begin
  Result := FIntro;
end;

function TUser.GetLeaveMessage: AnsiString;
begin
  Result := FLeaveMessage;
end;

function TUser.GetLoginName: AnsiString;
begin
  Result := FLoginName;
end;

function TUser.GetMobile: AnsiString;
begin
  Result := FMobile;
end;

function TUser.GetPost: AnsiString;
begin
  Result := FPost;
end;

function TUser.GetProvince: AnsiString;
begin
  Result := FProvince;
end;

function TUser.GetRemarkMobile: AnsiString;
begin
  Result := FRemarkMobile;
end;

function TUser.GetServerID: AnsiString;
begin
  Result := FServerID;
end;

function TUser.GetSex: Integer;
begin
  Result := FSex;
end;

function TUser.GetShortMobile: AnsiString;
begin
  Result := FShortMobile;
end;

function TUser.GetTel: AnsiString;
begin
  Result := FTel;
end;

function TUser.GetTrueName: AnsiString;
begin
  Result := FTrueName;
end;

function TUser.GetVersion: Integer;
begin
  Result := FVersion;
end;

function TUser.GetWatchword: AnsiString;
begin
  Result := FWatchword;
end;

end.