【正文】 ......................................36 結(jié) 論 .............................................................................................................................................................37 致 謝 .............................................................................................................................................................37 參考文獻 ......................................................................................................................................................38 4 第一章 引言 本軟件使用 Microsoft Basic 進行編寫。數(shù)據(jù)庫技術(shù)的基本思想是對數(shù)據(jù)實行集中，統(tǒng)一，獨立的管理，用戶可以最大限度的共享數(shù)據(jù)資源。 數(shù)據(jù)庫應(yīng)用系統(tǒng)（ DATABASE APPLICATION SYSTEMS DBAS） 管理信息系統(tǒng) 開放式信息服務(wù)系統(tǒng) 一個數(shù)據(jù)庫應(yīng)用系統(tǒng)通常是由數(shù)據(jù)庫和應(yīng)用程序兩部分組成，它們是在數(shù)據(jù)庫管理系統(tǒng)支持下設(shè)計和開發(fā)出來的。對于當(dāng)今的科學(xué)信息是一次重大的飛越，為人們的生活、工作、學(xué)習(xí)帶來潛移默化的影響。面對目前的實際狀況，迫切需要開發(fā)一個新系統(tǒng)來適應(yīng)這一些工作 . 開發(fā)背景和開 發(fā)目的 當(dāng)今社會 ,隨著 房地產(chǎn)企業(yè) 規(guī)模不斷擴大，有關(guān)服務(wù)的各種信息也成倍增長 ,特別是一些比較大的 房地產(chǎn)企業(yè) ,而面對龐大的信息量，有必要開發(fā)一套與之相適應(yīng)的信息管理系統(tǒng)來提高管理工作的效率。這樣不僅僅浪費了大量的人力物力，而且由于人工管理存在著大量的不可預(yù)知性，造成售后信息管理的一些不規(guī)范，使得信息管理陷入“事倍功半”的地步。 現(xiàn)在 房屋銷售企業(yè) 之間競爭比較激烈，所以如何提高 服務(wù) 質(zhì)量是首要問題。在現(xiàn)在以市場和服務(wù)為本的市場競爭中，為 企業(yè) 提供堅強的后 盾啊。只有高標(biāo)準(zhǔn)、高質(zhì)量的管理才能滿足企業(yè)的發(fā)展需求。 利用計算機實現(xiàn)企業(yè)的銷售管理勢在必行。 Visual Basic的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡潔操縱數(shù)據(jù)庫的智能化對象，使系統(tǒng)的開發(fā)更人性化，操作更簡便。在 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)。 結(jié)構(gòu)化生命周期法簡介 結(jié)構(gòu)化生命周期法是一種傳統(tǒng)的管理信息系統(tǒng)開發(fā)方法，其基本思想是把整個系統(tǒng)開發(fā)過程分成若干個階段，每個階段進行若干活動，每項活動應(yīng)用一系列標(biāo)準(zhǔn)、 規(guī)范、方法和技術(shù)，完成一個或多個任務(wù)，形成符合給定規(guī)范的產(chǎn)品。 通常采用原型法需以下四個階段： （一）明確用戶的基本要求 （二）研制系統(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)實施階段采用原型法。 開發(fā)語言介紹 現(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎ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)用程序。如果對界面的效果不滿意，還要回到程序中修改。 Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。每個對象以圖形方式顯示在界面上，都是可視的。在設(shè)計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。 在用 Visual Basic 設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server， Oracle 等。 Visual Basic 提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進行通信。 動態(tài)鏈接庫 (DLL) Visual Basic 是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機器 14 硬件的操作不太容易實現(xiàn)。由此可見在，開發(fā)此系統(tǒng)在經(jīng)濟上是完全可行的。 15 現(xiàn)有系統(tǒng)的分析 有關(guān)銷售管理系統(tǒng)的軟件市面上有不少，企業(yè)的員工也試用過一些，但總覺得不是很好用，不能完全滿足我們的要求，所以都放棄用這些軟件了，改為每次輸入數(shù)據(jù)后，用手工更改數(shù)據(jù)庫存量和計算樓盤銷售利潤，隨著業(yè)務(wù)的發(fā)展，數(shù)據(jù)量越來越大，用手工計算就很麻煩了，所以，迫切希望有一套完全適合 房屋 銷售管理應(yīng)用的軟件，以減輕公司員工的工作負擔(dān)。用戶在登錄界面上填寫任意的用戶名和用戶密碼（中文或英文）；系統(tǒng)提供登錄過程中的出錯處理機制和操作成功處理機制。 具體為 : 要用戶界面要友好，使用方便，容錯能力強，適應(yīng)各種水平的用戶。本系統(tǒng)主要是以數(shù)據(jù)流圖、數(shù)據(jù)字典和 ER圖為主要描述工具來勾畫系統(tǒng)的概貌。 17 數(shù)據(jù)詞典 數(shù)據(jù)詞典（ Data Dictionary ,DD）是結(jié)構(gòu)化分析方法的另一個工具，它與數(shù)據(jù)流圖配合，能清楚地表達數(shù)據(jù)處理的要求。判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where czyh=39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else 39。 amp。 39。 amp。 amp。按照車牌號查詢 If = True Then sql = select * from 客戶資料 where Hon_carcode = 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。合同編號 (1) = 39。折扣率 Else (5) = Null End If (6) = CCur(Val() * 1000) 39。地下室編號 If Then (10) = 39。認購日期 (14) = 39。購買人身份證號 (3) = 39。車位編號 (8) = CCur() 39。還款方式 (12) = 39。 Val() = adUseClient sql, conn, adOpenKeyset, adLockPessimistic For i = 1 To (0) = Val() = i = 0 (1) = = 1 (2) = CCur() = 2 (3) = Next i 39。在設(shè)計應(yīng)用程序時，應(yīng)仔細考慮每個組件提供的功能以及與其他組件之間的關(guān)系。對書本的學(xué)習(xí)完成以后，開始著手對數(shù)據(jù)庫系統(tǒng)開始制作，開始對系統(tǒng)的需求分析不足，造成多次重做。 總的來說，做完一個數(shù)據(jù)庫的收獲不僅僅是技術(shù)上的，對事情的宏觀的控制有了更深的看法。在此我向他們至以最高的敬意 . 參考文獻 [1] 《 Visual Basic 中文版高級應(yīng)用與開發(fā)指南》 張紅軍 王虹 等 人民郵電出版社 [2] 《 VB 課程設(shè)計與系統(tǒng)開發(fā)案例》伍俊良 主編 清華大學(xué)出版社 [3] 《 Visual Basic 教育信息化系統(tǒng)開發(fā)實例導(dǎo)航》 林陳雷 郭安源 等 人民郵電出版社 [4] 《 Visual Basic 數(shù)據(jù)