毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 管理论文 >> 正文

住宅小区物业管理信息系统设计与开发 第11页

更新时间:2014-6-28:  来源:毕业论文

住宅小区物业管理信息系统设计与开发 第11页
附  件1
外部实体条目:
数据流条目:
处理过程条目:               
附  件2
报修文修模块:
1、文修管理查询:

对应代码:
Private Sub Command1_Click()
Dim txtsql As String
    Dim msgtext As String
    Dim dd(4) As Boolean
    txtsql = "select * from 报修文修表 where 0=0 "
    Adodc2.CommandType = adCmdText
    If Check1.Value Then
        If Trim(Combo4.Text) = "" Then
            MsgBox "查询类型不能为空", vbOKOnly + vbExclamation, "警告"
            Combo4.SetFocus
        Exit Sub
        Else
        nam = Text1.Text
Select Case Combo4.ListIndex
Case 0
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 文修人 ='" & nam & "'"
Adodc2.Refresh
Case 1
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 申报事件 ='" & nam & "'"
Adodc2.Refresh
Case 2
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 房间号='" & nam & "'"
Adodc2.Refresh
Case 3
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 用户评价 = '" & nam & "'"
Adodc2.Refresh
Case 4
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 文修结果='" & nam & "'"
Adodc2.Refresh

End Select
'Adodc1.Refresh
Text1.Text = ""
Combo4.Text = ""
        End If
    End If
  
    If Check3.Value Then
        If Trim(Text1.Text) = "" Then
            MsgBox "查询内容不能为空", vbOKOnly + vbExclamation, "警告"
            Text1.SetFocus
            Exit Sub
       End If
    End If
    If (Check1.Value + Check3.Value = 0) Then
        MsgBox "请设置查询方式!", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        txtsql = txtsql
        'Set mrc = ExecuteSQL(txtsql, msgtext)
       'Set DataGrid1.DataSource = mrc
       Adodc2.RecordSource = txtsql
      Adodc2.Refresh
        datagrid1.ReBind
        MsgBox txtsql, vbOKOnly, "s"
End If
End Sub
2、文修管理统计:

二、房屋管理模块
1、房间查询:

2、房产所有权
三、收费管理模块
1、收费类别添加:
对应代码:
Private Sub Command1_Click()
If Text1.Text = "" Then
     MsgBox "请完整添写收费项目的信息!"
   Else
   Adodc1.Recordset.AddNew
   Adodc1.Recordset.Fields(0) = Text1.Text
   Adodc1.Recordset.Fields(1) = Text2.Text
   Adodc1.Recordset.Fields(2) = Text3.Text
   Adodc1.Recordset.Fields(3) = Text4.Text
   Adodc1.Recordset.Fields(4) = Text5.Text
   Adodc1.Recordset.Fields(5) = Combo1.Text
   Adodc1.Recordset.Fields(6) = Combo2.Text
   Adodc1.Recordset.Fields(7) = Text6.Text
   Adodc1.Recordset.Fields(8) = Combo3.Text
   Adodc1.Recordset.Update
   MsgBox "收费类别信息添加成功!"
   Text1.Text = ""
   Text2.Text = ""
   Combo1.Text = ""
   Text3.Text = ""
   Combo2.Text = ""
   Text4.Text = ""
   Text5.Text = ""
   Combo3.Text = ""
   Text6.Text = ""
   End If
   End Sub
2、收费查询:

四、业主管理模块
1、业主修改:

2、业主查询:

五、员工管理模块
1、员工资料修改:

辣、出入信息模块
1、出去

对应代码:
Private Sub Command3_Click()
Adodc1.Recordset.AddNew
Text7.SetFocus
End Sub
2、查询:               

谢  辞

   作为一个学VB开发工具只有半年多时间的新手来说,能做出以上系统项目的分析设计以及实施,并在一定的环境下运行起来,我感到十分的欣慰,我为我的学习和开发能力感到骄傲。
   在从这个小区物业管理系统中,我们可以看到,我所开发的系统完全符合现代物业管理的发展需要;无论从分析、设计、到使用,都很大程度上取决与实际的调查和个人的创作,从根本上来说,这个系统的实现,体现了我大学所学的知识,已经可以应用到实践中来,为我以后的工作或者创业之路打下了良好的基础,从而为我以后的人生形成了一笔无形的财富。从另一方面来看,我所开发的住宅小区物业管理系统实际上存在着很多的漏洞和缺点,如代码的编写,系统的分析等,还有很多的功能模块我还不太清楚,系统实现的效率也不是很高。
   因此,在今后,我还需加倍的努力,无论从哪一方面来说,我都必须保持着谦虚、谨慎的态度去好好学习,不管是在学校还是以后出来工作,我都要以认真的态度去做好每一件事情。
   最后,我在这里要感谢一直支持我,关心我的老师,特别是田艳老师,感谢您一直以来对我的教导与帮助!我以后会继续努力的。

 << 上一页  [11] 

住宅小区物业管理信息系统设计与开发 第11页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。