没有合适的资源?快使用搜索试试~ 我知道了~
首页房屋租赁管理系统vb源代码
资源详情
资源评论
资源推荐
系统主界面的设计
启动系统后,主界面设计效果图如下:
公用模块的设计代码分析如下:
Option Explicit
Public conn As New ADODB.Connection
'定义全局变量 queryhouse 作为判断 frmHouse 窗体显示查询的数据还是全体数据
Public queryhouse As Boolean
'定义全局变量 sqlqh 作为查询房屋信息时的 sql 语句
Public sqlqh As String
'定义全局变量 querycf 作为判断 frmClient 窗体家庭租户选项卡显示查询的数据还是全
体数据
Public querycf As Boolean
'定义全局变量 sqlqcf 作为查询家庭租户信息时的 sql 语句
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 窗体显示查询的数据还是全体数据
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 窗体是从 frmQZClient 窗体中单击下定金
预定调用的
'还是直接菜单调用的
Public fromqzc As Boolean
'定义全局变量 fromYuding 作为判断 frmPayDingJin 窗体是从 frmYuDing 窗体中单击收
取定金调用的
'还是直接菜单调用的
Public fromYuding As Boolean
'定义全局变量 fromContract 作为判断 frmPayYaJin 窗体是从 frmSignContract 窗体中
单击收取押金调用的
'还是直接菜单调用的
Public fromContract As Boolean
'定义全局变量 ZuJinfromContract 作为判断 frmPayZuJin 窗体是从 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 String
1.各主要功能模块的设计与实现
1.1 基本资料管理模块设计
房屋基本资料管理的运行效果图如下:
其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令按钮的源代码
设计:
新增按钮源码:
Private Sub cmdAdd_Click()
'设置除保存和取消按钮外的其他按钮不可用
cmdAdd.Enabled = False
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdSave.Enabled = True
cmdCancel.Enabled = True
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
cmdQuery.Enabled = False
'需要清空所有 text 框,并且设置它们可写
For i = 0 To 7
Text1(i).Text = ""
Text1(i).Enabled = True
Next i
Combo1.Enabled = True
'add 变量用于保存时判断是从添加还是修改后保存
add = 1
Text1(0).SetFocus
End Sub
Private 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 7
Text1(i).Text = rs_house.Fields(i)
Next i
If rs_house.Fields(8) = "已租" Then
Combo1.ListIndex = 0
ElseIf rs_house.Fields(8) = "未租" Then
Combo1.ListIndex = 1
ElseIf rs_house.Fields(8) = "意向" Then
Combo1.ListIndex = 2
End If
cmdEdit.Enabled = True
cmdDel.Enabled = True
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
'如果没有数据,则显示空
Else
For 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 = False
End If
'如果是修改后取消,则恢复到修改前的数据
ElseIf add = 0 Then
For i = 0 To 7
Text1(i).Text = rs_house.Fields(i)
Next i
If rs_house.Fields(8) = "已租" Then
Combo1.ListIndex = 0
ElseIf rs_house.Fields(8) = "未租" Then
Combo1.ListIndex = 1
ElseIf rs_house.Fields(8) = "意向" Then
Combo1.ListIndex = 2
End If
End If
'开始时设置各个 text 框不可写
For i = 0 To 7
Text1(i).Enabled = False
Next i
'先设置 ComboBox 的默认值及不可改
Combo1.Enabled = False
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
删除按钮的源代码:
Private Sub cmdDel_Click()
'当单击删除记录时,需要弹出一个提示框,警告用户
Dim answer As String
answer = MsgBox("确定要删除吗?", vbYesNo, "")
'确实删除
If answer = vbYes Then
rs_house.Delete '删除当前记录
rs_house.Update '更新删除
MsgBox "成功删除!", vbOKOnly + vbExclamation, ""
Else
Exit Sub
End If
'删除之后,显示总信息条数需要减 1
Text2.Text = Val(Text2.Text) - 1
'删除当前记录后,需要显示下一条记录,如果删除的是最后一条记录,则显示上一条记
录
'先移动 rs_house 记录到后一条
剩余23页未读,继续阅读
bingxueni
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf
- 建筑供配电系统相关课件.pptx
- 企业管理规章制度及管理模式.doc
- vb打开摄像头.doc
- 云计算-可信计算中认证协议改进方案.pdf
- [详细完整版]单片机编程4.ppt
- c语言常用算法.pdf
- c++经典程序代码大全.pdf
- 单片机数字时钟资料.doc
- 11项目管理前沿1.0.pptx
- 基于ssm的“魅力”繁峙宣传网站的设计与实现论文.doc
- 智慧交通综合解决方案.pptx
- 建筑防潮设计-PowerPointPresentati.pptx
- SPC统计过程控制程序.pptx
- SPC统计方法基础知识.pptx
- MW全能培训汽轮机调节保安系统PPT教学课件.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论4