小区物业管理系统(三)

本论文在其他论文栏目，由论文格式网整理,转载请注明来源www.lwgsw.com,更多论文,请点论文格式范文查看
本模块代码如下：
Private Sub Command1_Click()
Dim strUserName As String
Dim strPassword As String
Static intLoginTimes As Integer

    If Trim(Text1.Text) = "" Then '如果用户名为空
        MsgBox "用户名不能为空！", vbOKOnly + vbCritical, "错误"
        Text1.SetFocus
        Exit Sub
    End If
    '打开数据库中的用户表
    Adodc1.Refresh
    '查找用户名
    'Adodc1.Recordset.Find "用户名 ='" & Text1.Text & "' ", , adSearchForward, 1
    '也可以用下面的过滤方式
    Adodc1.Recordset.Filter = "用户名 ='" & Text1.Text & "'"
    If Not Adodc1.Recordset.EOF Then '找到记录
        strUserName = Adodc1.Recordset!用户名
        strPassword = Adodc1.Recordset!密码
    'Else '没找到记录
        'Text1 = ""
        'Text2 = ""
    End If

    If strUserName = Text1.Text And strPassword = Text2.Text Then
        Adodc1.Recordset.Close '关闭数据库中的用户表
        Unload Me '关闭窗体
        frmMain.Show '显示主窗体
    Else
        '用户名或密码不对
        MsgBox "用户名或密码不对！", vbOKOnly + vbInformation, "提示"
        Text1 = ""
        Text2 = ""
        intLoginTimes = intLoginTimes + 1
        If intLoginTimes >= 3 Then '超过三次
            Adodc1.Recordset.Close '关闭数据库中的用户表
            End '退出整个程序
        End If
        Text2.SetFocus '重新输入密码
        SendKeys "{HOME}+{END}"
    End If
End Sub

5.3 小区住户信息管理模块
住户资料主要是对住户的基本信息如 (住户电话、住户姓名、物业地址、身份证号、入住时间等信息)和另外两个标签的信息进行添加、修改、删除、查询。添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。
界面截图如下:

图（5-3）住户信息截图
本模块代码如下：

Private Sub Command2_Click()
Dim strql As String
Set db = OpenDatabase(App.Path + "\db1.mdb")
strsql = "Insert Into 住户基本信息表 (户主,住址,电话,入住时间,身份证号码) values ('" + Text1.Text + "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')"

strsql = "update 住户基本信息表 set 住址 = '" + Text2.Text + "' ,户主 = '" + Text1.Text + "',电话 = '" + Text3.Text + "',入住时间 = '" + Text4.Text + "' where 身份证号码='" + Text5.Text + "'"
Private Sub Command4_Click()
Dim strqsl As String
Set db = OpenDatabase(App.Path + "\db1.mdb")
strsql = "delete * from 住户基本信息表 where 住址 = '" + Text1.Text + "'"
db.Execute strsql
strsql = “delete*from 房屋基本信息 where 住址= + Text1.TEXT+”
5.4 房屋信息管理模块
房产资料主要是对住户的基本信息如 (物业地址、使用面积、房屋结构、设备、出售信息等信息)的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。

界面截图如下:

图（5-4）房屋信息管理界面截图
本模块代码如下：

Private Sub Command2_Click()
Dim strql As String
Set db = OpenDatabase(App.Path + "\db1.mdb")
strsql = "Insert Into 房屋基本信息 (住址,设备,房屋结构,房屋面积,出售信息) values ('" + Text1.Text + "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')"
strsql = "update 房屋基本信息 set 住址 = '" + Text1.Text + "' ,设备 = '" + Text2.Text + "',房屋结构 = '" + Text3.Text + "',房屋面积 = '" + Text4.Text + "' where 出售信息='" + Text5.Text + "'"
End If
db.Execute strsql
Set db = OpenDatabase(App.Path + "\db1.mdb")
strsql = "delete * from 房屋基本信息 where 住址 = '" + Text1.Text + "'"
db.Execute strsql

Private Sub Command6_Click()
frmMain.Show
Unload Me
End Sub

Private Sub Form_Load()
Dim strsql As String
    Set db = OpenDatabase(App.Path + "\db1.mdb")
    strsql = "select * from 房屋基本信息"
    Set rs = db.OpenRecordset(strsql)
End Sub

5.5 物业收费管理模块
物业收费管理用是对小区内物业收费的总管理，主要功能也是对如 (住址、水费、电费、宽带费、物业管理费、收费时间等信息) 的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。
界面截图如下:

