MsgBox \添加用户成功\

Unload Me

End If

End If

End Sub

(3) 修改密码子窗体代码 修改密码子窗体是用来修改用户密码的。其运行效果如图38所示。

图38 修改密码子窗体运行效果

在“确定”按钮的Click事件中添加如下代码: Private Sub Command1_Click() Dim rs_chang As New ADODB.Recordset Dim sql As String If Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox \密码不一致!\Text1.SetFocus Text1.Text = \Text2.Text = \Else sql = \系统管理 where 用户名='\

rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_chang.Fields(1) = Text1.Text

rs_chang.Update

rs_chang.Close

MsgBox \密码修改成功\

Unload Me

End If

End Sub

在上述代码中，首先比较两个表中的数据是否一致，然后用rs_chang.Fields(1) = Text1.Text语句把代码输入到数据库中。最后，用MsgBox \密码修改成功\，\语句弹出一个信息框，告诉修改成功，如图39所示。

显示目录

(4) 库房管理子窗体代码

库房管理子窗体是用来管理图书资料的。其运行效果如图40所示。

图40 库房管理子窗体

实际上，设计库房管理子窗体的程序代码与增加用户子窗体的代码在思路上是完全相同的。就是在DataGrid的文本框中显示图书进出的清单，最后把填写的明细存储到数据库中。

检查代码如下:

Option Explicit

Dim rs_data2 As New ADODB.Recordset Dim select_row As String Dim showgrid2 As Boolean Dim rs_custom As New ADODB.Recordset Dim jinchu As String ' 进出库标志 Dim modify As Boolean ' 修改状态标志 Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() On Error GoTo loaderror Dim sql As String sql = \图书资料\rs_custom.CursorLocation = adUseClient rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic While Not rs_custom.EOF Combo1.AddItem rs_custom.Fields(0) rs_custom.MoveNext Wend

findok = True

modify = False ' 非修改状态

showgrid2 = False

displaygrid1 ' 调用显示Datagrid1子程序loaderror: If Err.Number <> 0 Then MsgBox Err.Description End If End Sub '显示msflexgrid1子程序 Public Sub displaygrid1() Dim i As Integer On Error GoTo displayerror setgrid setgridhead MSFlexGrid1.Row = 0 If Not rs_data1.EOF Then rs_data1.MoveFirst Do While Not rs_data1.EOF MSFlexGrid1.Row = MSFlexGrid1.Row + 1