delphi 如何将查询统计的结果附到edit中 ，新手 ，求大师帮忙指教
procedureTForm1.Button4Click(Sender:TObject);varcxtj:string;beginwithUniQuery1dobegin...
procedure TForm1.Button4Click(Sender: TObject);
var
cxtj:string;
begin
with UniQuery1 do
begin
close;
sql.clear;
cxtj:='select count(*) from printpre where checktype=''摩托车检测'' and checktype>=''' + formatdatetime('yyyy-MM-dd', DatetimePicker1.Date) + ''' and checkdate<=''' + formatdatetime('yyyy-MM-dd', DatetimePicker2.Date) + '''';
sql.add(cxtj) ;
open;
尝试这么写的 怎么才可以将cxtj的结果附到一个edit1中显示呢？？求具体代码 麻烦大家 展开
var
cxtj:string;
begin
with UniQuery1 do
begin
close;
sql.clear;
cxtj:='select count(*) from printpre where checktype=''摩托车检测'' and checktype>=''' + formatdatetime('yyyy-MM-dd', DatetimePicker1.Date) + ''' and checkdate<=''' + formatdatetime('yyyy-MM-dd', DatetimePicker2.Date) + '''';
sql.add(cxtj) ;
open;
尝试这么写的 怎么才可以将cxtj的结果附到一个edit1中显示呢？？求具体代码 麻烦大家 展开
1个回答
展开全部
edit1.text:=UniQuery1.FieldByName('字段名').AsString
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
