《房屋租赁管理系统源代码》由会员分享，可在线阅读，更多相关《房屋租赁管理系统源代码（22页珍藏版）》请在金锄头文库上搜索。
1、启动系统后，主界面设计成效图如下:公用模块的设计代码分析如下:Option ExplicitPublic conn As New ADODB.Connection定义全局变量queryhouse作为判定frmHouse窗体显示查询的数据依旧全体数据Public queryhouse As Boolean定义全局变量sqlqh作为查询房屋信息时的sql语句Public sqlqh As String定义全局变量querycf作为判定frmClient窗体家庭租户选项卡显示查询的数据依旧全 体数据Public querycf As Boolean定义全局变量sqlqcf作为查询家庭租户信息时的sq
2、l语句Public sqlqcf As String定义全局变量querycg作为判定frmClient窗体家公司户选项卡显示查询的数据依旧全 体数据Public querycg As Boolean定义全局变量sqlqcg作为查询公司租户信息时的sql语句Public sqlqcg As String定义全局变量queryemp作为判定frmEmp窗体显示查询的数据依旧全体数据Public queryemp As Boolean定义全局变量sqlqe作为查询职员信息时的sql语句Public sqlqe As String定义全局变量queryqzc作为判定frmQZClient窗体显示查询
3、的数据依旧全体数据Public queryqzc As Boolean定义全局变量sqlqzc作为查询求租客户信息时的sql语句Public sqlqzc As String定义全局变量querycon作为判定frmAdminContract窗体显示查询的数据依旧全体数据 Public querycon As Boolean定义全局变量sqlqcon作为查询合同信息时的sql语句Public sqlqcon As String定义全局变量sqlqyd作为查询预定单信息时的sql语句Public sqlqyd As String定义全局变量fromqzc作为判定frmYuDing窗体是从frmQ
4、ZClient窗体中单击下定金预定 调用的依旧直截了当菜单调用的Public fromqzc As Boolean定义全局变量fromYuding作为判定frmPayDingJin窗体是从frmYuDing窗体中单击收取 定金调用的依旧直截了当菜单调用的Public fromYuding As Boolean定义全局变量fromContract作为判定frmPayYaJin窗体是从frmSignContract窗体中单 击收取押金调用的依旧直截了当菜单调用的Public fromContract As Boolean定义全局变量ZuJinfromContract作为判定frmPayZuJin窗
5、体是从frmSignContract窗体 中单击收取租金调用的依旧直截了当菜单调用的Public ZuJinfromContract As Boolean定义全局变量queryZuJin作为判定frmAdminZuJin窗体显示查询的数据依旧全体数据 Public queryZuJin As Boolean定义全局变量sqlqzj作为查询合同信息时的sql语句Public sqlqzj As String定义全局变量sqlqdj作为查询定金信息时的sql语句Public sqlqdj As String定义全局变量sqlqyj作为查询押金信息时的sql语句Public sqlqyj As St
6、ring1.各要紧功能模块的设计与实现11差不多资料治理模块设计房屋差不多资料治理的运行成效图如下:3共有111房型备注关闭-Ini x|I-功能键条记录|i号楼1单元mi10001房屋編号物业地址3-2建筑面积平米装修惜呪出租价位平米愎用面积目前状态擀箱2!；删除保存取消1第1条前1条后1条绘后1条查找飢房屋资料转入其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,储存四个命令按钮的源代 码设计：新增按钮源码:Private Sub cmdAdd_Click()设置除储存和取消按钮外的其他按钮不可用cmdAdd.Enabled = FalsecmdEdit.Enabled = Fa
7、lsecmdDel.Enabled = FalsecmdSave.Enabled = TruecmdCancel.Enabled = TruecmdFirst.Enabled = FalsecmdPrev.Enabled = FalsecmdNext.Enabled = FalsecmdLast.Enabled = FalsecmdQuery.Enabled = False需要清空所有text框，同时设置它们可写For i = 0 To 7Text1(i).Text = Text1(i).Enabled = TrueNext iCombo1.Enabled = Trueadd变量用于储存时判定
8、是从添加依旧修改后储存add = 1Text1(0).SetFocusEnd SubPrivate Sub cmdCancel_Click() 取消按钮用于用户添加或修改过程中舍弃添加或修改操作 cmdSave.Enabled = False cmdCancel.Enabled = False cmdAdd.Enabled = True cmdQuery.Enabled = True假如是从添加后取消If add = 1 Then假如当前House表中有数据则显示第一条数据If Not rs_house.EOF And Not rs_house.BOF Then For i = 0 To 7T
9、ext1(i).Text = rs_house.Fields(i) Next iIf rs_house.Fields(8) = 已租 Then Combo1.ListIndex = 0ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2End If cmdEdit.Enabled = True cmdDel.Enabled = True cmdFirst.Enabled = True cmdPrev.Enabled = Tr
10、ue cmdNext.Enabled = True cmdLast.Enabled = True假如没有数据，则显示空 ElseFor i = 0 To 7 Text1(i).Text = Next i cmdEdit.Enabled = False cmdDel.Enabled = False cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = FalseEnd If 假如是修改后取消，则复原到修改前的数据ElseIf add = 0 ThenFor i = 0
11、To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = 已租 ThenCombo1.ListIndex = 0ElseIf rs_house.Fields(8) = 未租 ThenCombo1.ListIndex = 1ElseIf rs_house.Fields(8) = 意向 ThenCombo1.ListIndex = 2End IfEnd If开始时设置各个text框不可写For i = 0 To 7Text1(i).Enabled = FalseNext i先设置ComboBox的默认值及不可改Combo
12、1.Enabled = FalseEnd SubPrivate Sub cmdClose_Click()Unload MeEnd Sub 删除按钮的源代码： Private Sub cmdDel_Click()当单击删除记录时，需要弹出一个提示框，警告用户Dim answer As Stringanswer = MsgBox(确定要删除吗？ , vbYesNo,)确实删除If answer = vbYes Thenrs_house.Delete 删除当前记录rs_house.Update 更新删除MsgBox 成功删除！, vbOKOnly + vbExclamation, ElseExit
13、SubEnd If删除之后，显示总信息条数需要减 1Text2.Text = Val(Text2.Text) - 1 删除当前记录后，需要显示下一条记录，假如删除的是最后一条记录，则显示上一条记 录先移动rs_house记录到后一条 rs_house.MoveNextIf rs_house.EOF Thenrs_house.MovePrevious假如没有到记录首则显示该记录If Not rs_house.BOF ThenFor i = 0 To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = 已租 ThenCo
14、mbo1.ListIndex = 0ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2End If假如到记录首，则表格差不多为空，置所有text框显示为空ElseIf rs_house.BOF ThenFor i = 0 To 7Text1(i).Text = Next i cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cm
15、dLast.Enabled = FalseEnd If 假如删除的不是首尾记录，则显示当前记录即可 ElseFor i = 0 To 7Text1(i).Text = rs_house.Fields(i)Next iIf rs_house.Fields(8) = 已租 Then Combo1.ListIndex = 0ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2End IfEnd IfEnd Sub 储存按钮的源代码： Private Sub cmdEdit_Click() 设置
