学生信息管理系统vb课程设计报告

《学生信息管理系统vb课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、学生信息管理系统课程设计报告院系：数学与信息管理系专业：信息管理与信息系统学号：6姓名：张纪华时间：2013年12月04日一、课程设计题目：设计学生信息管理系统二、课程设计目的：1.了解学生信息管理系统的内容。2.掌握学生信息管理系统的基本运行模式。3.掌握学生信息管理系统设计的基本源程序。4.熟练掌握如何使用“If……Then”语句。5.掌握界面之间的链接程序语句。三、课程设计内容及详细设计及运行结果：（一）登陆界面1、界面：编写程序，在窗体上实现如图1.2所示的图形图1.2“登录界面”的界面2、代码：

2、（1）确定按钮：PrivateSubCommand1_Click()Form2.hideForm1.showIfText2.Text="6"AndText1.Text="张纪华"ThenMsgBox"欢迎"&Text1.Text&"进入学生信息查询系统！",64,"学生信息管理系统"Me.HideUnload登陆界面基本信息.ShowElseMsgBox"密码或用户名有误！"m=m+1Text2=""Text1=""Text1.SetFocusIfm>2ThenMsgBox"请核对密码重新登录！"EndI

3、fEndIfEndSub（2）清空按钮：PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub（3）退出按钮：PrivateSubCommand3_Click()Unload登陆界面EndSub（二）学生基本信息界面1、界面：编写程序，在窗体上实现如图1.3所示的图形图1.3“学生基本信息”的界面（1）、删除界面（2）、查找界面2、代码：PrivateSubCommand1_Click()DimaskAsIntegerSelectCaseInd

4、exCase0Adodc1.Recordset.AddNewEndSelectEndSubPrivateSubCommand2_Click()ask=MsgBox("删除否？",vbYesNo)Ifask=6ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndSubPrivateSubCommand3_Click()Adodc1.Reco

5、rdset.UpdateEndSubPrivateSubCommand4_Click()Adodc1.Recordset.CancelUpdateEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6_Click()DimmnoAsStringmno=InputBox("请输入学号","查找窗")Adodc1.Recordset.Find"学号="&mno&"",,,1IfAdodc1.Recordset.EOFThenMsgBox"无此学号

6、！",,"提示"EndSub四、数据库信息五、系统设计小结通过这次课程设计，我收益颇丰，感受深刻。虽然我这次做的设计可能不够好，但是为我对以后的visualbasic设计打下了很好的基础。在做这次课程设计的过程中，我们很努力，虽然当中我遇到很多难题，但是最终我还是顺利地完成了此次工作。在这一周的学习中，我终于体会到Microsoftvisualbasic功能的功能丰富，表达能力强，使用灵活方便，应用面广。VB语言是一种让我觉得很有挑战性、很有趣的一种语言，在最初接触他的时候会觉得很困难，，但在慢慢的实验和

7、学习中，渐渐觉得他并不像想象中那么困难，一步一步的熟悉，发现他的奇妙和实用性，也能一步一步完成一些简单基本的程序设计。在编写程序的过程中，一定要严谨认真，细心仔细。在对界面进行设计时，一定要好好理解题目的要求，并针对要求进行代码的编写。五、参考资料龚沛曾、杨志强、陆慰民《visualbasic程序设计教程》（第三版）