VB+Access设计图书管理系统

来源：用户分享时间：2025/5/17 17:49:13 本文由

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

图45 运行的投诉管理子窗体以下为窗体的代码: 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.MovePrevious If Adodc1.Recordset.BOF Then MsgBox \这是第一条记录\Adodc1.Recordset.MoveFirst End If End Sub Private Sub Command4_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox \这是最后一条记录\Adodc1.Recordset.MoveLast

End If

End Sub

Private Sub Command5_Click()

If Adodc1.Recordset.EOF Then

MsgBox \记录空\End Else Adodc1.Recordset.MoveFirst End If 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 frmtousu.Hide

End Sub

到这里，各个窗体的界面和代码都介绍完了。发布后可以作为一个实际的项目应用。

关于我们广告服务付款方式南京地图珠江路在线网络电话：84065370 传真：86983769 QQ：58667443 广告：13813822567

搜索更多关于： VB+Access设计图书管理系统的文档

VB+Access设计图书管理系统.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c2t3um1j9x69s4tl8lgrm6o2vt5lzqa00cqk_12.html（转载请注明文章来源）