【正文】 _ amp。 0 amp。 0 amp。39。39。39。39。39。查看的表名Public UserName As String 39。39。 Call FindXS_ClickEnd SelectEnd SubPrivate Sub Userpasword_Click() 39。 Call FindYg_ClickCase 9 39。 Call InfoXS_ClickCase 6 39。用戶密碼 Call Userpasword_ClickCase 4 39。關(guān)于 1End SubPrivate Sub sysManager_Click() 1End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 1 39。39。房形strTableName = 房型信息表 1End SubPrivate Sub Infogs_Click()strTableName = 公司基本信息表 1End SubPrivate Sub InfoGW_Click()strTableName = 管網(wǎng)信息表 1End SubPrivate Sub InfoHX_Click() 39。39。圖片 = LoadPicture(strS) , , , , , 0, 0, , Else 39。改變控件位置代碼 = = 0 = = (1).Text = 狀態(tài) = ( ) / 2 = / 2 / 2 = + 50 = + 5039。39。39。設(shè)置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。 strLook amp。Data Source= amp。39。39。39。39。 amp。判斷用戶名是否為空 MsgBox 請輸入帳號(hào)！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim() = Then 39。退出程序EndEnd SubPrivate Sub cmdOK_Click() 39。 DateChange(Date) 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 = 系統(tǒng)關(guān)于End SubPrivate Sub Command1_Click() 39。密碼修改On Error GoTo ErrIf Trim() And Trim() And Trim() Then If Trim() Trim() Then MsgBox 新密碼不對!, , 提示 Exit Sub Else Dim rs1 As New If Then select * from 用戶信息表 where 用戶名稱=39。39。同時(shí)感謝同組成員,我們在一起互相討論,學(xué)習(xí),解決了不少的難題。給予我很大的幫助，不僅幫我解答了不少的難點(diǎn)，還給我提出了許多建議，我會(huì)以他們?yōu)榘駱樱玫嘏?。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，即使在百忙中，抽出了很多時(shí)間對我的論文進(jìn)行的批改和修正。最后就是從一而終的問題了，在開發(fā)過程中我遇到了許許多多的問題，很多地方都不明白，經(jīng)常有打退堂鼓的想法，我經(jīng)常的請教同學(xué)和老師，最后的成果雖然不很完美，但我盡力了，并有所收獲。然后，會(huì)用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過各方面的比較，我選擇了ADO，通過ADO控件與數(shù)據(jù)庫中各表進(jìn)行連接，同時(shí)也用到少數(shù)編程實(shí)現(xiàn)VB和ACCESS數(shù)據(jù)庫的連接。首先便是調(diào)研的不充分。1 ．本次的課題設(shè)計(jì)首先分析了管理系統(tǒng)目前在國內(nèi)外的發(fā)展?fàn)顩r及需求分析。這些都有待進(jìn)一步改善。 本系統(tǒng)的維護(hù)模塊本系統(tǒng)的維護(hù)功能主要是為保證系統(tǒng)能夠正常的運(yùn)行。（2）適應(yīng)性維護(hù) 使系統(tǒng)適用環(huán)境的變化而進(jìn)行的維護(hù)。 第二節(jié) 系統(tǒng)的維護(hù) 系統(tǒng)維護(hù)的目的是保證管理信息系統(tǒng)正常而可靠地運(yùn)行，并能使系統(tǒng)不斷得到改善和提高，以充分發(fā)揮作用。 內(nèi)存：32MB以上。代碼實(shí)現(xiàn)請參考附錄程序源代碼。在查詢完后，可以在如圖57中輸出Excel報(bào)表。圖55 員工信息輸入界面圖56 信息瀏覽第五節(jié) 查詢查詢打印模塊包括客戶信息、員工信息、銷售信息表，客戶報(bào)表的打印，查詢以客戶信息表為例，如圖57所示。修改：移動(dòng)到要修改的記錄，點(diǎn)修改，修改完后，點(diǎn)保存后就修改完畢。添加：是添加一新的記錄。各按鈕的功能：（所有管理界面）：移動(dòng)到第一條記錄。也是本次開發(fā)的重點(diǎn)。這樣下一次再進(jìn)入本系統(tǒng)時(shí)本用戶的密碼就改為新密碼。圖54 用戶密碼修改修改密碼：在舊密碼輸入你的登錄密碼，在新密碼中輸入新密碼，在新密碼核實(shí)中再輸入一次新密碼。如果系統(tǒng)已經(jīng)添加的該用戶，系統(tǒng)自動(dòng)提示，重新添加。管理員密碼數(shù)據(jù)庫的用戶信息表項(xiàng)里。在系統(tǒng)功能設(shè)計(jì)中，系統(tǒng)維護(hù)功能主要有添加用戶，刪除用戶，和管理員密碼修改，如圖53所示。 \。數(shù)據(jù)庫的連接采用的是ADO對象。圖51 登錄界面根據(jù)登錄模塊的功能，管理員和普通用戶界面統(tǒng)一在一起。部分表結(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ā)實(shí)現(xiàn)應(yīng)用程序是用VB開發(fā)的，界面設(shè)計(jì)的簡單明了。數(shù)據(jù)字典設(shè)計(jì)：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計(jì)，便于維護(hù)和修改。關(guān)系型數(shù)據(jù)庫要盡量按關(guān)系規(guī)范化要求進(jìn)行數(shù)據(jù)庫設(shè)計(jì)，但為使效率高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來決定。數(shù)據(jù)庫設(shè)計(jì)時(shí)需要綜合企業(yè)各個(gè)部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個(gè)數(shù)據(jù)之間的關(guān)系，按照DBMS提供的功能和描述工具，設(shè)計(jì)出規(guī)模適當(dāng)、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。第二節(jié) 系統(tǒng)結(jié)構(gòu)設(shè)計(jì) 登錄模塊結(jié)構(gòu)流程圖：如圖41。檢索信息管理主要包括：員工信息包括：所有字段的查詢，也包括模糊查詢（like）和Excel輸出。樓房信息模塊包括：對新樓房添加，和現(xiàn)有的樓房信息修改查詢。樓房類型模塊包括：顯示添加修改刪除查詢。員工信息模塊包括：顯示添加修改刪除查詢。背景設(shè)置管理模塊包括：界面的顏色和圖片的自定義設(shè)置。用戶權(quán)限主要任務(wù)是提高系統(tǒng)安全性和使用性，為系統(tǒng)提供良好的維護(hù)，如用戶管理可以為用戶提供權(quán)限服務(wù)。第一節(jié) 系統(tǒng)功能設(shè)計(jì)房地產(chǎn)銷售系統(tǒng)是為了對房地產(chǎn)銷售企業(yè)實(shí)行計(jì)算機(jī)化的管理，以提高工作效率，方便用戶。第四章 系統(tǒng)設(shè)計(jì)隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。標(biāo)準(zhǔn)語法：UPDATE table_nameSET columnname1 = value1 [, columname2 = value2]... WHERE search_conditionDelete 語句標(biāo)準(zhǔn)語法：DELETE FROM tablename WHERE condition在信息管理系統(tǒng)中，我們往往會(huì)遇到歸類、匯總、映射、索引、子查詢等復(fù)雜操作，相應(yīng)的支持與實(shí)現(xiàn)如下：GROUP BY方法：GROUP BY子句語法為：SELECT column1, SUM(column2)FROM listoftablesGROUP BY columnlist。多行 Insert 語句為拷貝數(shù)據(jù)提供了一種緊湊而高效的方法。數(shù)據(jù)庫管理系統(tǒng)必須在更改期內(nèi)保護(hù)所存儲(chǔ)的數(shù)據(jù)的一致性，確保有效的數(shù)據(jù)進(jìn)入數(shù)據(jù)庫，數(shù)據(jù)庫必須保持一致性，DBMS還必須協(xié)調(diào)多用戶的并行更新，以確保用戶和它們的更改不至于影響其它用戶的作業(yè)。下面是一個(gè)簡單SQL語句的例子：我們使用SQL語句來從user_info中檢索‘用戶ID’為‘000001’的用戶姓名：SELECT 姓名 FROM user_info WHERE用戶ID = ‘000001’數(shù)據(jù)定義語言DDL：它是用來創(chuàng)建和修改數(shù)據(jù)庫結(jié)構(gòu)的一種語句，包括 Create、Alter和Drop 語句。SQL功能強(qiáng)大，是一種完備的數(shù)據(jù)處理語言，不僅用于數(shù)據(jù)庫查詢，而且用于數(shù)據(jù)庫中的數(shù)據(jù)修改和更新，概括起來，它可以分成以下幾組：DML（Data Manipulation Language，數(shù)據(jù)操作語言）：用于檢索或者修改數(shù)據(jù)；DDL（Data Definition Language，數(shù)據(jù)定義語言）： 用于定義數(shù)據(jù)的結(jié)構(gòu)，比如 創(chuàng)建、修改或者刪除數(shù)據(jù)庫對象；DCL（Data Control Language，數(shù)據(jù)控制語言）：用于定義數(shù)據(jù)庫用戶的權(quán)限。統(tǒng)一的語言：SQL可用于所有用戶的DB活動(dòng)模型，包括系統(tǒng)管理員、數(shù)據(jù)庫管理員、 應(yīng)用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。SQL語言有著非常突出的優(yōu)點(diǎn)，SQL語言是非過程化的語言、統(tǒng)一的語言、是所有關(guān)系數(shù)據(jù)庫的公共語言。使用SQL的常見關(guān)系數(shù)據(jù)庫管理系統(tǒng)有：Oracle、 Sybase、 Microsoft SQL Server、 Access等等。第二節(jié) SQL語言SQL(Structured Query Language，結(jié)構(gòu)查詢語言)是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫語言。216。216。其功能分別敘述如下：216。Execute方法：執(zhí)行指定的查詢、SQL語句、存儲(chǔ)過程或特定提供者的文本等內(nèi)容。MoveFirst、MoveLast、MoveNext 和MovePrevious方法：在指定 Recordset 對象中移動(dòng)到第一個(gè)、最后一個(gè)、下一個(gè)或前一個(gè)記錄并使該記錄成為當(dāng)前記錄。Recordset對象含有由Field對象組成的Fields集合。Recordset 對象可支持兩類更新：立即更新和批更新。OLEDB提供了訪問任何數(shù)據(jù)資源的方法，包括相互關(guān)聯(lián)的數(shù)據(jù)庫和相互不關(guān)聯(lián)的數(shù)據(jù)庫、Email和文件系統(tǒng)、文本和圖形以及用戶定義的數(shù)據(jù)對象。ADO的對象模型是所有數(shù)據(jù)訪問接口對象模型中最簡單的一種。通過DAO/Jet功能可以訪問ISAM數(shù)據(jù)庫，使用DAO/ODBC Direct功能可以實(shí)現(xiàn)遠(yuǎn)程RDO功能。下一節(jié)專門介紹ADO。ADO設(shè)計(jì)為一種極簡單的格式，通過ODBC的方法同數(shù)據(jù)庫接口相連。例如在VB的集成開發(fā)環(huán)境中就包括了以下一些主要元素：工具欄、工具箱、工程管理器窗口、屬性窗口、窗體設(shè)計(jì)器、代碼編輯器窗口等；和VB類似，Delphi的IDE中具有主控制窗體、對象查看窗口和窗體設(shè)計(jì)器?！　?. 企業(yè)版 適用于專為企業(yè)設(shè)計(jì)應(yīng)用軟件的程序開發(fā)人員。VB是基于對象的可視化程序開發(fā)工具，它的優(yōu)點(diǎn)在于能夠快捷、簡