【正文】 令之后 ， 顯示網(wǎng)格式更新 、刪除 、 添加記錄窗體 ， 修改完畢后單擊 “ 更新 ” 按鈕將新數(shù)據(jù)寫入數(shù)據(jù)庫 ， 單擊 “ 刪除 ” 按鈕 ， 將刪除當(dāng)前記錄 ， 將光標(biāo)移到最后的空白記錄處 ， 輸入新的數(shù)據(jù)可以添加記錄 。 第 14章 數(shù)據(jù)庫訪問技術(shù) (8) 單擊 “ 完成 ” 按鈕 ， VB將自動生成窗體及主要代碼 ， 如圖 。 單擊 “ 下一步 ” 按鈕 。 b End Sub 第 14章 數(shù)據(jù)庫訪問技術(shù) 2. ADO Recordset對象的方法 1) CancelUpdate方法 該方法取消添加 、 修改記錄的操作 ， 恢復(fù)到更改以前的狀態(tài) 。 第 14章 數(shù)據(jù)庫訪問技術(shù) 圖 程序啟動后的界面 第 14章 數(shù)據(jù)庫訪問技術(shù) (1) 設(shè)計(jì)程序界面 。 三次密碼輸入錯誤退出本模塊 MsgBox 無效口令 ， 請重新輸入 ！ , 48, 錯誤 Text1 = cishu = cishu + 1 Else MsgBox 你無權(quán)使用本功能 ！ , 48, 警告 Unload Me End If End If 第 14章 數(shù)據(jù)庫訪問技術(shù) End Sub “取消 ” 按鈕 Command2的 Click事件代碼為 Private Sub Command2_Click() Unload Me End Sub “添加記錄 ” 窗體模塊的代碼： “ 更新 ” 按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() 第 14章 數(shù)據(jù)庫訪問技術(shù) If Text1 = Or Text2 = Or Text3 = Or Text4 = Or Text5 = Then MsgBox “請輸入完整的數(shù)據(jù) ！ ” , 48 39。 + 1 amp。 amp。 = (姓名 ) If Then 39。 將記錄指針指向第一條記錄 第 14章 數(shù)據(jù)庫訪問技術(shù) 學(xué)號 = 39。 啟動窗體為 “ 成績管理 ” 。 ● FindPrevious：查找符合條件的上一條記錄 。 ● MoveNext：下移一條記錄 ， 使下一條記錄成為當(dāng)前記錄 。 2. UpdateRecord方法 通過該方法可以將數(shù)據(jù)綁定控件上的當(dāng)前內(nèi)容寫入到數(shù)據(jù)庫中，即可以在修改數(shù)據(jù)后調(diào)用該方法來確認(rèn)修改。 Data控件的屬性中， 3個基本屬性(Connect、 DatabaseName和 RecordSource)決定了所要訪問的數(shù)據(jù)資源。 方法為 (1) 在需要的位置上 (如本例的 “ 高等數(shù)學(xué) ” 之后 )，單擊鼠標(biāo)右鍵 ， 在彈出的快捷菜單中執(zhí)行 “ 生成器 ”命令 ， 打開圖 “ 表達(dá)式生成器 ” 窗口 。 第 14章 數(shù)據(jù)庫訪問技術(shù) (5) 雙擊表名稱打開圖 ，依次將各種數(shù)據(jù)輸入到數(shù)據(jù)表中 ， 需要注意的是 ， 表中主鍵字段的值不允許空缺 。 (3) 在打開的 “ 文件新建數(shù)據(jù)庫 ” 對話框中 ， 輸入數(shù)據(jù)庫文件名 (如 stu)， 并選擇保存的位置后 ， 單擊“ 創(chuàng)建 ” 按鈕 。 4. 數(shù)據(jù)庫系統(tǒng) 數(shù)據(jù)庫系統(tǒng)是由計(jì)算機(jī)硬件 、 操作系統(tǒng) 、 數(shù)據(jù)庫管理系統(tǒng)以及在其他對象支持下建立起來的數(shù)據(jù)庫 、 數(shù)據(jù)庫應(yīng)用程序 、 用戶和維護(hù)人員等組成的一個整體 。 3. 數(shù)據(jù)庫應(yīng)用程序 數(shù)據(jù)庫應(yīng)用程序是指用 VB、 FoxPro等開發(fā)工具設(shè)計(jì)的、實(shí)現(xiàn)某種特定功能的應(yīng)用程序。 第 14章 數(shù)據(jù)庫訪問技術(shù) (2) 選中 “ 空 Access數(shù)據(jù)庫 ” 后 ， 單擊 “ 確定 ” 按鈕 。 (4) 如果需要修改表結(jié)構(gòu) ， 可以在數(shù)據(jù)庫窗口中選擇了表名稱后 ， 單擊工具欄中 “ 設(shè)計(jì) ” 按鈕 ， 重新進(jìn)入創(chuàng)建表結(jié)構(gòu)窗口進(jìn)行必要的修改 。 第 14章 數(shù)據(jù)庫訪問技術(shù) 圖 創(chuàng)建查詢字段 第 14章 數(shù)據(jù)庫訪問技術(shù) 如果需要向查詢中添加一些計(jì)算字段 ， 如總分 、 平均分等 ， 可以使用字段生成器 。 第 14章 數(shù)據(jù)庫訪問技術(shù) 圖 Data控件和數(shù)據(jù)綁定控件的使用示例 第 14章 數(shù)據(jù)庫訪問技術(shù) 數(shù)據(jù)控件的屬性 數(shù)據(jù)控件是 VB的標(biāo)準(zhǔn)控件之一，可以直接從工具箱中加入窗體。其語法格式如下： Private Sub object_Validate (Action As Integer, Save As Integer) (事件處理代碼 ) End Sub 第 14章 數(shù)據(jù)庫訪問技術(shù) 數(shù)據(jù)控件的方法 1. Refresh方法 該方法主要用來建立或重新顯示與 Data控件相連接的數(shù)據(jù)庫記錄集。 ● MoveLast：使記錄集中的最后一條記錄成為當(dāng)前記錄 。 ● FindNext：查找符合條件的下一條記錄 。 本程序分為 3個窗體 ， 如圖 、 圖 。 用來存放總記錄條數(shù) “ 學(xué)號 ” 組合框 Combo1的 Click事件代碼為 Private Sub Combo1_Click() 39。 39。 amp。保留 1位小數(shù)點(diǎn) = 記錄號： amp。 單擊主窗體上的 “ 添加 ” 按鈕 Unload Form1 1 第 14章 數(shù)據(jù)庫訪問技術(shù) Else = False = False = False = False = False = True = True End If Else 第 14章 數(shù)據(jù)庫訪問技術(shù) If cishu 2 Then 39。 程序啟動后界面如圖 ， 用戶可以通過單擊窗體下方 ADO控件的移動箭頭改變文本框中顯示的記錄信息 。 / amp。 本例選擇了本地硬盤上的 “ 成績管理 .mdb”Access數(shù)據(jù)庫 。 (7) 在 “ 數(shù)據(jù)窗體向?qū)?—已完成 ” 對話框中 ， 用戶可以將以上各項(xiàng)設(shè)置保存成配置文件以備今后繼續(xù)使用 。 單擊 “ 更新 ” 按鈕時 ， 顯示圖 所示的口令驗(yàn)證對