TDBCHART问题 ( 积分: 50 )

自学，求个dbchart&nbsp;显示数据库表的例子，用的是ado<br>走过路过的大侠们帮帮我吧！

我有做过，也是用ADO的。

做过也不发个demo&nbsp;看下。<br>查了N多资料，自己解决了<br>unit&nbsp;Unit1;<br><br>interface<br><br>uses<br>&nbsp;&nbsp;Windows,&nbsp;Messages,&nbsp;SysUtils,&nbsp;Variants,&nbsp;Classes,&nbsp;Graphics,&nbsp;Controls,&nbsp;Forms,<br>&nbsp;&nbsp;Dialogs,&nbsp;StdCtrls,&nbsp;TeeProcs,&nbsp;TeEngine,&nbsp;Chart,&nbsp;DbChart,&nbsp;ExtCtrls,&nbsp;DB,<br>&nbsp;&nbsp;ADODB,Series,&nbsp;Buttons;<br><br>type<br>&nbsp;&nbsp;TForm1&nbsp;=&nbsp;class(TForm)<br>&nbsp;&nbsp;&nbsp;&nbsp;ADO:&nbsp;TADOConnection;<br>&nbsp;&nbsp;&nbsp;&nbsp;ADOQuery1:&nbsp;TADOQuery;<br>&nbsp;&nbsp;&nbsp;&nbsp;DataSource1:&nbsp;TDataSource;<br>&nbsp;&nbsp;&nbsp;&nbsp;Panel1:&nbsp;TPanel;<br>&nbsp;&nbsp;&nbsp;&nbsp;DBChart1:&nbsp;TDBChart;<br>&nbsp;&nbsp;&nbsp;&nbsp;Panel2:&nbsp;TPanel;<br>&nbsp;&nbsp;&nbsp;&nbsp;Button1:&nbsp;TButton;<br>&nbsp;&nbsp;&nbsp;&nbsp;Button2:&nbsp;TButton;<br>&nbsp;&nbsp;&nbsp;&nbsp;Series1:&nbsp;TLineSeries;<br>&nbsp;&nbsp;&nbsp;&nbsp;Button3:&nbsp;TButton;<br>&nbsp;&nbsp;&nbsp;&nbsp;Edit1:&nbsp;TEdit;<br>&nbsp;&nbsp;&nbsp;&nbsp;SpeedButton1:&nbsp;TSpeedButton;<br>&nbsp;&nbsp;&nbsp;&nbsp;OpenDialog1:&nbsp;TOpenDialog;<br>&nbsp;&nbsp;&nbsp;&nbsp;Label1:&nbsp;TLabel;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Button1Click(Sender:&nbsp;TObject);<br><br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;FormCreate(Sender:&nbsp;TObject);<br><br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Button3Click(Sender:&nbsp;TObject);<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Button2Click(Sender:&nbsp;TObject);<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;SpeedButton1Click(Sender:&nbsp;TObject);<br>&nbsp;&nbsp;private<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;Private&nbsp;declarations&nbsp;}<br>&nbsp;&nbsp;public<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;Public&nbsp;declarations&nbsp;}<br>&nbsp;&nbsp;end;<br><br>var<br>&nbsp;&nbsp;Form1:&nbsp;TForm1;<br>&nbsp;&nbsp;i:integer;<br>&nbsp;&nbsp;&nbsp;&nbsp;line1:TlineSeries;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myseries:TlineSeries;//线型<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mypie&nbsp;:tpieseries;//饼型<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;series11:tbarseries;//柱型<br>implementation<br>uses&nbsp;data;<br>{$R&nbsp;*.dfm}<br><br>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>VAR&nbsp;s,sqlstr:string;<br>begin<br>dbchart1.SeriesList.Clear;<br>myseries:=&nbsp;TLineSeries.Create(self);<br>DBChart1.AddSeries(myseries);<br>sqlstr:='select&nbsp;dyzrzfs,count(dyzrzfs)&nbsp;&nbsp;yi&nbsp;from&nbsp;book_table&nbsp;group&nbsp;by&nbsp;dyzrzfs&nbsp;';<br>dm.SqlOpen(adoquery1,sqlstr);<br>with&nbsp;DBChart1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;myseries&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DataSource:=ADOQuery1;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XLabelsSource:='dyzrzfs';<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;YValuES.ValueSource:='YI';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myseries.Title:='dyzrzfs';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myseries.Active:=true;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.BottomAxis.Title.caption:='第一责任者';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.leftAxis.Title.caption:='数量';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.leftAxis.Title.Angle:=0;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.AxisVisible:=true;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;edit1.text&lt;&gt;''&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.BackImage.LoadFromFile(edit1.text);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.Title.Text.Text:='asdf';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.AutoSize:=true;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.LeftAxis.Axis.Color:=clred;<br>end;<br><br><br><br><br><br>procedure&nbsp;TForm1.FormCreate(Sender:&nbsp;TObject);<br>var&nbsp;sqlstr:string;<br>begin<br>&nbsp;&nbsp;ado.Connected:=false;<br>&nbsp;&nbsp;ado.ConnectionString&nbsp;:='FILE&nbsp;NAME='+pchar(ExtractFilePath(ParamStr(0)))+'manage.UDL';<br>&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;ado.Connected:=true;<br>&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.MessageBox('数据库关联错误！','提示',MB_OK+MB_ICONERROR);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;application.Terminate;<br>&nbsp;&nbsp;end;<br>end;<br><br><br><br>procedure&nbsp;TForm1.Button3Click(Sender:&nbsp;TObject);<br>var&nbsp;sqlstr:string;<br>begin<br>&nbsp;dbchart1.SeriesList.Clear;<br>series11:=&nbsp;tbarseries.Create(self);<br>DBChart1.AddSeries(series11);<br>sqlstr:='select&nbsp;dyzrzfs,count(dyzrzfs)&nbsp;&nbsp;yi&nbsp;from&nbsp;book_table&nbsp;group&nbsp;by&nbsp;dyzrzfs&nbsp;';<br>dm.SqlOpen(adoquery1,sqlstr);<br>with&nbsp;DBChart1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;series11&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DataSource:=ADOQuery1;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XLabelsSource:='dyzrzfs';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;YValuES.ValueSource:='YI';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;series11.Title:='dyzrzfs';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;series11.Active:=true;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.BottomAxis.Title.caption:='第一责任者';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.leftAxis.Title.caption:='数量';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.leftAxis.Title.Angle:=0;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.AxisVisible:=true;<br>end;<br><br>procedure&nbsp;TForm1.Button2Click(Sender:&nbsp;TObject);<br>var&nbsp;sqlstr:string;<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.SeriesList.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;mypie:=&nbsp;tpieseries.Create(self);<br>&nbsp;&nbsp;&nbsp;&nbsp;DBChart1.AddSeries(mypie);<br>&nbsp;&nbsp;&nbsp;&nbsp;sqlstr:='select&nbsp;dyzrzfs,count(dyzrzfs)&nbsp;&nbsp;yi&nbsp;from&nbsp;book_table&nbsp;group&nbsp;by&nbsp;dyzrzfs&nbsp;';<br>&nbsp;&nbsp;&nbsp;&nbsp;dm.SqlOpen(adoquery1,sqlstr);<br>&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;DBChart1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;with&nbsp;mypie&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DataSource:=ADOQuery1;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;XLabelsSource:='dyzrzfs';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;YValuES.ValueSource:='YI';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mypie.Title:='dyzrzfs';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mypie.Active:=true;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.BottomAxis.Title.caption:='第一责任者';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.leftAxis.Title.caption:='数量';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.leftAxis.Title.Angle:=0;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dbchart1.AxisVisible:=true;<br><br>end;

接受答案了.