畢業設計-房屋銷售管理系統—論文-預覽頁

　

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