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