code14.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 29 行

程序段14
这段程序在数据窗口中定义了一个统计图，单击统计图形数据窗口时，
抽取鼠标单击到的切片，然后双击抽取的切片，得到抽取的百分比，
该程序段用于数据窗口的clicked的事件中
GetDataPieExplode()得到饼图中取出的切片所占的百分比
SetDataPixExplode()使这个切片离开饼图中心的距离。

integer series, datapoint
grObjectType clickedtye
integer percent
percent=60
clickedtype=dw_1. ObjectAtPointer("gr_1",series,datapoint)
//series为组号，datapoint存储点中的数据，gr_1为统计图对象名
IF (series>0 and datapoint>0) THEN
dw_1. SetDataPieExplode("gr_1",series,datapoint, percent)
       //抽取点中的切片离开圆心的距离，为半径的60%
END IF
//在数据窗口中doubleclicked事件中脚本如下
integer series,datapoint
grObjectType clickedtype
integer percent
clickedtype=dw_1.ObjectAtPointer("gr_1",series,datapoint)
IF (series>0 and datapoint>0 ) THEN
     // 得到切片被抽取的百公比后，显示这个百分比  
  dw_1.GetDataPieExplode("gr_1",series,datapoint,& percent)
  MessageBox(“切片抽取的百分比”,dw_1.CategoryName("gr_1",datapoint) &
     +"这个切片"+"被抽取了"+ String(percent)+"%")
END IF