- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
· 依照表 6-3中关于菜单m_datamanager的设计, 依次输入“数据管理”的各个子菜单项, 并为每一个菜单项指定图标按钮。 各菜单项,如查询数据、 保存数据、插入记录、删除记录、 拷贝记录、最前记录、上一记录、 下一记录、 最后记录、 关闭窗口的图标按钮依次如图 6-11所示。其中“关闭窗口”的图标按钮是在菜单m_main中为菜单项m_closewind指定的图标按钮。 图 6-11 “数据管理”各子菜单项的图标按钮 · 在工具条上单击【Preview】显示菜单的实际运行效果, 发现在继承过来的菜单中新加的菜单项只能放在菜单项的最后, 如图 6-12所示。 有没有方法可以使新加的菜单项能够自动放在合适的位置呢?——有, 再次单击【Preview】返回设计状态即可。 图 6-12 继承过来的后裔菜单预览 · 单击“关于信息”的菜单项, 显示出其属性页, 单击【Style】属性页, 在Shift Over/Down选择项前打勾, 如图 6-13所示。 同样将“窗口管理”的菜单项设置好。 图 6-13 “关于信息”菜单项的【Style】属性页 · 单击【Preview】, 如图 6-14所示, 发现新加的“记录操作”菜单项已经放在“窗口管理”和“关于信息”的前面了, 这正是我们想要的结果, 单击【Preview】返回设计状态。 ? · 在工具条上单击【Save】保存菜单,取名为m_datamanager。 · 单击【Close】, 关闭菜单画板。 图 6-14 新加菜单项放置在继承菜单的适当位置预览效果 ⑤ 将菜单m_datamanager放置到窗口w_student_detail上: · 打开窗口w_student_detail。 · 将w_student_detail窗口的Menu Name属性设置为m_datamanager。 · 删掉窗口上有关记录操作的各个按钮。 此后将通过菜单和图标按钮来进行记录操作, 而在用户数据窗口上不再显示按钮, 这样使数据维护看起来更简洁且专业。 ⑥ 为菜单m_datamanager的“记录操作”菜单条的各菜单项编写脚本: · 打开m_datamanager菜单。 · 为菜单m_datamanager的“记录操作”菜单条的各菜单项编写脚本, 各脚本程序如下: 【查询数据】菜单的Clicked事件 // clicked for m_retrieve dw_1.retrieve( ) 【保存数据】菜单的Clicked事件 // clicked for m_update if dw_1.update( )=1 then commit; MessageBox(保存数据成功!) else rollback; end if 【插入记录】菜单的Clicked事件 // clicked for m_insert dw_1.insertrow(dw_1.getrow( )+1) dw_1.scrollnextrow( ) 【删除记录】菜单的Clicked事件 // clicked for m_delete if dw_1.rowcount( )0 then if messagebox(提示信息,确认删除当前记录吗, Question! , YesNo!,2)=1 then dw_1.deleterow(0) end if end if 【拷贝记录】菜单的Clicked事件 // clicked for m_copy if dw_1.getrow( ) 1 then return dw_1.RowsCopy(dw_1.GetRow( ), dw_1.getrow( ), Primary!, dw_1, dw_1.getrow( ), Primary!) 【最前记录】菜单的Clicked事件 // clicked for m_first dw_1.scrolltorow(1) 【上一记录】菜单的Clicked事件 // clicked for m_prior dw_1.scrollpriorrow( ) 【下一记录】菜单的Clicked事件 // clicked for m_next dw_1.scrollnextpage( ) 【最后记录】菜单的Clicked
文档评论(0)