这是我的代码,请大虾们指教,十分感激:
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中什么都显示不出来!!!
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中什么都显示不出来!!!
入彀你按照上面的代码用,还不如用Combobox