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