VB程序设计课程设计.docx
《VB程序设计课程设计.docx》由会员分享,可在线阅读,更多相关《VB程序设计课程设计.docx(7页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、VB程序设计课程设计 课程设计 学 院 班 级 指导教师 姓 名 学 号 成 绩 2023年 月 10 日 一课程设计题目 学生治理系统 二功能描述 按设定的用户名密码进展登录后,可按需求进展对数据库中已有的学生信息及成绩进展查询,添加,删除,修改等操作。 三概要设计 登录界面功能:让用户进展登录。主界面功能:让用户选择进展哪项操作。 查询学生信息菜单功能:输入学生学号,对该学生的个人信息以 及成绩进展查询,若直接点击查询按钮,则显示全部学生个人信息及成绩。 编辑学生信息菜单功能:可对数据库中已有的学生信息进展查 询,添加,删除,修改等操作。 学生信息维护菜单功能:可对数据库中已有的学生成绩进
2、展查 询,添加,删除,修改等操作。 四具体设计 五效果以及存在问题 说明系统的运行效果(附上运行界面图片)、存在哪些缺乏以及预期的解决方法。 登录界面 登录学生治理系统 按查询条件查询 翻开修改学生信息子窗口 学生成绩维护子窗口 垂直窗口排列 关于窗口 缺乏:1.没有实现用户登录界面中的注册功能 2.没有实现主界面中文件下的新建和保存功能。 六心得体会 经过几天的苦战,最终把课程设计粗略的做完了。刚开头做的时候,毫无头绪,一片茫然。好在书本上有类似的试验,可以供参考。尽管如此,真正做起工程来,还是有着这样那样的困难,有时一个空格少打都会出错,导致我检查了半天才发觉问题所在。由于VB语法还运用不
3、娴熟,许多代码都是仿照书本上的敲的,很多代码往往能编译通过,但许多都会抛出各种特别,让人头疼。有时系统就给出个有个参数没有被指定值,就可以让人搞的焦头烂额。因此,写程序真的也很需要强大的急躁,只要熬下去了,当你做出程序时,也会倍有成就感。目前,程序是根本写完了,寻常学的理论都得到了运用,感觉自己的力量也增加了。一句话,实践才是硬道理。 七附录代码 (附上各模块代码) 1.登录界面 Public Class Form1 Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Static n As Integer If =
4、“abc” And = “123” Then Dim form2 As New Form2() () () Else n = n + 1 If n ”“ Then WhereStr = ” 学号like “ + Trim() End If = ”Provider = ;data source = ”D:”“ = ” Select * From XS “ objCommXS_ = ” Select * From XS_KC “ If WhereStr ”“ Then = Data Source=D:“ = ” Select * From XS “ If WhereStr ”“ Then = da
5、ta source = ”D:”“ = ” Select * From XS “ If WhereStr ”“ Then = Data Source=D:“ = ” Select * From XS_KC “ If WhereStr ”“ Then = data source = ”D:”“ = ” Select * From XS_KC “ If WhereStr ”“ Then = & ”where“ & WhereStr End If = objConn = objCommXS () (objDsXS, ”XS_KC“) () = (”XS_KC“) End Sub Private Su
6、b Form4_Load(ByVal sender As , ByVal e As )Handles WhereStr = ”“ bindgridview(WhereStr) End Sub End Class 5.主菜单界面代码 Public Class Form2 Private Sub quitMenuItem_Click(ByVal sender As , ByVal e As )Handles () End Sub Private Sub importscoreMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form4
7、 As New Form4 = Me = () End Sub Private Sub updateinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form7 As New Form7 = Me = () End Sub Private Sub selectinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form6 As New Form6 = Me = () End Sub Private Sub cascadeMenuItem_Click(By
8、Val sender As , ByVal e As )Handles () End Sub Private Sub horizonMenuItem_Click(ByVal sender As , ByVal e As )Handles () End Sub Private Sub verticalMenuItem_Click(ByVal sender As , ByVal e As )Handles () End Sub Private Sub aboutMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form5 As New
9、 Form5 = Me = () End Sub Private Sub ToolStripButton1_Click(ByVal sender As , ByVal e As )Handles () End Sub Private Sub ToolStripButton2_Click(ByVal sender As , ByVal e As )Handles () End Sub Private Sub ToolStripButton3_Click(ByVal sender As , ByVal e As )Handles () End Sub Private Sub ToolStripBu
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 课程设计
限制150内