Question

delphi如何将多条记录显示在一个lable

delphi中我想将多条记录显示在一个lable上请问代码如何写，我写来写去只能显示一条记录代码如下procedure Trz.Button4Click(Sender: TObject);var i:integer;tempstr:string;begin with (sjlj.ADOQuery_rz_tj) do beginClose;SQL.Clear;SQL.Add('select 问题类型,count(*) as 单数 from 详细信息 group by 问题类型');Open;end;while not sjlj.adoquery_rz_tj.eof dobegintempstr:='';tempstr:=sjlj.adoquery_rz_tj.fieldByName('问题类型').asstring+sjlj.adoquery_rz_tj.fieldByName('单数').asstring; sjlj.adoquery_rz_tj.next(); tempstr:=tempstr+chr(13)+ sjlj.adoquery_rz_tj.fieldByName('问题类型').asstring+sjlj.adoquery_rz_tj.fieldByName('单数').asstring;end;dsxs_l.Caption:=tempstr;end;数据如下

Answer 1

每种数据库及其通信接口或控件都会在客户端登录时触发一个事件，成功或失败都产生几种返回值（一般是常量表示）的，根据这些捕获的返回值，你创建个窗口给出相对应的提示（消息或对话框）就行了，数据库不同，工具环境不同，应用程序的风格或构造及格式也不同，自己查一下吧。