Question

我有一个有两列的表。 ConfigItem和ConfigValue。现在我想在dbgrid中填充它，其中ConfigValue应该是一个dbcombobox。

示例配置（第一列）

产品

产品类型

项目类型

项目

ConfigValue应该有一个dbcombobox，并且应该根据第一列中的值填充组合框的项目。

实施例。如果用户单击具有Product as config Item的第一行，则对于同一行，网格中的ConfigValue列应包含带有产品列表的组合框。

可能我可以使用网格的BeforeDrawCell事件，但是我试图找到一种可以使用adoquery或dataset组件处理它的方法。

有人可以指导一下这个问题的解决方案。

提前致谢， Divyesh

Answer 1

您可以使用AfterScrollEvent将PickList分配给您的列 Picklist在这里分配给主StringList对象的Stringlists。在Delphi版本上进行延期，您可以使用通用字典。

unit Unit2;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, ADODB;

type
  TForm2 = class(TForm)
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure ADODataSet1AfterScroll(DataSet: TDataSet);
  private
    { Private-Deklarationen }
    FList: TStringList;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ADODataSet1AfterScroll(DataSet: TDataSet);
var
  idx: Integer;
begin
  if Assigned(FList) and (DBGrid1.Columns.Count > 1) then
  begin
    DBGrid1.Columns[1].ButtonStyle := cbsAuto;
    idx := FList.IndexOf(DBGrid1.Columns[0].Field.asString);
    if idx > -1 then
      DBGrid1.Columns[1].PickList := TStringList(FList.Objects[idx])
    else
      DBGrid1.Columns[1].PickList := nil;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  i: Integer;
begin  // some demo filling
  FList := TStringList.Create;
  FList.AddObject('A1A1', TStringList.Create);
  for i := 0 to 10 do
    TStringList(FList.Objects[FList.Count - 1]).Add(Format('group1_%d', [i]));
  FList.AddObject('A1A2', TStringList.Create);
  for i := 0 to 10 do
    TStringList(FList.Objects[FList.Count - 1]).Add(Format('group2_%d', [i]));
end;

procedure TForm2.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  for I := 0 to FList.Count - 1 do Flist.Objects[i].Free;
  FList.Free;
end;

end.

Delphi DBGrid条件dbcombo

1 个答案: