《Excel VBA+SQL数据管理与应用模板开发》_7.7 设计合同管理系统首页并制作命令按钮

【摘要】 本书摘自《Excel VBA+SQL数据管理与应用模板开发》一书中第7章，第7节，韩小良著。

7.7 设计合同管理系统首页并制作命令按钮

到现在为止，合同管理的基本功能已开发完毕，下面将设计一个首页工作表， 并制作命令按钮，只要单击某个命令按钮，即可打开相关窗口，或者直接执行统计 汇总程序。

一个简单的首页设计可参见图7-1,您也可以设计更为美观的首页界面。

设计好命令按钮后，为每个命令按钮指定宏，以便快速启动窗体，这些宏的代码分别如下：

Sub 供货商信息管理0

供货商信息.Show 0

End Sub

Sub 供货商信息查询0

供货商查询.Show 0

End Sub

Sub 合同信息管理0

合同信息.Show 0

End Sub

Sub 合同信息查询0

合同查询.Show 0

End Sub

Sub 发票信息管理0

发票信息.Show 0

End Sub

Sub 发票信息查询0

发票查询.Show 0

End Sub

Sub 付款信息管理(O

付款信息.Show 0

End Sub

Sub 付款信息查询(

付款查询.Show 0

End Sub

Sub 合同信息统计汇总)

合同统计汇总.Show 0

End Sub

Sub 发票信息统计汇总0

发票统计汇总.Show 0

End Sub

Sub 付款信息统计汇总0

付款统计汇总.Show 0

End Sub

Sub 供货商合同进度0

供货商合同进度跟踪.Show 0

End Sub

为工作簿指定事件

为了防止各个工作表之间的阅读干扰，需为工作簿指定Open 事件，当打开工作簿时， 自动切换打开“首页”工作表。程序代码如下：

Private Sub Workbook_Open)

This Workbook.Worksheets("首页").Select

End Sub

同时，为工作簿指定SheetBeforeRightClick 事件，当在任意一个工作表中单击右键时， 将自动切换到“首页”工作表，并屏蔽右键快捷菜单。程序代码如下：

Private Sub Workbook_SheetBeforeRightClick(By Val Sh As Object,ByVal Target As Range, Cancel As Boolean)

This Workbook.Worksheets("首页").Select

Cancel =True

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们 18664393530@aliyun.com 处理，核实后本网站将在24小时内删除侵权内容。