Delphi 7 ADO、DBGrid 组合框字段

Question

我的 MySQL 数据库中有这些表:

我想在 DBGrid 中显示员工表和 job.jobName 并允许用户编辑它(也许使用 DBNavigator)。

因此，我使用 SELECT ... JOIN 查询创建了一个 ADOQuery、一个数据源，并将 DBGrid 数据源链接到它。

一切正常，但我想要的不是 jobId 字段，而是显示 JobNames 的 Job 字段，允许通过组合框选择它并在 employee.JobId 中设置 id。像这样的东西:

我认为我可以使用 ADOQuery 中 JobId 字段的 LookupKeyFields/LookupResultFields 属性来实现它，但实际上它对我不起作用。

我添加了一个 ADOTable，它只加载作业表中的所有内容并设置 JobId 字段(在 ADOQuery 中)属性:FieldKind = fkLookup、KeyFields = JobId、LookupDataSet = < strong>tblJob，LookupKeyFields = IdJob，LookupResultFields = JobName。

但是现在“作业”列只是空的并且没有组合框。

我还发现 DBGrid 列中有 PickList 属性，但它是 TStrings，因此它只允许显示字符串，而不允许单独显示字符串和值。即使我尝试将其填充为字符串字段(姓氏)，它也没有执行任何操作。

Answer 1

右键单击您的 qryEmployes 数据集，选择新字段并分配所需的值。