VB课程设计.doc
【精品文档】如有侵权，请联系网站删除，仅供学习与交流VB课程设计.精品文档.新疆工程学院课程设计说明书题目名称： 学生成绩管理系统的设计与实现 系 部： 计算机工程系 专业班级： 信息管理12-16 学 号： 2012232315 学生姓名： 李艳华 指导教师： 努斯来提 艾散 完成日期： 2013年7月12日 （此页背书）格式及要求1、摘 要 1)摘要正文 (小四，宋体) 摘要内容200300字为易，要包括目的、方法、结果和结论。2）关键词 XXXX；XXXX；XXXX (38个主题词) (小四，黑体) 2、目录格式 目 录(三号，黑体，居中) 1 XXXXX（小四，黑体） 1 1.l XXXXX(小四，宋体) 2 1.1.1 XXXXX(同上) 33、说明书正文格式： 1. XXXXX (三号，黑体)11 XXXXX(四号，黑体)1.1.1 XXXXX(小四，黑体) 正文：XXXXX(小四，宋体)（页码居中）4、 参考文献格式：列出的参考文献限于作者直接阅读过的、最主要的且一般要求发表在正式出版物上的文献。参考文献的著录，按文稿中引用顺序排列。参考文献内容(五号，宋体)示例如下： 期刊序号作者1，作者2，作者n题(篇)名，刊名(版本)，出版年，卷次(期次)。图书序号作者1，作者2，作者n书名，版本，出版地，出版者，出版年。5、.纸型、页码及版心要求： 纸 型： A4，双面打印 页 码： 居中，小五版心距离：高：240mm(含页眉及页码)，宽：160mm相当于A4纸每页40行，每行38个字。6、量和单位的使用： 必须符合国家标准规定，不得使用已废弃的单位。量和单位不用中文名称，而用法定符号表示。新疆工程学院课程设计评定意见设计题目： 学生成绩管理系统设计与实现 学生姓名： 李艳华 评定意见：评定成绩： 指导教师（签名）： 年 月 日（此页背书）评定意见参考提纲：1.学生完成的工作量与内容是否符合任务书的要求。2.学生的勤勉态度。3.设计或说明书的优缺点，包括：学生对理论知识的掌握程度、实践工作能力、表现出的创造性和综合应用能力等。新疆工程学院课程设计任务书2012/2013 学年下学期 2013年7月1日专业信息管理班级12-16课程名称VB.NET程序设计设计题目学生成绩管理系统的设计与实现指导教师努斯来提 艾山起止时间2013.7.17.12周数2设计地点B501机房设计目的：1 通过本次课程设计加深对本课程内容的理解，提高软件设计、编写及程序调试的能力。2 掌握VB.NET界面设计并数据库的连接。3. 掌握VB.NET程序的代码设置，学会使用VB.NET设计实用程序。设计任务或主要技术指标：1 学生成绩管理系统 2.职工工资管理系统 3.图书管理系统 以上题目任选其一。要求：1掌握面向对象程序开发思想及其流程。2掌握对VB.NET应用程序的运行、修改、调试和数据库的连接操作。设计进度与要求：第1天：下达设计任务，借参考书，确定设计方案；确定思路；设计第一个界面“用户登录”界面第2,3,4,5天：设计数据录入、修改、删除和查询界面；建立数据库（使用SQLSERVER2005）并数据库连接第3,4天：交换机、路由器的配置和使用；第6,7天：调试代码并运行系统第8,9天：完成课程设计说明书第10天：提交课程设计说明书，答辩；第5天：整理论文，答辩；主要参考书及参考资料：教研室主任（签名） 系（部）主任（签名） 2013年7月10日摘要随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。学生成绩管理系统是一个不断发展的新型科学系统，任何一个学校要生存要发展，要高效率的把内部活动有机的，因为管理这些庞大的体系是非常难的，要想有机的组织起来，就必须建立与自身特点相结合的管理系统。本文对VB.NET 应用程序设计工具进行了较深的学习和应用，利用其提供的各种面向对象的开发工具，尤其是数据窗这一方便而简洁操作数据库的智能化对象，主要完成了对学生成绩管理系统的部分分析，form窗体的设计等；系统设计部分主要介绍了系统功能设计和数据库之间的关系设计。学生成绩管理系统是典型的信息管理系统,其开发主要包括SQL Server建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。有了学生成绩管理系统既方便了学生自己的成绩查询，也方便了老师处理学生成绩管理的有理性、准确性、可行性。关键字：学生成绩管理系统；SQL Server和VB.net目录1.系统规划11.1系统可行性分析11.1.1 技术可行性分析11.1.2 经济可行性分析11.2 系统需求分析12.数据库的实现32.1数据的导入与表32.1.1进入SQL Server.2005的进入32.1.2学生基本信息表42.1.3用户表的生成42.2数据库与SQL Server的链接52.2.1数据库链接过程53学生成绩管理系统的实现73.1登陆界面的设计73.1.1登陆页面73.2教师登陆界面103.2.1用户和密码错误运行结果103.2.2按学号查询113.3学生登陆界面133.3.1按学号查询153.3.2增加学生信息16.总结18致谢19参考文献201.系统规划1.1系统可行性分析1.1.1 技术可行性分析从硬件和开发环境上考虑，除了数据库服务器需求稍微高了些，其他方面都可以在现有的条件下解决。从技术上看，利用做前台和sql server 做后台连接很方便，一般了解怎样使用这两个软件的基本上都可以操作。本系统力求性能稳定、数据精确、决策及时，提高人员利用率，减少设备费用，减少工作时间已达到优化管理的目的。1.1.2 经济可行性分析本系统所用的开发工具和软件都差不多是免费的。而且，由于系统能够在未来较长的一段时期稳定的发挥作用，这对于学校的办公自动化管理，节省老师和学生的时间，可以方便老师对学生的成绩的修改，查询及刷新，方便学生查询自己的成绩，节约纸张。1.2 系统需求分析 需求分析的过程可以说是一个具体问题的反复理解和抽象的过程。需求分析阶段是软件产品生存命期的一个重要阶段，其根本任务是确定用户对软件系统的需求。所谓需求是指用户对软件性能和功能的要求。学生成绩管理系统正是一款可以方便快捷的达到老师和学生都能节约时间的功能，简单的利用sql和进行操作。就可以节省老师和学生的大量时间，方便老师对学生的成绩进行查询修改及刷新！更方便学生查询自己的成绩。学生成绩管理的系统图学生成绩管理系统的E-R图2.数据库的实现2.1数据的导入与表进入SQL Server的界面如图2-1-1SQL Serve页面2.1.1进入SQL Server.2005的进入图2-1-1SQL Serve页面2.1.2学生基本信息表学生基本学校表和用户表的建立与生成如图2-1-2学生基本信息表图图2-1-3用户表图2-1-2学生基本信息表 2.1.3用户表的生成图2-1-3用户表2.2数据库与SQL Server的链接2.2.1数据库链接过程1、 SQL启动à安全性à登录名àsa（右键）à属性à常规à密码（任意改）->去掉“强制实施密码策略”|状态à启用à确定2、 选择用户数据库（右键）à属性à文件à所有者该成sa用户à确定3、 服务器上（admin）à属性à安全性àSQL Server和Windows身份验证4、 服务器（右键）à重启5、 安全性àsaà属性à密码去掉（空白）à确定数据库的连接如图2-2-1数据的链接图2-2-1数据的链接数据库与SQL Server的链接代码Module Module1 Public Function GetDataSource(ByVal sql As String) As DataTable Dim sqlCon As New SqlClient.SqlConnection("Data Source=B21;Database=student;User Id=sa;Pwd=") Dim sqlAda As SqlClient.SqlDataAdapter Dim dt As DataTable sqlAda = New SqlClient.SqlDataAdapter(New SqlClient.SqlCommand(sql, sqlCon) dt = New DataTable Try sqlAda.Fill(dt) Catch ex As Exception MessageBox.Show(ex.Message + Chr(10) + Chr(13) + ex.StackTrace) Return New DataTable End Try Return dt End FunctionEnd Module3学生成绩管理系统的实现3.1登陆界面的设计登陆页面、教师登陆界面、学生登陆界面 ；如图3-1-1登陆页面、3-1-2教师登陆、 图3-1-3学生登陆3.1.1登陆页面图3-1-1登陆页面Timer控件的代码： If Label1.Left <= Me.Width Then Label1.Left = Label1.Left + 2 Else Label1.Left = 0 End If取消代码：Me.TextBox1.Text = "" Me.TextBox2.Text = "" Me.TextBox1.Focus()确定代码： Dim str As String Static n As Integer If RadioButton1.Checked = True Then If Me.TextBox1.Text = "" And Me.TextBox2.Text = "" Then MsgBox("用户名或密码不能为空，请重新输入！", 0 + 16, "提示") Me.TextBox1.Focus() ElseIf Me.TextBox1.Text <> "" And Me.TextBox2.Text = "" Then MsgBox("密码不能为空，请重新输入！", 0 + 16, "提示") Me.TextBox2.Focus() Else str = "select * from 用户表 where 学号='" & Me.TextBox1.Text & "' and 密码='" & Me.TextBox2.Text & "' And 类 = '0' " Dim dt As DataTable = Module1.GetDataSource(str) If dt.Rows.Count = 0 Then MsgBox("用户名或密码错误，请重新输入！", 0 + 16, "提示") Me.TextBox1.Text = "" Me.TextBox2.Text = "" Me.TextBox1.Focus() n += 1 If n = 3 Then Me.Close() End If Else Form2.Show() Me.Hide() End If End If End If If Me.RadioButton2.Checked = True Then If Me.TextBox1.Text = "" And Me.TextBox2.Text = "" Then MsgBox("用户名或密码不能为空，请重新输入！", 0 + 16, "提示") Me.TextBox1.Focus() ElseIf Me.TextBox1.Text <> "" And Me.TextBox2.Text = "" Then MsgBox("密码不能为空，请重新输入！", 0 + 16, "提示") Me.TextBox2.Focus() Else str = "select * from 用户表 where 学号='" & Me.TextBox1.Text & "' and 密码='" & Me.TextBox2.Text & "' And 类 = '1' " Dim dt As DataTable = Module1.GetDataSource(str) If dt.Rows.Count = 0 Then MsgBox("用户名或密码错误，请重新输入！", 0 + 16, "提示") Me.TextBox1.Text = "" Me.TextBox2.Text = "" Me.TextBox1.Focus() n += 1 If n = 3 Then MsgBox("您不能进入该系统") Me.Close() End If Else Form3.Show() Me.Hide() Form2.Label1.Text &= Me.TextBox1.Text3.2教师登陆界面3.2.1用户和密码错误运行结果3.2.2按学号查询运行结果图3-1-2教师登陆查询的代码：im sqltxt, txt1 As String txt1 = Me.TextBox1.Text.ToString If Me.RadioButton1.Checked = True Then sqltxt = "select * from stu where 学号='" & txt1 & " '" Me.DataGridView1.DataSource = GetDataSource(sqltxt) End If If Me.RadioButton2.Checked = True Then sqltxt = "select * from stu where 姓名='" & txt1 & " '" Me.DataGridView1.DataSource = GetDataSource(sqltxt) End If修改代码：Dim sqltxt As String sqltxt = "Update stu Set 学号='" & TextBox2.Text & "' Where 学号='" & TextBox3.Text & " '" Me.DataGridView1.DataSource = GetDataSource(sqltxt)刷新代码：Dim sqltxt As String sqltxt = "select * from stu" Me.DataGridView1.DataSource = GetDataSource(sqltxt)删除代码Dim sqltxt, txt1 As String txt1 = Me.TextBox1.Text.ToString If Me.RadioButton1.Checked = True Then sqltxt = "Delete From stu Where 学号='" & txt1 & " '" End If If Me.RadioButton2.Checked = True Then sqltxt = "Delete * from stu where 姓名='" & txt1 & " '" End If Me.DataGridView1.DataSource = GetDataSource(sqltxt)增加新纪录代码：Form4.Show() Me.Hide()3.3学生登陆界面3.3.1按学号查询运行结果：3.3.2增加学生信息运行结果图3-1-3学生登陆页面连接数据库代码： Me.DataGridView1.DataSource = GetDataSource("select * from stu")查询代码：Dim sqltxt, txt1 As String txt1 = Me.TextBox1.Text.ToString sqltxt = "select * from stu where 学号= " & txt1 Me.DataGridView1.DataSource = GetDataSource(sqltxt)增加代码：Dim sqltxt As String sqltxt = "insert into stu (学号,姓名,性别,班级,出生日期,成绩) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')" Me.DataGridView1.DataSource = GetDataSource(sqltxt).总结学生成绩管理系统是一个典型的信息管理系统，开发本系统的过程中首先要对学校学生成绩管理进行系统调研，熟悉每个学生的学号、成绩等的流程、步骤：其次在系统需求分析过程中，要透过现象看本质，敏锐观察到学生成绩管理存在的各种问题。并在总体设计把握好对问题的分析、理解、进而解决问题：选用开发工具要选用自己最最熟悉、应用较多的开发工具，本系统开发选用VB.NET做前台和sql server做后台数据处理 ，其具有语言简单、功能强大、组件众多的优点。本企业工资管理系统极大提高了工作效率，节省了学生和老师的时间，最终满足学生成绩管理系统的完善，系统力求性能稳定、数据精确、决策及时，提高人员利用率，减少设备费用，减少工作时间已达到优化管理的目的。、致谢从编写程序到拟定报告，历时两个星期。在本设计完成之际，首先向我的指导老师以诚挚的谢意。在报告的书写过程中，老师给了我许多的帮助和关怀，指导老师治学严谨，带人平易近人，在指导老师的细心指导下，我学到了扎实的专业知识。同时，衷心感谢我的同床同学，在我的实训报告的写作中，与同学们的探讨交流是我收益颇多，同时，他们也给了我很多无私的帮助和支持，我深表谢意。参考文献 1 李春葆，刘胜才，张志民，VB.NET 程序设计教程. 北京：清华大学出版社，2007,12 中文VB.NET 实例全解教程/ 王景义. 编著. 海口：南方出版社，2007. 123 李俊民，精通SQL结构化查询语言详解（第二版）.北京：人民邮电出版社，2008.
