16.使用帮助界面
17 版本信息界面
36
盐城工学院经济与管理学院
18．软件宣传界面
19．备忘录
1）“保存”按钮click事件 integer li_rtn
li_rtn=rte_1.savedocument(\if li_rtn=1 then messagebox(\操作成功\保存路径为d:\\myf.txt\else
messagebox(\操作失败\保存失败\end if 2）“返回”按钮的click事件 close (parent)
37
盐城工学院经济与管理学院
20电子日历
1） 窗口的open事件 oleobject ole ole=ole_1.object ole.today 21．统计分析
1） 窗口的open事件 gr_1.elevation=33 gr_1.spacing=150
gr_1.addcategory(\第一学期\gr_1.addcategory(\第二学期\gr_1.addcategory(\第三学期\gr_1.addcategory(\第四学期\gr_1.addcategory(\第五学期\gr_1.addcategory(\第六学期\gr_1.addcategory(\第七学期\
38
盐城工学院经济与管理学院
gr_1.addseries(\计算机基础\
gr_1.addseries(\程序设计与语言\ gr_1.addseries(\数据结构\ gr_1.addseries(\操作系统\ gr_1.addseries(\程序设计与语言\ gr_1.addseries(\计算机原理\ gr_1.addseries(\数据库原理\ gr_1.addseries(\软件工程\
gr_1.adddata(1,80,1) gr_1.adddata(2,68,2) gr_1.adddata(4,68,5) gr_1.adddata(5,68,6) gr_1.adddata(6,85,5) gr_1.adddata(7,68,7) gr_1.adddata(9,51,7) 22.数据通道
1） 窗口的open事件
serverdb=create transaction u_zxh18_pipe=create pipeline dw_1.settransobject(sqlca) 2） connectserver函数
serverdb.autocommit=true serverdb.dbms=\
serverdb.database=\serverdb.userid=\serverdb.dbpass=\serverdb.servername=\
39
盐城工学院经济与管理学院
serverdb.logid=\serverdb.logpass=\
serverdb.dbparm=\connect using serverdb; return serverdb.sqlcode 3） error函数 string msg choose case ret case -1 msg=\打不开数据管道\ case -2 msg=\列数太多\ case -3 msg=\要创建的表已经存在\ case -4 msg=\要增加的数据的表不存在\ case -5 msg=\未建立于数据库的连接\ case -6 msg=\参数错误\ case -7 msg=\列不匹配\ case -8 msg=\访问的源数据库的sql语句致命错误\ case -9 msg=\访问的目标数据库的sql语句致命错误\ case -10 msg=\已经到达指定的最大错误数\ case -11 msg=\不正确的表语法\ case -12 msg=\需要关键字，但未指定关键字\ case -13 msg=\已经到达指定的最大错误数\ case -15 msg=\数据管道已经在运行\ case -16 msg=\源数据库出错\ case -17 msg=\目标数据库出错\ case -18 msg=\目标数据库处于只读状态，不能写入数据\end choose
messagebox(\数据管道运行出错\4） startpipe函数
40
盐城工学院经济与管理学院