在设计时将 TDataSet 嵌入表单中

Question

我正在寻找一种方法来向 delphi 中的 TDBLookupComboBox 提供 ListSource，而无需在数据库服务器上有实际的表来从中绘制该列表。组合框的数据字段是一个 1 个字符字段，其中包含一个编码值，例如“A”=“驾驶执照”、“B”=“护照”、“C”=“图书馆卡”等。该表仅包含 A、B 或 C。应用程序负责在 GUI 中显示“驱动程序许可证”。通常一个数据库可能有一个查找表，但这个数据库没有，我无法添加一个。我的想法是，数据库查找控件的 DataSource 和 ListSource 不必是同一个数据库，因此，如果可以在我的表单中定义一个包含查找数据的小表，那么我可以使用该表不需要真正的数据库表。

有谁知道 delphi 组件允许在表单上定义 TDataSet 而无需在其后面包含任何实际数据文件？

Answer 1

我知道内存中有不同的数据集。 Delphi 附带了 TClientDataSet，您可以按照您想要的方式使用它。您必须将 midas.dll 与可执行文件一起部署才能工作，或者必须在 use 子句中包含 MidasLib 以便在可执行文件中静态链接此库（运行时不需要 midas.dll）。

要从 TClientDataSet 获取所需内容，您可以创建字段并：

• 将记录存储在 xml 文件中（例如使用您制作的另一个辅助工具）。在运行时使用 TClientDataSet 的 LoadFromFile 方法加载数据。此外，您可以使用 $R 指令将此 xml 存储为资源，并在运行时操作此资源，以向您的 ClientDataSet 提供包含的数据，以防止使用您的 exe 部署（以及可能的修改）xml 文件。
• 使用 CreateDataSet 方法并在运行时使用所需内容插入/填充记录

代码示例：

procedure TFrom1.Init;
begin
  cdsIDType.CreateDataSet;
  cdsIDType.InsertRecord('A', 'Drivers License');
  cdsIDType.InsertRecord('B', 'Passport');
  //etcetera.
end;

Answer 2

另一种解决方案是使用 TComboBox 而不是 TDBLookupComboBox。使用 TDictionary 定义简单的内存查找。

type
  TMyForm = class(TForm)
    MyComboBox: TComboBox;
    MyDataset: TSimpleDataSet;
    procedure MyComboBoxChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    ComboLookup: TDictionary<string, Char>;
  end;

implementation

{$R *.dfm}

procedure TMyForm.FormCreate(Sender: TObject);
var
  Key: string;
begin
  ComboLookup := TDictionary<string, Char>.Create;
  ComboLookup.Add('Drivers License', 'A');
  ComboLookup.Add('Passport', 'B');
  ComboLookup.Add('Library Card', 'C');
  for Key in ComboLookup.Keys do
  begin
    MyComboBox.Items.Add(Key);
  end;
end;

procedure TMyForm.MyComboBoxChange(Sender: TObject);
begin
  // This may be wrong didn't bother to look
  //up the correct way to change a field's value in code.
  MyDataset.Fields.FieldByName('IDCard').AsString := ComboLookup[MyComboBox.Text];
end;

您可以使用 TComboBox.Items.AddObject 而不是单独的查找表，但您必须创建一个包装类来将 char 存储为 TObject 或使用 Chr 将其转换为整数，然后将其转换为 TObject 但上面是我认为更简单。

Answer 3

使用 TClientDataset 并定义字段，然后连接到数据源。
在表单的 oncreate 事件中执行以下操作：
执行clientdataset的createdataset方法，然后用A、B、C数据填充它。

Answer 4

如果您使用jvcl，则无需涉及数据集即可完成您想要的任务。只需使用 TjvDBComboBox，使用 Items 属性设置您希望 UI 显示的值，并使用 Values 属性设置存储在数据库中的实际值。