【正文】 .............................................. 10 第四章 系統(tǒng)設(shè)計(jì) .................................................................................................................... 13 第一節(jié) 系統(tǒng)功能設(shè)計(jì) .................................................................................................... 13 第二節(jié) 系統(tǒng)結(jié)構(gòu)設(shè)計(jì) .................................................................................................... 14 第三節(jié) 數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計(jì) .......................................................................................... 16 第五章 系統(tǒng)開發(fā)實(shí)現(xiàn) ............................................................................................................ 21 第一節(jié) 登錄模塊 .............................................................................................................. 21 第二節(jié) 系統(tǒng)管理 .............................................................................................................. 22 第三節(jié) 用戶密碼修改 .................................................................................................... 23 第四節(jié) 信息管理 .............................................................................................................. 24 第五節(jié) 查詢 ........................................................................................................................ 25 第六章 系統(tǒng)的運(yùn)行與維護(hù) .................................................................................................. 27 第一節(jié) 系統(tǒng)的配置 ......................................................................................................... 27 第二節(jié) 系統(tǒng)的維護(hù) ......................................................................................................... 27 開發(fā)總結(jié) .......................................................................................................................................... 29 致 謝 ............................................................................................................................................... 30 參考文獻(xiàn) .......................................................................................................................................... 31 第一章 引言 象其它商品一樣，樓盤銷售同 樣會(huì)受到來自社會(huì)、經(jīng)濟(jì)、市場(chǎng)以致政策方面因素的影響。 在這里我們所要理解的是房地產(chǎn)銷售所產(chǎn)生背景，房地產(chǎn)銷售原本是由房產(chǎn)公司自己管理的問題，因此分析生產(chǎn)房產(chǎn)公司的房地產(chǎn)銷售，能讓我們更清楚理解在處理房地產(chǎn)銷售時(shí)那些是需要關(guān)注的問題，對(duì)房地產(chǎn)銷售的要求到底是什么。如看房后不滿意，還可選擇別的房屋，直到滿意為止。傳統(tǒng)的以手工登記為主的房屋中介信息管理方式，效率低下、出錯(cuò)率高，耗費(fèi)了大量的時(shí)間和人力資源。只有高標(biāo)準(zhǔn)、高質(zhì)量的管理才能滿足企業(yè)的 發(fā)展需求。 Visual Basic的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象，使系統(tǒng)的開發(fā)更人性化，操作更簡(jiǎn)便。 第一節(jié) VB 介紹 Visual Basic的前身是 QBASIC，語言基礎(chǔ)是 BASIC。 使用 VB 不需要追求完美的算法和精密的邏輯，而只要充分發(fā)揮你的想象力和創(chuàng)造力，就能利用 VB 開發(fā)出各種實(shí)用的軟件了，不論是小游戲還是大型的客戶端 /服務(wù)器端應(yīng)用程序，都變得非常簡(jiǎn)單。用戶可以使用任何一種 ODBC數(shù)據(jù)源，即不僅適合于 SQL Server、 Oracle、 Access等數(shù)據(jù)庫應(yīng)用程序，也適合于 Excel 表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。 RDO(Remote Data Objects)即遠(yuǎn)程數(shù)據(jù)對(duì)象，為使用代碼來創(chuàng)建和操作一個(gè)遠(yuǎn)程 ODBC數(shù)據(jù)庫系統(tǒng)的各個(gè)部件提供了一個(gè)框架。 以下是本程序中用到的對(duì)象： Connection 對(duì)象 ： 通過 “ 連接 ” 可從應(yīng)用程序訪問數(shù)據(jù)源，連接是交換數(shù)據(jù)所必需的環(huán)境。每個(gè) Field對(duì)象對(duì)應(yīng)于 Recordset中的一列。 第三章 數(shù)據(jù)庫 Access 第一節(jié) ACCESS 介紹 過去的一些 數(shù)據(jù)庫軟件，在操作上、數(shù)據(jù)庫建立、維護(hù)等等，都相當(dāng)復(fù)雜且不易使用，但是在具備了窗口的 GUI（圖形用戶界面）特性的 ACCESS 數(shù)據(jù)庫推出之后，數(shù)據(jù)庫的建立不再是困難的事情，我們可以在 PC上簡(jiǎn)單而快速的建立出一套符合自己的數(shù)據(jù)庫。 ? 模塊對(duì)象 撰寫 VB 的程序模塊，處理較復(fù)雜的問題與需求，該功能是采用事件驅(qū)動(dòng)的模式，類似VB的處理方式。 MS SQL Server 就是用的 Transact SQL。 以前的數(shù)據(jù)庫管理系統(tǒng)為上述各類操作提供單獨(dú)的語言，而 SQL 將全 部任務(wù)統(tǒng)一在一種語言中。而數(shù)據(jù)更新所造成的風(fēng)險(xiǎn)大大超過數(shù)據(jù)查詢。 Update 語句總是包含 Where 語句，而且Update語句比較危險(xiǎn)，所以您必須明確地認(rèn)識(shí)到 Where語句的重要性， Where語句被用來指定需要更新的行。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,下面我們談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。 用戶 密碼 管理 模塊包括：用于 非管理員用戶 更改自己的系統(tǒng)口令。 樓房結(jié)構(gòu) 模塊包括：顯示添加修改刪除查詢。 銷售信息模塊包括：對(duì)新銷售單添加，和現(xiàn)有的銷 售單信息修改查詢。 成功 圖 45 系統(tǒng)流程圖 第三節(jié) 數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì)主要是進(jìn)行數(shù)據(jù)庫的邏輯設(shè)計(jì)，即將數(shù)據(jù)按一定的分類、分組系統(tǒng)和邏輯層普通用戶 管理員用戶 讀取用戶類型 用戶登錄 開 始 提示出錯(cuò) 樓房管理 銷售管理 主界面 基本信息管理 系統(tǒng)管理 管理員 次組織起來，是面向用戶的。 數(shù)據(jù)使用權(quán)限設(shè)置：針對(duì)用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權(quán)限，確保數(shù)據(jù)安全。本管理系統(tǒng)登錄界面如圖 51。 amp。初始管理員用戶和密碼都為admin。如圖 54。 第四節(jié) 信息管理 信息輸入中主要是對(duì)所有數(shù)據(jù)信息的添加、修改 、刪除的功能。 ：移動(dòng)最后一條記錄。代碼實(shí)現(xiàn)請(qǐng)參考附錄程序源代碼。編輯格式以后就可以打印。 本系統(tǒng)運(yùn)行：首先啟動(dòng) Windows2020/XP，將本系統(tǒng)拷貝到硬盤相應(yīng)地目錄下，運(yùn)行“房地產(chǎn)管理系統(tǒng) .EXE”即可。 系統(tǒng)維護(hù)的組織與管理 系統(tǒng)維護(hù)工作，首先必須建立一個(gè)維護(hù)組織，確定進(jìn)行維護(hù)工作所應(yīng)遵循的原則和規(guī)范化的過程，此外還應(yīng)建立一套適用于具體系統(tǒng)維護(hù)過程的文檔及管理措施，以及進(jìn)行復(fù)審的標(biāo)準(zhǔn)。企業(yè)的 MIS開發(fā)必須結(jié)合實(shí)際，嚴(yán)格按照軟件工程的思想進(jìn)行才能保證 MIS的高成功率和高效率 。 再次就是數(shù)據(jù)庫的建設(shè)和使用，雖然 ACCESS 數(shù)據(jù)庫的安全性和普及性很高，但我們?cè)谌粘Ｖ羞€是接觸得比較少，所以這自然又是一番努力的學(xué)習(xí)，就拿安裝配置以及連接數(shù)據(jù)庫控件方面來說就不那么容易。在這幾個(gè)月的工作和學(xué)習(xí)生活中，我收益匪淺。本文的研究一直是在他的關(guān)心和幫助下完成的，給了我莫大的幫助。39。39。39。 Trim() If Then strSql, CN, adOpenStatic, adLockOptimistic Dim i As Integer Dim k As Integer k = For i = 1 To 20 If k = 1 Then Load Txt(i) Load Lbl(i) End If Txt(i).Visible = False Lbl(i).Visible = False Next i For i = 1 To Txt(i).Visible = True Lbl(i).Visible = True Lbl(i).Caption = Trim((i 1).Name) Txt(i).Text = If i Mod 2 = 1 Then Lbl(i).Left = 50 Txt(i).Left = 1250 Else Lbl(i).Left = 4420 Txt(i).Left = 5620 End If Lbl(i).Top = 120 + Int((i 1) / 2) * 500 + 120 Txt(i).Top = Lbl(i).Top 120 Next i Txt(0).Text = 39。 39。用于記錄字段數(shù) (列 ) If Not Then For i = 0 To Val(Txt(0).Text) 1 If Not IsNull((i)) Then Txt(i + 1) = Trim((i)) Else Txt(i + 1) = End If Next i End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Combo2_Click() 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