delphi 绘图

XSYLS411 2011-03-31 10:49:01
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if (CheckBox1.Checked) then
begin
ADOQuery2.Active:=true;
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select measuretime as 时间,ultraviolet as 紫外 from nongdu2 where measuretime between :p andv :q');
ADOQuery2.Parameters.ParamByName('p').Value:=DateTimePicker1.Date;
ADOQuery2.Parameters.ParamByName('q').Value:=DateTimePicker2.Date;
ADOquery2.Prepared;
Open;
end;
Series1.XLabelsSource:='时间';
Series1.YValues.Valuesource:='紫外';
Series1.DataSource:=ADOQuery2;
end
else
ADOQuery2.Active:=false;
end;
请帮我看一下这段代码有无错误,编译时是没有错误的,但是就是出不来结果。
...全文
80 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
yosyg 2011-09-29
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 bdmh 的回复:]
这个你只能自己检查条件是否符合了,字段的值,是否符合你参数的形式
[/Quote]

顶一下.
bdmh 2011-06-21
  • 打赏
  • 举报
回复
这个你只能自己检查条件是否符合了,字段的值,是否符合你参数的形式

1,977

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 其他语言讨论
社区管理员
  • 其他语言社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