【正文】 總的來說，做完一個數(shù)據(jù)庫的收獲不僅僅是技術(shù)上的，對事情的宏觀的控制有了更深的看法。在設(shè)計應(yīng)用程序時，應(yīng)仔細考慮每個組件提供的功能以及與其他組件之間的關(guān)系。還款方式 (12) = 39。購買人身份證號 (3) = 39。地下室編號 If Then (10) = 39。合同編號 (1) = 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub 29 End If Exit Sub loaderror: MsgBox End Sub 打印按按的源碼如下 : Private Sub Command2_Click() = Centimeter = gridkehu End Sub 收費管理模塊的設(shè)計 其中收費登記窗體的運行界面如下 : 其保存按鈕的源碼如下 : Private Sub cmdsave_Click() Dim i As Integer If Trim(txtmoney(0).Text) = Then MsgBox 樓盤編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ txtmoney(0).SetFocus Exit Sub End If Dim fee As Currency fee = 0 For i = 1 To 6 fee = fee + CCur(txtmoney(i).Text) Next i 30 txtmoney(7).Text = CStr(fee) = ChineseFormat(fee) (0) = Label4 (1) = txtmoney(0).Text (2) = Date For i = 1 To 6 (i + 2) = txtmoney(i).Text Next i (9) = (10) = MsgBox 保存成功！ , vbOKOnly + vbExclamation, Exit Sub End Sub 售樓管理模塊的設(shè)計 其中售樓合同管理窗體運行效果圖如下 : 其中新合同按鈕的源碼如下 : Private Sub cmdadd_Click() On Error GoTo saveerror Dim sql As String Dim i As Integer If = 簽訂合同 Then If Trim() = Then MsgBox 樓盤編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ 31 Exit Sub End If If Trim() = Then MsgBox 購買人身份證號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 銷售人員編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If sql = select 合同 .* from 合同 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Do While Not If (1) = Trim() Then MsgBox 此房已售出！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If Loop sql = select 樓盤 .*,戶型 .* from 樓盤 ,戶型 where 樓盤 .hos_id = 39。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else 39。 17 數(shù)據(jù)詞典 數(shù)據(jù)詞典（ Data Dictionary ,DD）是結(jié)構(gòu)化分析方法的另一個工具，它與數(shù)據(jù)流圖配合，能清楚地表達數(shù)據(jù)處理的要求。 具體為 : 要用戶界面要友好，使用方便，容錯能力強，適應(yīng)各種水平的用戶。 15 現(xiàn)有系統(tǒng)的分析 有關(guān)銷售管理系統(tǒng)的軟件市面上有不少，企業(yè)的員工也試用過一些，但總覺得不是很好用，不能完全滿足我們的要求，所以都放棄用這些軟件了，改為每次輸入數(shù)據(jù)后，用手工更改數(shù)據(jù)庫存量和計算樓盤銷售利潤，隨著業(yè)務(wù)的發(fā)展，數(shù)據(jù)量越來越大，用手工計算就很麻煩了，所以，迫切希望有一套完全適合 房屋 銷售管理應(yīng)用的軟件，以減輕公司員工的工作負擔。 動態(tài)鏈接庫 (DLL) Visual Basic 是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機器 14 硬件的操作不太容易實現(xiàn)。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server， Oracle 等。在設(shè)計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。 Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。數(shù)據(jù)庫是 MIS中的重要支持技術(shù)，在 MIS 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用 的數(shù)據(jù)庫語言Visual Basic 語言，該開發(fā)工具具有很多長處： Visual Basic 是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。 通常采用原型法需以下四個階段： （一）明確用戶的基本要求 （二）研制系統(tǒng)的原型 （三）使用、評價系統(tǒng)原型 （四）修改和完善原型 10 本系統(tǒng)開發(fā)方法的選擇 基于以上開發(fā)方法的優(yōu)劣和本系統(tǒng)的實際情況，本系統(tǒng)總體上采用結(jié)構(gòu)化生命周期法進行系統(tǒng)規(guī)則、系統(tǒng)分析和系統(tǒng)設(shè)計，但在系統(tǒng)實施階段采用原型法。在 Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用 Windows內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及動態(tài)鏈接庫 (DLL)、動態(tài)數(shù)據(jù)交 換 (DDE)、對象的鏈接與嵌入 (OLE)、開放式數(shù)據(jù)訪問 (ODBC)等技術(shù)，可以高效、快速地開發(fā)出 Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 利用計算機實現(xiàn)企業(yè)的銷售管理勢在必行。在現(xiàn)在以市場和服務(wù)為本的市場競爭中，為 企業(yè) 提供堅強的后 盾啊。這樣不僅僅浪費了大量的人力物力，而且由于人工管理存在著大量的不可預(yù)知性，造成售后信息管理的一些不規(guī)范，使得信息管理陷入“事倍功半”的地步。對于當今的科學信息是一次重大的飛越，為人們的生活、工作、學習帶來潛移默化的影響。數(shù)據(jù)庫技術(shù)的基本思想是對數(shù)據(jù)實行集中，統(tǒng)一，獨立的管理，用戶可以最大限度的共享數(shù)據(jù)資源。 1 房屋銷售管理系統(tǒng) 摘要 本文通過用 編寫 房地產(chǎn)銷售 管理系統(tǒng)，利用軟件工程原理，采用 面向?qū)ο蟮木幊谭椒?，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面，實現(xiàn)了 房地產(chǎn)企業(yè)銷售管理的自動化和信息化 . 本文還簡單介紹了 軟件的界面及操作方法。 數(shù)據(jù)庫系統(tǒng)實際上是一個應(yīng)用系統(tǒng)，它是在計算機硬，軟件系統(tǒng)支持下，由用戶，數(shù)據(jù)庫管理系統(tǒng)，存儲在存儲設(shè)備上的數(shù)據(jù)和數(shù)據(jù)庫應(yīng)用程序構(gòu)成的數(shù)據(jù)處理系統(tǒng)。今天我們使用計算機對 房屋銷售 服務(wù)信息進行管理，具有手工管理所無法比擬的優(yōu)點。 開發(fā)本系統(tǒng)就是為了解決產(chǎn)品售后服務(wù)信息管理中的一些不規(guī)范，使售后服務(wù)信息管理的管理向著規(guī)范化、簡單化、有效化的方向發(fā)展。 房屋銷售管理 系統(tǒng)的開發(fā)，可有效實現(xiàn)對 房屋銷售管理 的系統(tǒng)化、規(guī)范化和自動化，提高 房屋銷售管理 水平。對于房地產(chǎn)企業(yè)來說，利用計算機支持企業(yè)高效率完成樓盤銷售管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動型管理走向科學化、規(guī)范化的必要條件；而房屋銷售管理是一項瑣碎、復雜而又十分細致的工作，樓盤的銷售 ,客戶資料的管理 ,物業(yè)收費 ,以及售樓的合同協(xié)議等管理 ,一 般不允許出錯，如果實行手工操作 ,須手工填制大量的表格 ,這就會耗費工作人員大量的時間和精力，計算機進行售樓工作的管理，不僅能夠保證各項信息準確無誤、快速輸出，同時計算機 具有手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。 一 、 硬件要求 : 1 486/DX66Mhz 以上 CPU 2 內(nèi)存 16M以上 (使用 Windows NT 需要 32M以上內(nèi)存 ) 3 硬盤容 量 1GB以上 (典型安裝需要 128MB 硬盤空間 ,完全安裝須要 147MB 硬盤空間 ,外加 Microsoft 開發(fā)者文檔 67MB 硬盤空間 ) 4 EGA 以上分辨率的顯示器 . 5 一個 CDROM 驅(qū)動器 6 鼠標或其它定點設(shè)備 二 、 軟件要求 1 操作系統(tǒng)應(yīng)使用 Microsoft Windows95 及以上版本 ,或者使用 Microsoft Windows 或者更高版本 . 8 2 安裝有 或以上版本的瀏覽器 . 第三章 系統(tǒng)開發(fā)方法 建立一個管理信息系統(tǒng)，是一項復雜的軟件 工程的實施。 第四章 開發(fā)平臺和開發(fā)工具 考慮到本系統(tǒng)的性能要求，和現(xiàn)有的條件，我們選擇了 WINDOWS2021 中文版作為開發(fā)、測試和運行的平臺。它簡單易學、效率高，且功能強大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美，而且程序開發(fā)人員不必具有 C/C++編程基礎(chǔ)。 面向?qū)ο蟮某绦蛟O(shè)計 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言 (C++)不完全相同。 事件驅(qū)動編程機制 Visual Basic 通過事件來執(zhí)行對象的操作。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢 語言 SQL 數(shù)據(jù)標準，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的 SQL 的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶 /服務(wù)器 (client/server)方案。但它可以通過動態(tài)鏈接庫技術(shù)將 C/C++或匯編語言編寫的程序加入到 Visual Basic 應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。 另一方面由于這類軟件大多數(shù)是單機版的，現(xiàn)在也有不少是網(wǎng) 絡(luò)板的，但大部份都是在本地網(wǎng)絡(luò)上運行的。 16 系統(tǒng)安全性要高，需要有密碼保護 能大量減少不必要的資源，善用現(xiàn)有資源來開發(fā)。數(shù)據(jù)流圖給出系統(tǒng)組成及其內(nèi)部各元素相互間的關(guān)系，但未說明數(shù)據(jù)元素的具體含意。檢驗密碼是否正確 If Trim((1)) = Trim() Then userID = username = (2) Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 If t = 3 Then Unload Me End If 23 End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。 a