第16章vb數(shù)據(jù)庫(kù)應(yīng)用編程示例-資料下載頁(yè)
2024-10-09 16:24本頁(yè)面
【正文】 xclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then 39。如果確實(shí)要?jiǎng)h除 If = True Then End If End If Call Display 39。顯示記錄集當(dāng)前記錄 End Sub 數(shù)據(jù)操作按鈕組代碼（續(xù)） ? “更新 ” 命令按鈕 Private Sub CmdUpdate_Click() 39。將文本框中的當(dāng)前值寫入結(jié)果集相應(yīng)字段中 (Sno) = Trim() (Sname) = Trim() (Ssex) = Trim() (Sage) = CInt(Trim()) (Sdept) = Trim() 39。使更新生效 = True 39。使 “ 添加 ” 按鈕為可用狀態(tài) = True 39。使 “ 刪除 ” 按鈕為可用狀態(tài) = False 39。使 “ 取消 ” 按鈕為不可用狀態(tài) End Sub 移動(dòng)指針方法組代碼 ? “第一條 ” 命令按鈕 Private Sub CmdFirst_Click() Call Display 39。顯示記錄集當(dāng)前記錄 End Sub ? “末一條 ” 命令按鈕 Private Sub CmdLast_Click() Call Display 39。顯示記錄集當(dāng)前記錄 End Sub 移動(dòng)指針方法組代碼（續(xù)） ? “下一條 ” 命令按鈕 Private Sub CmdNext_Click() If = True Then End If Call Display 39。顯示記錄集當(dāng)前記錄 End Sub 移動(dòng)指針方法組代碼（續(xù)） ? “上一條 ” 命令按鈕 Private Sub CmdPrevious_Click() If = True Then End If Call Display 39。顯示記錄集當(dāng)前記錄 End Sub 結(jié)束程序代碼 ? “退出 ” 命令按鈕 Private Sub CmdExit_Click() End End Sub 數(shù)據(jù)窗體向?qū)? ? 添加數(shù)據(jù)窗體向?qū)? ? 數(shù)據(jù)窗體向?qū)亲鳛橥饨映绦虼嬖诘? ? 添加方法 ? 選擇 VB的 “ 外接程序 ” 菜單下的 “ 外接程序管理器 ” ? 在 “ 可用外接程序 ” 中選中 “ VB6數(shù)據(jù)窗體向?qū)?” 使用數(shù)據(jù)窗體向?qū)? ? 在 “ 外接程序 ” 菜單中選擇 “ 數(shù)據(jù)窗體向?qū)?” 命令，啟動(dòng)數(shù)據(jù)窗體向?qū)В? ? 在 “ 連接信息 ” 對(duì)話框中，用戶需要輸入連接數(shù)據(jù)庫(kù)的信息。 ? 按向?qū)崾就瓿珊罄m(xù)步驟。
數(shù)學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1