0

OK、私は Embarcadero Delphi 2010 を使用しています。現在、そのファイル内で名前が付けられた Access データベース ファイルを使用していflib.mdbます。次のMCategory名前の 4 つの列を持つテーブルを作成します。テキストとして。codecategoryparentcategorycategorynotes

データベース接続には、ADOConnection を使用します。クエリには ADOQuery を使用します。テーブルには ADOTable を使用します。

コードはプレフィックス付きで自動生成されますが、例では通常の数値を文字列として使用しています。

ROOT は 1 つだけです:codecategory="0" // parentcategory="" // category="ROOT"別の ROOT を追加することはできません (parentcategory が空のもの)

私の質問は、下の図のようにすべての親カテゴリを再マスクする方法ですか? そして、それを DBGrid で表示する方法は?

親カテゴリのマスキング

recursive を使用する必要がありますか? そうする簡単な方法はありますか？

また、Delphi 2010 のソース コードもお願いします.... ^^

4

1 に答える 1

0

データセットの全レコードを TStringList に変換してソートすることができます。

インターフェイスセクションでこれを宣言します：

TForm1=class(...)
  RecordList:TStringList;
  constructor Create(AOwner:TComponent);override;
 destructor Destroy;override; 

end;
TCategoryItem=class
public:
   CategoryTitle:string;
   Id,ParentId:Variant;
end;

実装セクションで：

constructor TForm1.Create(AOwner: TComponent);  
begin
  inherited ;
  RecordList:=TstringList.create(true);  //  use this code in FormCreate  also


end;
 destructor TForm1.Destroy;
    begin
      ...
   RecordList.Free;//  use this code in FormDestory  also

    end;

procedure TForm1.AdoQuery1AfterOpen(DataSet:TDataSet);
var
  Item,RootItem:TCategoryItem;
begin
  DataSet.First;
  DataSet.DisableControls;

  try
   (*add abstract root item to RecordList if needed 
     RootItem:=TCategoryItem.Create;
     RootItem.CategoryTitle:='ROOT';
     RecordList.AddObject('',RootItem);*)
    while not DataSet.Eof do
    begin
      Item:=TCategoryItem.Create;
      Item.CategoryTitle:=DataSet['Cateogory'];
      Item.Id:=DataSet['CodeCategory'];
      Item.ParentId:=DataSet['ParentCategory'];
      RecordList.AddObject(VarToStr(Item.Id),Item);
      DataSet.Next;
    end;
  finally
    RecordList.Sort; // for use find(binary search)
    DataSet.EnableControls;
    DataSet.First;
  end;
end;
procedure TForm1.OnGetFieldText(Sender: TField; var Text: string;
  DisplayText: Boolean);
var 
  Idx:Integer;
  ParentValue:Variant;
  Item:TCategoryItem;
  Texts:TStringList;
begin
  ParentValue:=Sender.Value;
  Texts:=TStringList.create;
  try
    while RecordList.Find(varToStr(ParentValue),Idx) do
    begin
      Item:=RecordList.Objects[Idx] as TCategoryItem; 
      Texts.Insert(0,Item.CategoryTitle); 
      ParentValue:=Item.ParentId;
    end;
    Texts.Delimiter:='>';
    Text:=Texts.DelimitedText;
  finally
    Texts.Free;
  end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.FieldByName('parentcategory').OnGetText := OnGetFieldText;
  ADOQuery1.Refresh;
end;
于 2012-04-24T10:26:00.600 に答える