摘要: procedure TForm1.Button1Click(Sender: TObject);var// series1:TBarSeries;// series2:TPieSeries;// series3:TAreaSeries;// series4:TCircledSeries;// series5:TFastLineSeries; myseries:TBarSeries;begin with ADOQuery1 do begin close; sql.Clear; SQL.Text:='select 客户编号,sum(订单数量) 订单数量 from lsddbiao group 阅读全文
posted @ 2008-03-31 16:53 delphi中间件 阅读(393) 评论(0) 推荐(0)