【正文】 的操作任務(wù)，比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。 MS SQL Server 就是用的 Transact SQL。 SQL的集合特性允許一條 SQL語句的結(jié)果作為另一條 SQL語句的輸入。 以前的數(shù)據(jù)庫管理系統(tǒng)為上述各類操作提供單獨(dú)的語言，而 SQL 將全 部任務(wù)統(tǒng)一在一種語言中。下面是 DDL命令 ： CREATE TABLE， ALTER TABLE， DROP TABLE， CREATE INDEX， DROP INDEX。而數(shù)據(jù)更新所造成的風(fēng)險大大超過數(shù)據(jù)查詢。添加的值來自數(shù)據(jù)庫自身的行，在某些特定的狀 態(tài)下，這是非常有用的。 Update 語句總是包含 Where 語句，而且Update語句比較危險，所以您必須明確地認(rèn)識到 Where語句的重要性， Where語句被用來指定需要更新的行。 UNION子句 ： 有些時候，需要一起瀏覽多個查詢的結(jié)果、組合它們的輸出，我們可以使用 UNION關(guān)鍵字。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情 ,下面我們談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。系統(tǒng) 不但含有 房地產(chǎn)銷售企業(yè) 日常項(xiàng)目的信息，而且還包含了對 信息 的查詢 檢索 功能。 用戶 密碼 管理 模塊包括：用于 非管理員用戶 更改自己的系統(tǒng)口令。 基本資料管理主要包括： 公司信息 模塊包括：顯示修改刪除查詢。 樓房結(jié)構(gòu) 模塊包括：顯示添加修改刪除查詢。 樓房銷售管理主要包括： 樓盤信息模塊包括：對新樓盤添加，和現(xiàn)有的樓盤信息修改查詢。 銷售信息模塊包括：對新銷售單添加，和現(xiàn)有的銷 售單信息修改查詢。 日期格式：采用 YYYYMMDD格式，用日期控件來處理（ TPDicker）。 成功 圖 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)和邏輯層普通用戶 管理員用戶 讀取用戶類型 用戶登錄 開 始 提示出錯 樓房管理 銷售管理 主界面 基本信息管理 系統(tǒng)管理 管理員 次組織起來，是面向用戶的。 數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱、類型、表示形式、缺省值、校驗(yàn)規(guī)則、是否關(guān)鍵字、可否為空等。 數(shù)據(jù)使用權(quán)限設(shè)置：針對用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權(quán)限，確保數(shù)據(jù)安全。 根據(jù)系統(tǒng)功能設(shè)計(jì)，把數(shù)據(jù)庫命名： ，在 Access數(shù)據(jù)庫創(chuàng)建以下幾個表：樓房信息表、樓盤信息表、房屋信息表、客戶信息表、銷售信息表、員工信息表等。本管理系統(tǒng)登錄界面如圖 51。如果三次登錄都出錯，系統(tǒng) 自動退出。 amp。 第二節(jié) 系統(tǒng)管理 登錄系統(tǒng)后進(jìn)入 主界面如圖 52。初始管理員用戶和密碼都為admin。完畢。如圖 54。操作已成功！。 第四節(jié) 信息管理 信息輸入中主要是對所有數(shù)據(jù)信息的添加、修改 、刪除的功能。界面如圖 55。 ：移動最后一條記錄。 保存：是在添加和修改記錄后，保存記錄。代碼實(shí)現(xiàn)請參考附錄程序源代碼。再輸入關(guān)鍵字，點(diǎn)檢索 按鈕。編輯格式以后就可以打印。 第一節(jié) 系統(tǒng)的配置 硬件配置要求： CPU： PII200以上。 本系統(tǒng)運(yùn)行：首先啟動 Windows2020/XP，將本系統(tǒng)拷貝到硬盤相應(yīng)地目錄下，運(yùn)行“房地產(chǎn)管理系統(tǒng) .EXE”即可。 系統(tǒng)維護(hù)的內(nèi)容 按照維護(hù)對象的不同，系統(tǒng)維護(hù)的內(nèi)容可分為以下幾類： （ 1）系統(tǒng)應(yīng)用程序維護(hù) （ 2）數(shù)據(jù)維護(hù) （ 3）代碼維護(hù) (4）硬件設(shè)備維護(hù) 系統(tǒng)維護(hù)的類型 系統(tǒng)維護(hù)的重點(diǎn)是系統(tǒng)應(yīng)用軟件 的維護(hù)工作，按照軟件維護(hù)的不同性質(zhì)，可以劃分為下面四種類型： （ 1）糾錯性維護(hù) 診斷和修正系統(tǒng)中遺留的錯誤。 系統(tǒng)維護(hù)的組織與管理 系統(tǒng)維護(hù)工作，首先必須建立一個維護(hù)組織，確定進(jìn)行維護(hù)工作所應(yīng)遵循的原則和規(guī)范化的過程，此外還應(yīng)建立一套適用于具體系統(tǒng)維護(hù)過程的文檔及管理措施，以及進(jìn)行復(fù)審的標(biāo)準(zhǔn)。但是由于畢業(yè)設(shè)計(jì)時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。企業(yè)的 MIS開發(fā)必須結(jié)合實(shí)際，嚴(yán)格按照軟件工程的思想進(jìn)行才能保證 MIS的高成功率和高效率 。 總的來說，在這次的畢業(yè)設(shè)計(jì)種遇到了不少的問題，大部分得到了很好的解決，但也有少部分遺留的問題。 再次就是數(shù)據(jù)庫的建設(shè)和使用，雖然 ACCESS 數(shù)據(jù)庫的安全性和普及性很高，但我們在日常中還是接觸得比較少，所以這自然又是一番努力的學(xué)習(xí)，就拿安裝配置以及連接數(shù)據(jù)庫控件方面來說就不那么容易。在這一點(diǎn)上，我還相當(dāng)欠缺。在這幾個月的工作和學(xué)習(xí)生活中，我收益匪淺。這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，衷心地感謝他耐心的 輔導(dǎo)！ 其次我要感謝的是以前的同班同學(xué)，在一開始的調(diào)研和結(jié)構(gòu)化設(shè)計(jì)中他給予了我很大的幫助，雖然后來由于種種原因沒能夠繼續(xù)指導(dǎo)我，但我還是要感謝他。本文的研究一直是在他的關(guān)心和幫助下完成的，給了我莫大的幫助。 參考文獻(xiàn) , 《 Database system implementation》 ,機(jī)械工業(yè)出版社 , 2020 GarcialMolina , Jeffrey , Jennifer Widom,《 An introduction to Database Systems(Seventh Edition), 機(jī)械工業(yè)出版社 ,2020 , 郭安源 , 葛曉東 , 《教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 , 人民郵電出版社 ,2020 ,《數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》 ,人民郵電出版社 ,2020 , 王虹 等 《 Visual basic 中文版高級應(yīng)用與開發(fā)指南》 , 人民郵電出版社 , 2020 主編 等 《 VB 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》清華大學(xué)出版社 , 2020 ，《 Visual Basic 數(shù)據(jù)庫開發(fā)及工程實(shí)例》，人民郵電出版社 ， 《 Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社， 2020 ，汪遠(yuǎn)征，《 Visual Basic 程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社， 2020 ，周學(xué)明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航》，人民郵電出版社，2020 ，王珊，《數(shù)據(jù)庫系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社， 2020 附錄：源代碼 Dim nModeSys As Integer Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdRegAdd_Click() 39。39。刪除 On Error GoTo Err Dim ss As Integer ss = MsgBox(真的刪除該記錄嗎？ , vbCritical + vbOKCancel, 系統(tǒng)提示 ) If ss = 1 Then If And Then For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i Else = adFilterNone 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 Else For i = 1 To Val(Txt(0).Text) Txt(i) = Next i End If End If End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub cmdRegFirst_Click() 39。39。 strLook = Trim() If strLook Then 1 End If End Sub Private Sub cmdRegNext_Click() 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。 39。 amp。用于記錄字段數(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。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 cmdRegSave_Click() 39。39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(