【正文】 of different expenses. This text has also introduced vfp6 briefly. The interface of 0 software and working technique. Having introduced the making course of the form briefly, the writing of the procedure, add , the last course of piling. And has narrated author39。并且敘述了作者在軟件開(kāi)發(fā)過(guò)程中的心得體會(huì)。 1 【摘要】 本文通過(guò)用 VB 編寫(xiě) 小區(qū) 物業(yè)管理系統(tǒng)，利用軟件工程原理，采用生命周期方法學(xué)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面，實(shí)現(xiàn)了小區(qū)信息數(shù)據(jù)庫(kù)的創(chuàng)建及各種費(fèi)用的收取、統(tǒng)計(jì)、匯總。 本系統(tǒng)可以實(shí)現(xiàn)如下功能： 1．系統(tǒng)登錄：包括用戶登錄，修改密碼，添加用戶 ,退出系統(tǒng)。s gains in depth of prehension in the course of software development。 結(jié) 論 .................................................................................................... 32 參考文獻(xiàn) .............................................................................................. 32 5 第一章 引言 本軟件使用 Microsoft Visual Basic 進(jìn)行編寫(xiě)。數(shù)據(jù)庫(kù)技術(shù)的基本思想是對(duì)數(shù)據(jù)實(shí)行集中，統(tǒng)一，獨(dú)立的管理，用戶可以最大限度的共享數(shù)據(jù)資源。 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)（ DATABASE APPLICATION SYSTEMS DBAS） 1． 管理信息系統(tǒng) 2． 開(kāi)放式信息服務(wù)系統(tǒng) 一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)通常是由數(shù)據(jù)庫(kù)和應(yīng)用程序兩部分組成，它們是在數(shù)據(jù)庫(kù)管理系統(tǒng)支持下設(shè)計(jì)和開(kāi)發(fā)出來(lái)的。只有高標(biāo)準(zhǔn)、高質(zhì)量的社區(qū)服務(wù)才能滿足人們的需求。 某小區(qū)位于我市西郊，綠化面積 1200 多平方米，占地面積100000，建筑面積 680000 多平方米， 24小時(shí)保安巡邏，環(huán)境幽雅、周邊配套設(shè)施完善，實(shí)行封閉式管理，小區(qū)現(xiàn)居住約 2 萬(wàn)人。因此該物業(yè)公司決定采用計(jì)算機(jī)進(jìn)行物業(yè)管理。 Visual Basic的編程環(huán)境包含了快速有效的開(kāi)發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象，使系統(tǒng)的開(kāi)發(fā)更人性化，操作更簡(jiǎn)便。在 Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用 Windows內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù) (DLL)、動(dòng)態(tài)數(shù)據(jù)交 換 (DDE)、對(duì)象的鏈接與嵌入 (OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn) (ODBC)等技術(shù)，可以高效、快速地開(kāi)發(fā)出 Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 作為數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)， Visual Basic 是一個(gè)非常理想選擇。 10 總的來(lái)說(shuō)， Visual Basic 具有以下特點(diǎn)： 可視化編程： 用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上， Visual Basic 自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。 Visual Basic 是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊 ”(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。同時(shí)， Visual Basic 還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如 dBASE， FoxPro， Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用 Visual Basic 編輯和處理。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。利用 OLE 技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。 交水電氣費(fèi)、 房屋簽約 業(yè)主入戶 水電氣讀表 物業(yè)管理 申請(qǐng)裝修 填寫(xiě)收費(fèi)通知單 系統(tǒng)主要功能包括 4． 系統(tǒng)登錄 ：包括 用戶登錄，修改密碼 ， 添加用戶 ,退出系統(tǒng) 。首先檢查用戶是否輸入了用戶名和密碼 If = Then MsgBox 請(qǐng)輸入用戶名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqluser As String 39。 39。 39。還需使其他菜單可用 = True = True = True 21 = True 39。需要清空所有 text 框，并且設(shè)置它們可寫(xiě) For i = 0 To 14 Text1(i).Text = Text1(i).Enabled = True Next i = True 39。當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶 Dim answer As String answer = MsgBox(確定要?jiǎng)h除嗎？ , vbYesNo, ) 39。刪除之后，顯示總信息條數(shù)需要減 1 = Val() 1 39。如果到記錄首，則表格已經(jīng)為空，置所有 text 框顯示為空 ElseIf Then For i = 0 To 14 Text1(i).Text = Next i End If 24 39。檢測(cè)住戶編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from Client where 住戶編號(hào) = 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該住戶編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè) text 框不可寫(xiě) = True = True = True = False = False = True = True = True = True