VB课程设计.docx

VB课程设计

第一篇：VB课程设计课程设计学院班级指导老师姓名学号成绩2013年月10日一．课程设计题目学生管理系统二．功能描述按设定的用户名密码进行登录后，可按需求进行对数据库中已有的学生信息及成绩进行查询，添加，删除，修改等操作。三．概要设计登录界面功能：让用户进行登录。主界面功能：让用户选择进行哪项操作。查询学生信息菜单功能：输入学生学号，对该学生的个人信息以及成绩进行查询，若直接点击查询按钮，则显示全部学生个人信息及成绩。编辑学生信息菜单功能：可对数据库中已有的学生信息进行查询，添加，删除，修改等操作。学生信息维护菜单功能：可对数据库中已有的学生成绩进行查询，添加，删除，修改等操作。四．详细设计五．效果以及存在问题说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解决办法。登录界面登录学生管理系统按查询条件查询打开修改学生信息子窗口学生成绩维护子窗口垂直窗口排列关于窗口不足：1.没有实现用户登录界面中的注册功能2.没有实现主界面中文件下的新建和保存功能。六．心得体会经过几天的苦战，终于把课程设计粗略的做完了。刚开始做的时候，毫无头绪，一片茫然。好在书本上有类似的实验，可以供参考。尽管如此，真正做起项目来，还是有着这样那样的困难，有时一个空格少打都会出错，导致我检查了半天才发现问题所在。由于VB语法还运用不熟练，很多代码都是模仿书本上的敲的，许多代码往往能编译通过，但很多都会抛出各种异常，让人头疼。有时系统就给出个有个参数没有被指定值，就可以让人搞的焦头烂额。因此，写程序真的也很需要强大的耐心，只要熬下去了，当你做出程序时，也会倍有成就感。目前，程序是基本写完了，平常学的理论都得到了运用，感觉自己的能力也增强了。一句话，实践才是硬道理。七．附录代码（附上各模块代码）1.登录界面PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickStaticnAsIntegerIftxtName.Text=“abc”AndtxtPassWord.Text=“123”ThenDimform2AsNewForm2()form2.Show()Me.Close()Elsen=n+1IfnMsgBox(“请输入正确的用户名和密码！”,MsgBoxStyle.Critical)ElseMsgBox(“请输入正确的用户名和密码！”,MsgBoxStyle.Critical)Button1.Enabled=FalseEndIfEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimform3AsNewForm3()form3.Show()Me.Close()EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubEndClass2.查询学生菜单代码PublicClassForm6PrivateSubForm6_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimobjConnAsNewOleDb.OleDbConnectionDimobjDaXS_KCAsNewOleDb.OleDbDataAdapterDimobjDaXSAsNewOleDb.OleDbDataAdapterDimobjCommXS_KCAsNewOleDb.OleDbCommandDimobjCommXSAsNewOleDb.OleDbCommandDimobjDsXS_KCAsNewDataSetDimobjDsXSAsNewDataSetobjConn.ConnectionString=“Provider=Microsoft.jet.OLEDB.4.0;datasource='D:XSCJ.mdb'”objCommXS.CommandText=“Select*FromXS”objCommXS_KC.CommandText=“Select*FromXS_KC”objCo