名单 质量
小麦 优质
大米 一般
小麦 优质
大米 一般
小麦 差
DataModule1.AQueryzhanji.Close;
Datamodule1.AQueryzhanji.SQL.Clear;
DataModule1.AQueryzhanji.SQL.Add('select count(*) from 表 order by 质量'); //查询所有;
DataModule1.AQueryzhanji.Open;
这样查询出来的数据应该是关于质量数据的一列三条数据,如何用label将这三条数据同时显示出来呢?
解决方案 »
- delphi 如何把登陆界面的用户名在主界面显示出来? 急啊~~~
- 使用SQL SETVER2000,能不能后台的错误提示转到前台来实现?
- [高分求解]如何让WebBrower接收delphi发回的指令呢?
- ========奇怪的SQL语句======
- ORACLE下调用带参数的存储过程的
- 高手请进!!!超难!!!!!!!
- 八百里加急!!!~~~~elphi6中通过Edit修改 数据库数据??
- 关于TADOCommand的疑问
- !!!!!!!赶在五一的之前升级了,祝朋友们五一快乐 3!!!!!!!!
- 怎样用iShellLink生成快捷方式?
- 用批处理可以删除文件夹吗?
- 当启动某个程序自己缩小问题~~在线等待
一个循环
DataModule1.AQueryzhanji.First;
label1.caption:='';
while not DataModule1.AQueryzhanji.eof do
begin
if label1.caption<>'' then
label1.caption:=label1.caption+#13+DataModule1.AQueryzhanji.FieldByName('数量').AsString
else label1.caption:=DataModule1.AQueryzhanji.FieldByName('数量').AsString;
DataModule1.AQueryzhanji.netxt;
end;
label1.caption:=label1.caption+DataModule1.AQueryzhanjiFieldByName('数量').AsString+#13;
begin
close;
sql.text:=''select count(*) as 数量 from 表 group by 质量';
open; label1.caption:=''; while not eof do
begin
if trim(label1.caption)='' then
label1.caption:=FieldByName('数量').AsString
else
label1.caption:=label1.caption+#13+FieldByName('数量').AsString;
next;
end;
end;
sSQL: String;
sl: TStringList;
i,j: Integer;
begin
sl := TStringList.Create;
Label1.Caption := '';
sSQL := 'SELECT DISTINCT QualLevel FROM YourTable';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(sSQL);
Open; sl.Clear;
while not eof do
begin
sl.Add(FieldByName('QualLevel').AsString);
Label1.Caption := Label1.Caption+' '+FieldByName('QualLevel').AsString;
next;
end;
end;
sl.Free;
end;
楼上正解,补充一下,你忘了end。另外,最好用label1.width:=8*(length(label.caption))来控制一下label的宽度,免得过长显示不全或者过短不好看