这是我的代码,请大虾们指教,十分感激:
procedure TfrmOperManage.dbcSysInfoClick(Sender: TObject);
begin
  with qryInfo DO
  begin
  try
     Close;
     SQL.Clear;
     SQL.Add('select distinct FuncName from Sys_SysMenuLoad order by FuncName ');
     Open;
     dbcSysInfo.Items.Clear ;
  while not qryInfo.Eof do
  begin
   dbcSysInfo.Items.Add(qryInfo.Fields[0].AsString);
   qryInfo.Next;
  end;
  finally
    qryInfo.Close;
  end;
end;
end;
现在是运行后在dbcommbox中什么都显示不出来!!!