VB+Access设计图书管理系统

Private Sub adduser_Click()

frmadduser.Show

End Sub

下面是响应“查询输出”子菜单Click事件，调出查询输出窗体代码。

Private Sub chaxunshuchu_Click()

frmfind.Show End Sub 下面是响应“退出”子菜单Click事件，调出退出窗体代码。 Private Sub exit_Click() Unload Me End Sub 下面是响应“图书登记”子菜单Click事件，调出图书登记窗体代码。 Private Sub checkin_Click() frmdengji.Show End Sub 下面是响应“修改密码”子菜单Click事件，调出修改密码窗体代码。 Private Sub changepwd_Click() frmchangepwd.Show End Sub 下面是响应“图书借阅”子菜单Click事件，调出图书借阅窗体代码。 Private Sub borrow_Click() frmjieyue.Show End Sub

下面是响应“图书赔偿”子菜单Click事件，调出图书赔偿窗体代码。

Private Sub tushupeichang_Click()

frmpeichang.Show 1

End Sub

下面是响应“值班管理”菜单Click事件，调出值班管理窗体代码。

Private Sub zhibanguanli_Click()

frmzhiban.Show 1

End Sub

下面是响应“投诉管理”子菜单Click事件，调出投诉管理窗体代码。

Private Sub tousuguanli_Click()

frmtousu.Show 1

End Sub

2、各子窗体的代码

在各个子窗体建立好后，就可以根据各个子窗体的功能给它们添加相应代码了。

(1) 图书登记子窗体代码

本窗体用来填写图书登记的信息，用ADO来连接数据库，是本窗体的重点。采用MDI的子程序，所以运行后，它出现在主程序的界面下，如图33所示。

图33 图书登记子窗体 按钮控件要求先填写基本信息，然后与数据库信息比较。 Private Sub Command1_Click() On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Sub adderr: MsgBox Err.Description End Sub Private Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(\删除当前记录吗?\.Delete

.MoveNext

If .EOF Then .MoveLast

End If

End If

End With Exit Sub deleteerr: MsgBox Err.Description End Sub Private Sub Command3_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox \这是最后一条记录\Adodc1.Recordset.MoveLast End If End Sub Private Sub Command4_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox \这是第一条记录\Adodc1.Recordset.MoveFirst End If