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