tcombobox控件添加表中的字段.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 20 行

向Tcombobox控件添加表中的字段,并随着Tcombobox的改变而相应的查找记录:
table1.open;
combobox1.items.clear;
while not table1.eof do
 begin
  combobox1.items.add(table1.fieldbyname('图书编号').asstring);
  table1.next;
 end;
table1.first;//重新定位到第一条记录
combobox1.itemindex:=0//与table1中的记录同步

另外在combobox1的onchang事件中,应该写入改变选择时table1也随着相就改变的代码:
with table1 do 
begin
  setkey;
  fieldbyname('图书编号').asstring:combobox1.items[combobox1.itemindex];
  gotokey;
end;