End Sub
Private Sub Command5_Click()
If Adodc1.Recordset.EOF Then
MsgBox \记录空\
End Else Adodc1.Recordset.MoveFirst Exit Sub End Sub Private Sub Command6_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox \空记录\End Else Adodc1.Recordset.MoveLast End If End Sub Private Sub Command7_Click() MDIForm1.Show frmdengji.Hide End Sub 图书借阅和图书赔偿子窗体运行后如图34和图35所示，因为它们的代码和图书登记子窗体的代码雷同，在此
不做重复。
图34 图书借阅子窗体运行效果
图35 图书赔偿子窗体运行效果
(2) 增加用户子窗体代码
增加用户子窗体是用来增加用户的用户名、密码和权限的。其运行效果如图36所示。
单击“确定”按钮后，还要返回一个信息框，提示成功信息，如图37所示。
图36 增加用户子窗体运行效果 图37 成功信息框
窗体部分代码的思路是，收集输入的表中的字符串，然后与数据库中的系统的用户数据比较，如果不存在，则允许添加。
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = \MsgBox \用户名不能为空\Exit Sub Text1.SetFocus Else sql = \系统管理\rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then MsgBox \已有这个用户\Text1.SetFocus Text1.Text = \Text2.Text = \Text3.Text = \Combo1.Text = \Exit Sub Else rs_add.MoveNext
End If Wend
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox \两次密码不一致\
Text2.SetFocus Text2.Text = \Text3.Text = \Exit Sub ElseIf Trim(Combo1.Text) <>\MsgBox \请选择正确的用户权限\Combo1.SetFocus Combo1.Text = \Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close 下面是返回成功信息对话框的代码: