畢業設計-房屋銷售管理系統—論文-文庫吧在線文庫

　　

【正文】 的偏愛。一開始，人們往往使用手工作坊式的軟件開發方法，靠個人的力量編寫各種小型程序；但是隨著計算機硬件技術的飛速發展，計算機軟件在各個領域中的作用日益突出，那種多年來被人們沿用的手工作坊式的開發方法，已經在軟件產品的質量、成本及開發時間等方面無法滿足需求。 開發工具的選擇 針對目前世界上流行的大量軟件和開發工具，經過認真分析其優缺點，結合房屋銷售管理系統的需要和目前的硬件環境，我們選用微軟 WINDOWS 平臺下的Visual Basic （簡寫為 ）作為軟件開發工具。 總的來說， Visual Basic 具有以下特點： 可視化編程： 用傳統程序設計語言設計程序時，都是通過編寫程序代碼來設計用戶界面，在設計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上， Visual Basic 自動生成對象的程序代碼并封裝起來。例如，命令按鈕是一個對象，當用戶單擊該按鈕時，將產生一個“單擊 ”(CLICK)事件，而在產生該事件時將執行一段程序，用來實現指定的操作。當原始數據變化時，可以自動更新鏈接的數據。而且，由于系統能夠在未來較長的一段時期內穩定地發揮作用，這對于房屋企業的辦公自動化管理，節省企業的人力、物力資源等都有很大的幫助。因此系統的開發方向應當是面向網絡版的 房屋 管理系統開發 .這點在今后的學習中將不斷完善 . 系統的安全性分析 安全系統的需求定義： 1） 系統提供用戶登錄功能（進行用戶身份驗證），并且用戶名和用戶編號是唯一的。系統分析的主要成果是系統的邏輯模型。 首先說明各符號的代表的意義： ⊿ = 被定義為； ⊿ + 與 ； （如， x = a + b ,表示 x 由 a 和 b 組成） ⊿ [...|...] 或 ； （如 , x = [a , b],x = [a | b]，表示 x由 a或由 b 組成） ⊿ {...} 重復；（如， x = {a},表示 x由 0個或多個 a組成） 如列舉用戶登錄模塊的定義如下 : 用戶登錄模塊 ◎ 用戶登錄的定義格式 ： 用戶名 = [{字母 }， {數字 }] 用戶 = 管理員 密 碼 = [{字母 }， {數字 }] 用戶驗證表 =用戶名 +密碼 另一種方式是以 ER圖來描述數據之間的關聯 . 如系統用戶表的 ER圖如下 : 系統管理 ID編號 用戶名 密碼 18 系統用戶表 ER 圖 第六章 系統的設計 系統流程圖 設計 通過對該系統的研究 ,將系統數據 house 分為以下幾個表 .合同表 .戶型表 .客戶資料表 .樓盤表 .收費表 .收款登記表 .銷售人員表 .系統管理表以及預計付款表等幾個表 .各表的具體設計結構如下 : 合同表 房屋銷售 管理系統 房屋管理 客戶管理 收費管理 售樓管理 系統管理 戶型登記 樓盤登記 樓盤查詢 客戶資料登記 客戶資料查詢 收費登記 收費查詢 售樓人員登記 售樓合同管理 收款管理 銷售人員查詢 售樓合同查詢 收款情況查詢 退出系統 19 戶型表 : 客戶資料表 : 樓盤表 : 收費表 : 20 收費登記表 售樓人員表 : 系統管理表 : 預計付款表 21 其系統主界面設計運行效果圖如下 : 登錄窗體的設計 其運行效果圖如下 : 22 其具體的設計如下 : 新建一個窗體 .在窗體上放上二個 label 控件 ,二個 TextBox 控件 ,二個CommandButton 控件 .其屬性的設置比較簡單 ,請參照上面的窗體中的文字顯視 .我們具體分析一下確定按鈕的源碼 ,如下 : Private Sub cmdok_Click() Dim sql As String Dim rs_login As New If Trim() = Then 39。 _ data source= amp。 amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。 39。銷售人員編號 If Then (5) = CSng() 39。貸款銀行 (13) = 39。現金折扣 (7) = 39。合同簽訂日期 sql = select * from 預計付款 where 預計付款 .Add_pactid = amp。通過老師的幫助才慢慢的有了一點體會。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都是一種巨大的幫助和財富 ,忠心感謝指導老師 38 的耐心的輔導。在對表單的制作過程中，對窗體的尺寸的把握，對各個控件尺寸的把握是比較困難的，各個控件在表單中的布局也非常重要。 MsgBox 修改成功！ , vbOKOnly + vbExclamation, Exit Sub modifyerror: MsgBox 35 End Sub 合同作廢的源碼如下 : Private Sub cmddel_Click() Dim answer As String Dim i As Integer Dim sql As String On Error GoTo delerror answer = MsgBox(確定要作廢嗎？ , vbYesNo, ) If answer = vbYes Then sql = select * from 合同 where 合同 .Pct_ID = amp。樓盤價款 (9) = 39。合同簽訂日期 savegrid MsgBox 簽訂成功！ , vbOKOnly + vbExclamation, = False = 新合同 = True = True Else = 簽訂合同 = 未簽訂 sql = select * from 合同 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = CStr((0) + 1) = False = False = = = = = = = = = = = = 33 = = = = = With gridhetong .ScrollBars = flexScrollBarBoth .FixedCols = 0 .Rows = 5 .Cols = 2 .SelectionMode = flexSelectionByRow For i = 0 To .Rows 1 .RowHeight(i) = 315 Next For i = 0 To .Cols 1 .ColWidth(i) = 1300 Next i End With = 0 = 0 = 日期 = 1 = 金額 End If Exit Sub saveerror: MsgBox End Sub 修改合同的源碼如下 : Private Sub cmdmodify_Click() On Error GoTo modifyerror Dim sql As String Dim i As Integer If Trim() = Then MsgBox 購買人身份證號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 銷售人員編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If sql = select * from 合同 where 合同 .Pct_ID = amp。現金折扣 32 (7) = 39。 _ and 樓盤 .hos_hstid = 戶型 .Hst_ID = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (4) = (2) 39。 amp。 39。 \ connectionstring t = 0 End Sub 房屋管理模塊的設計 (因為該系統所設計的窗體比較多 ,故我們 將每一人模塊 選取有代表性 的一個 窗體進行重點描述 .: 1. 戶型登記 分析按鈕源碼如下 : 增加按鈕的源碼為 Private Sub cmdadd_Click() On Error GoTo adderror If = 保存 Then = 增加 24 If Trim() = Then MsgBox 戶型編號不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 請選擇戶型編號！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 建筑面積不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Trim() = Then MsgBox 套內面積不能為空！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If If Not IsNumeric() Then MsgBox 建筑面積請輸入數字！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 套內面積請輸入數字！ , vbOKOnly + vbExclamation, Exit Sub End If Dim i As Integer For i = 0 To 1 If (0) = Then MsgBox 戶型編號重復！ , vbOKOnly + vbExclamation, 出錯啦！ Exit Sub End If Next i (0) = (1) = CSng() (2) = CSng() 25 (3) = (4) = (5) = MsgBox 添加成功！ , vbOKOnly + vbExclamation, OK With gridhuxing .Rows = + 1 .Row = 1 .Col = 0 .Text = .Col = 1 .Text = .Col = 2 .Text = .Col = 3 .Text = .Col = 4 .Text = .Col = 5 .Text =