1

我有一个有两列的表。配置项和配置值。现在我想在 ConfigValue 应该是 dbcombobox 的 dbgrid 中填充它。

示例配置项(第一列)

产品

产品类别

物品种类

项目

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

例子。如果用户单击将产品作为配置项的第一行,则网格中同一行的 ConfigValue 列应包含带有产品列表的组合框。

可能我可以使用网格的 BeforeDrawCell 事件,但是我试图找到一种可以使用 adoquery 或数据集组件来处理的方法。

有人可以指导解决这个问题的方法。

提前致谢, Divyesh

4

1 回答 1

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.
于 2013-05-17T14:31:39.257 回答