VB应用第13章综合实例.docVIP

第13章 综合实例 13.1统计图的绘制 13.1.1功能和界面设计 1.任务 设计一个如图13-1所示的统计图设计器，要求该设计器能够根据数据库中所存数据，生成相应的折线图、直方图等多种统计图表。 图13-1统计图设计器 2.界面设计 界面设计如图13-2所示。在窗体上放置1个MSChart定制控件、1个DataGrid控件和8个按钮，其Text属性设置如表13-1所示。 13.1.2MSChart 定制控件 MSChart是一个以图形方式显示数据的图表。在窗体中加入MSChart（Name属性及为AMSC）控件后的画面如图13-3所示。图中，R1，R2，R3，…表示数据的项目，每一个项目包含多个数据。图的垂直方向为y轴，水平方向为x轴。图中y轴方向的两侧均标有数据，为区别起见，右侧称为y1轴，左侧称为y2轴。 图13-2界面设计 图13-3MSChart控件 对MSChart控件的添加方法说明如下： 在【工具箱】中的【Windows窗体】上点击右键，选中弹出菜单的【添加/移除项】选项，将弹出的【自定义工具栏】对话框，选中【COM组件】选项卡，在下面的列表框中选中“Microsoft Chart Control 6.0”,再点击【确认】按钮，然后在【Windows窗体】上双击“Microsoft Chart Control 6.0”图标，即可往Form中添加MSChart控件。 表13-1Text属性设置值 按钮控件 对象名 Text属性 Button1 Button1 输入数据 Button2 Button2 折线图 Button3 Button3 立体折线图 Button4 Button4 直方图 Button5 Button5 立体直方图 Button6 Button6 立体域图 Button7 Button7 饼图 Button8 Button8 结束 控件的主要属性说明如下： (1) RowCount属性和ColumnCount属性:这两种属性和RowCount属性用于统计图的数据设定。一旦在窗体上配置了AMSC控件，则自动生成一个数据表，用于存放数据。AMSC控件的数据是一个按项目排列的二维表。初始设计时数据表中填入的是一组随机数据，用于生成范例表。数据表为 R1：4168320 R2R3：6264546 R4R5其中，第1行、第1列的数据是41，对应于R1的第1个条形。程序运行时，这些随机数将被实际数据所代替。 在程序设计中，必须使用AMSC控件的ColumnCount属性和RowCount属性属性预先设定与统计图显示数据相对应的数据表的整体结构。ColumnCount属性设置数据表列总数，对应于统计图中每组数据的个数；RowCount属性设置数据表行总数，对应于统计图中的数据组数。例如， AMSC.Columncount=5 AMSC.RowCount=10 设定了一个每组显示5个数据、最多10组的统计图的数据表整体结构。同样，也可以在界面设计时利用AMSC控件的［属性］窗口设置这两个属性的属性值。 在程序设计中，给数据表设定数据有两种方法，一种方法是使用AMSC的Row、Column和Data属性按行、列直接赋值。例如， AMSC．ROw=2 AMSC.Column=3 AMSC.Data=100 表示数据表第2行、第3列的数据是100。 第二种方法是使用数组设定数据。该方法首先用一个二维数组设定数据，然后再送给图形控件，当然也可以送给数据表。例如， Dim AMSCData(1 to 10,1 to 5) As Integer AMSCData (1,1) = 11 AMSCData (1,2)=12 … AMSCData (10,5)=105 AMSC.ChartData= AMSCData (2) RowLabel属性和ColumnLabel属性:这两种属性和ColumnLabel属性可以设定统计图中数据系列的分类标签。例如，第1行的行标签为“冰箱”，第1列的列标签为“星期一”，在程序中可以写为 AMSC.Row=1 AMSC.RowLabel=冰箱 AMSC.Column=1 AMSC.ColumnLabel=星期一 (3) RowLabelCount和RowLabelIndex属性:一般而言，行、列标签只使用一行就可以了，但也可以使用多行，此时就需要使用AMSC控件的RowLabelCount和RowLabelIndex属性。例如，设定行标签为两段时的代码示例如下。 AMSC.RowLabelCount=2 AMSC.Row=1 AMSC.RowLabelIndex=1 AMSC.RowLabel=冰箱 AMS