第16章vb數(shù)據(jù)庫應(yīng)用編程示例(參考版)
2024-10-11 16:24本頁面
【正文】 ? 按向?qū)崾就瓿珊罄m(xù)步驟。顯示記錄集當(dāng)前記錄 End Sub 移動(dòng)指針方法組代碼（續(xù)） ? “上一條 ” 命令按鈕 Private Sub CmdPrevious_Click() If = True Then End If Call Display 39。顯示記錄集當(dāng)前記錄 End Sub ? “末一條 ” 命令按鈕 Private Sub CmdLast_Click() Call Display 39。使 “ 刪除 ” 按鈕為可用狀態(tài) = False 39。使更新生效 = True 39。顯示記錄集當(dāng)前記錄 End Sub 數(shù)據(jù)操作按鈕組代碼（續(xù)） ? “更新 ” 命令按鈕 Private Sub CmdUpdate_Click() 39。顯示記錄集當(dāng)前記錄 End Sub 數(shù)據(jù)操作按鈕組代碼（續(xù)） ? “刪除 ” 命令按鈕 Private Sub CmdDel_Click() Dim res As Integer res = MsgBox(確實(shí)要?jiǎng)h除此行記錄嗎？ , _ vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then 39。使 “ 添加 ” 和 “ 刪除 ” 按鈕為可用狀態(tài) = True = True 39。使 “ 更改 ” 和 “ 取消 ” 按鈕為可用狀態(tài) = True = True ? “添加 ” 命令按鈕（續(xù)） 39。初始時(shí)使 “ 取消 ” 按鈕為不可用狀態(tài) = False End Sub 兩個(gè)通用的過程 ? 將記錄集中各字段的數(shù)據(jù)綁定到文本框中 Private Sub Display() = convertNull((sno).value) =convertNull((sname).value) = convertNull((ssex).value) = convertNull((sage).value) = convertNull((sdept).value) End Sub 兩個(gè)通用的過程（續(xù)） ? 將空值字段轉(zhuǎn)化為空字符串 Private Function convertNull(value As Variant) As Variant If IsNull(value) = True Then convertNull = Else convertNull = value End If End Function 數(shù)據(jù)操作按鈕組代碼 ? “添加 ” 命令按鈕 Private Sub CmdAdd_Click() 39。建立記錄集 Set adoRst = New
數(shù)學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1