房屋租赁管理系统源代码

系统主界面的设计启动系统后，主界面设计效果图如下:公用模块的设计代码分析如下:OptionExplicitPublicconnAsNewADODB.Connection'定义全局变量queryhouse作为判断frmHouse窗体显示查询的数据还是全体数据PublicqueryhouseAsBoolean'定义全局变量sqlqh作为查询房屋信息时的sql语句PublicsqlqhAsString'定义全局变量querycf作为判断frmClient窗体家庭租户选项卡显示查询的数据还是全体数据PublicquerycfAsBoolean'定义全局变量sqlqcf作为查询家庭租户信息时的sql语句PublicsqlqcfAsString'定义全局变量querycg作为判断frmClient窗体家公司户选项卡显示查询的数据还是全体数据PublicquerycgAsBoolean'定义全局变量sqlqcg作为查询公司租户信息时的sql语句PublicsqlqcgAsString'定义全局变量queryemp作为判断frmEmp窗体显示查询的数据还是全体数据PublicqueryempAsBoolean'定义全局变量sqlqe作为查询员工信息时的sql语句PublicsqlqeAsString'定义全局变量queryqzc作为判断frmQZClient窗体显示查询的数据还是全体数据PublicqueryqzcAsBoolean'定义全局变量sqlqzc作为查询求租客户信息时的sql语句PublicsqlqzcAsString'定义全局变量querycon作为判断frmAdminContract窗体显示查询的数据还是全体数据PublicqueryconAsBoolean'定义全局变量sqlqcon作为查询合同信息时的sql语句PublicsqlqconAsString'定义全局变量sqlqyd作为查询预定单信息时的sql语句PublicsqlqydAsString'定义全局变量fromqzc作为判断frmYuDing窗体是从frmQZClient窗体中单击下定金预定调用的'还是直接菜单调用的PublicfromqzcAsBoolean'定义全局变量fromYuding作为判断frmPayDingJin窗体是从frmYuDing窗体中单击收取定金调用的'还是直接菜单调用的PublicfromYudingAsBoolean'定义全局变量fromContract作为判断frmPayYaJin窗体是从frmSignContract窗体中单击收取押金调用的'还是直接菜单调用的PublicfromContractAsBoolean'定义全局变量ZuJinfromContract作为判断frmPayZuJin窗体是从frmSignContract窗体中单击收取租金调用的'还是直接菜单调用的PublicZuJinfromContractAsBoolean'定义全局变量queryZuJin作为判断frmAdminZuJin窗体显示查询的数据还是全体数据PublicqueryZuJinAsBoolean'定义全局变量sqlqzj作为查询合同信息时的sql语句PublicsqlqzjAsString'定义全局变量sqlqdj作为查询定金信息时的sql语句PublicsqlqdjAsString'定义全局变量sqlqyj作为查询押金信息时的sql语句PublicsqlqyjAsString1.各主要功能模块的设计与实现1．1基本资料管理模块设计房屋基本资料管理的运行效果图如下:其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令按钮的源代码设计：新增按钮源码:PrivateSubcmdAdd_Click()'设置除保存和取消按钮外的其他按钮不可用cmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdSave.Enabled=TruecmdCancel.Enabled=TruecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalsecmdQuery.Enabled=False'需要清空所有text框，并且设置它们可写Fori=0To7Text1(i).Text=Text1(i).Enabled=TrueNextiCombo1.Enabled=True'add变量用于保存时判断是从添加还是修改后保存add=1Text1(0).SetFocusEndSubPrivateSubcmdCancel_Click()'取消按钮用于用户添加或修改过程中放弃添加或修改操作cmdSave.Enabled=FalsecmdCancel.Enabled=FalsecmdAdd.Enabled=TruecmdQuery.Enabled=True'如果是从添加后取消Ifadd=1Then'如果当前House表中有数据则显示第一条数据IfNotrs_house.EOFAndNotrs_house.BOFThenFori=0To7Text1(i).Text=rs_house.Fields(i)NextiIfrs_house.Fields(8)=已租ThenCombo1.ListIndex=0ElseIfrs_house.Fields(8)=未租ThenCombo1.ListIndex=1ElseIfrs_house.Fields(8)=意向ThenCombo1.ListIndex=2EndIfcmdEdit.Enabled=TruecmdDel.Enabled=TruecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=True'如果没有数据，则显示空ElseFori=0To7Text1(i).Text=NexticmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndIf'如果是修改后取消，则恢复到修改前的数据ElseIfadd=0ThenFori=0To7Text1(i).Text=rs_house.Fields(i)NextiIfrs_house.Fields(8)=已租ThenCombo1.ListIndex=0ElseIfrs_house.Fields(8)=未租ThenCombo1.ListIndex=1ElseIfrs_house.Fields(8)=意向ThenCombo1.ListIndex=2EndIfEndIf'开始时设置各个text框不可写Fori=0To7Text1(i).Enabled=FalseNexti'先设置ComboBox的默认值及不可改Combo1.Enabled=FalseEndSubPrivateSubcmdClose_Click()UnloadMeEndSub删除按钮的源代码：PrivateSubcmdDel_Click()'当单击删除记录时，需要弹出一个提示框，警告用户DimanswerAsStringanswer=MsgBox(确定要删除吗？,vbYesNo,)'确实删除Ifanswer=vbYesThenrs_house.Delete'删除当前记录rs_house.Update'更新删除MsgBox成功删除！,vbOKOnly+vbExclamation,ElseExitSubEndIf'删除之后，显示总信息条数需要减1Text2.Text=Val(Text2.Text)-1'删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录'先移动rs_house记录到后一条rs_house.MoveNextIfrs_house.EOFThenrs_house.MovePrevious'如果没有到记录首则显示该记录IfNotrs_house.BOFThenFori=0To7Text1(i).Text=rs_house.Fields(i)NextiIfrs_house.Fields(8)=已租ThenCombo1.ListIndex=0ElseIfrs_house.Fields(8)=未租ThenCombo1.ListIndex=1ElseIfrs_house.Fields(8)=意向ThenCombo1.ListIndex=2EndIf'如果到记录首，则表格已经为空，置所有text框显示为空ElseIfrs_house.BOFThenFori=0To7Text1(i).Text=NexticmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndIf'如果删除的不是首尾记录，则显示当前记录即可ElseFori=0To7Text1(i).Text=rs_house.Fields(i)NextiIfrs_house.Fields(8)=已租ThenCombo1.ListIndex=0ElseIfrs_house.Fields(8)=未租ThenCombo1.ListIndex=1ElseIfrs_house.Fields(8)=意向ThenCombo1.ListIndex=2EndIfEndIfEndSub保存按钮的源代码：PrivateSubcmdEdit_Click()'设置除保存和取消按钮外的其他按钮不可用cmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdSave.Enabled=TruecmdCancel.Enabled=TruecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalsecmdQuery.Enabled=False'需要设置除主键之外的text框可写Fori=1To7Text1(i).Enabled=TrueNextiCombo1.Enabled=Trueadd=0EndSubPrivateSubcmdFirst_Click()'先移动rs_house记录到第一条rs_house.MoveFirst'同时需要设置相应按钮为不可用和不可用cmdPrev.Enabled=FalsecmdFirst.Enabled=FalsecmdNext.Enabled=TruecmdLast.Enabled=True'如果已经是第一条记录，则提示用户Ifrs_house.BOF=TrueThenMsgBox对不起，已经是第一条记录了！,vbOKOnly+vbInformation,注意ExitSub'如果不是，则个数据表的记录位置移到第一条记录，并且显示之ElseFori=0To7Text1(i).Text=rs_house.Fields(i)NextiIfrs_house.Fields(8)=已租ThenCombo1.ListIndex=0ElseIfrs_house.Fields(8)=未租ThenCombo1.ListIndex=1ElseIfrs_house.Fields(8)=意向ThenCombo1.ListIndex=2EndIfEndIfEndSubPREV检索按钮的源代码：1．2客户资料管理模块的设计1．2．1租户基本资料的设计运行效果图如下所示:在租户基本资料中，我们重点分析查找家庭租户功能的源码，如下:PrivateSubcmdQuery_Click()IfText1.Text=The