【文章內(nèi)容簡介】 ata Control （ OLEDB）”控件。 第三章 工資管理系統(tǒng)設(shè)計(jì) 17 然后單擊“確定”按鈕，這樣 Ado Data 控件就引入到當(dāng)前的 VB 項(xiàng)目中。在如圖 37所示的 VB 開發(fā)環(huán)境中的工具箱中，就能夠看到 Ado Data 控件的圖標(biāo)。然后單擊該圖標(biāo)，就可以在窗體中的任意位 置添加 Ado Data 控件。 ? 主要屬性 ? ConnectionString 屬性 Ado Data 控件的 ConnectionString 屬性是一個(gè)字符串，可以包含進(jìn)行一個(gè)連接所需的所有設(shè)置值。在該字符串中所傳遞的參數(shù)是與驅(qū)動(dòng)程序相關(guān)的。例如， ODBC 驅(qū)動(dòng)程序允許該字符串包含驅(qū)動(dòng)程序、提供者 、缺省的數(shù)據(jù)庫、服務(wù)器、用戶蜜柑年成以及密碼等。 ? UserName 屬性 當(dāng)數(shù)據(jù)庫受密碼保護(hù)時(shí)，需要指定該屬性。這個(gè)屬性可以在 ConnectionString 中指定。如 果同時(shí)提供了一個(gè) ConnectionString 屬性以及一個(gè) UserName 屬性，則ConnectionString 中的值將覆蓋 UserName 屬性的值。 ? PassWord 屬性 在訪問一個(gè)受保護(hù)的數(shù)據(jù)庫時(shí)該屬性也是必需的。和 UserName 屬性類似，如果在ConnectionString 屬性中指定了密碼，則將覆蓋在這個(gè)屬性中指定的值。 ? RecordSource 屬性 Ado Data 控件的 RecordSource 屬性通常包含一條語句，用于決定從數(shù)據(jù)庫檢索什么信息。 ? CommandType 屬性 Ado Data控件的 CommandType屬性告訴數(shù)據(jù)庫提供者 Source屬性是一條 SQL語句、一個(gè)表的名稱、一個(gè)存儲(chǔ)過程還是一個(gè)未知的類型。 使用 CommandType 屬性可優(yōu)化 CommandText 屬性的計(jì)算。如果 CommandType 屬性的值等于 adCmdUnknown（默認(rèn)值），系統(tǒng)的性能將會(huì)降低，因?yàn)?ADO 必須調(diào)用提供者以確定 CommandText 屬性是 SQL語句、還是存儲(chǔ)過程或表格名稱。如果知道正在使用的命令圖 36 Ado Data 控件 圖 37 3737圖 38 第三章 工資管理系統(tǒng)設(shè)計(jì) 18 的類型，可通過設(shè)置 CommandType 屬性指令 ADO 直接轉(zhuǎn)到相關(guān)代碼。如果 CommandType屬性 與 CommandText 屬性中的命令類型不匹配，調(diào)用 Execute 方法時(shí)將產(chǎn)生錯(cuò)誤。 ? LockType 屬性 LockType 屬性決定當(dāng)其他人試圖更改正在編輯的數(shù)據(jù)時(shí)，如何鎖定該數(shù)據(jù)。如何設(shè)置這個(gè) LockType 屬性是一個(gè)復(fù)雜的決策，取決欲多個(gè)因素。 ? Mode 屬性 Mode 屬性決定想用記錄集進(jìn)行什么操作。使用 Mode 屬性可設(shè)置或返回當(dāng)前連接上提供者正在使用的訪問權(quán)限。 Mode 屬性只能在關(guān)閉 Connection 對象時(shí)方可設(shè)置。例如，如果只是想要?jiǎng)?chuàng)建一個(gè)報(bào)告，可以將該屬性設(shè)為只讀來獲得性能的改善。 ? ConnectionTimeout 屬性 ConnectionTimeout 屬性設(shè)置等待建立一個(gè)連接的時(shí)間，以秒為單位。如果連接超時(shí)，則返回一個(gè)錯(cuò)誤。 如果由于網(wǎng)絡(luò)擁塞或服務(wù)器負(fù)載過重導(dǎo)致的延遲使得必須放棄連接嘗試時(shí)，請使用 Connection 對象的 ConnectionTimeout 屬性。如果打開連接前所經(jīng)過的時(shí)間超過ConnectionTimeout 屬性上設(shè)置的時(shí)間，將產(chǎn)生在錯(cuò)誤，并且 ADO 將取消該連接嘗試。如果將該屬性設(shè)置為零， ADO 將無限等待直到連接打開。請確認(rèn)正在對其編寫代碼的提供者會(huì)支持 ConnectionTimeout 功能。 ? Recordset 屬性 返回或設(shè)置對下一級(jí) ADO Recordset 對象的引用。利用 Recordset 屬性，可以使用ADO 的 對象的方法、屬性和事件。必須在 Set 語句中使用 Recordset屬性，如下例所示： Dim rsNwind As New Set =rsNwind ? BOFAction、 EOFAction 屬性 這兩個(gè)屬性決定當(dāng)該控件位于光標(biāo)的開始和末尾時(shí)的行為。提供的選擇包括停留在開始或 末尾、移動(dòng)到第一個(gè)或最后一個(gè)記錄或添加一個(gè)新記錄（只能在末尾）。 BOFAction 屬性有以下兩個(gè)值： adDoMoveFirst 和 adStayBOF，分別代表如果當(dāng)前記錄到達(dá)了數(shù)據(jù)的第一條記錄的前面時(shí)，采取移動(dòng)到第一條記錄的動(dòng)作或者繼續(xù)停留在原來位置兩種操作。 EOFAction 屬性值有以下 3 個(gè)值： adDoAddNew、 adDoMoveLast 和 adStayEOF，它們分別代表如果當(dāng)前記錄到達(dá)了最后一條數(shù)據(jù)記錄的后面，采取增加一條新記錄、移動(dòng)到最后一條記錄或者繼續(xù)停留在原位置的 3種操作。 ? 主要事件 ? Error 事件 第三章 工資管理系統(tǒng)設(shè)計(jì) 19 一般地，在開發(fā)應(yīng)用程序時(shí)通常要在代碼中為代碼運(yùn)行錯(cuò)誤時(shí)提供錯(cuò)誤處理的功能，但有時(shí)在沒有代碼運(yùn)行時(shí)也會(huì)發(fā)生數(shù)據(jù)存取的錯(cuò)誤，此時(shí)才會(huì)發(fā)生這個(gè)事件。該事件的語法為： object Error([Index As Integer,] ErrorNumber As Long,Description As String,Scode As Long,Source As String,HelpFile As String,HelpContext As Long,fCancelDisplay As Boolean) 其中 object 為控件對象名： Index 為可選參數(shù) ,如果控件在一個(gè)控件數(shù)組中 ,此值可以標(biāo)識(shí)該控件； ErrorNumber 為本地錯(cuò)誤號(hào)碼； Description 為對錯(cuò)誤的描述； Scode為服務(wù)器返回的錯(cuò)誤代碼； Source 為錯(cuò)誤的來源 。； HelpFile 為包含該錯(cuò)誤詳細(xì)信息的幫助文件的路徑； HelpContext 為幫助主題的上下文號(hào)碼 。fCancelDisplay 為一個(gè)布爾值，可以設(shè)置這個(gè)值來取消對錯(cuò)誤消息的顯示。 ? EndOfRecordset 事件 移動(dòng)行時(shí)如果超過記錄集結(jié)尾，則調(diào)用 EndOfRecordset 方法。該事件的語法為： Adodc1_EndofRecordset(fMoreData As Boolean,adStatus As ,ByVal pRecordset As ) 當(dāng)用戶可能因調(diào)用 MoveNext 而移過 Recordset 結(jié)尾時(shí)，將調(diào)用該事件的處理程序。使用該方法用戶可以從數(shù)據(jù)庫中檢索到更多記錄并將其追加到 pRecordset 的結(jié)尾。在這種情況下，用戶要將 pfMoreData 設(shè)置為 VARIANT_TRUE，并從 EndOfRecordset 返回。在此之后用戶可以再次調(diào)用 MoveNext 以訪問新檢索到的記錄。 ? 主要方法 ? UpdateControls 方法 使用 UpdateControls 方法將綁定控件的內(nèi)容恢復(fù)為其初始值，如同用戶更改了數(shù)據(jù)，然后又決定取消了這些更改。除了不會(huì)導(dǎo)致任何事件的發(fā)生之外，這個(gè)方法產(chǎn)生的效果與使當(dāng)前行再次成為當(dāng)前行一樣。由于此方法不會(huì)調(diào)用任何事件，可以使用這個(gè)方法來簡化一個(gè)更新操作，因?yàn)樗粫?huì)觸發(fā)任何多余的驗(yàn)證和更改世間過程。 ? Refresh 方法 Refresh 方法用來重新建立或顯示與 Ado Data 控件相連的數(shù)據(jù)庫記錄集。如果在程序代碼中改變了 ConnectionString、 RecordSource、 CommandType 的屬性值，就必須用Refresh 方法來刷新記錄集。 Refresh 方法的語法為： ③ 修改控件的屬性設(shè)置值： ? 將控件 Texbox1 的 Name 屬性屬性值改為“ UserName” ? 將控件 Texbox2 的 Name 屬性屬性值改為 PassWord； PassWord 屬性屬性值改為“ *” 第三章 工資管理系統(tǒng)設(shè)計(jì) 20 ? 將控件 CommandButton1 的 Name 屬性屬性值改為 CmdOK； Caption 屬性屬性值改為“確定” ? 將控件 CommandButton2 的 Name 屬性屬性值改為 CmdCancel； Caption 屬性屬性值改為“取消” ? 將控件 Label1 的 Caption 屬性屬性值改為“用戶名稱” ? 將控件 Label2 的 Caption 屬性屬性值改為“用戶密碼” 建立部門信息窗體 (1) 添加窗體 為工程添加一個(gè)普通窗體，屬性設(shè)置如下： ① 將名稱屬性值改為“ frmBMInfo” ② 將 Caption 屬性值改為“部門信息” (2) 添加控件 根據(jù)前面的介紹可以知道， Ado Data 控件必須通過綁定數(shù)據(jù)感知控件才能提供一個(gè)訪問數(shù)據(jù)庫的界面，用來對數(shù)據(jù)庫數(shù)據(jù)的瀏覽、添加、刪除、修改等操作。 為了體現(xiàn)用 Ado Data 控件直接進(jìn)行記錄的移動(dòng)，這里就要引入 DataGrid 控件來進(jìn)行數(shù)據(jù)的顯示。具體的操作步驟如下： ① 在前面創(chuàng)建的項(xiàng)目中，按照 節(jié)介紹的引入 Ado Data 控件的方法，在部件屬性框的控件標(biāo)簽頁中選擇“ Microsoft Data Grid Control （ OLEDB）”控件，然后引入該控件。 ② 在工具箱中單擊 DataGrid 控件的圖標(biāo)，在前面創(chuàng)建的窗體中添加該控件。 為這個(gè)窗體添加的控件及其更改的屬性設(shè)置如下： 將控件 Frame1 的 Caption 屬性屬性值改為“部門列表” ? 將 DataGrid1 的 DataSource 屬性屬性值改為“ Adodc1” ? 將 DataGrid2 的 DataSource 屬性屬性值改為“ Adodc2” ? 將 Adodc1 的 ConnectionString 屬性屬性值改為“連接企業(yè)工資管理系統(tǒng) .mdb” ； RecordSource 屬性屬性值改為“部門信息表” ? 將 Adodc2的 ConnectionString屬性屬性 值改為“連接企業(yè)工資管理系統(tǒng) .mdb”；RecordSource 屬性屬性值改為“職工信息表” ? 將 Frame2 的 Caption 屬性屬性值改為“操作” ? 將 Command1 的 Caption 屬性屬性值改為“首記錄” ? 將 Command2 的 Caption 屬性屬性值改為“新增部門” ? 將 Command3 的 Caption 屬性屬性值改為“后翻” ? 將 Command4 的 Caption 屬性屬性值改為“刪除部門” ? 將 Command5 的 Caption 屬性屬性值改為“末記錄” 第三章 工資管理系統(tǒng)設(shè)計(jì) 21 ? 將 Command6 的 Caption 屬性屬性值改為“保存” ? 將 Command7 的 Caption 屬性屬性值改為“前翻” ? 將 Command8 的 Caption 屬性屬性值改為“取消” ? 將 Command9 的 Caption 屬性屬性值改為“返回” ? 將 Frame3 的 Caption 屬性屬性值改為“當(dāng)前部門” ? 將 Label1 的 Caption 屬性屬性值改為“部門編號(hào)” ? 將 Label2 的 Caption 屬性屬性值改為“部門名稱” 建立查詢員工工資窗體 (1) 添加窗體 添加一個(gè)普通窗體， Caption 屬性設(shè)為“查詢職工工資”， Name 屬性設(shè)為“ frmSearch1”。 (2) 添加控件 ? 添加一個(gè) Label1 控件，并將其 Caption 屬性屬性值改為“所有職工：” ? 添加一個(gè) Adodc1 控件，并將其 RecordSource 屬性屬性值改為“職工信息表” ? 添加一個(gè) Adodc2 控件，并將其 RecordSource 屬性屬性值改為“ select * from職工工資結(jié)算表” ? 添加一個(gè) DataGrid1 控件，并將其 DataSource 屬性屬性值改為“ Adodc1” ? 添加一個(gè) DataGrid2 控件，并將其 DataSource 屬性屬性值改為“ Adodc2” ? 添加一個(gè) Label2 控件，并將其 Caption 屬性屬性值改為“請輸入查詢的條件：” ? 添加一個(gè) Label3 控件，并將其 Caption 屬性屬性值改為“員工編號(hào)：” ? 添加一個(gè) TexBox1 控件，并將其 Text 屬性屬性值刪除 ? 添加一個(gè) Label4 控件，并將其 Caption 屬性屬性值改為“員工姓名：” ? 添加一個(gè) TexBox2 控件，并將其 Text 屬性屬性值刪除 ? 添加一個(gè) CommendButton1 控件，并將其 Caption 屬性屬性值改為“開始查詢” ? 添加一個(gè) CommendButton2 控件，并將其 Caption 屬性屬性 值改為“重新查詢” ? 添加一個(gè)