小區(qū)物業(yè)管理系統(tǒng)(三)

    If Trim(Text1.Text) = "" Then '如果用戶名為空
        MsgBox "用戶名不能為空！", vbOKOnly + vbCritical, "錯誤"
        Text1.SetFocus
        Exit Sub
    End If
    '打開數(shù)據(jù)庫中的 用戶表
    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 '關閉數(shù)據(jù)庫中的 用戶表
        Unload Me '關閉窗體
        frmMain.Show '顯示主窗體
    Else
        '用戶名或密碼不對
        MsgBox "用戶名或密碼不對！", vbOKOnly + vbInformation, "提示"
        Text1 = ""
        Text2 = ""
        intLoginTimes = intLoginTimes + 1
        If intLoginTimes >= 3 Then '超過三次
            Adodc1.Recordset.Close '關閉數(shù)據(jù)庫中的 用戶表
            End '退出整個程序
        End If
        Text2.SetFocus '重新輸入密碼
        SendKeys "{HOME}+{END}"
    End If
End Sub

5.3  小區(qū)住戶信息管理模塊
 住戶資料主要是對住戶的基本信息如 (住戶電話、住戶姓名、物業(yè)地址、身份證號、入住時間等信息)和另外兩個標簽的信息進行添加、修改、刪除、查詢。添加、修改、刪除這些操作必須保存后才能生效。當記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已表格方式顯示。表格顯示結果的同時，如果還出現(xiàn)多條記錄，可以根據(jù)某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。
 界面截圖如下:

                                  圖（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  房屋信息管理模塊
 房產(chǎn)資料主要是對住戶的基本信息如 (物業(yè)地址、使用面積、房屋結構、設備、出售信息等信息)的添加、修改、刪除、查詢及統(tǒng)計記錄個數(shù)。添加、修改、刪除這些操作必須保存后才能生效。當記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已表格方式顯示。表格顯示結果的同時，如果還出現(xiàn)多條記錄，可以根據(jù)某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。
 
 
 
 
 
 
 
 界面截圖如下:

                       圖（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  物業(yè)收費管理模塊
 物業(yè)收費管理用是對小區(qū)內(nèi)物業(yè)收費的總管理，主要功能也是對如 (住址、水費、電費、寬帶費、物業(yè)管理費、收費時間等信息) 的添加、修改、刪除、查詢及統(tǒng)計記錄個數(shù)。添加、修改、刪除這些操作必須保存后才能生效。記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已表格方式顯示。表格顯示結果的同時，如果還出現(xiàn)多條記錄，可以根據(jù)某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。
 界面截圖如下:

                    圖（5-5）物業(yè)收費界面截圖
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 + "',物業(yè)管理費 = '" + 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結論
 至此，小區(qū)物業(yè)管理系統(tǒng)設計與實現(xiàn)順利完成。在幾天的試運行的過程中，在連接數(shù)據(jù)庫時一度出現(xiàn)過錯誤，經(jīng)過調(diào)試改正后錯誤點全部清楚，此系統(tǒng)可以按著設計思想和需求功能正常運行。
 由于當今的物業(yè)管理部門還不能有一個很統(tǒng)一的模式化，所以本系統(tǒng)僅考慮到一般小區(qū)所需要的物業(yè)管理的基本和主要的幾項功能，一個完好的小區(qū)物業(yè)管理系統(tǒng)還需要更多更復雜的功能要求。由于開發(fā)周期短和開發(fā)人員等局限性，不能將本套系統(tǒng)盡善盡美。希望在以后能夠對小區(qū)的物業(yè)做更深一步的調(diào)研，在原由系統(tǒng)的基礎上不斷添加新功能。最終能夠開發(fā)出一套完善的小區(qū)物業(yè)管理系統(tǒng)。
 本系統(tǒng)在開發(fā)過程中，在固定的物業(yè)管理要求的模式下還添加了一些人性化的，個人的構思和創(chuàng)意。
 本套小區(qū)物業(yè)管理系統(tǒng)符合基本需求功能，易于操作，應該可以在簡單化模式下的小區(qū)內(nèi)應用，存在要改進的地方再以后會進一步完善。希望本系統(tǒng)能夠給用戶帶來方便
參考文獻
1 朱從旭 嚴暉 曹岳輝 《Visual Basic 程序設計綜合教程》 清華大學出版社  2005年3月
2 張得強 《Visual Basic案例開發(fā)》 中國水利水電出版社  2005年1月
3 賽奎春 高春艷 李俊民  《Visual Basic工程應用與項目實踐》 機械工業(yè)出版社  2005年1月
 4李海兵等著   超夢幻動態(tài)網(wǎng)頁開發(fā)ASP/HTML/SQL Server/Dream weaver完美結合    中國青年出版社 ；
5 李曉黎主編     《ASP+SQL SERVER網(wǎng)絡應用系統(tǒng)開發(fā)與案例》  人民郵電出版社；
6高林等著      管理信息系統(tǒng)與案例分析                 人民郵電出版社；
7 史嘉權等著    數(shù)據(jù)庫系統(tǒng)教程                         清華大學出版社
8鄭人杰等著    實用軟件工程                           清華大學出版社
9陳志泊等著    數(shù)據(jù)庫原理及應用教程                   人民郵電出版社
10方芳，呂萍   物業(yè)管理[M],                          中國建材工業(yè)出版社
11文林峰       物業(yè)管理的發(fā)展方向的探尋[J]        中外房地產(chǎn)報
12 周容         小區(qū)物業(yè)管理系統(tǒng)開發(fā)流程[J]           硅谷

致 謝
 隨著本科生活的臨近尾聲，三個月的畢業(yè)設計也將結束。我在負責人及指導教師的指導下，順利的完成了這套小區(qū)物業(yè)管理系統(tǒng)。
 在開發(fā)設計的過程中，指導老師本著認真負責的態(tài)度、以嚴謹求真的作風來要求我們每一位學生，從選題到研發(fā)到實現(xiàn)，指導老師給予了我正確的指導和極大的幫助，使得我在設計當中少走了很多彎路，在順利完成畢業(yè)設計的同時更讓我學到了許多知識，對原有的理論知識能夠很好的與實際結合起來運用，也大大的提高了我的動手的能力。這使得我對以后的工作充滿了信息。
 在此我由衷的向我的負責人及指導老師再次的說一聲謝謝！并要向那些給予我極大幫助和支持的同學和老師表示感謝。今后我會以此次的畢業(yè)設計為起點邁向更遠的未來。

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