图（5-5）物业收费界面截图
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
MsgBox "添加成功"
End Sub

Private Sub Command3_Click()
Dim strsql As String
If MsgBox("是否要修改此记录", 32 + 1, "修改") = 1 Then
Set db = OpenDatabase(App.Path + "\db1.mdb")
strsql = "update 收费信息表 set 住址 = '" + Text1.Text + "' ,水费 = '" + Text2.Text + "',电费 = '" + Text3.Text + "',宽带 = '" + Text4.Text + "',垃圾清运费 ='" + Text5.Text + "',物业管理费 = '" + Text6.Text + "',收费时间 = '" + Text7.Text + "'"
End If
db.Execute strsql
db.Close
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
MsgBox "修改成功"
End Sub

Private Sub Command4_Click()
Dim strqsl As String
Set db = OpenDatabase(App.Path + "\db1.mdb")
strsql = "delete * from 收费信息表 where 住址 = '" + Text1.Text + "'"
db.Execute strsql
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
MsgBox "删除成功"
End Sub

Private Sub Command5_Click()
Form7.Show
Unload Me
End Sub

Private Sub Command6_Click()
frmMain.Show
Unload Me
End Sub

Private Sub Form_Load()
Dim strsql As String
    Set db = OpenDatabase(App.Path + "\db1.mdb")
    strsql = "select * from 收费信息表"
    Set rs = db.OpenRecordset(strsql)
End Sub

6结论
至此，小区物业管理系统设计与实现顺利完成。在几天的试运行的过程中，在连接数据库时一度出现过错误，经过调试改正后错误点全部清楚，此系统可以按着设计思想和需求功能正常运行。
由于当今的物业管理部门还不能有一个很统一的模式化，所以本系统仅考虑到一般小区所需要的物业管理的基本和主要的几项功能，一个完好的小区物业管理系统还需要更多更复杂的功能要求。由于开发周期短和开发人员等局限性，不能将本套系统尽善尽美。希望在以后能够对小区的物业做更深一步的调研，在原由系统的基础上不断添加新功能。最终能够开发出一套完善的小区物业管理系统。
本系统在开发过程中，在固定的物业管理要求的模式下还添加了一些人性化的，个人的构思和创意。
本套小区物业管理系统符合基本需求功能，易于操作，应该可以在简单化模式下的小区内应用，存在要改进的地方再以后会进一步完善。希望本系统能够给用户带来方便
参考文献
1 朱从旭严晖曹岳辉《Visual Basic 程序设计综合教程》清华大学出版社 2005年3月
2 张得强《Visual Basic案例开发》中国水利水电出版社 2005年1月
3 赛奎春高春艳李俊民《Visual Basic工程应用与项目实践》机械工业出版社 2005年1月
4李海兵等著   超梦幻动态网页开发ASP/HTML/SQL Server/Dream weaver完美结合    中国青年出版社；
5 李晓黎主编     《ASP+SQL SERVER网络应用系统开发与案例》人民邮电出版社；
6高林等著      管理信息系统与案例分析                 人民邮电出版社；
7 史嘉权等著    数据库系统教程                         清华大学出版社
8郑人杰等著    实用软件工程                           清华大学出版社
9陈志泊等著    数据库原理及应用教程                   人民邮电出版社
10方芳，吕萍   物业管理[M],                          中国建材工业出版社
11文林峰       物业管理的发展方向的探寻[J]        中外房地产报
12 周容         小区物业管理系统开发流程[J]           硅谷

致谢
随着本科生活的临近尾声，三个月的毕业设计也将结束。我在负责人及指导教师的指导下，顺利的完成了这套小区物业管理系统。
在开发设计的过程中，指导老师本着认真负责的态度、以严谨求真的作风来要求我们每一位学生，从选题到研发到实现，指导老师给予了我正确的指导和极大的帮助，使得我在设计当中少走了很多弯路，在顺利完成毕业设计的同时更让我学到了许多知识，对原有的理论知识能够很好的与实际结合起来运用，也大大的提高了我的动手的能力。这使得我对以后的工作充满了信息。
在此我由衷的向我的负责人及指导老师再次的说一声谢谢！并要向那些给予我极大帮助和支持的同学和老师表示感谢。今后我会以此次的毕业设计为起点迈向更远的未来。

首页上一页 1 2 3 下一页尾页 3/3/3