dataprocess.pas

Delphi面向对象编程思想附书源码 好用哦！

unit DataProcess;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs,DBClient,uCreateManClass;

type
  TCDSMan = class (TClientDataSet)
  private
    FMan: TMan;
    function GetData_Man: TMan;
    procedure SetData_Man(Value: TMan);
  public
    constructor create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Data_Man: TMan read GetData_Man write SetData_Man;
  end;
  

implementation



{
*********************************** TCDSMan ************************************
}
constructor TCDSMan.create(AOwner: TComponent);
begin
  inherited;
  LoadFromFile('ManData');
  open;
end;

destructor TCDSMan.Destroy;
begin
  FMan.Free;
  SaveToFile('ManData');
  inherited;
end;

function TCDSMan.GetData_Man: TMan;
begin
  if FMan = nil then FMan := TMan.Create;
  //set FMan
  if RecordCount>0 then
  begin
    FMan.Name:= FieldByName('Name').Value;
    FMan.Age:= FieldByName('Age').Value;
    FMan.Language:= FieldByName('Language').Value;
    FMan.SkinColor:= FieldByName('SkinColor').Value;
    FMan.Male:= FieldByName('Male').Value;
  end
  else
  begin
    FMan.Name:='新用户';
    FMan.Language:='中文';
    FMan.SkinColor:=scYellow;
    FMan.Age:=20;
    FMan.Male:=True;
  end;
  result:=FMan;
end;

procedure TCDSMan.SetData_Man(Value: TMan);
begin
  if Value = nil then
  begin
    FMan.Free;
    FMan := nil;
    Exit;
  end;
  if not active then open;
  Insert;
  FieldByName('Name').Value:=FMan.Name;
  FieldByName('Age').Value:=FMan.Age;
  FieldByName('Language').Value:=FMan.Language;
  FieldByName('SkinColor').Value:=FMan.SkinColor;
  FieldByName('Male').Value:=FMan.Male;
  Post;
end;



end.