"VB SQL2008学生成绩管理系统--大学毕业论文.doc"

0 下载量 144 浏览量 更新于2024-01-25 收藏 913KB DOC 举报
本文是关于VB SQL2008学生成绩管理系统的大学毕业论文,系统是在管理信息系统的理论和方法指导下,数据库技术支持下完成的。文中首先论述了毕业设计的目的和意义,然后介绍了开发环境、开发平台以及数据库技术。接着用图片、说明和代码的方式介绍了系统的整体规划,然后详细介绍了系统在具体实现中的内容,包括信息的添加、修改、删除、查询等功能。本系统界面友好,操作简单,思路缜密严谨,管理起来方便快捷,能有效的达到学生信息的管理的目的。 关键词:VB;SQL Server 2005;界面;权限 论文从管理信息系统的发展趋势出发,指出了管理信息系统是一个不断发展的新型学科,任何一个单位要生存要发展,要高效率地把内部活动有机地组织起来,就必须建立与自身特点相适应的管理信息系统的重要性。随着信息技术在管理上越来越深入而广泛的应用,系统在技术上已逐步成熟,因此本系统的开发具有一定的现实意义。 本文详细介绍了开发环境、开发平台以及数据库技术。在开发环境方面,采用了VB和SQL Server 2005作为开发工具和数据库系统,这两个工具在当时属于较为先进和主流的技术,能够很好地支持系统的开发和运行。在开发平台方面,系统能够在各类Windows操作系统上正常运行,具有较好的兼容性和稳定性。在数据库技术方面,系统充分利用了SQL Server 2005的功能,能够高效地管理和处理大量的学生成绩信息。这些都为系统的开发和运行提供了良好的基础。 在系统的具体实现中,本文用图片、说明和代码的方式介绍了系统的整体规划和具体实现内容。系统具有添加、修改、删除、查询等功能,能够高效地完成学生成绩信息的管理工作。系统界面友好,操作简单,思路缜密严谨,管理起来方便快捷,能够满足学校对学生成绩信息管理的需求。本文详细地介绍了系统的各个模块和功能,为读者提供了对系统的全面了解和掌握。 综上所述,本文详细介绍了VB SQL2008学生成绩管理系统的设计与实现,系统能够有效地满足学校对学生成绩信息管理的需求,具有较高的实用价值。该系统的开发使用了当时较为先进和主流的技术和工具,具有一定的研究和应用价值,对相关领域的研究具有一定的参考和借鉴意义。同时,本文也对系统的不足之处进行了分析和展望,为后续的研究和开发工作提供了一定的参考与启示。
2013-12-24 上传
VB与sql设计代码: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '选择普通用户登录 If Me.RadioButton1.Checked Then Dim str As String str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 普通用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '" Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.添加DToolStripMenuItem.Enabled = False 学生成绩管理系统.修改KToolStripMenuItem.Enabled = False 学生成绩管理系统.删除DToolStripMenuItem.Enabled = False 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起,用户名或密码错误!重新输入(请正确选择用户类型)", 16, "警告") Me.TextBox1.Text = "" Me.TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception End Try End If '选择高级用户登录 If Me.RadioButton2.Checked Then Dim str As String str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 高级用户where 用户名='" & TextBox1.Text.ToString().Trim() & "