菜鸟 关于delphi7 combobox的dropdown事件
procedure TForm4.combobox1DropDown(Sender: TObject);
var
i : integer;
begin
with adoquery3 do
begin
Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('Select 课程名称 from 课程信息 where 任课教师='''+form2.edit1.Text+'''');
ADOQuery3.Open;
if ADOQuery3.RecordCount>0 then
begin
for i:=0 to ADOQuery3.RecordCount-1 do
begin
ComboBox1.Items.Add(ADOQuery3.FieldByName('课程名称').AsString);
ADOQuery3.Next;
end;
end;
end;
end;
下拉菜单时,combobox不显示数据库的内容