《学生成绩管理系统(2015-5-18_13.45.6)(2015-5-18_17.56.27)(2015-5-19_2.52.14)》由会员分享，可在线阅读，更多相关《学生成绩管理系统(2015-5-18_13.45.6)(2015-5-18_17.56.27)(2015-5-19_2.52.14)（10页珍藏版）》请在金锄头文库上搜索。
1、绪论 随着高校学士人数的增长越来越快，学生的各种信息量也越来越大，面对越来 越多的学生信息，需要有很好的处理，学生成绩管理系统就是一款用来管理学 生 教师的一款系统软件。从而使我们更加方便.更有效率的节省不必要的开支。1 系统的开发环境 1.1 用 visualbasic6.0 作为开发学生成绩管理系统的编程语言，用它来建立表 数据库 表单 程序等等。 1.2 用 Microsoft office Accsee 数据库管理系统。二. 系统的总体分析 2.1 系统的需求分析学生信息的添加 修改 删除，学校选课给同学们的选择，学生老师查询信息， 学校管理员信息，这些都需要学生成绩管理系统去解决。
2、2.2 系统的总体功能可分为教师.学生.管理员 3 个大功能 2.2.1 学生功能 查询自己成绩和修改自己的基本信息 2.2.2 教师功能 查询本班学生成绩和修改自己的基本信息 2.2.3 功能有管理.输入学生成绩。可以对学生.课程.专业.教师.进行浏览.添加查询.删 除等等操作。三.系统的详细设计与实现 3.1 数据库的建立 3.1.1 数据库的配置 1.设置驱动 String sDBDriver = “com.microsoft.sqlserver.jdbc.SQLServerDriver“; 2.设置 URL String url = “jdbc:sqlserver “ 3.登录名 St
3、ring user = “panpan“; 4.密码String password = “861271“; 3.1.2 数据库的连接、3.1.2.1 行连接代码Public cn new adodb connection Public rs new adodb recordsetPubic sub openconn() S=new adodb, connectionstring=”provider=microft.jet.oledb.4.0; Data source=” Persist security info=false” Cn open Rs,activeconn ection=cn R
4、s,cursorlocation=aduse.client End sub 3.1.2.2 释放对象空间 Public sub closecon() rs.close set rs=noting cn.close =noting end sub3.1.3 数据字典3.1.3.1 数据流程图3.2 系统的界面设计 3.2.1 登录界面图3.2.2 登陆界面代码 Private Sub Command1_Click() Data1.Recordset.MoveFirst End Sub Private Sub Command2_Click() Data1.Recordset.AddNew End
5、Sub Private Sub Command3_Click() If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext Else Data1.Recordset.MoveLast End If End Sub Private Sub Command4_Click() Data1.Recordset.Delete Data1.Recordset.MoveNext End Sub Private Sub Command5_Click() Data1.Recordset.Edit End Sub Private Sub Command6_C
6、lick() Data1.Recordset.MoveLast End Sub Private Sub Command7_Click() If Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious Else Data1.Recordset.MoveFirst End If End Sub 3.3 系统的主要模块设计 3.3.1 学生模块设计 学生模块的功能主要是查询自己的成绩与修改自己的个人信息，所以代码如下： Private Sub Command4_Click() Dim xh As String xh = InputBox(“
7、请输入你要查找的学生学号：“) Data1.Recordset.FindFirst(“Cst 学号)=“& xh &“) If Data1.Recordset.NoMatch Then Text1.Text = “查无此人！“ Else Text1.Text = Data1.Recordset.姓名 End If End Sub 3.3.2 教师模块设计 教师模块的设计主要是修改本班学习成绩和修改自己的信息代码如下：Private Sub Command1_Click() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find “用户名 =“ & Te
8、xt1.Text & “ If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveFirst If (Trim(Text1.Text) = (Trim(Text3.Text) And (Trim(Text2.Text) = (Trim(Text4.Text) Then Adodc1.Enabled = False Form4.Text3.Text = Text1.Text Unload Me Form8.Show Else MsgBox “非法的账号 !“, vbOKOnly + vbExclamation, “请重新输入！ “ Tex
9、t1.Text = “ Text2.Text = “ Text1.SetFocus End If End Sub Private Sub Command2_Click() Text1.Text = “ Text2.Text = “ End Sub Private Sub Command3_Click() Unload Me Form1.Show End Sub Private Sub Form_Load() Text2.Text = “ Text1.Text = “ Text2.PasswordChar = “*“ End Sub Private Sub Picture1_Click() En
10、d Sub3.3.3 管理员模块设计 管理员的主要功能有管理和输入可以对学生成绩课程。教师。专业各信息进行流浪，添加， 查询，删除等操作 代码如下： Private Sub Command1_Click()On Error Resume Next If Command1.Caption = “修改“Then Command1.Caption = “确认“ Adodc1.Recordset.Requery Text2.SetFocus Else Command1.Caption = “修改“ Adodc1.Recordset.Update MsgBox “修改成功“ End If End Sub
11、 Private Sub file1_Click() Unload Me Form10.Show End Sub Private Sub file2_Click() Unload Me Form9.ShowEnd Sub Private Sub file4_Click()Unload Me Form12.ShowEnd Sub Private Sub file5_Click() Unload Me Form11.ShowEnd Sub Private Sub file7_Click() Unload Me Form2.ShowEnd Sub Private Sub file8_Click()L
12、abel3.Visible = TrueLabel4.Visible = TrueText1.Visible = TrueText2.Visible = True Command1.Visible = True Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = “Select * From teacherenter Where 用户名 =“ & Form4.Text3.Text & “ Adodc1.Refresh End Sub Private Sub Picture1_Click() End Sub四 总结通过这将近一个月的时间里，我完成了这篇毕业论文，在这过程中，我认识到了我在这 方面知识的欠缺，但是在老师和同学的帮助下，我克服了许多障碍，到图书馆查阅书籍， 网上看学习不懂的知识点，这一路的走过来 ，感觉自己收获颇丰，在写论文的这个月里， 让我每一天都感觉很充实。致谢谢谢老师的帮助，关怀与培养，你们诲人不倦的精神深深地激励着我，让我懂得了许多做 人的道理。谢谢帮助过我的同学，你们提出的宝贵建议让我解决了不是难点。再洗我像各 位表示感谢。
