vb數(shù)據(jù)庫編程技術(shù)(編輯修改稿)
2024-08-28 17:21 本頁面
【文章內(nèi)容簡介】 符數(shù) 數(shù)據(jù)控件的事件和常用方法 Private Sub Command1_Click() ?當(dāng)單擊此按鈕時給出用戶幫助信息 。 MsgBox _ Text1 must be set to a date. amp。 VbCrLF amp。 _ Text2 must be a number less than 10.“ End Sub 回車換行 數(shù)據(jù)控件的事件和常用方法 Private Sub Text1_Validate(KeepFocus As Boolean) ?如果值不是一個日期 ， 則保持焦點 ， 除非用戶單擊Help。 If Not IsDate() Then KeepFocus = True MsgBox Please insert a date in this field., , Text1 End if End Sub 返回 Boolean 值指明某表達(dá)式是否可以轉(zhuǎn)換為日期 。 數(shù)據(jù)控件的事件和常用方法 Private Sub Text2_Validate(KeepFocus As Boolean) ?如果值是一個大于 10的數(shù)字 ， 保持焦點 。 If Not IsNumeric() Or Val() 10 Then KeepFocus = True MsgBox _Please insert a number less than or equal to 10., , Text2 End If End Sub 返回 Boolean 值指明表達(dá)式的值是否為數(shù)字。 進(jìn)入 數(shù)據(jù)控件的事件和常用方法 ? Validate事件的檢查方法 : ? 通過 Save參數(shù) (True或 False)判斷被連接的數(shù)據(jù)（ 被綁定的控件 ） 是否發(fā)生變化。 ? 通過 Action參數(shù)判斷哪一種操作觸發(fā)了Validate事件。 數(shù)據(jù)控件的事件和常用方法 Validate事件的 Action參數(shù) 常 數(shù) 值 描 述 vbDataActionCancel 0 Sub退出時取消操作 vbDataActionMoveFirst 1 MoveFirst 方法。vbDataActionMovePrevious 2 MovePrevious 方法vbDataActionMoveNext 3 MoveNext 方法vbDataActionMoveLast 4 MoveLast 方法。vbDataActionAddNew 5 AddNew 方法 數(shù)據(jù)控件的事件和常用方法 Validate事件的 Action參數(shù) 常 數(shù) 值 描 述 vbDataActionUpdate 6 Update 操作。 vbDataActionDelete 7 Delete 方法vbDataActionFind 8 Find 方法vbDataActionBookmark 9 Bookmark 屬性已被設(shè)置vbDataActionClose 10 Close 的方法vbDataActionUnload 11 窗體正在卸載。 保存對 Recorded 對象的當(dāng)前記錄所做的所有更改 。 ?例如 ， 不允許用戶在數(shù)據(jù)瀏覽時清空性別數(shù)據(jù) ， 可使用下列代碼： 數(shù)據(jù)控件的事件和常用方法 Private Sub Data1_Validate(Action As Integer,_ Save As Integer) If Save And Len(Trim()) = 0 Then Action = 0 ?取消操作 MsgBox 性別不能為空！ End If End Sub 檢查被數(shù)據(jù)控件綁定的控件 Text3內(nèi)的數(shù)據(jù)是否被清空 。 如果 Text3內(nèi)的數(shù)據(jù)發(fā)生變化 ， 則 Save參數(shù)返回 True， 若性別對應(yīng)的文本框 Text3被置空 ， 則通過 Action=0取消對數(shù)據(jù)控件的操作 去除前導(dǎo)空格和末尾空格 3． 數(shù)據(jù)控件的常用方法 ?數(shù)據(jù)控件的內(nèi)置功能很多 ， 可以在代碼中用數(shù)據(jù)控件的方法訪問這些屬性 。 1） Refresh方法 ?當(dāng) RecordSource在運(yùn)行時被改變時 ， 使用 Refresh方法 ， 將當(dāng)前指定 RecordSource中的數(shù)據(jù)裝入內(nèi)存工作區(qū) ， 達(dá)到 激活數(shù)據(jù)庫 的作用 。 數(shù)據(jù)控件的事件和常用方法 數(shù)據(jù)控件的事件和常用方法 Private Sub Form_Load( ) Dim Mpath As String Mpath= ?獲取當(dāng)前路徑 If Right(mpath,1)”/” Then mpath=mpath+”/” =mpath+”” ?連接數(shù)據(jù)庫 = ?基本情況 ”’ ?構(gòu)成記錄集對象 ?激活數(shù)據(jù)控件 End Sub App 對象是通過關(guān)鍵字 App 訪問的全局對象 。 它指定如下信息：應(yīng)用程序的標(biāo)題 、 版本信息 、 可執(zhí)行文件的路徑及名稱以及是否運(yùn)行前一個應(yīng)用程序的示例 。 Path返回或設(shè)置當(dāng)前路徑 ， 在編程時無效 ， 運(yùn)行時有效 。 RIGHT(cExpression, nCharacters) Function返回從右邊數(shù)的 n個字符 。 2） UpdateControls方法 ?UpdateControls方法 從數(shù)據(jù)庫中重新讀數(shù)據(jù) 送到被數(shù)據(jù)控件綁定的控件內(nèi) 。 數(shù)據(jù)控件的事件和常用方法 控件 DATA控件 數(shù)據(jù)庫 控件 DATA控件 數(shù)據(jù)庫 3） UpdateRecord方法 ? 對綁定控件內(nèi)的數(shù)據(jù)修改后 ， 數(shù)據(jù)控件需要移動記錄集的指針才能保存修改 。 如果使用 UpdateRecord方法 ， 可 強(qiáng)制數(shù)據(jù)控件將綁定控件內(nèi)的數(shù)據(jù)寫入到數(shù)據(jù)庫中 ， 而不再觸發(fā) Validate事件 。 ?記錄集 Recordset常用的屬性和方法 。 1． AbsolutePosition屬性 ?AbsolutePosition返回當(dāng)前指針值 ， 如果是第 1條記錄 ， 其值為 0， 該屬性為只讀屬性 。 2． Bof和 Eof的屬性 ?Bof判定記錄指針是否在 首記錄之前 ， 若 Bof為True， 則當(dāng)前位置位于記錄集的第 1條記錄之前 。 ?Eof判定記錄指針是否在 末記錄之后 ， 若 Eof為True， 則當(dāng)前位置位于記錄集的最后 1條記錄之后 。 記錄集的屬性和方法 數(shù)據(jù)控件的事件和常用方法 3． Bookmark屬性 ?Bookmark屬性的值采用字符串類型 ， 用于設(shè)置或返回 當(dāng)前指針的標(biāo)簽 。 在程序中可以使用 Bookmark屬性重定位記錄集的指針 。 4． Nomatch屬性 ?在記錄集中進(jìn)行查找時 ， 如果找到 相匹配的記錄 ，則 Recordset的 NoMatch屬性為 False， 否則為 True。該屬性常與 Bookmark屬性一起使用 。 5． RecordCount屬性 ?RecordCount屬性對 Recordset對象中的 記錄計數(shù) ，使用 RecordCount 屬性可確定 Recordset 對象中記錄的數(shù)目。 記錄集的屬性和方法 6． Move方法 五種 Move方法是： ?MoveFirst 將控件移動到第 1條記錄 。 ?MoveLast 將控件移動到最后一條記錄 。 ?MoveNext 將控件移動到后一條記錄 。 ?MovePrevious 將控件移動到前一條記錄 。 ?Move [n] 向前或向后移 n條記錄 ， n為指定的數(shù)值 。 記錄集的屬性和方法 例 設(shè)計一個窗體用以顯示建立的 庫中基本情況表的內(nèi)容 。 在窗體上用 4個命令按鈕實現(xiàn)對數(shù)據(jù)庫的操作 。 圖 用按鈕代替數(shù)據(jù)控件對象的箭頭按鈕 記錄集的屬性和方法 ?命令按鈕 Command1_Click事件移至第 1條記錄 ， 代碼如下： 記錄集的屬性和方法 ?命令按鈕 Command4_Click事件移至最后一條記錄，代碼如下： Private Sub Comma
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1