'想要忽略错误,注释掉下一行
'想要捕获它们,在此添加代码以处理它们
MsgBox"Dataerroreventhiterr:"&Description
EndSub
PrivateSubdatPrimaryRS_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)
'为这个recordset显示当前记录位置
datPrimaryRS.Caption="Record:"&CStr(datPrimaryRS.Recordset.AbsolutePosition)
EndSub
PrivateSubdatPrimaryRS_WillChangeRecord(ByValadReasonAsADODB.EventReasonEnum,ByValcRecordsAsLong,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)
'验证代码置于此处
'下列动作发生时该事件被调用
DimbCancelAsBoolean
SelectCaseadReason
CaseadRsnAddNew
CaseadRsnClose
CaseadRsnDelete
CaseadRsnFirstChange
CaseadRsnMove
CaseadRsnRequery
CaseadRsnResynch
CaseadRsnUndoAddNew
CaseadRsnUndoDelete
CaseadRsnUndoUpdate
CaseadRsnUpdate
EndSelect
IfbCancelThenadStatus=adStatusCancel
EndSub
PrivateSubcmdAdd_Click()
GoToAddErr
datPrimaryRS.Recordset.MoveLast
grdDataGrid.SetFocus
SendKeys"{down}"
ExitSub
AddErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdDelete_Click()
GoToDeleteErr
WithdatPrimaryRS.Recordset
.Delete
.MoveNext
If.EOFThen.MoveLast
EndWith
ExitSub
DeleteErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdRefresh_Click()
'只有多用户应用程序需要
GoToRefreshErr
datPrimaryRS.Refresh
ExitSub
RefreshErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdUpdate_Click()
GoToUpdateErr
datPrimaryRS.Recordset.UpdateBatchadAffectAll
ExitSub
UpdateErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdClose_Click()
UnloadMe
EndSub
PrivateSubgrdDataGrid_Click()
EndSub
小结
本程序创建了相对简单的数据库应用程序--企业人事管理系统,学习了VB带可视化数据库管理器的创建,多文档窗体的创建和使用,菜单编辑的使用,ADO数据控件和数据表格控件扔的使用,实现了对于数据库中数据的存取、显示、添加、删除、修改和查询等一系列操作,从而对用VB编写数据库应用程序的过程有了基本的了解,并且学会了一些最基本的数据操作方法。相信对过这次毕业设计的制作可以为以后的数据库编程的学习打下很好的基础。
参考文献
电脑报2003年合订本西南师范大学出版社出版
VB6.0入门与提高高等教育出版社
VisualBasic数据库系统开发实例与解析高等教育出版社
VisualBasic程序设计教程清华大字出版社
VisualBasic程序设计题解与上机指导清华大字出版社
上一篇:
VB+ac人事管理系统(论文和程序)
下一篇:
一个人晕着也能去看病打针