【正文】 基本信息 房 型 信 息 樓房結構和類型信息 添加新樓盤 添加新樓房 添加新房屋 管網(wǎng)信息 銀行名稱 進入銷售狀態(tài) 系統(tǒng)總流程 圖：如圖 45。數(shù)據(jù)庫設計時需要綜合企業(yè)各個部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個數(shù)據(jù)之間的關系，按照 DBMS 提供的功能和描述工具，設計出規(guī)模適當、正確反映數(shù)據(jù)關系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。針對選擇的 DBMS，進行數(shù)據(jù)庫結構定義。關系型數(shù)據(jù)庫要盡量按 關系規(guī)范化要求進行數(shù)據(jù)庫設計，但為使效率高，規(guī)范化程度應根據(jù)應用環(huán)境和條件來決定。 存儲設備和存儲空間組織：確定數(shù)據(jù)的存放地點、存儲路徑、存儲設備等，備份方案，對多版本如何保證一致性和數(shù)據(jù)的完整性。 數(shù)據(jù)字典設計：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設計，便于維護和修改。這一步設計完成后數(shù)據(jù)庫和數(shù)據(jù)結構設計工作基本完成，只待系統(tǒng)實現(xiàn)時將數(shù)據(jù)分析和數(shù)據(jù)字典的內容代入到所設計的數(shù)據(jù)整體關系結構中，一個規(guī)范化數(shù)據(jù)庫系統(tǒng)結構就建立起來了。部分表結構如下： 房屋信息表結構如圖：圖 46 圖 46房屋信息表 房型信息表結 構如下：圖 47 圖 47 房型信息表 公司基本信息表：圖 48 圖 48公司基本信息表 客戶信息表：圖 49 圖 49 客戶信息表 樓房信息表：圖 410 圖 410 樓房信息表 樓盤信息表：圖 411 圖 411 樓盤信息表 銷售信息表：圖 412 圖 412 銷售信息表 員工信息表 :圖 413 圖 413員工信息表 用戶信息表：圖 414 圖 414 用戶信息表 其他的表請參考數(shù)據(jù)庫，表名如下：圖 415 圖 415表名 第五章 系統(tǒng)開發(fā)實現(xiàn) 應用程序是用 VB 開發(fā)的，界面設計的簡單明了。 第一節(jié) 登錄模塊 登錄界面是用戶最先看到的系統(tǒng)的界面，所以直觀上給用戶的感覺很重要，所以做一個好的界面，提高軟件的親和力。 圖 51 登錄界面 根據(jù)登錄模塊的功能，管理員和普通用戶界面統(tǒng)一在一起。管理員有所有的權限，普通用戶只有檢索和改本人的密碼權。 數(shù)據(jù)庫的連接采用的是 ADO 對象。Data Source= amp。 \。詳細代碼實現(xiàn)請參考附錄程序源代碼。在系統(tǒng)功能設計中，系統(tǒng)維護功能主要有添加用戶，刪除用戶，和管理員密碼修改，如圖 53 所示。添加、刪除用戶是在數(shù)據(jù)表用戶信息表中添加和刪除用戶及權限。管理員密碼數(shù)據(jù)庫的用戶信息表項里。 添加用戶：在用戶名稱中輸入要添加用戶的名，原始密碼為 12345，可以修改，之后點添加。如果系統(tǒng)已經(jīng)添加的該用戶，系統(tǒng)自動提示，重新添加。 圖 52 管理系統(tǒng)界面 圖 53 系統(tǒng)管理 第三節(jié) 用戶密碼修改 用戶密碼修改是指普通和管理員用戶的密碼修改。 圖 54 用戶密碼修改 修改密碼：在舊密碼輸入你的登錄密碼，在新密碼中輸入新密碼，在新密碼核實中再輸入一次新密碼。系統(tǒng)提示。這樣下一次再進入本系統(tǒng)時本用戶的密碼就改為新密碼。代碼實現(xiàn)請參考附錄程序源代碼。也是本次開發(fā)的重點。其中字典信息可以 在下拉列表可以選擇，以 員工信息表 為例介紹。 各按鈕的功能：（所有管理界面） ：移動到第一條記錄。 ：移動到下一條記錄。 添加：是添加一新的記錄。 刪除：是刪除當前的記錄。 修改：移動到要修改的記錄，點修改，修改完后，點保存后就修改完畢。這樣有利于信息檢索。 圖 55 員工信息輸入界面 圖 56 信息瀏覽 第五節(jié) 查詢 查詢打印模塊包括 客戶信息 、 員工信息 、 銷售信息表，客戶報表的打印 ，查詢以客戶信息表為例，如圖 57所示。在后面下拉框中選擇條件如圖 58。在查詢完后，可以在如圖 57 中輸出 Excel報表。 檢索完之后，點 Excel報表輸出，系統(tǒng)自動輸出成報表。 代碼實現(xiàn)請參考附錄程序源代碼。 第六章 系統(tǒng)的運行與維護 管理信息系統(tǒng)在完成系統(tǒng)實施、投入正常運行之后，就進入了系統(tǒng)運行與維護階段。 內存： 32MB以上 。 打印機：推薦 EPSON LQ1600KII 軟件配置要求 ： WINDOWS2020/xp中文版操作系統(tǒng)。 第二節(jié) 系統(tǒng)的維護 系統(tǒng)維護的目的是保證管理信息系統(tǒng)正常而可靠地運行，并能使系統(tǒng)不斷得到改善 和提高，以充分發(fā)揮作用。系統(tǒng)維護的工作量往往是很大的，其費用大約占整個生命周期的 60%，所以我們必須對系統(tǒng)維護給予足夠的重視。 （ 2）適應性維護 使系統(tǒng)適用環(huán)境的變化而進行的維護。 （ 4）預防性維護 為將要發(fā)生的變化或調整而進行的主動性維護。 本系統(tǒng)的維護模塊 本系統(tǒng)的維護功能主要是為保證系統(tǒng)能夠正常的運行。 經(jīng)過 二 個多月的設計和開發(fā)， 我開發(fā)的 房地產銷售 管理系統(tǒng) 已經(jīng) 開發(fā)完 畢。這些都有待進一步改善。成功 MIS的基礎是科學的管理加上科學的開發(fā)方式。 1 ．本次的課題設計首先分析了管理系統(tǒng)目前在國內外的發(fā)展狀況及需求分析。 3 ．在解決了開發(fā)系統(tǒng)的基本問題之后，進行系統(tǒng)數(shù)據(jù)庫設計，并做出系統(tǒng)總體規(guī)劃，完成系統(tǒng)的具體實現(xiàn)。 首先便是調研的不充分。 其次是軟件的編程問題，由于以前對 VB 只是了解并不能夠 靈活運用，所以在畢設期間進行了苦讀，終于可以基本掌握了常用控件的用法和語句編程。 然后，會用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過各方面的比較，我選擇了 ADO，通過 ADO控件與數(shù)據(jù)庫中各表進行連接，同時也用到少數(shù)編程實現(xiàn) VB和 ACCESS數(shù)據(jù)庫的連接。 隨后便是整體設計的問題，只是軟件工程的重要部分，一個好的軟件的開發(fā)必須要全面而實用，盡量把所有的問題都考慮進去，記得當時我們的軟件工程老師就說過，一個制作好的軟件和差一些的軟件最大的區(qū)別就在于好的軟件把所有的可能性，所有易出錯的地方和Bug都考慮到了，自然實用性也就上去了。 最后就是從一而終的問題了，在開發(fā)過程中我遇到了許許多多的問題，很多地方都不明白，經(jīng)常有打退堂鼓的想法，我經(jīng)常的請教同學和老師，最后的成果雖然不很完美，但我盡力了，并有所收獲。他嚴謹、認真、負責的工作態(tài)度給我留下了深刻的印象。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，即使在百忙中，抽出了很多時間對我的論文進行的批改和修正。在我不能夠去學校讓老師當面指導的情況下，還是在通過電話和 Email 進行交流和傳遞信息。 給予我很大的幫助，不僅幫我解答了不少的難點，還給我提出了許多建議，我會以他們?yōu)榘駱樱玫嘏Α? 幾個月的時間瞬間即過，值此論文完成之際，我再一次要衷心地感謝我的導師老師。同時感謝同組成員 ,我們在一起互相討論 ,學習 ,解決了不少的難題。 最后，我衷心地感謝所有關心和幫助過我的人們。39。添加 nModeSys = 2 39。添加操作 Dim IDmax As String Dim i As Integer For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i = True End Sub Private Sub cmdRegDel_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLast_Click() 39。39。39。39。 Dim i As Integer On Error GoTo Err If Then If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Else If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegPrevious_Click() 39。39。39。保存 On Error GoTo Err Dim i As Integer If nModeSys = 1 Then If Then For i = 0 To Val(Txt(0).Text) 1 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i ElseIf nModeSys = 2 Then For i = 0 To Val(Txt(0).Text) 1 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i End If nModeSys = 0 = False MsgBox 操作已成功 !, vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Combo1_Click() 39。選擇數(shù)據(jù)表 On Error GoTo Err Dim strSql As String strSql = select * from amp。39。39。 Txt(CurrentIndex).Text = Trim() = False If strTableName = 房屋信息表 Then If Lbl(CurrentIndex).Caption = 房型名稱 Then Dim rsZD As New If Then select * from 房 型 信 息 表 where 房型名稱 =39。 Trim(Txt(CurrentIndex).Text) amp。, CN, adOpenStatic, adLockOptimistic If Not Then For i = 1 To 5 If Not IsNull((i)) Then Txt(CurrentIndex + i).Text = (i) End If Next i End If End If End If On Error GoTo Err Exit Sub Err: MsgBox , vbInform