【文章內容簡介】 圖書賠償子窗體運行效果　　(2) 增加用戶子窗體代碼　　增加用戶子窗體是用來增加用戶的用戶名、密碼和權限的。其運行效果如圖36所示?！　螕簟按_定”按鈕后，還要返回一個信息框，提示成功信息，如圖37所示?！　?　　圖36 增加用戶子窗體運行效果 圖37 成功信息框　　窗體部分代碼的思路是，收集輸入的表中的字符串，然后與數(shù)據(jù)庫中的系統(tǒng)的用戶數(shù)據(jù)比較，如果不存在，則允許添加?！　rivate Sub Command1_Click()　　Dim sql As String　　Dim 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() Trim() Then　　MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, 　　　　 = 　　 = 　　Exit Sub　　ElseIf Trim() system And Trim() guest Then　　MsgBox 請選擇正確的用戶權限, vbOKOnly + vbExclamation, 　　　　 = 　　Exit Sub　　Else　　　　(0) = 　　(1) = 　　(2) = 　　　　　　下面是返回成功信息對話框的代碼:　　MsgBox 添加用戶成功, vbOKOnly + vbExclamation, 　　Unload Me　　End If　　End If　　End Sub　　(3) 修改密碼子窗體代碼　　修改密碼子窗體是用來修改用戶密碼的。其運行效果如圖38所示。　　　　圖38 修改密碼子窗體運行效果　　在“確定”按鈕的Click事件中添加如下代碼:　　Private Sub Command1_Click()　　Dim rs_chang As New 　　Dim sql As String　　If Trim() Trim() Then　　MsgBox 密碼不一致!, vbOKOnly + vbExclamation, 　　　　 = 　　 = 　　Else　　sql = select * from 系統(tǒng)管理 where 用戶名=39。 amp。 userID amp。 39。　　 sql, conn, adOpenKeyset, adLockPessimistic　　(1) = 　　　　　　MsgBox 密碼修改成功, vbOKOnly + vbExclamation, 　　Unload Me　　End If　　End Sub　　在上述代碼中，首先比較兩個表中的數(shù)據(jù)是否一致，(1) = 。最后，用MsgBox 密碼修改成功, vbOKOnly + vbExclamation，語句彈出一個信息框，告訴修改成功，如圖39所示?！　★@示目錄　　(4) 庫房管理子窗體代碼　　庫房管理子窗體是用來管理圖書資料的。其運行效果如圖40所示?！　　　D40 庫房管理子窗體　　實際上，設計庫房管理子窗體的程序代碼與增加用戶子窗體的代碼在思路上是完全相同的。就是在DataGrid的文本框中顯示圖書進出的清單，最后把填寫的明細存儲到數(shù)據(jù)庫中。　　檢查代碼如下:　　Option Explicit　　Dim rs_data2 As New 　　Dim select_row As String　　Dim showgrid2 As Boolean　　Dim rs_custom As New 　　Dim jinchu As String 39。 進出庫標志　　Dim modify As Boolean 39。 修改狀態(tài)標志　　Private Sub cmdexit_Click()　　Unload Me　　End Sub　　Private Sub Form_Load()　　On Error GoTo loaderror　　Dim sql As String　　sql = select * from 圖書資料　　 = adUseClient　　 sql, conn, adOpenKeyset, adLockPessimistic　　While Not 　　 (0)　　　　Wend　　findok = True　　modify = False 39。 非修改狀態(tài)　　showgrid2 = False　　displaygrid1 39。 調用顯示Datagrid1子程序　　loaderror:　　If 0 Then　　MsgBox 　　End If　　End Sub　　39。顯示msflexgrid1子程序　　Public Sub displaygrid1()　　Dim i As Integer　　On Error GoTo displayerror　　setgrid　　setgridhead　　 = 0　　If Not Then　　　　Do While Not 　　 = + 1　　 = 0　　If Not IsNull((0)) Then = (0) Else　　 = 　　 = 1　　If Not IsNull((1)) Then = (1) Else　　 = 　　 = 2　　If Not IsNull((2)) Then = (2) Else　　 = 　　 = 3　　If Not IsNull((3)) Then = (3) Else　　 = 　　 = 4　　If Not IsNull((4)) Then = (4) Else　　 = 　　 = 5　　If Not IsNull((5)) Then = (5) Else　　 = 　　　　Loop　　End If　　displayerror:　　If 0 Then　　MsgBox 　　End If　　End Sub　　Public Sub setgrid()　　Dim i As Integer　　On Error GoTo seterror　　With MSFlexGrid1　　.ScrollBars = flexScrollBarBoth　　.FixedCols = 0　　.Rows = + 1　　.Cols = 6　　.SelectionMode = flexSelectionByRow　　For i = 0 To .Rows 1　　.RowHeight(i) = 315　　Next　　For i = 0 To .Cols 1　　.ColWidth(i) = 1300　　Next i　　End With　　Exit Sub　　seterror:　　MsgBox 　　End Sub　　Public Sub setgridhead()　　On Error GoTo setheaderror　　 = 0　　 = 0　　 = 編號　　 = 1　　 = 購買日期　　 = 2　　 = 書名　　 = 3　　 = 類型