求access数据库制作的图书管理系统,有增删改查功能
① 打开数据库时能够直接进入主界面:
菜单中选择:工具=>启动=>设置“显示窗体/页”
② 在“财务科目管理窗体”中,添加新的财务科目,点击“新建科目”按钮时,系统将把“财务科目管理”窗体中其他所有控件都清空,写出实现该功能在 “新建科目”按钮的单击事件代码。
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
DoCmd.GoToRecord , , acNewRec
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
③ 完成“保存科目”功能。在“财务科目管理窗体”中对应控件内输入待保存科目的信息,点击“保存科目”按钮,将窗体中控件内的值保存到“财务科目”数据表中。写出实现该功能的事件代码。
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub