【正文】 Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegSave_Click() 39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLook_Click() 39。39。再則 ,感謝 我的室友 ,由于整個設(shè)計都是在寢室的電腦前完成的 ,有時會影響你們休息 ,你們卻能夠理解 ,毫無怨言。使得我的論文不斷完完美，對數(shù)據(jù)庫和 VB 程序有了更深的學(xué)習(xí)。一開始連接時并不順利，常出現(xiàn)無 法找到數(shù)據(jù)庫和路徑不對的問題。 2 ．從解決開發(fā)系統(tǒng)的基本問題入手，討論了研究和開發(fā)本系統(tǒng)的可 行性，并對開發(fā)工具及其語言進(jìn)行選擇。 開發(fā)總結(jié) 通過此管理信息系統(tǒng)的開發(fā)，做到了理論聯(lián)系實際，將書本上學(xué)到的知識與具體實踐充分結(jié)合起來，進(jìn)一步明確了開發(fā)管理信息系統(tǒng)的方法和思想；既加深了對管理信息系統(tǒng)的認(rèn)識，又進(jìn)一步鞏固了以前所學(xué)的計算機(jī)軟件開發(fā)方面的知識，提高了軟件開發(fā)的水平，從而為今后在實際工作中更好的應(yīng)用計算機(jī)進(jìn)行信息管理打下了堅實的基礎(chǔ)。換言之，系統(tǒng)維護(hù)就是為了保證系統(tǒng)中的各個要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。其他功能請參考源程序。在菜單中可以選擇客戶信息查詢，在檢索名稱中輸入要檢索的字段。 瀏覽：是查看全的記錄，如圖 56。其中 客戶信息 、 銷售信息 、 樓房信息等。之后點修改。代碼實現(xiàn)請參考附錄程序源代碼。Persist Security Info=False 引擎采用 Jet 來連接 ACCESS 2020 數(shù)據(jù)庫。系統(tǒng)自動判斷用戶的要權(quán)限。 為了更好地組織數(shù)據(jù)和設(shè)計出實際應(yīng)用數(shù)據(jù)庫，應(yīng)該注意如下問 題 ： 關(guān)系數(shù)據(jù)結(jié)構(gòu)的建立：在進(jìn)行了數(shù)據(jù)基本結(jié)構(gòu)的規(guī)范化重組后，還必須建立整體數(shù)據(jù)的關(guān)系結(jié)構(gòu)。 數(shù)據(jù)庫 設(shè)計的步驟是： 數(shù)據(jù)庫結(jié)構(gòu)定義：目前的數(shù)據(jù)庫管理系統(tǒng)（ DBMS）有的是支持聯(lián)機(jī)事務(wù)處理 CLTP（負(fù)責(zé)對事務(wù)數(shù)據(jù)進(jìn)行采集、處理、存儲）的操作型 DBMS，有的可支持?jǐn)?shù)據(jù)倉庫、有聯(lián)機(jī)分析處理 CLAP（指為支持決策的制定對數(shù)據(jù)的一種加工操作）功能的大型 DBMS，有的數(shù)據(jù)庫是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫。 客戶信息 包括： 所有字段的查詢，也包括模糊查詢（ like）和 Excel輸出。 管網(wǎng)信息 模塊包括：顯示添加修改刪除查詢。 字典信息管理模塊包括：對系統(tǒng)所有的下拉位置內(nèi)容進(jìn)行定義。主要功能有對 樓盤信息、員工信息、客戶信息 等進(jìn)行管理和 檢索， 以及對系統(tǒng)自身的用戶權(quán)限管理。 這個 GROUP BY子句將集中所有的行在一起， 它包含了指定列的數(shù)據(jù)以及允許合計函數(shù)來計算一個或者多個列。 用于修改數(shù)據(jù)庫內(nèi)容的 SQL 語句主要有以下三個 ： Insert，向一個表中加入新的數(shù)據(jù)行 ； Update，更改數(shù)據(jù)庫中已經(jīng)存在的數(shù)據(jù) ； Delete，從一個表中刪除數(shù)據(jù)行 ； Insert標(biāo)準(zhǔn)語法： INSERT INTO table_name (col1, col2...) VALUES(value1, value2...)。 DML組可以細(xì)分為以下的幾 個語句： SELECT：用于檢索數(shù)據(jù)； INSERT：用于增加數(shù)據(jù)到數(shù)據(jù)庫； UPDATE：用于從數(shù)據(jù)庫中修改現(xiàn)存的數(shù)據(jù)； DELETE：用于從數(shù)據(jù)庫中刪除數(shù)據(jù)。 非過程化語言 ： SQL是一個非過程化的語言，因為它一次處理一個記錄，對數(shù)據(jù)提供自動導(dǎo)航。 SQL通常使用于數(shù)據(jù)庫的通訊。但是美中不足的是 ACCESS對于主從式結(jié)構(gòu)的安全性管理不足，由于 ACCESS可以快速的通過 ODBC連接到數(shù)據(jù)庫服務(wù)器上（ Database Server） ,并瀏覽所有表格或是相關(guān)對象轉(zhuǎn)成 HTML 基本上， ACCESS對建立一個數(shù)據(jù)庫所具備的每一個對象，其中包括了表、查詢、窗體、報表、宏、模塊。 以下是本程序中用到的方法： AddNew方法 ： 創(chuàng)建可更新 Recordset對象的新記錄。 Recordset對象 ： 表示的是來自基本表或命令執(zhí)行結(jié)果的記錄全集。 第二節(jié) ADO 對象 ADO是 Microsoft公司關(guān)于各種類型數(shù)據(jù)的高等界面，后來逐漸演變成滿足所有數(shù)據(jù)訪問需要的完整解決辦法。本系統(tǒng)就是用 ADO對象來連接數(shù)據(jù)庫的。 IDE是指在相應(yīng)的開發(fā)平臺中集成了編輯器、編譯連接工具、控件器箱輔助工具。據(jù)統(tǒng)計，僅在數(shù)據(jù)庫系統(tǒng)開發(fā)領(lǐng)域， VB就占了 90％的份額。 Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā) Windows環(huán)境下的種類應(yīng)用程序。在某種意義上，信息與科技在企業(yè)管理與現(xiàn)代化建設(shè)中顯現(xiàn)出越來越重要的地位。此外，傳統(tǒng)管理方式查詢繁雜，難于快速查詢到滿足客戶需求的房源信息，無法保證高質(zhì)量的信息服務(wù)。最后中介公司根據(jù)法律規(guī)定起草文本，在征得客戶同意后簽訂契約。房產(chǎn)銷售時房產(chǎn)中介行業(yè)的重要組成部分，由于房產(chǎn)銷售形式復(fù)雜，業(yè)務(wù)種類繁多，早期的手工銷售方式已經(jīng)不能適應(yīng)現(xiàn)代房產(chǎn)銷售的需要，在這種情況下，房產(chǎn)銷售管理系統(tǒng)營運而生。房地產(chǎn)現(xiàn)場銷售好比戰(zhàn)場上的短兵相接，一個細(xì)微的過失往往會造成一次交鋒的失敗。房地產(chǎn)銷售管理系統(tǒng) 摘要 房地產(chǎn)銷售已成為房產(chǎn)公司管理中不可或缺的一部分，在許多國家得到了廣泛的研究與應(yīng)用。正確分析并把握諸方面因素對售樓的影響，對于發(fā)展商在營銷策劃上的準(zhǔn)確定位、實現(xiàn)預(yù)期的銷售目標(biāo)，具有至關(guān)重要的作用。 伴隨著人類社會的進(jìn)步和科學(xué)技術(shù)的發(fā)展 ，人們生活水平也在不斷的提高，房產(chǎn)中介行業(yè)已經(jīng)成為當(dāng)今社會比較熱門的行業(yè)。征求信息和參觀住房都由中介公司免費提供。不僅無形中增加了中介公司的運營成本，而且使寶貴的房產(chǎn)信息數(shù)據(jù)處于極不穩(wěn)定的狀態(tài)，一旦丟失將給公司造成難以估量的損失。面對信息時代的挑戰(zhàn)，利用高科技手段來提高房地產(chǎn)企業(yè)的樓盤銷售管理無疑是一條行之有效的途徑。 作為管理信息系統(tǒng)的開發(fā)， Visual Basic是一個非常理想選擇。自從微軟推出 VB后，便成為了程序開發(fā)人員的首選工具。 可視化編程的一個突出特點就是其開發(fā)環(huán)境就像一個百寶箱，很多功能都集成在其之中，這就是 IDE（ Integrated Development Environment），即集成開發(fā)環(huán)境。 ADO 是基于 OLEDB之上的技術(shù)，因此 ADO通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。 RDO是 ODBC API的一個淺層界面接口，是專為訪問遠(yuǎn)程 ODBC關(guān)系數(shù)據(jù)源而設(shè)計的。對象模型使用 Connection對象使連接概念得以具體 。使用 Field對象的 Value屬性可設(shè)置或返回當(dāng)前記錄的數(shù)據(jù) 。 不但如此，在 ACCESS 2020 推出以后，我們發(fā)現(xiàn)數(shù)據(jù)庫的建立更加的快速，但是功能卻更加強大，用戶不用再去記憶那一大堆的文件名稱，或是為數(shù)據(jù)庫的文件管理大費周章，通過 ACCESS 的人性化管理接口把數(shù)據(jù)庫的管理整理，便于維護(hù)；此外，在報表的制作上也是相當(dāng)容易的，完全的視覺開發(fā)向?qū)гO(shè) 計，讓人使用起來很舒服。 第二節(jié) SQL 語言 SQL(Structured Query Language，結(jié)構(gòu)查詢語言 )是一個功能強大的數(shù)據(jù)庫語言。 SQL語言有著非常突出的優(yōu)點， SQL語言 是非過程化 的 語言 、 統(tǒng)一的語言 、 是所有關(guān)系數(shù)據(jù)庫的公共語言 。 SQL功能強大，是一種完備的數(shù)據(jù)處理語言，不僅用于數(shù)據(jù)庫查詢，而且用于數(shù)據(jù)庫中的數(shù)據(jù)修改和更新，概括起來，它可以分成以下幾組： DML（ Data Manipulation Language，數(shù)據(jù)操作語言）：用于檢索或者修改數(shù)據(jù) ； DDL（ Data Definition Language，數(shù)據(jù)定義語言）： 用于定義數(shù)據(jù)的結(jié)構(gòu)，比如 創(chuàng)建、修改或者刪除數(shù)據(jù)庫對象； DCL（ Data Control Language，數(shù)據(jù)控制語言）：用于定義數(shù)據(jù)庫用戶的權(quán)限。數(shù)據(jù)庫管理系統(tǒng)必須在更改期內(nèi)保護(hù)所存儲的數(shù)據(jù)的一致性，確保有效的數(shù)據(jù)進(jìn)入數(shù)據(jù)庫，數(shù)據(jù)庫必須保持一致性， DBMS 還必須協(xié)調(diào)多用戶的并行更新，以確保用戶和它們的更改不至于影響其它用戶的作業(yè)。 標(biāo)準(zhǔn)語法： UPDATE table_name SET columnname1 = value1 [, columname2 = value2]... WHERE search_condition Delete 語句標(biāo)準(zhǔn)語法： DELETE FROM tablename WHERE condition 在信息管理系統(tǒng)中，我們往往會遇到歸類、匯總、映射、索引、子查詢等復(fù)雜操作，相應(yīng)的支持與實現(xiàn)如下： GROUP BY 方法 ： GROUP BY子句語法為： SELECT column1, SUM(column2) FROM listoftables GROUP BY columnlist。 第一節(jié) 系統(tǒng)功能設(shè)計 房地產(chǎn)銷售系統(tǒng) 是為了對 房地產(chǎn)銷售企業(yè) 實行計算機(jī)化的管理，以提高工作效率，方便用戶。 背景設(shè)置管理模塊包括：界面的顏色和圖片的自定義設(shè)置。 樓房類型模塊 包括：顯示添加修改刪除查詢。 檢索信息 管理主要包括： 員工信息 包括： 所有字段的查詢，也包括模糊查詢（ like）和 Excel輸出。數(shù)據(jù)庫設(shè)計時需要綜合企業(yè)各個部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個數(shù)據(jù)之間的關(guān)系，按照 DBMS 提供的功能和描述工具，設(shè)計出規(guī)模適當(dāng)、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。 數(shù)據(jù)字典設(shè)計：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計，便于維護(hù)和修改。 圖 51 登錄界面 根據(jù)登錄模塊的功能，管理員和普通用戶界面統(tǒng)一在一起。 \。管理員密碼數(shù)據(jù)庫的用戶信息表項里。 圖 54 用戶密碼修改 修改密碼：在舊密碼輸入你的登錄密碼，在新密碼中輸入新密碼，在新密碼核實中再輸入一次新密碼。也是本次開發(fā)的重點。 添加：是添加一新的記錄。 圖 55 員工信息輸入界面 圖 56 信息瀏覽 第五節(jié) 查詢 查詢打印模塊包括 客戶信息 、 員工信息 、 銷售信息表，客戶報表的打印 ，查詢以客戶信息表為例，如圖 57所示。 代碼實現(xiàn)請參考附錄程序源代碼。 第二節(jié) 系統(tǒng)的維護(hù) 系統(tǒng)維護(hù)的目的是保證管理信息系統(tǒng)正常而可靠地運行，并能使系統(tǒng)不斷得到改善 和提高，以充分發(fā)揮作用。 本系統(tǒng)的維護(hù)模塊 本系統(tǒng)的維護(hù)功能主要是為保證系統(tǒng)能夠正常的運行。 1 ．本次的課題設(shè)計首先分析了管理系統(tǒng)目前在國內(nèi)外的發(fā)展?fàn)顩r及需求分析。 然后，會用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過各方面的比較，我選擇了 ADO，通過 ADO控件與數(shù)據(jù)庫中各表進(jìn)行連接，同時也用到少數(shù)編程實現(xiàn) VB和 ACCESS數(shù)據(jù)庫的連接。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，即使在百忙中，抽出了很多時間對我的論文進(jìn)行的批改和修正。同時感謝同組成員 ,我們在一起互相討論 ,學(xué)習(xí) ,解決了不少的難題。添加操作 Dim IDmax As String Dim i As Integer For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i = True End Sub Private Sub cmdRegDel_Click() 39。39。39。39。, CN, adOpenStatic, adLockOptimistic If Not Then For i = 1 To 5 If Not IsNull((i)) Then Txt(CurrentIndex + i).Text = (i) End If Next i End If End If End If On Error GoTo Err Exit Sub Err: MsgBox , vbInform