【文章內(nèi)容簡介】
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 SubEnd Sub本窗體用來錄入團(tuán)隊(duì)入住的信息,也是用ADO連接數(shù)據(jù)庫。定義變量:Option ExplicitDim rs_dclient As New “新增記錄”按鈕要求先填寫基本信息,然后與數(shù)據(jù)庫信息比較。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 Sub“修改記錄”按鈕的部分代碼如下:Private 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 Sub選擇入住信息列表中需要刪除的記錄,然后單擊“刪除記錄”按鈕,可以刪除所選記錄?!皠h除”按鈕的代碼如下:Private 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 Sub窗體載入時自動在網(wǎng)絡(luò)中添加數(shù)據(jù)庫中的信息,代碼如下:Private 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. 增加用戶窗體是用來增加用戶的用戶名、密碼和權(quán)限的。單擊“確定”按鈕后,還要返回一個信息框,提示成功的信息。 窗體部分代碼的思路是,收集輸入的表中的字符串,然后與數(shù)據(jù)庫中的系統(tǒng)的用戶數(shù)據(jù)比較,如果不存在,則允許添加。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 ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個用戶, vbOKOnly + vbExclamation, = = = = Exit Sub Else End If Wend If Trim() = Then MsgBox 密碼不能為空,請重新輸入!, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If Trim() Trim() Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() guest Then MsgBox 請選擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = 下面是返回成功信息對話窗口的代碼: MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() system guestEnd Sub修改密碼子窗體是用來修改用戶密碼的。 修改密碼子窗體運(yùn)行效果在“確定”按鈕的Click事件中添加如下代碼:Private