Else
If Data1.Recordset.RecordCount = 0 Then MsgBox \\\没有记录\\\注意\\\Exit Sub Else
str1 = MsgBox(\\\删除该记录吗?\\\删除\\\If str1 = 1 Then
Data1.Recordset.Delete Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then MsgBox \\\记录数为零\\\Data1.Recordset.AddNew End If End If End If End If End Sub
四、在此过程中遇到的问题以及解决方法: 在开始编写程序的时候总是有一些出错,在查找有关书籍和向老师询问后得出了结果。在将界面与数据库相连接的时候,不知道用哪种方法,在老师的帮助下我学会了两种方法:1.DATA、2.ADODC。我最终使用DATA这种方法。 五、心得体会:
在这次的设计过程中,我学到的不仅是知识,我还认识到许多事情。这次设计使我的编程水平提高了一大步,使我充分的认识到合作的可贵。由于这次设计涉及到数据库,我的学到了不少编程工具与数据库连接的知识,对数据库的操作有了进一步的了解。这次设计对我的综合能力是一次很好的锻炼,但是我必须承认自己的能力和知识还很肤浅。所以今后我的学习道路还是很漫长的。最后,在这里我要衷心的感谢我们的指导老师牛丽、程渊,谢谢她的悉心指导和热心帮助。由于我水平有限,加之时间短暂,故学籍管理系统中还有许多不足之处,请老师批评指正,我会在以后的制作中不断改进,不断完善。
数据库课程设计学籍管理系统
ElseIfData1.Recordset.RecordCount=0ThenMsgBox\\\没有记录\\\注意\\\ExitSubElsestr1=MsgBox(\\\删除该记录吗?\\\删除\\\Ifstr1=1ThenData1.Recordset.DeleteData1.RefreshIf
推荐度:
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
点击下载文档文档为doc格式