Question

delphi combobox 下拉列表如何显示数据库中的内容。代码写在哪个事件下啊

var
i:integer;
begin
datetimepicker1.datetime:=now;
combobox1.clear;
DataModule1.ADOQuery1.Close;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add('select * from jsj070105_staff');
DataModule1.ADOQuery1.open;
for i:=0 to DataModule1.ADOQuery1.RecordCount-1 do
begin
combobox1.items.add(DataModule1.ADOQuery1.fieldbyname('代码').asstring);
DataModule1.ADOQuery1.next;
end;
combobox1.ItemIndex:=0;

这山百度到的代码。这段代码要写在哪个事件下啊。求高手。

Answer 1

combobox1.items.clear; 这句代码应该这样写 其他都正确

这段代码可以写在一个按钮button1的单击事件里面（Button1Click） 效果就是点一下这个按钮 自动将数据库里面的数据加载到combobox1这个控件

或者写在Form1的初始化里面 都可以的

追问

我直接写在form的初始话里面，就运行出错，什么原因啊
procedure TForm3.FormCreate(Sender: TObject);
var i:integer;
begin
with Datamodule1.adoquery5 do
begin
………………
提示是在 with Datamodule1.adoquery5 do有错

Answer 2

这段代码可以出现在任何地方，具体放在那里为好，这要看你的需要了，它的目的是为combobox组件加载选项的，如果数据表中的字段是年级、班、组、代号、学生姓名等这几个字段，我想在数据录入界面上就可以这样做了，放上一个combobox，显示年级，再放上一个显示班，再放上一个显示组，再放上一个显示年级，当你把录入界面打开时，就用上面的代码，略加改造，先给年级combobox加载年级选项，用户肯定要在年级选择框中选择一个年级，只要选择就产生了一更新事件，在这个事件中写加载班的选项，像这样逐层加载下去，逐层显示下去，直到找到学生姓名。用户一个字也不用输入，很方便的。和有些网页上选择地址一样，从联合国一直选择到某个村庄。都是从更新事件中下的手。combobox是有更新事件的。