【文章內(nèi)容簡介】 OKOnly + vbExclamation, End If = 新增記錄 = True = True = FalseEnd Ifadderror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf = 修改記錄 Then answer = MsgBox(確定要修改嗎？, vbYesNo, ) If answer = vbYes Then = 確定 = False = False = True = True Else Exit Sub End IfElse If Not IsNull() Then End If = 修改記錄 = True = True = False = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End Ifcmdmodify:If 0 Then MsgBox End IfEnd SubPrivate Sub Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(確定要刪除嗎？, vbYesNo, )If answer = vbYes Then = True MsgBox 成功刪除！, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command4_Click()If = 確定 Then = False = False = 新增記錄 = True = True = FalseElseIf = 確定 Then = False = 修改記錄 = True = True = FalseEnd If = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 散客資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_client = FalseExit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd Sub（1） 團(tuán)隊(duì)入住子窗體代碼本窗口是用來錄入團(tuán)隊(duì)入住信息，也是用ADO來連接數(shù)據(jù)庫的。Option ExplicitDim rs_dclient As New Private Sub Command1_Click()On Error GoTo adderrorIf = 新增記錄 Then 39。當(dāng)此按鈕的狀態(tài)為為“增加記錄”時 = 確定 39。按鈕名稱改為“確定” = False 39。刪除與修改按鈕不可用 = False = True 39。取消按鈕可用 = True = True 39。設(shè)定datagrid可以增加記錄ElseIf Not IsNull() Then If Trim((團(tuán)隊(duì)名稱).CellText()) = Then MsgBox 團(tuán)隊(duì)名稱不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((負(fù)責(zé)人姓名).CellText()) = Then MsgBox 負(fù)責(zé)人姓名不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((證件號碼).CellText()) = Then MsgBox 證件號碼不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim((房間號碼).CellText()) = Then MsgBox 房間號碼！, vbOKOnly + vbExclamation, Exit Sub End If MsgBox 添加信息成功！, vbOKOnly + vbExclamation, = False = FalseElse MsgBox 沒有添加信息！, vbOKOnly + vbExclamation, End If = 新增記錄 = True = True = FalseEnd Ifadderror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf = 修改記錄 Then answer = MsgBox(確定要修改嗎？, vbYesNo, ) If answer = vbYes Then = 確定 = False = False = True = True Else Exit Sub End IfElse If Not IsNull() Then End If = 修改記錄 = True = True = False = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End Ifcmdmodify:If 0 Then MsgBox End IfEnd SubPrivate Sub Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(確定要刪除嗎？, vbYesNo, )If answer = vbYes Then = True MsgBox 成功刪除！, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command4_Click()If = 確定 Then = False = False = 新增記錄 = True = True = FalseElseIf = 確定 Then = False = 修改記錄 = True = True = FalseEnd If = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 團(tuán)隊(duì)資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_dclient = FalseExit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd Sub（2）增加用戶子窗體代碼Private Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = Then MsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = F