基于MVC架构的新型房屋租售管理系统设计.docVIP

　　基于MVC架构的新型房屋租售管理系统设计 高海静 （陕西工业职业技术学院信息工程学院，陕西咸阳712000） 摘要：近年来，随着大型社区的不断开发兴建，物业公司对于房屋的租售管理工作变得日趋复杂。伴随着这类业务的开展，如何对租售房屋进行高效、合理的管理这个问题越来越凸现出来。针对这一需求设计并实现了一套基于VC架构，采用ASP.+SQL Server 2005编写了可以运行于sgBox 预定日期应为这样的日期格式：2010?4?15！， vbOKOnly + vbInformation，注意 Text1（8）.SetFocus Exit Sub End If ′判断该预定单编号是否存在 sqlydc = select * from YuDing p; Text1（0）.Text ′ rs_ydc.Open sqlydc，conn，adOpenStatic，adLockOptimistic If rs_ydc.EOF = False Then MsgBox 该预定单编号已经存在，请填入一个新的编 号！，vbOKOnly + vbInformation，注意 rs_ydc.Close Text1（0）.SetFocus Exit Sub End If rs_ydc.Close （2）租房资料输入模块的主要代码如下： Private Sub cmdAdd_Click（） ′设置除保存和取消按钮外的其他按钮不可用… ′需要判断当前是在家庭租户选项卡还是公司租户选项卡上 ′家庭租户选项卡 If SSTab1.Tab = 0 Then ′需要清空所有text框，并且设置它们可写 For i = 0 To 6 Text1（i）.Text = Text1（i）.Enabled = True Next i bo1.Enabled = True ′addf变量用于保存时判断是从添加还是修改后保存addf = 1 Text1（0）.SetFocus ′公司租户选项卡 … End Sub Private Sub cmdCancel_Click（） ′取消按钮用于用户添加或修改过程中放弃添加或修改操作 cmdSave.Enabled = False cmdCancel.Enabled = False cmdAdd.Enabled = True cmdQuery.Enabled = True ′需要判断当前出在那个选项卡上，然后分别处理（3）统计报表部分排序功能的代码： Private Sub cmdOrder_Click（） ′排序只是对DataGrid1 排序，对于用于统计的DataGrid2 不排序 If rs_order.State = adStateOpen Then rs_order.Close End If sqlod = select * from Contract order by bo1.Text rs_order.CursorLocation = adUseClient rs_order.Open sqlod，conn，adOpenStatic，adLockOptimistic ′设置DataGrid1的数据源 Set DataGrid1.DataSource = rs_order DataGrid1.Refresh sqltg = select bo1.Text ，count（ bo1. Text ）as 数量统计 _ from Contract group by bo1.Text order by bo1.Text If rs_tg.State = adStateOpen Then rs_tg.Close End If rs_tg.CursorLocation = adUseClient rs_tg.Open sqltg，conn，adOpenStatic，adLockOptimistic ′设置DataGrid2的数据源 Set DataGrid2.DataSource = rs_tg DataGrid2.Refresh End Sub 3 结语