【正文】 通過(guò)老師的幫助才慢慢的有了一點(diǎn)體會(huì)。設(shè)置 DataGrid1 的數(shù)據(jù)源 Set = rs_order 30 39。主鍵不重復(fù)，可以加入表中 26 For i = 0 To 14 (i) = Text1(i).Text Next i (15) = 39。確實(shí)刪除 If answer = vbYes Then 39。 and Password = 39。 Visual Basic 提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。 Microsoft Visual FoxPro 現(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。面對(duì)信息時(shí)代的挑戰(zhàn)，利用高科技手段來(lái)提高物業(yè)管理無(wú)疑是一條行之有效 的途徑。 This system can carry out as follows function: 1. system login :Include the customer logging, the modification password, increase the customer, withdraw the system. 1. Basic data :Include inhabitant39。 關(guān)鍵詞 ：小區(qū) 物業(yè)管理 數(shù)據(jù)庫(kù) 統(tǒng)計(jì) 匯總 【 Abstract】 2 This text passes and uses VB 6. 0 writes the administrative system of the property, utilize the soft project principle , adopt the cycle method of the life to study, it develops two respects of main development including settingup and maintenance and front application program of backstage supporter39。如何利用先進(jìn)的管理手段，提高物業(yè)管理水平，是當(dāng)今社會(huì)所面臨的一個(gè)重要課題。 Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā) Windows環(huán)境下的種類應(yīng)用程 序。 面向?qū)ο蟮某绦蛟O(shè)計(jì) 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦?設(shè)計(jì)語(yǔ)言 (C++)不完全相同。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語(yǔ)言 SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL 的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶 /服務(wù)器 (client/server)方案。 amp。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。 (Text1(0).Text) amp。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！ , vbOKOnly + vbInformation, 祝賀 39。在設(shè)計(jì)應(yīng)用程序時(shí)，應(yīng)仔細(xì)考慮每個(gè)組件提供的功能以及與其他組件之間的關(guān)系。在本系統(tǒng)中，程序主界面和登陸界面的制作是比較困難的。設(shè)置網(wǎng)格不可寫 = False = False = False Dim sql2 As String 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè) text 框不可寫 = True = True = True = False = False = True = True = True = True = True For i = 0 To 14 Text1(i).Enabled = False Next i = False End Sub 27 物業(yè)管理模塊 設(shè)計(jì) 其中添加 ,修改 ,刪除按包的源碼設(shè)計(jì)同上 ,重點(diǎn)分析保存按鈕的源碼如下 : Private Sub cmdSave_Click() 39。刪除之后，顯示總信息條數(shù)需要減 1 = Val() 1 39。 39。利用 OLE 技術(shù)，可以方便地建立復(fù)合式文檔 (pound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。 Visual Basic 是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。 作為數(shù)據(jù)庫(kù)系統(tǒng)的開發(fā)， Visual Basic 是一個(gè)非常理想選擇。 某小區(qū)位于我市西郊，綠化面積 1200 多平方米，占地面積100000，建筑面積 680000 多平方米， 24小時(shí)保安巡邏，環(huán)境幽雅、周邊配套設(shè)施完善，實(shí)行封閉式管理，小區(qū)現(xiàn)居住約 2 萬(wàn)人。 結(jié) 論 .................................................................................................... 32 參考文獻(xiàn) .............................................................................................. 32 5 第一章 引言 本軟件使用 Microsoft Visual Basic 進(jìn)行編寫。并且敘述了作者在軟件開發(fā)過(guò)程中的心得體會(huì)。 數(shù)據(jù)庫(kù)的特點(diǎn)： 據(jù)冗余度 。 根據(jù)該物業(yè)的具體情況，系統(tǒng)主要包括以下 4 個(gè)模塊： 系統(tǒng)登錄 ,基本資料 ,物業(yè)管理 ,數(shù)據(jù)報(bào)表統(tǒng)計(jì)等 . 8 Visual Basic是美國(guó)微軟 公司的第一個(gè)編程工具和系統(tǒng)開發(fā)的第一個(gè)產(chǎn)品， Visual Basic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開發(fā)功能、完美的視覺(jué)界面和簡(jiǎn)單易學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛(ài)。 Visual Basic 提供了可視化設(shè)計(jì)工具，把 Windows 界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。 訪問(wèn)數(shù)據(jù)庫(kù) Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。 其中登錄按鈕的源碼如下 : Private Sub cmdLogin_Click() 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False 22 = True = True = False = False = False = False = False 39。添加數(shù)據(jù)后保存 If add = 1 Then 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該設(shè)備編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。 order by amp