【正文】 onditionDelete 語句標準語法：DELETE FROM tablename WHERE condition在信息管理系統中，我們往往會遇到歸類、匯總、映射、索引、子查詢等復雜操作，相應的支持與實現如下：GROUP BY方法：GROUP BY子句語法為：SELECT column1, SUM(column2)FROM listoftablesGROUP BY columnlist。背景設置管理模塊包括：界面的顏色和圖片的自定義設置。檢索信息管理主要包括：員工信息包括：所有字段的查詢，也包括模糊查詢（like）和Excel輸出。數據字典設計：用數據字典描述數據庫的設計，便于維護和修改。 \。圖54 用戶密碼修改修改密碼：在舊密碼輸入你的登錄密碼，在新密碼中輸入新密碼，在新密碼核實中再輸入一次新密碼。添加：是添加一新的記錄。代碼實現請參考附錄程序源代碼。 本系統的維護模塊本系統的維護功能主要是為保證系統能夠正常的運行。然后，會用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過各方面的比較，我選擇了ADO，通過ADO控件與數據庫中各表進行連接，同時也用到少數編程實現VB和ACCESS數據庫的連接。同時感謝同組成員,我們在一起互相討論,學習,解決了不少的難題。 DateChange(Date) amp。39。Data Source= amp。39。39。用戶密碼 Call Userpasword_ClickCase 4 39。39。39。 0 amp。 0 amp。39。 Call FindXS_ClickEnd SelectEnd SubPrivate Sub Userpasword_Click() 39。關于 1End SubPrivate Sub sysManager_Click() 1End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 1 39。圖片 = LoadPicture(strS) , , , , , 0, 0, , Else 39。設置On Error GoTo ErrIf = True Then = BMP文件|*.bmp|JPG文件|*.jpg|GIF文件|*.gif|所有文件|*.*strSss = End IfIf = True ThenstrSss = End IfErr:End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click() 39。39。 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 IfEnd IfExit SubErr:MsgBox End SubPrivate Sub Form_Load() = = = End SubPrivate Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_Load()(1).Text = 系統關于End SubPrivate Sub Command1_Click() 39。給予我很大的幫助，不僅幫我解答了不少的難點，還給我提出了許多建議，我會以他們?yōu)榘駱?，更好地努力。首先便是調研的不充分。（2）適應性維護 使系統適用環(huán)境的變化而進行的維護。在查詢完后，可以在如圖57中輸出Excel報表。各按鈕的功能：（所有管理界面）：移動到第一條記錄。如果系統已經添加的該用戶，系統自動提示，重新添加。數據庫的連接采用的是ADO對象。關系型數據庫要盡量按關系規(guī)范化要求進行數據庫設計，但為使效率高，規(guī)范化程度應根據應用環(huán)境和條件來決定。樓房信息模塊包括：對新樓房添加，和現有的樓房信息修改查詢。用戶權限主要任務是提高系統安全性和使用性，為系統提供良好的維護，如用戶管理可以為用戶提供權限服務。多行 Insert 語句為拷貝數據提供了一種緊湊而高效的方法。統一的語言：SQL可用于所有用戶的DB活動模型，包括系統管理員、數據庫管理員、 應用程序員、決策支持系統人員及許多其它類型的終端用戶。216。MoveFirst、MoveLast、MoveNext 和MovePrevious方法：在指定 Recordset 對象中移動到第一個、最后一個、下一個或前一個記錄并使該記錄成為當前記錄。ADO的對象模型是所有數據訪問接口對象模型中最簡單的一種。例如在VB的集成開發(fā)環(huán)境中就包括了以下一些主要元素：工具欄、工具箱、工程管理器窗口、屬性窗口、窗體設計器、代碼編輯器窗口等；和VB類似，Delphi的IDE中具有主控制窗體、對象查看窗口和窗體設計器。它簡單易學、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎。特別對于通過電話咨詢房源信息的客戶來說，更是無法快速有效的提供房源信息。國外的現狀：法國房產中介業(yè)歷史悠久，形成了一套完善的法律和管理辦法，實行從幫助尋找客戶到簽約、管理等“一條龍”服務。總的說來，房地產銷售系統就是通過集中房地產銷售信息，對房產公司的管理進行調控。在這里我們所要理解的是房地產銷售所產生背景，房地產銷售原本是由房產公司自己管理的問題，因此分析生產房產公司的房地產銷售，能讓我們更清楚理解在處理房地產銷售時那些是需要關注的問題，對房地產銷售的要求到底是什么。傳統的以手工登記為主的房屋中介信息管理方式，效率低下、出錯率高，耗費了大量的時間和人力資源。Visual Basic的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數據窗口這一方便而簡潔操縱數據庫的智能化對象，使系統的開發(fā)更人性化，操作更簡便。使用VB不需要追求完美的算法和精密的邏輯，而只要充分發(fā)揮你的想象力和創(chuàng)造力，就能利用VB開發(fā)出各種實用的軟件了，不論是小游戲還是大型的客戶端/服務器端應用程序，都變得非常簡單。RDO(Remote Data Objects)即遠程數據對象，為使用代碼來創(chuàng)建和操作一個遠程ODBC數據庫系統的各個部件提供了一個框架。每個Field對象對應于Recordset中的一列。 窗體設計對象可以設計用戶接口，用來輸入并處理數據。非過程化語言：SQL是一個非過程化的語言，因為它一次處理一個記錄，對數據提供自動導航。用于修改數據庫內容的 SQL 語句主要有以下三個：Insert，向一個表中加入新的數據行；Update，更改數據庫中已經存在的數據；Delete，從一個表中刪除數據行；Insert標準語法：INSERT INTO table_name (col1, col2...) VALUES(value1, value2...)。主要功能有對樓盤信息、員工信息、客戶信息等進行管理和檢索，以及對系統自身的用戶權限管理。管網信息模塊包括：顯示添加修改刪除查詢。數據庫設計的步驟是：數據庫結構定義：目前的數據庫管理系統（DBMS）有的是支持聯機事務處理CLTP（負責對事務數據進行采集、處理、存儲）的操作型DBMS，有的可支持數據倉庫、有聯機分析處理CLAP（指為支持決策的制定對數據的一種加工操作）功能的大型DBMS，有的數據庫是關系型的、有的可支持面向對象數據庫。系統自動判斷用戶的要權限。代碼實現請參考附錄程序源代碼。其中客戶信息、銷售信息、樓房信息等。在菜單中可以選擇客戶信息查詢，在檢索名稱中輸入要檢索的字段。換言之，系統維護就是為了保證系統中的各個要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。2 ．從解決開發(fā)系統的基本問題入手，討論了研究和開發(fā)本系統的可行性，并對開發(fā)工具及其語言進行選擇。使得我的論文不斷完完美，對數據庫和VB程序有了更深的學習。 amp。判斷密碼是否為空 MsgBox 請輸入密碼！, vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。普通用戶權限 IsUserMode = 2 Else 39。order by 組編號,戶號,成員號, CN, adOpenStatic, adLockOptimisticElse select * from amp。39。strTableName = 銷售信息表 1End SubPrivate Sub InfoYG_Click() 39。39。數據表名Public Ok As BooleanPublic IsUserMode As Integer 39。39。 CStr(Mon) End IfEnd IfExit FunctionErr:DateChange = End FunctionFunction GetNumFile(str1 As String) As IntegerDim i As IntegerIf str1 = ThenExit FunctionEnd Ifi = 1GetNumFile = 1Do If Not ( + \report\ + str1 amp。試題id單項Public STID1() 39。39。39。39。員工信息查詢strTableName = 員工信息表 1End SubPrivate Sub Form_Load()PrivsSeting 39。Persist Security Info=FalsemiCount = 0Ok = False = GetSetting(, Settings, user_name, ) = Exit SubErr:MsgBox , , 數據庫連接錯誤EndEnd SubPrivate Sub Form_Resize() = + 30 = + 30End SubPrivate Sub Label2_Click()EndEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenEnd IfEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo ErrDim rs2 As New If Then If strLook = 文化戶口信息 Then select * from amp。如果有用戶 If Trim((1)) = Trim() Then 39。39。參考文獻 , 《Database system implementation》,機械工業(yè)出版社, 2000 GarcialMolina , Jeffrey , Jennifer Widom,《An introduction to Database Systems(Seventh Edition), 機械工業(yè)出版社,2001, 郭安源, 葛曉東, 《教育信息化系統開發(fā)實例導航》 , 人民郵電出版社,2003,《數據庫開發(fā)技術與工程實踐》,人民郵電出版社,2004, 王虹 等 《Visual basic 中文版高級應用與開發(fā)指南》, 人民郵電出版社, 2002 主編 等 《VB課程設計與系統開發(fā)案例》清華大學出版社, 2002，《Visual Basic數據庫開發(fā)及工程實例》，人民郵電出版社，《Visual Basic 數據庫開發(fā)技術與工程實踐》，人民郵電出版社，2004，汪遠征，《Visual Basic程序設計教程》，機械工業(yè)出版社，2001，周學明，郭安源，《Visual Basic企業(yè)辦公系統開發(fā)實例導航