【编者按】网学网VB类作品频道为大家收集整理了“基于VB的小区物业管理系统的设计“提供大家参考，希望对大家有所帮助!
3.4.4数据报表统计的设计  物业设备统计 其中排序按钮的源码如下: Private Sub cmdOrder_Click() Dim sql As String If rs_order.State = adStateOpen Then rs_order.Close End If sql = "select * from Equipment order by " & Combo1.Text rs_order.CursorLocation = adUseClient rs_order.Open sql, conn, adOpenStatic, adLockOptimistic ''设置DataGrid1的数据源 Set DataGrid1.DataSource = rs_order DataGrid1.Refresh ''使用分组统计，并显示在DataGrid2中 ''首先需要设置DataGrid2可见 DataGrid2.Visible = True ''设置网格不可写 DataGrid2.AllowAddNew = False DataGrid2.AllowDelete = False DataGrid2.AllowUpdate = False Dim sql2 As String ''下面的sql语句已用户选择的combo1.text分组、排序，并且统计同一个combo1.text的数量 sql2 = "select " & Combo1.Text & ", count( " & Combo1.Text & _ " ) as 数量统计 from Equipment group by " & Combo1.Text & " order by " & Combo1.Text If rs_tg.State = adStateOpen Then rs_tg.Close End If rs_tg.CursorLocation = adUseClient rs_tg.Open sql2, conn, adOpenStatic, adLockOptimistic ''设置DataGrid2的数据源 Set DataGrid2.DataSource = rs_tg DataGrid2.Refresh End Sub 其它几个窗同的设计与该窗体设计雷同.排序按钮的设计参照物业设备统计按钮的设计. 第四章主菜单的设计与系统实现 系统主菜单的设计 在实际的系统设计中,菜单可分为两种类型,即下拉式菜单和弹出式菜单,下拉式菜单系统中,一般有一个主菜单,其中包括若干个选择项.主菜单单的每一项又可下拉出下一级子菜单.这样用一个个的窗口的形式弹出在屏幕上,它是通过菜单编辑器建立,其步骤如下: 1) 选取要建立菜单的窗体 2) 从“工具”菜单中,选取“菜单编辑器”建立如下图所示的系统主菜单: 可以看出菜单系统的建立比较直观,因此不作重点描述 一个典型的数据库应用程序由数据结构，操作界面，查询选项和报表打印等组成。在设计应用程序时，应仔细考虑每个组件提供的功能以及与其他组件之间的关系。设计好的功能模块制作完毕后，单击全编译执行在确认无误后,单击文件菜单下的生成工程得到一个.EXE的可执行程序.到此一个完整的系统设计完成. |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
