大家帮我看一下这段代码,小弟正在学习tchart,遇到一些问题
procedure TForm1.FormCreate(Sender: TObject);
var
str:string;
i:integer;
begin
str:='%'+edit1.Text+'%';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from DATA_TABLE where 名称 = '+''''+'张三'+''''+' and 时间 like '''+str+'''');
ADOQuery1.Open;end;procedure TForm1.BitBtn1Click(Sender: TObject);
var
a1:integer;
begin
x:=1;
if ADOQuery1.Eof then
exit;
a1:=ADOQuery1.FieldValues['成绩'];
showmessage(inttostr(a1));
Series1.AddXY(x,a1,'',clRed);
inc(x);
series1.AddXY(x,a1,'',clred);
series1.AddXY(x,0,'',clred);
inc(x);
series1.AddXY(x,0,'',clred);
Adoquery1.Next;
end; 各位高手帮忙指点一下,谢谢!
procedure TForm1.FormCreate(Sender: TObject);
var
str:string;
i:integer;
begin
str:='%'+edit1.Text+'%';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from DATA_TABLE where 名称 = '+''''+'张三'+''''+' and 时间 like '''+str+'''');
ADOQuery1.Open;end;procedure TForm1.BitBtn1Click(Sender: TObject);
var
a1:integer;
begin
x:=1;
if ADOQuery1.Eof then
exit;
a1:=ADOQuery1.FieldValues['成绩'];
showmessage(inttostr(a1));
Series1.AddXY(x,a1,'',clRed);
inc(x);
series1.AddXY(x,a1,'',clred);
series1.AddXY(x,0,'',clred);
inc(x);
series1.AddXY(x,0,'',clred);
Adoquery1.Next;
end; 各位高手帮忙指点一下,谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货