毕业设计（论文）-基于VB的学生管理系统设计与实现毕业设计.doc

题 目 基于VB的学生管理系统设计与实现目录【内容摘要】【关键词】 第一章 概述 1.1 开发背景. 1.2 开发环境第二章 系统分析和设计 2.1 系统业务流程图. 2.2 系统逻辑模型的提出. 2.3 总提模块的划分. 2.4各个模块的功能 2.5数据库的设计.第三章 系统实现3.1公共模块.3.2登陆系统.3.3系统管理.3.4学生档案管理.3.5班级管理.3.6课程管理.3.7成绩管理.第四章总结.第五章参考文献【内容摘要】无论学校大小，每个学校手里总是会有很多很多的学生档案，而且随着一年一年的累积，学校规模的逐渐扩大，学生档案信息是越来越多。现在随着中国加入了WTO，很多的企业为了能够加强自己的竞争力，都不约而同的在工作效率和管理的规范性方面下功夫。现在计算机化管理已经不知不觉中渗透到了各行各业，并且提高了这些行业的效率。学校虽然不算是一个纯粹的企业，但是学校的管理一样需要信息化，而且现在的学校逐渐的往大规模的方向发展，信息化对于学校就显的更加的重要了。以前的手工管理,已经越来越不适应学校的发展要求了。针对这种情况下，我设计了这么一个简单的学生档案管理系统，虽然很小，但是呢，还是有一定的使用价值的。【关键词】学生档案管理系统 VB6.0 管理信息系统第一章 概述11开发背景现在的社会日新月异，发展的非常快。学校的发展也是非常的快了，而且每年都有不同的要求。学生的量也非常的大，资料可能经常性的发生更换，原来手工的管理模式就显的不怎么的合适了。而且手工的数据是存放在多处的，没有使用统一管理的模式，数据整理非常的麻烦，统计也困难,很多的情况下，老师都是在重复一些相同的工作。做一些相似的报表，这样不但降低了工作效率，而且非常的容易出错。在这种条件下，使用微机管理就显的非常的合适了。只要你正确的录入，统计，报表输出一点问题都没有的。学生做为学校的最主要的管理对象，学生档案管理系统就成了学校信息化管理系统中中不可缺少的部分，它的内容对于学校的管理者说都至关重要。但一直以来人们使用传统人工的方式进行学生的档案管理，这种管理方式存在着许多缺点,如:效率低,容易出错，格式不规范。另外时间一长，不容易进行统计和分析。随着科学技术的不断提高,计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对学生档案进行管理，具有手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、寿命长、成本低等。这些优点能够极大地提高学校学生档案管理的效率。因此，开发这样一套管理软件成为很有必要的事情。而且只要软件的设计合理，可以为学校提供合理的管理模式。12开发运行环境在操作系统方面，虽然现在Linux的发展速度非常的快，但是对于大多数的使用者来说，操作显然没有微软的WINDOWS那么的流行和傻瓜化。而且现在计算机的运算速度已经不能和以前相提并论了，而且硬件的价格也一天天的在下降了，所以也不用为了节省整体的造价而改用硬件要求很低的DOS系统了。所以我们决定该档案管理系统将运行在强大的工具来协助管理人员轻松地进行与数据库的连接和管理。综上所述，我们选择了Visual Basic+SQL来开发整个系统。第二章 系统分析和设计21系统业务流程图详细调查的重点是对管理业务的流程进行描述，通过采用系统流程图中部分图形工具来描述管理活动，进行规范化说明。业务流程图的符号说明如图21所示：1、 2、 3、 4、 5、系统中人员 实体或单据 实物或信息流 处理 数据存储图21 业务流程图图例详细调查之后，绘制出的学生档案管理系统的管理业务流程图如图22所示。每学年9月份各班学生名单各班学生名单(空白，供填写学生成绩）学生档案处理报表教导处存档校领导各班主任各年级主任各班学生名单微机室教导处转退复留学生名单录入有关信息打印各班名单学生档案处理学生档案处理报表学生档案处理报表年级主任 图22 学生档案管理系统业务流程图2.2系统逻辑模型的提出系统分析的主要成果是系统的逻辑模型。本系统的逻辑模型主要是以系统的数据流图和数据字典为主要描述工具。即在对学生成绩管理方式和业务流程进行认真分析和研究的基础上，排除现有组织机构和业务分工所造成的信息障碍。完全从业务管理功能和管理对象出发，按照信息系统中应有的数据流和数据结构来勾画系统的概貌。2.2.1数据流图（简称为DFD）数据流图是组织中信息运动的抽象。是在调研的基础上，从系统的科学性、管理的合理性、实际运动的可行性角度出发。将信息处理功能和彼此之间的联系自顶向下，逐层分解，从逻辑上精确地描述系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向（外部实体）等项目。首先，分析学生档案管理的总体情况，划分系统边界，识别系统的数据来源和去处，确定外部实体，得出系统的顶层数据流程图；然后划分出几个主要的信息管理功能，并明确各功能之间的联系，绘制出数据流程图。数据流程图的符号说明如图23所示。学生档案管理系统的顶层数据流程图如图24所示。学生档案管理系统的数据流程图如图25所示 外部实体 处理 数据流 数据存储 图23 数据流程图的符号学生简明情况P学生档案处理 用户 校领导学生档案报表D1 图24 学生档案处理的顶层数据流程图 222数据字典（简称为DD）绘制DFD,只是对数据处理和彼此之间的联系进行了说明。为进一步明确数据的详细内。述清楚,以便于此后系统设计的进行。这就需要开发人员编写详细的数据字典。据项、数据流、数据存储、加工处理和数据结构的数据字典。23 总体模块划分学生信息管理是一项非常重要的工作，它负责整个学校的档案管理，学生资料管理成绩管理等，教务工作者急切希望计算机提高工作效率。在各大中小学校中，用计算机管理学校的信息已经越来有越普遍了。采用学生信息管理系统不仅可以节省人力物力，而且增强学校资料的安全性，提高了学校的管理能力在第一章的开发背景中已经说明了本学生档案管理系统的流程了,于是在下面的这个功能设计中，我们将针对这里的流程进行设计。我们把系统功能分为如下图。学生档案管理系统班级管理学生档案管理课程管理成绩管理系统管理231、登陆系统对于这类系统如果谁都能登陆到本系统的话，系统里面的数据将非常的危险和有可能会受到蓄意破坏者的攻击了。考虑到数据的安全性，用户必须拥有密码才能够登陆到本系统的主页面。232、主页面有5个菜单。分别为。系统管理，学生档案管理，班级管理，课程管理，成绩管理。对于这个主页面。我们可以完成所有对学生档案的管理，修改，查询。方便登陆的用户进行一系列的操作，提供了方便。24各个模块的功能系统管理：系统菜单包括有两个功能添加用户对于一个系统来说，永远不可能只是存在一个用户，用户的添加体现了这个系统的方便灵活性，适合多人来使用。所有设计了这个功能是理所当然的。学生档案管理：包括添加档案菜单，档案浏览菜单。档案添加正如一个添加用户一样。永远不可能只是存在一个学生的学籍信息，学生毕业后会有新的学生进来，自然要添加新的学生学籍信息。这个菜单恰好提供这个功能，档案浏览当我们将学生的学籍信息存放在数据库中，最大的方便就是我们有需要知道学生的学籍信息时能够及时查询到。因为人的记忆有限，不可能记得住所有学生的学籍信息以及相关的一系列资料，所以就要靠查询学籍信息来实现了。这个菜单的功能最大的优点就是方便。班级管理单：包括班级浏览菜单，班级添加菜单 班级添加菜单 每一年，学校都会增见新的年级，因此就会有新的班级信息添加。 班级浏览菜单可以方便学校统一浏览班级的信息课程管理菜单：包括基本课程设置，基本课程设置 可以对课程的信息进行修改增加班级课程设置 可以选择班级相应的课程。成绩管理菜单：包括添加添加成绩，修改成就，查询成绩。考试类型设置不同的功课自然有不同的成绩。我们针对这个提前对考试类型做下设置。方便学校同学老师查成绩。 成绩添加 现今的教育 ，学生的成绩是体现学生在学校的表现之一。也可以作为对学生评价的准则之一。因次添加学生的成绩是比较重要的一个功能。成绩浏览一个完成的学生管理系统，自然要提供学生的查询，方便学生和老师25 数据库设计251数据库表的建立系统数据库名称为StudengMIS。其中包括allkechengcjclassclasskechengkaoshileixinguserinfoxj第三章 系统实现3.1公共模块 Module1模块主要三个函数组成，函数EXECUTESQL用于执行响应的SQL命令，函数CONNSTRING用于连接字符串，函数EXECUTEQX用于检查权限。代码如下：Public modi As BooleanPublic classmodi As BooleanPublic xuefeimodi As BooleanPublic txtsql As StringPublic find As BooleanPublic classfind As BooleanPublic xuefeifind As BooleanPublic username As StringPublic qxstr As String执行相应的SQL命令Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset Dim mycon As ADODB.Connection Dim rst As ADODB.Recordset Set mycon = New ADODB.Connection mycon.ConnectionString = connstring mycon.Open Dim stokens() As String On Error GoTo exectuesql_error stokens = Split(sql) If InStr(INSER,DELETE,UPDATE, UCase(stokens(0) Then mycon.Execute sql Else Set rst = New ADODB.Recordset rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst End Ifexectuesql_exit: Set rst = Nothing Set mycon = Nothing Exit Functionexectuesql_error: Resume exectuesql_exitEnd Function连接字符串，用户可以根据自己的数据库进行修改相应参数Public Function connstring() As String connstring = Provider=SQLOLEDB.1;Persist Security Info=False;UID=sa;PWD=12345;Initial Catalog=StudentMIS;Data Source=(local)End Function检查用户的权限Public Function Executeqx(ByVal txt As Integer) As String Dim sql As String Dim mycon As ADODB.Connection Dim rst As ADODB.Recordset Set mycon = New ADODB.Connection mycon.ConnectionString = connstring mycon.Open Set rst = New ADODB.Recordset sql = select admin from userinfo where username= & username & rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic If rst.EOF = True Then MsgBox 非法用户！, vbExclamation + vbOKOnly, 警告 Executeqx = nothing Exit Function End If If rst.Fields(0) = y Then Executeqx = admin Exit Function End If rst.Close sql = select readonly from userinfo where username= & username & rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic If rst.Fields(0) = y Then Executeqx = readonly Exit Function End If Select Case txt Case 1 sql = select qx1 from userinfo where username= & username & Case 2 sql = select qx2 from userinfo where username= & username & Case 3 sql = select qx3 from userinfo where username= & username & End Select On Error GoTo exectuesql_error Set rst = New ADODB.Recordset rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic If rst.Fields(0) = y Then Executeqx = true Else Executeqx = false End Ifexectuesql_exit: Set rst = Nothing Set mycon = Nothing Exit Functionexectuesql_error: Resume exectuesql_exitEnd Function32登陆系统 这个模块主要有确定跟取消组成。确定按纽的主要功能是检查用户名和用户密码是否正确。以及确定权限。取消按纽则是退出该功能。代码如下Private Sub Command1_Click() Dim mrc As ADODB.Recordset txtsql = select username from userinfo where username= & Trim(Text1.Text) & Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox 用户名错误！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub End If username = mrc.Fields(0) txtsql = select username from userinfo where password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox 密码错误！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit Sub End If MDIForm1.Show Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End IfEnd Sub33系统管理 这个模块的功能主要是添加用户。并且设置权限。代码如下Private Sub Command1_Click()If Trim(Text1(0).Text) = Then MsgBox 用户名不能为空！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) = Then MsgBox 密码不能为空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 确认密码不能为空！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 确认密码不正确！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfDim aa As Integeraa = 0If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End IfNext iIf aa = 0 Then MsgBox 普通用户至少要有一项权限！, vbExclamation + vbOKOnly, 警告Exit SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql = select * from userinfo where username= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = False Then MsgBox 已存在该用户！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd Iftxtsql = select * from userinfoSet mrc = ExecuteSQL(txtsql)mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text)For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 mrc.Fields(admin) = y Case 1 mrc.Fields(readonly) = y Case 2 For j = 0 To 2 If Check1(j).Value = 1 Then Select Case j Case 0 mrc.Fields(qx1) = y Case 1 mrc.Fields(qx2) = y Case 2 mrc.Fields(qx3) = y End Select End If Next j End Select End If Next i mrc.Update MsgBox 用户添加成功！, vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Option1(2).Value = TrueEnd SubPrivate Sub Form_Resize()Text1(0).SetFocusEnd SubPrivate Sub Option1_Click(Index As Integer)If Index 2 ThenFor i = 0 To 2 Check1(i).Enabled = FalseNext iElseFor i = 0 To 2 Check1(i).Enabled = TrueNext iEnd IfEnd Sub34学生档案管理 档案添加窗体的主要功能是录入学生的基本档案。代码如下Dim txtsql1 As StringPrivate Sub Combo1_Click(Index As Integer) Dim mrc As ADODB.Recordset txtsql1 = select 专业,年制 from class where 班级= & Trim(Combo1(1).Text) & Set mrc = ExecuteSQL(txtsql1) mrc.CloseEnd SubPrivate Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys TAB End IfEnd SubPrivate Sub Command1_Click() For j = 0 To 7 If Text1(j) = Then ss = MsgBox(Label1(j).Caption & 不能为空！, vbExclamation + vbOKOnly, 警告) Text1(j).SetFocus Text1(j).SelStart = 0 Text1(j).SelLength = Len(Text1(j).Text) Exit Sub End If Next Dim mrc As ADODB.Recordset txtsql1 = select * from xj where 学号= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql1) If modi = False Then If mrc.EOF = False Then sss = MsgBox(已经存在该学号的记录,学号不能重复！, vbExclamation + vbOKOnly, 警告) Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) mrc.Close Exit Sub End If End If If Not IsDate(Text1(2).Text) Then 判断是否日期格式 ssss = MsgBox(应输入日期 mm-dd-yy, vbInformation + vbOKOnly, 警告) Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = Len(Text1(2).Text) Exit Sub End If If Not IsDate(Text1(6).Text) Then ssss = MsgBox(应输入日期 mm-dd-yy, vbInformation + vbOKOnly, 警告) Text1(6).SetFocus Text1(6).SelStart = 0 Text1(6).SelLength = Len(Text1(6).Text) Exit Sub End If If modi = True Then txtsql1 = update xj set 学号= & Trim(Text1(0).Text) & ,姓名= & Trim(Text1(1).Text) & ,性别= & Trim(Combo1(0).Text) & ,班级= & Trim(Combo1(1).Text) & ,出生年月= & Trim(Text1(2).Text) & ,家庭住址= & Trim(Text1(3).Text) & ,邮政编码= & Trim(Text1(4).Text) & ,联系电话= & Trim(Text1(5).Text) & ,入学时间= & Trim(Text1(6).Text) & ,备注= & Trim(Text1(7).Text) & where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) txtsql1 = update cj set 学号= & Trim(Text1(0).Text) & where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) txtsql1 = update jf set 学号= & Trim(Text1(0).Text) & where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) Unload Me Exit Sub End If txtsql1 = select * from xj Set mrc = ExecuteSQL(txtsql1) mrc.AddNew For i = 4 To 9 mrc.Fields(i) = Text1(i - 2).Text Next i mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Fields(2) = Trim(Combo1(0).Text) mrc.Fields(3) = Trim(Combo1(1).Text) mrc.Update Set mrc = Nothing For j = 0 To 7 Text1(j) = NextEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Activate() Text1(0).SetFocus Form1.load1End SubPublic Sub load1() Dim mrc As ADODB.Recordset txtsql1 = select DISTINCT 班级 from class order by 班级 Set mrc = ExecuteSQL(txtsql1) If mrc.EOF Then ddd = MsgBox(请先设置班级部署！, 警告) mrc.Close Exit Sub End If Combo1(1).Clear mrc.MoveFirst Do While Not mrc.EOF Combo1(1).AddItem mrc.Fields(0) mrc.MoveNext Loop Combo1(1).ListIndex = 0 Combo1(0).ListIndex = 0 If modi Then 如果是修改状态 Me.Caption = 修改 txtsql1 = select * from xj where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) mrc.MoveFirst For i = 4 To 9 Text1(i - 2).Text = mrc.Fields(i) Next i Text1(0).Text = mrc.Fields(0) Text1(1).Text = mrc.Fields(1) Combo1(0).Text = mrc.Fields(2) Combo1(1).Text = mrc.Fields(3) mrc.Close Else Me.Caption = 登记 For i = 2 To 7 Text1(i).Text = Next i Text1(6).Text = Date Text1(0).Text = Text1(1).Text = End IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer) If Index = 6 Then Text1(6).SelStart = 0 Text1(6).SelLength = Len(Text1(6).Text) End IfEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys TAB End IfEnd Sub档案浏览窗体的功能是能够查询学生的基本信息。代码如下Public printstr As StringPrivate Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPublic Sub showtitle() MSF1.Clear Dim i As Integer With MSF1 .Cols = 14 .TextMatrix(0, 1) = 学号 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性别 .TextMatrix(0, 4) = 年级 .TextMatrix(0, 5) = 班级 .TextMatrix(0, 6) = 专业 .TextMatrix(0, 7) = 年制 .TextMatrix(0, 8) = 出生年月 .TextMatrix(0, 9) = 家庭住址 .TextMatrix(0, 10) = 邮政编码 .TextMatrix(0, 11) = 联系电话 .TextMatrix(0, 12) = 入学时间 .TextMatrix(0, 13) = 备注 .ColWidth(0) = 200 .ColWidth(1) = 500 .ColWidth(2) = 700 .ColWidth(3) = 500 .ColWidth(4) = 1000 .ColWidth(5) = 800 .ColWidth(6) = 700 .ColWidth(7) = 800 .ColWidth(8) = 800 .ColWidth(9) = 3000 .ColWidth(10) = 800 .ColWidth(11) = 1000 .ColWidth(12) = 800 .ColWidth(13) = 6000 .FixedRows = 1 For i = 1 To 13 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Row = 1 End WithEnd SubPrivate Sub Form_Activate()If find = True ThenForm4.ZOrderEnd IfIf find = True Then Exit SubElseIf modi = True Thenshowdata TreeView1_DblClick modi = FalseElse treeEnd IfEnd SubPublic Sub showdata()Dim j As IntegerDim i As IntegerDim mrc As ADODB.RecordsetSet mrc = New ADODB.Recordset Set mrc = ExecuteSQL(txtsql) If mrc.EOF = False Then mrc.MoveFirst With MSF1 .Rows = 50 .Row = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 1 To mrc.Fields.Count .TextMatrix(.Row, i) = mrc.Fields(i - 1) Next i .Row = .Row + 1 mrc.MoveNext Loop End With Else If find = True Then Form3.Hide Form4.Show zzz = MsgBox(对不起，没有此学生的档案记录！, vbOKOnly, 查询) Form4.ZOrder (0) Form4.Text1(0).SetFocus End If End If Set mrc = NothingEnd SubPrivate Sub Form_Unload(Cancel As Integer)If find = True Then find = False Form4.Text1(0).SetFocusEnd IfEnd SubPublic Sub tree()TreeView1.Nodes.ClearDim nodex As NodeDim mrc As ADODB.RecordsetDi