dbchart组件--实验报告

---参考文献：delphi程序开发范例宝典 出版社：人民邮电出版社 作者：明日科技

---实验内容：dbchart组件

1.dbchart组件所处位置：data controls组件页中。

2.功能：以图表形式直观显示数据。

3.以图书管理系统为例子，显示各种图书的实时库存：

*配套的数据库：

a.数据库名称：bookstore

b.其中有表，表名称：bookname

c.记录图书实时库存量的字段名称：booknumber

*配套的delphi数据模块窗体，设置为

a.name：dm

b.保存数据模块窗体的单元文件，名称为：link

c.向数据模块窗体添加ado组件页中的adoconnection组件，其属性设置：

name：adoclink

loginprompt：false(第一次通过密码验证后，以后每次尝试连接数据库都不需要输入数据库的登录用户名，以及登录密码)

keepconnection：true

connected：true

connectionstring：Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bookstore;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LUOBO-2084C1C33;Use Encryption for Data=False;Tag with column collation when possible=False(此属性可以单击‘...’按钮按提示选择连接数据库所用到的程序，在提供程序中选择即可，以及填写服务器名称，数据库用户，登录密码，以及要连接的数据库名称)

*设置步骤：

a.新建窗体，属性设置：

name：tubiao

caption：图书实时库存(图表设计与修改)

b.保存新窗体：

1.可以按快捷按钮save all或者在菜单file中选中save 或者按热键ctrl+s

2.窗体的单元文件保存名为：tubiao(注意：要将单元文件名称保存为关联信息，以便维护更新，但是名称不能定义为delphi关键字，而且亦不要用组件名如：dbchart，否则，编译器有可能报错，因为单元文件接口--interface中要使用dbchart库文件，而单元文件的名称刚好又是dbchart的话，编译器认为单元文件进行递归调用自己本身而报错)

c.1.在新窗体中添加dbchart组件

2.并且双击该组件，系统弹出editing dbchart1的对话框

3.单击add按钮，系统弹出teechart gallery的对话框，在standard页中选择你需要的图表类型(以BAR为例子)。

4.在editing dbchart1对话框中选中series页可以单击有色的正方形选择图表中条形柱(3d)或者条形图形(2d)的显示颜色

5.在editing dbchart1对话框中选中titles页，在空白的编辑框内输入图表的名称，单击font按钮设置title的字体，字型，字的大小以及字的颜色，在alignment单选框组合中点击center的对齐方式，单击Back_Color按钮选择title的背景颜色(注意:不是dbchart1组件的背景颜色),如果想将title的背景色变回透明，则单击Pattern按钮，系统弹出pattern color editor对话框，在style单选按钮组合框中选中None，单击ok

6.在editing dbchart1对话框中选中legend页，单击back color按钮设置处于右上角图例的底色

7.在editing dbchart1对话框中选中panel页，在gradient组合框中单击start color和end color选则两种颜色，再在direction中选择两种颜色渐变的形式，最终的效果图作为整个dbchart1组件的背景颜色

8.在新建的窗体添加ado组件页中的adodataset组件，属性设置：

a.connection：dm.adoclink

b.commandtext：select booknumber, bookcaption from bookname(booknumber为记录图书当前库存量的字段，bookcaption为记录图书名称的字段)

c.active：true(可不设置，不设置在设计期间看不到效果，要运行后才可以看到具体效果)

9.在editing dbchart1对话框中选择series(chart右边)页，单击data source页，在下拉列表框中选择dataset，dataset：adodataset1，labels：bookcaption(条形上方显示的提示信息)，bar：booknumber，关闭editing dbchart1对话框单击close按钮(注意：一定要在窗体中添加adodataset控件，而不能将adodataset控件放在数据模块窗体中，否则dbchart1控件的datasource属性无法识别任何可用的dataset控件)

10.在新建窗体中添加2个按钮，属性：

第一个按钮：caption：放大

第二个按钮：caption：缩小

双击第一个按钮进入代码窗口的对应位置，输入代码：DBChart1.ZoomPercent(105);

双击第二个按钮进入代码窗口的对应位置，输入代码：DBChart1.ZoomPercent(95);

11.在object treeview窗口中双击新建窗体名(tubiao)，进入窗体的加载事件的相应代码区，输入代码：adodataset1.Close;

adodataset1.Open;

12.向新建窗体添加standard组件页中的checkbox组件，并且双击该组件进入代码窗口中，

输入代码： if CheckBox1.Checked = True then

DBChart1.View3D := True

else

DBChart1.View3D := False;

(其功能根据用户是否勾选来决定图表的条形是否以立体形式显示)

13.在checkbox1组件旁边添加standard组件页中的label组件，属性：caption：3D显示

14.按F9调试并且运行

本文来源 我爱IT技术网 http://www.52ij.com/jishu/3849.html 转载请保留链接。