列表框从数据库中添加项目并排序+删除重复项

Question

我需要一些帮助，因为在进行了一些搜索后我没有看到任何解决方案...

我有一个数据库 Database.mdb，其中有几个表，我正在读取特定的表 Fixtures，其中包含字段 ID、ChNo、默认值和制造商；

然后我有一个表单，我希望用户能够从每个夹具中进行选择，但希望首先按制造商对其进行排序。 因此，我在表单上添加了 ListBox 组件，并开始使用提供的代码填充它：

    procedure TPatchNew1.FormShow(Sender: TObject);
var No, No2: integer;
begin
No2:=0;
AdoQuerySearchFixtures.SQL.Text:='SELECT Manufacturer FROM Fixtures';
AdoQuerySearchFixtures.Open;
ManuNo:=AdoQuerySearchFixtures.RecordCount;
While No2 < No do
  begin
  ManufacturerListbox.Items.Add;
  AdoQuerySearchFixtures.Close;
  AdoQuerySearchFixtures.SQL.Clear;
  AdoQuerySearchFixtures.SQL.Text:='SELECT Manufacturer FROM Fixtures WHERE ID='+IntToStr(No2+1);
  AdoQuerySearchFixtures.Open;
  ManufacturerListbox.Items[No2].Caption:=AdoQuerySearchFixtures.Fields[0].AsString;
  No2:=No2+1;
  end;

end;

这可以解决问题，但我希望首先：合并所有重复项，以便只有在单击 Listbox 项后才会显示具有相同制造商字段值的灯具（我相信我能够将 SQL 文本更改为“WHERE Manufacturer=something”），但如果我有 90 个来自同一制造商的灯具，则列表框中没有 100 个项目； 最后，在填充列表框之前，我希望它按字母顺序排序，从 A 到 Z。 我应该先读取所有制造商对记录或数组进行排序，然后找到重复并删除它们，然后对其进行排序，最后填充到列表框项，还是有其他方法？ 就是这样，怎么办？经过这一天我放弃了.. :(

谢谢。

干杯

Answer 1

如果我理解正确，您希望在列表框中显示提供灯具的制造商的名称。您的问题尚不清楚，但我假设您至少有两张桌子：一张制造商和一张固定装置。制造商将是夹具表中的外键。

如果您想加载制造商的列表框，那么最好从制造商表中获取数据，因为您（几乎）保证那里没有重复项。您的 sql 查询将是

select id, name 
from manufacturers
order by name

如果您只想要出现在灯具表中的制造商，那么更改查询

select id, name
from manufacturers
where exists (select 1 from fixtures
where fixtures.manufacturer = manufacturers.id)
order by name

按以下方式加载列表框

manulist.items.clear;
with qManufacturers do
 begin
  open;
  while not eof do
   begin
    manulist.items.addobject (fieldbyname ('name').asstring,
                              tobject (fieldbyname ('id').asinteger));
    next
   end;
  close
 end;

然后，当从列表框中选择名称时，您可以显示灯具

with manulist do
 begin
  manu:= longint (Items.Objects[itemindex]);  // manufacturer key
  mname:= items[itemindex];                   // manufacturer name
 end;

用 qFixtures 做 开始 参数[0].asinteger:= manu; 打开; …… 结束；

qFixtures 类似于

select id, name, ...
from fixtures
where manufacturer = :p1