szhead_label = "柱状图示例 wxBAR"
C_screen="N2NNN22N"
INCLUDE "common.mas"
OBJECT wxDATASOURCE aSource //定义一个数据源组件
{
private:
aSource.Database= ACCESS //指定数据源为access
gRoot=sysGLOBAL.MAS_ROOT
gvar= gRoot+ "\sample.mdb" //设置access的目录路径
PRINT "aSource.Dbq= """, gvar, """"
REM aSource.Server= 172.1.1.88//主机地址
aSource.Login= mastudio //登录名
aSource.Pwd= mas123 //密码
aSource.Timeout= 10 //超时
}
OBJECT wxQUERY aQuery //查询组件
{
aQuery.wxDATASOURCE= aSource //查询来源
aQuery.Sql= "SELECT name, num FROM grid" //执行sql语句
aQuery.Split= 4 //每页20条
aQuery.Page= 1 //当前为第1页
}
OBJECT wxBAR aBar //创建一个柱形图
{
aBar.Rect[]= 5%,16%,95%,79% //图形大小
aBar.Axesx[]= 1, 0x000000 //坐标x宽度颜色
aBar.Axesy[]= 1, 0x000000, 5, 1 //坐标y宽度颜色
PRINT "aBar.Font[]=",v_fontno3,",0xDD33DD"
aBar.Pen[]= 1, 0x000000 //画笔大小、颜色(貌似是黑色)
OBJECT wxUNIT aUnit //数据来源
{
aUnit.Color[]= 0xFF0000, 0x00FF00, 0x0000FF//柱子颜色
aUnit.wxQUERY= aQuery
}
OBJECT wxUNIT aUnit //数据来源
{
aUnit.Color[]= 0xFF0000, 0x00FF00, 0x0000FF
aUnit.wxQUERY= aQuery
}
aBar.Link= label.mas //点中连接
OBJECT wxPARAMETER aPara //传递参数
{
aPara.ID= aQuery.Field(1)
}
}
mastudio bar.mas(有一些句子还不太理解)
最新推荐文章于 2022-06-21 18:29:42 发布