============================================================================
y^Cgzf[^x[XȒPR|[lg
yo ^ zDBList.ZIP
yt@CzDBList.pas
yҖzVRAM̖pt
yzDOS/V@ + Delphi5.0
yzWindows2000/XP/Vista/Windows7
yT|[gzhttp://www14.atwiki.jp/vram/
============================================================================

yTvz

݂ȂDelphiŃf[^x[Xg܂H
Delphi͍łf[^x[XƂ̐eaƌĂ錾łB
̂߂ǂȂɎg₷Ɗ҂Ă܂B

PHPォPostgreSQL܂
Delphi悤ɎĝƎvHƂ܂܂B

Delphip̃f[^x[Xg΂܂̂܂B
̏ꍇAf[^x[X쐬҂ƃvO쐬҂قȂ
f[^x[XAccessgƂv]܂B

ȂAccesŝςȂ̂ł΁AĂ܂
ƂVlōn߂̂̃R|[lgłB

̃R|[lggpƁADelphiTListNX悤Ȋo
f[^x[X\łB

Ȃ̃R|[lg͂PĂ炷ׂĂj
ŏ蒼Ă܂̂
J͏߂ĂȂVersion2.0ɊY܂B


ygz------------------------------------------------------

f[^x[XOɁANX̒`܂B
̃NX̒`ɂāANX̃tB[hϐ
IAccessɏ܂̂łB

TvƂāuOvuNvuavǗNX
쐬Ă݂܂B

錾͂̂悤ɂȂ܂B

type
  TDBConfigItem = class(TDBListItem)
  private
    { Private 錾 }
    FID   : Integer;                    // Ǘԍ
    FUser : string;                     // [U[
    FAge : Integer;                     // N
    FDateTime : TDateTime;              // a

  public
    { Public 錾 }
    constructor Create;override;
    destructor Destroy;override;
    procedure Assign(Source : TPersistent) ; override;

    property ID : Integer read FID write FID;
    property User : string read FUser write FUser;
    property Age : Integer read FAge write FAge;
    property DateTime : TDateTime read FDateTime write FDateTime;
  end;

̃NXR[ĥ悤ɊǗNX`܂B

type
  TDBConfigItems = class(TDBList)
  private
    { Private 錾 }
    function GetItems(Index: Integer): TDBConfigItem;
  public
    { Public 錾 }
    constructor Create;override;
    destructor Destroy;override;
    function CreateItem(): TDBListItem;override;
    function Add(): TDBConfigItem;
    property Items[Index: Integer] : TDBConfigItem read GetItems;default;

  end;

ł̓f[^ǗNX̃vOĂ܂B
TDBListItempTDBConfigItem̒œɕKvȂ̂
CreateōsłB

Assign͈ʓIȎłAʂinherited̂KvłB

procedure TDBConfigItem.Assign(Source: TPersistent);
var
  a : TDBConfigItem;
begin
  if Source is TDBConfigItem then begin
    a := TDBConfigItem(Source);
    FID       := a.FID;
    FUser     := a.FUser;
    FAge      := a.FAge;
    FDateTime := a.FDateTime;
    inherited;
  end
  else begin
    inherited;
  end;
end;

CreateɂAccessŊǗϐ܂B

constructor TDBConfigItem.Create;
begin
  inherited;
  SetParam('Ǘԍ',FID,pkAutoNo);
  SetParam('O',FUser,pkNone,20);
  SetParam('N',FAge,pkNone);
  SetParam('a',FDateTime,pkNone);
end;

ϐɂ͉L̂悤ȃR[h܂B
  SetParam(f[^x[X̍ږ,YtB[hϐ,L[ɎgH,[̑])

f[^x[X̍ږłAccessł͑v̂悤łB
L[Ɏgǂ̓f[^x[Xl͗ł邩܂
킩ȂΏL̂悤ID̂pkAutoNołقpkNonew肵܂B
܂f[^x[XŎgpꍇő啶w肵܂B

f[^R[hŊǗNX͂̂悤ɎĂ܂B

constructor TDBConfigItems.Create;
var
  s : string;
begin
  inherited;
  s := GetMyDocFolder();              // }ChLgtH_擾
  s := s + 'test.mdb';                // f[^x[Xt@Cw
  FileName := s;
  TableName := 'Tݒ}X^';         // e[uw
end;

destructor TDBConfigItems.Destroy;
begin
  Clear();
  inherited;
end;

function TDBConfigItems.Add: TDBConfigItem;
var
  d :TDBConfigItem;
begin
  d := TDBConfigItem.Create;
 inherited Add(d);
  result := d;
end;

function TDBConfigItems.CreateItem: TDBListItem;
var
  d :TDBConfigItem;
begin
  d := TDBConfigItem.Create;
  result := d;
end;

function TDBConfigItems.GetItems(Index: Integer): TDBConfigItem;
begin
  result := TDBConfigItem(inherited Items[Index]);
end;

CreateȊO͂ʓIȎɂȂ܂B
f[^x[X̃t@C𒼐ڎw肵AANZXwsłB

Ńf[^x[X͊łB
GetMyDocumentFolder̓TvQl

ɖ{ԂłB
vCx[gϐƂĐ錾܂B
    FDBList : TDBConfigItems;

tH[̐CxgȂǂŉL̂悤ɏ܂B
  FDBList := TDBConfigItems.Create;
  FDBList.Synchronize := True;
  FDBList.Initialize();
  FDBList.SQLLoadFromFile();

    ォ珇ɃNX̐
    f[^x[XƃXg̓Ƃ悤w
    f[^x[X݂Ȃꍇe[uAڂ쐬
    f[^x[X݂ꍇɓǂݍ

f[^ǉꍇAL̂悤ȃR[h܂B
	var
	  d : TDBConfigItem;
	begin
	  d := TDBConfigItem.Create();
	  d.User := 'VKf[^';
	  d.DateTime := Now;
	  d.Age := 0;
	  FDBList.SQLInsert(d);
  lǗNX𐶐eli[Ō
  uFDBList.SQLInsert(d);vs邱Ƃ
  f[^x[XƃXgɃR[hǉ܂B

PR[h폜ꍇ
  FDBList.SQLDelete(R[hԍ);

ɊȒPłB

ꂾAccesst@Cł܂B


yvpeBE\bhz------------------------------------------------------

  Ԃ肻Ȃ̂ŕۗ

yƂz----------------------------------------------------------------

  DLLȂǂg킸AɎw肵t@Cf[^x[XƂ
  gp邱ƂȂɓ̂Ƃ͎v܂łB
  f[^x[XȂƊȒPȕ@ĝʓIł
  CXg[ݒ͏S҂ɂ͓̂ƂȂ܂B
  g΁Aw肵t@Cڎg邽ߔɕ֗łB
  
  gĂ݂ƁA@\Iɂ͔ɂ̑܂B
  ɖ{iIɃf[^x[Xlɂ͂邱Ƃł傤
  
  ȒPȑ삾ŏIꍇ͏\pIɂȂ邩Ǝv܂B
  
  ̃NX́AJ傪Ȃ̂̂P̃p[cɂȂ\łB

yzzȂǁz------------------------------------------------------------

̃NX̎gp@ɂ͓ɐ͂܂B
VFAEGA^t[\tgނ킸gݍŒĂ܂܂B
܂AvP[Ṽ\[XJĂꍇÃ\[Xtč\܂
ɕsȂǂgpґŉςꍇł̉ό̃\[Xzz
Ė͂܂B
\łΎ̖OڂĂΌhłB

yz--------------------------------------------------------------------

2010/01/10
  J
