VB+Access设计图书管理系统

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 下面是返回成功信息对话框的代码: