【文章內(nèi)容簡(jiǎn)介】 使用 UpdateControls方法將綁定控件的內(nèi)容恢復(fù)為其初始值，如同用戶更改了數(shù)據(jù)，然后又決定取消了這些更改。除了不會(huì)導(dǎo)致任何事件的發(fā)生之外，這個(gè)方法產(chǎn)生的效果與使當(dāng)前行再次成為當(dāng)前行一樣。由于此方法不會(huì)調(diào)用任何事件，可以使用這個(gè)方法來簡(jiǎn)化一個(gè)更新操作，因?yàn)樗粫?huì)觸發(fā)任何多余的驗(yàn)證和更改世間過程。 （ 11） Refresh方法 Refresh方法用來重新建立或顯示與 Ado Data控件相連的數(shù)據(jù)庫記錄集。如果在程序代碼中改變了 ConnectionString、 RecordSource、 CommandType的屬性值，就必須用 Refresh方法來刷新記錄集。 Refresh方法的語法為： Ado Data 控件直接操縱數(shù)據(jù)庫 使用 Ado Data控件訪問數(shù)據(jù)庫，可以完全不用編寫代碼，只需通過簡(jiǎn)單設(shè)置和操縱其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接，通過綁定數(shù)據(jù)感知控件就能提供一個(gè)訪問數(shù)據(jù)庫的界面，用來對(duì)數(shù)據(jù)庫數(shù)據(jù)的瀏覽、添加、刪除、修改等操作。 連接數(shù)據(jù)庫 使用 Ado Data控件連接到數(shù)據(jù)源要相對(duì)簡(jiǎn)單得多，基本上可以用鼠標(biāo)的操作來完成。具體的操作步 驟如下： ? 創(chuàng)建一個(gè)標(biāo)準(zhǔn)的 Visual Basic 工程，按前面介紹的方法將 Ado Data 控件添加到窗體中。 ? 在 Ado Data控件上單擊鼠標(biāo)右鍵，在快捷菜單上選擇“屬性”命令，打開 Ado Data 控件的屬性對(duì)話框，如圖 24 所示。 Ado Data 控件的屬性對(duì)話框共有 5個(gè)選項(xiàng)卡，常用的是“通用”選項(xiàng)卡、“身份驗(yàn)證”選項(xiàng)卡和“記錄源”選項(xiàng)卡。在“通用”選項(xiàng)卡中設(shè)置 Ado Data 控件的數(shù)據(jù)源屬性，在“身份驗(yàn)證”選項(xiàng)卡中，設(shè)置訪問數(shù)據(jù)源時(shí)有關(guān)的安全信息，在“記錄”選項(xiàng)卡中，設(shè)置 Ado Data控 件返回記錄的記錄源。 ? 在“通用”選項(xiàng)卡中，選擇“使用連接字符串”單選按鈕，并單擊“生成”按鈕，打開“數(shù)據(jù)鏈接屬性”對(duì)話框，如圖 25所示。使用該對(duì)話框可以方便地建立和數(shù)據(jù)源的連接，而在應(yīng)用程序的開發(fā)過程中，使用連接字符串有許多優(yōu)點(diǎn)（例如客戶端不用配置 ODBC數(shù)據(jù)源名稱等）。 ? 在“數(shù)據(jù)鏈接屬性”對(duì)話框中，第一步要做的工作是選擇數(shù)據(jù)源提供者程序。使用哪一種數(shù)據(jù)源，就選擇哪一種提供者程序。例如，使用本例的數(shù)據(jù)庫。就選擇 Microsoft OLE DB Provider，然后 單擊“下一步”按鈕。設(shè)計(jì)器切換到“連接”選項(xiàng)卡，如圖 26 所示，讓用戶設(shè)置使用的數(shù)據(jù)源。 ? 選擇或輸入數(shù)據(jù)庫的名稱。數(shù)據(jù)庫可以在本機(jī)硬盤上，也可以在網(wǎng)絡(luò)上。單擊數(shù)據(jù)庫名稱文本框旁邊的命令按鈕，然后在 Windows標(biāo)準(zhǔn)對(duì)話框中選擇作為數(shù)據(jù)源的 Microsoft Jet數(shù)據(jù)庫。 ? 單擊“測(cè)試連接”命令按鈕，測(cè)試剛才的設(shè)置是否正確及數(shù)據(jù)庫是否可用。如果當(dāng)前設(shè)置的數(shù)據(jù)源可用，則 Visual Basic 給出一個(gè)連接成功的對(duì)話框。否則，警告連接失敗并給出失敗的原因。 ? 在“屬性”對(duì)話框中，切換到“身份驗(yàn)證”選項(xiàng)卡， 如圖 27 所示。因?yàn)樵谠O(shè)置連圖 24 Ado Data 控件的屬性對(duì)話框 圖 25 “數(shù)據(jù)鏈接屬性”對(duì)話框 接字符串時(shí)，已經(jīng)向 Ado Data 控件提供了身份驗(yàn)證信息，所以當(dāng)前不用再進(jìn)行設(shè)置。如果連接不是用“數(shù)據(jù)連接屬性”對(duì)話框創(chuàng)建的，或者輸入的字符串中沒有包含身份驗(yàn)證信息，則必須設(shè)置本選項(xiàng)卡，以便讓數(shù)據(jù)源的數(shù)據(jù)庫管理系統(tǒng)確定用戶權(quán)限。 ? 屬性對(duì)話框中，切換到“記錄源”選項(xiàng)卡。在“記錄源”選項(xiàng)卡中，可以在“命令類型”下拉列表框中選擇用于記錄源的命令類型?？捎玫倪x擇 ,如下表所示： 表 21 記錄源命令列表 ? 把該屬性設(shè)定為 2adCmdTable，把“表或存儲(chǔ)過程名稱”屬性設(shè)置為需要用的表。 ? 單擊“確定”按鈕，關(guān)閉屬性對(duì)話框，完成所有的設(shè)置。 移動(dòng)記錄 根據(jù)前面的介紹可以知道， Ado Data控件必須通過綁定數(shù)據(jù)感知控件才能提供一個(gè)訪 屬性值 含義 8adCmdUnknow 未知類型，用戶在“命令文本”框中輸入創(chuàng)建命令對(duì)象所使用的 SQL語句 1adCmdText 文本類型，用戶在“命令文本”框中輸入創(chuàng)建命令對(duì)所使用的SQL語句 2adCmdTable 表類型，在“表或存儲(chǔ)過程名稱”下拉列表框中選擇一個(gè)表的名稱， Visual Basic 用該表創(chuàng)建一個(gè)命令對(duì)象，相當(dāng)于輸入了“ Select * from Table”語句 4adCmdStoreProc 存儲(chǔ)過程，在“表或存儲(chǔ)過程名稱”下拉列表框中選擇一個(gè)查詢的名稱 表 1 記錄源命令類型表 問數(shù)據(jù)庫的界面，用來對(duì)數(shù)據(jù)庫數(shù)據(jù)的瀏覽、添加、刪除、修改等操作。 為了體現(xiàn)用 Ado Data控件直接進(jìn)行記錄的移動(dòng)，這里就要引入 DataGrid控件來進(jìn)行數(shù)據(jù)的顯 示。具體的操作步驟如下： ? 在前面創(chuàng)建的項(xiàng)目中，按照 Ado Data控件的方法，在部件屬性框的控件標(biāo)簽頁中選擇“ Microsoft Data Grid Control （ OLEDB）”控件，然后引入該控件。 ? 在工具箱中單擊 DataGrid控件的圖標(biāo)，在前面創(chuàng)建的窗體中添加該控件。如圖 28所示。 ? 設(shè)置 DataGrid控件的 DataSource 屬性為 Adodc1。這樣就完成了 DataGrid 控件同Adodc1控件的綁定。 ? 然后保存該項(xiàng)目，接著運(yùn)行便會(huì)看到如圖 29所示的運(yùn)行結(jié)果。 ? 在 該運(yùn)行窗口中直接單擊 Adodc1控件中的箭頭圖標(biāo)即可實(shí)現(xiàn) DataGrid 控件中選定數(shù)據(jù)的上下移動(dòng)。 增、刪、改記錄 增、刪、改記錄的操作同樣借助 DataGrid控件來實(shí)現(xiàn)。具體的步驟如下： ? 在上節(jié)完成的基礎(chǔ)上，只要設(shè)置 DataGrid控件的屬性即可實(shí)現(xiàn)對(duì)記錄的增、刪、改操作。右鍵單擊 DataGrid控件，在彈出的快捷菜單中選擇“屬性”，便會(huì)彈出如圖 210 所示的對(duì)話框。 圖 28 添加完 DataGrid控件 圖 29 運(yùn)行窗口 ? 選中“允許添加”、“允許刪除”、“允許更新”復(fù)選框，代表 DataGrid控件可以進(jìn)行記錄的 添加、刪除、更新。 ? 保存設(shè)置，運(yùn)行程序，如圖 29 所示，最后一行是空白行，用來添加新的數(shù)據(jù)，選中整行之后，單擊鍵盤上的 Delete 鍵就可以刪除該行信息，隨便選中某個(gè)單元格，就可以進(jìn)行數(shù)據(jù)的更改。 Ado Data 控件結(jié)合代碼操縱數(shù)據(jù)庫 使用代碼將 Ado Data 控件與數(shù)據(jù)庫進(jìn)行連接，主要是在代碼中來完成上面介紹的手工設(shè)定 Ado Data 控件的屬性。由上面手工設(shè)置的步驟可以看出，主要對(duì) Ado Data 控件的ConnectionString 屬性、 CommandType 屬性、 RecordSource 屬性進(jìn)行了設(shè)置，因此可以在代碼中對(duì)以上屬性進(jìn)行設(shè)置，代碼如下： 移動(dòng)記錄 定位是指在一個(gè)記錄集中來回移動(dòng)當(dāng)前記錄指針或者改變當(dāng)前記錄 .如 的 ,可以利用 Ado Data 控件上的箭頭按鈕瀏覽記錄集中的數(shù)據(jù) ,這些箭頭具有相應(yīng)的RecordSet 對(duì)象方法 ,可以使用代碼完成相應(yīng)的功能。 Ado Data 控件的單箭頭對(duì)應(yīng)于RecordSet對(duì)象的 MoveNext和 MovePrevious方法，而雙箭頭對(duì)應(yīng)于 MoveFirst和 MoveLast=” Provider=?！?_ amp。” Data Source=F:\畢業(yè)設(shè)計(jì) \企業(yè)工資管理系統(tǒng) .mdb?！?_ amp。” Persist Security Info=False” =adCmdTable =” 部門信息表 ” 方法。 1） 當(dāng)前記錄 當(dāng) 前記錄是記錄集中可以被訪問的記錄，在任何時(shí)刻只有一條記錄是記錄集中的當(dāng)前記錄，與 Ado Data 控件綁定的數(shù)據(jù)感知控件中顯示的數(shù)據(jù)也是該記錄的數(shù)據(jù)。 BOF和 EOF這兩個(gè)屬性的狀態(tài)決定了當(dāng)前記錄的位置，可以用代碼來檢驗(yàn)這兩個(gè)屬性的值，從而確定當(dāng)前記錄。 1. 移動(dòng)當(dāng)前記錄 這里利用了 RecordSet 對(duì)象的 4種方法來移動(dòng)記錄： MoveFirst， MoveLast， MoveNext和 MovePrevious方法。 ①． 如果想讓記錄集中的第一條記錄成為當(dāng)前記錄，可以使用 MoveFirst方法。例如： ② 如果想讓記錄集中最后一條記錄成為當(dāng)前記錄，可以使用 MoveLast 方法。例如： ③ 如果想讓記錄集中的下一條記錄成為當(dāng)前記錄，可以使用 MoveNext方法。 MoveNext方法常用來逐個(gè)瀏覽數(shù)據(jù)庫中的數(shù)據(jù)。例如： 使用 MoveNext 方法時(shí)要注意 : 當(dāng) Ado Data 控件位于記錄集的最后一條記錄上是，如果再向后移動(dòng)記錄 ,就會(huì)使得記錄集的 EOF屬性變?yōu)?True。如果將 Ado Data控件的 EOFAction屬性置為 1，那么這時(shí)當(dāng)前記錄不再有效，并且清除被綁定的數(shù)據(jù)感知控件上的數(shù)據(jù)。這時(shí)不能再繼續(xù)執(zhí)行 MoveNext 方法，否則會(huì)產(chǎn)生一個(gè)可以捕獲的錯(cuò)誤。所以在使用 MoveNext之前，最好先判斷記錄集對(duì)象的 EOF值，防止出錯(cuò)，可以使用如下代碼： ④ 如果想讓記錄集上的上一條記錄成為當(dāng)前記錄，可以使用 MovePrevious方法。例如：If =False Then End If . MovePrevious 和 MoveNext方法類似，使用 MovePrevious方法時(shí)要注意如果已經(jīng)把 BOFAction屬性設(shè)為 1，當(dāng) RecordSet 的 BOF 為 True 時(shí)，不能再繼續(xù)執(zhí)行 MovePrevious 方法，所以在使用MovePrevious方法前，最好先進(jìn)行判斷記錄集對(duì)象的 BOF值，可以使用如下代碼： 增、刪、改記錄 除了移動(dòng)記錄或查找特定的記錄外，還可以使用代碼來更新數(shù)據(jù)庫中的數(shù)據(jù)。在修改記錄集中的數(shù)據(jù)前，要先檢查數(shù)據(jù)庫和記錄集對(duì)象的 Updatable屬性是否為 True，如果為 True，說明該記錄集對(duì)象的數(shù)據(jù)是可以修改的。對(duì)于快照型的記錄集，無法修改它的數(shù)據(jù)。另外，還必須把 Ado Data控件的 ReadOnly屬性設(shè)置為 False。 1） 添加新記錄 如果確定可以更新數(shù)據(jù)庫和記錄集的數(shù)據(jù)，就可以向該記錄集添加記錄。添加新記錄的步驟是： 使用 AddNew方法創(chuàng)建一條空的新記錄，系統(tǒng)將保存當(dāng)前記錄指針并移動(dòng)到該新記錄。 給該新記錄的各字段賦予新值。 用 Update方法保存新記錄，同時(shí)當(dāng)前記錄指針恢復(fù)為原值。 如下面的例子，在代碼中給各字段賦予新值： 2）編輯當(dāng)前記錄 If =False Then End If (“ 姓名 ” )=” 王聰 ” (“ 性別 ” )=” 男 ” ?? . Update 要改變數(shù)據(jù)庫中的數(shù)據(jù)，必須先把要編輯的記錄設(shè)為當(dāng)前記錄，然后在被綁定的數(shù)據(jù)感知控件中完成修改。要保 存數(shù)據(jù)的修改，只需把當(dāng)前記錄指針移到其他記錄上，或者使用Update方法保存數(shù)據(jù)。 使用代碼編輯修改當(dāng)前記錄的步驟如下： 把當(dāng)前記錄定位到要編輯的記錄上。 修改當(dāng)前記錄中各個(gè)字段的值。 使用 Update、 Move、 Find和 Seek方法中的任何一種保存數(shù)據(jù)的修改。 例如下面的代碼修改姓名為 ” 王聰 ” 的記錄的 ” 年齡 ” 字段的值 : 另外，也可以定位到要編輯的記錄后，使用 Edit 方法，然后用戶可以在被綁定的數(shù)據(jù)感知控件中修改數(shù)據(jù)，最后用 Update方法保存修改后的數(shù)據(jù)。 3）刪除記錄 要在記 錄集中刪除一個(gè)記錄，首先要將當(dāng)前記錄指針定位到刪除的記錄上，然后使Delete 方法刪除該記錄。要注意的是，在每次刪除以后，在移動(dòng)到其他記錄之前已刪除的記錄將保持為當(dāng)前狀態(tài)，必須使用 MoveNext方法或 MovePrevious方法來改變當(dāng)前記錄，因?yàn)橐褎h除的記錄不再包含有效的數(shù)據(jù)，繼續(xù)訪問該記錄將導(dǎo)致錯(cuò)誤。 ” 姓名 =’ 王聰 ’” ‘ 查找王聰?shù)?記錄 If Then Msgbox” 沒有該學(xué)生的記錄 !” Else (“ 年齡 ” )=” 22” ‘ 修改字段值 ‘ 保存修改 End If 第 3 章 軟件設(shè)計(jì) 功能分析 開發(fā)這個(gè)系統(tǒng)的目的就是幫助 高校 的財(cái)務(wù)主管部門提高工作效率，實(shí)現(xiàn) 高校 工資信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)最終應(yīng)主要實(shí)現(xiàn)如下功能： ? 系統(tǒng)：包括修改用戶密碼和 退出系統(tǒng)。 ? 工資管理部分：包括 教師 基本工資的設(shè)置、 教師 考勤信息的統(tǒng)計(jì)、 教師 工資的結(jié)算和固