学生信息管理系统毕业论文.docx

1、学生信息管理系统毕业论文学生信息管理系统毕业论文1前 言学生信息管理系统（Student Information Management System）,以下简称SIMS，是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统（Management Information System）。它是一个教育单位不可缺少的部分,它的容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。在传统模式下利用人工进行学生信息管理，存在着较多的缺点，如：效率底，性差，时间一长将产生大量的文件和数

2、据，更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率。随着科学技术的不断提高,计算机科学日渐成熟, 使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、性好、寿命长、成本低、便于打印等。这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要

3、条件。用计算机制作的学生信息管理系统还可以通过功能强大的Internet网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针一定的促进作用！因此，开发这样一套管理软件成为很有必要的事情。2系统技术及运行环境2.1 Visual Basic 6.0简介Visual Basic 6.0是Microsoft公司成功的变成语言产品之一，在全世界有数以百万计的用户。它之所以受到人们的青睐，原因是多方面的，但主要的有两点，一是功能强大，二是容易掌握。随着版本的更新，Visual Basic已成为真正专业化的大型开发语言和环境，不公功能越来越强，而且更容易使用V

4、isual Basic6.0所提供的开发环境与Windows具有完全一致的界面，使用更方便，其代码效率已达到VisualC+的水平。2.2系统开发及运行环境该运行环境的规定是保证本需求说明的功能得到实际真正体现的基础。（1）运行环境WindowsXP或更高版本的操作系统数据库系统：Microsoft SQL Server 2000（2）开发环境：开发工具：Microsoft Visual Basic 6.0数据库系统：Microsoft SQL Server 20003 系统分析3.1需求分析21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各

5、个领域。使原本的旧的管理方法越来越不适应现在社会的发展。许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。（一）教育系统学生管理现状分析学校工作流程分析学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的基本数据的维护，包括这些信息的增加、修改及对各项信息的变动都将在这进行操作。新的学年，教务人员首先加入年级信息，然后编排班级，再对来校学生进行基本的信息录入，新生入学后由教务人员在学籍系统中完成新学生信息的维护。（二）学校具体需求分析学生：对各科成绩的查询任课老师：输入并维护所教

6、科目的学生成绩教务处： 学校全体成员的信息管理，并对任课老师，班主任等输入的信息进行存库，对学生的信息进行必要的维护。通过研究调查，本系统需以下功能：综合学生信息、学生成绩以及信息查询等信息。方便用户了解和管理学生的全面动态信息。良好的界面设计，更人性化的设计理念，使用户拥有更轻松的使用心情。3.2可行性分析目的：可行性研究的目的是用最小的代价在尽可能的时间确定问题是否能解决。经济性：由于学校等中小型管理系统并不复杂，且Visual Basic 6.0本身要求的运行环境不高，所以一般Windows 2000以上的系统环境都可以使用。实用性：本学生信息管理系统管理系统无太多复杂的操作要求，也没有

7、过分花哨的装饰品，人性化的设计界面可以使操作者轻易运用自如 4系统设计4.1 设计目标本系统可以能减少很多不必要的资源，不用象以前那样用冗余的纸式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了学籍信息管理的精确度。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。为学校增加了财富。数据库分析用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据

8、，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独立性。4.2项目规划学生管理系统是各大中专院校不可缺少的一部分，是一个VB+SQL数据库开发应用程序，它主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、系统用户管理等几个页面，因而该系统具有较强的实用性。4.3系统流程图5系统详细设计5.1数据库需求分析5.2数据库逻辑结构设计（1）kc（课程）见表1表5-1字段名数据类型是否允许为空说明课程号Char（3）Not null主键课程名Char（16）Not null开课学期tinyintNot null只能为1-8学时

9、tinyintNot null学分tinyintnull（2）xs_kc（学生选课）见表2表5-2字段名数据类型是否允许为空说明学号Char（6）Not null主键课程号Char（3）Not null主键成绩tinyintnull学分tinyintnull（3）xs（学生）见表3表5-3字段名数据类型是否允许为空说明学号Char（6）Not null主键Char（8）Not null专业名Char(10)null性别Bit Null男1，女0出生日期SmallDatetimeNull总学分tinyintnull照片imageNull备注textNull(4)user1（管理员登录）见表4表5

10、-4 字段名数据类型说明角色Char(3)用户名Char（6）主键 密码Char（6）Not null（5）user2(学生登录)见表5 表5-5字段名数据类型说明角色Char(3)用户名Char（6）主键密码Char（6）6.系统实现6.1系统初始界面图6-1“系统初始界面代码”Dim starttime As StringDim endtime As StringDim i As IntegerPrivate Sub Form_Load()starttime = Format(Now, hh:mm:ss)End SubPrivate Sub Timer1_Timer()Dim ret As

11、 Integerendtime = Format(Now, hh:mm:ss)If DateDiff(s, starttime, endtime) = 10 Then Dim As ADODB.Connection Set = New ADODB.Connection Dim sqlres As ADODB.Recordset .Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;userid=sa;Initial Catalog=master Set sqlres = New ADODB.

12、Recordset sqlres.Open SELECT * FROM master.sysdatabases WHERE name = xscj, , adOpenDynamic, adLockPessimistic If sqlres.EOF = False Then Label1.Caption = 登陆成功 .Close Unload Me Form1.Show Else ret = MsgBox(是否加载数据库, vbYesNo, XSCJ) If ret = vbYes Then .Close Unload Me Form12.Show Else .Close End End If

13、 End IfEnd IfEnd SubPrivate Sub Timer2_Timer()Dim str As Stringstr = 系统加载中，请等待.i = i + 1If i = 20 Then i = 0 Label1.Caption = Else Label1.Caption = Label1.Caption & Mid(str, i, 1)End IfEnd Sub6.2附加数据库图6-2“附加Server数据库”按钮的click事件添加如下的代码Private Sub Command2_Click()If Text1.Text = Then MsgBox 请选择数据库文件！,

14、 , XSCJ Exit SubEnd IfOn Error GoTo dataerr.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;userid=sa;Initial Catalog=master.Execute (sp_attach_db dbname= & strdata & ,filename1= & m & )MsgBox 附加成功！, , XSCJ.CloseUnload MeForm1.ShowExit Subdataerr:MsgBox Err.Description,

15、 , XSCJ.CloseEnd Sub6.3登陆界面设计图6-3“登录”按钮的click事件添加如下的代码:Private Sub Command1_Click()If Text1.Text = Or Text2.Text = Then MsgBox 请输入完整的登录信息! Text1.SetFocus Exit SubEnd IfIf Text3.Text = Then MsgBox 请输入验证码 Text3.SetFocus Exit SubEnd IfDim i As Integeri = Len(Text1.Text)If i 6 Then MsgBox 用户名应为六位数字, , 提

16、示 Text1.SetFocus Text1.Text = Exit SubEnd Ifi = Len(Text2.Text)If i 6 Then MsgBox 密码应为六位, , 提示 Text2.SetFocus Text2.Text = Exit SubEnd IfIf UCase(Trim(Text3.Text) Trim(Label4.Caption) Then MsgBox 验证码输入错误 Text3.SetFocus Text3.Text = Exit SubEnd IfDim sqlcon As New ADODB.ConnectionDim sqlres As New AD

17、ODB.RecordsetSet sqlcon = New ADODB.Connectionsqlcon.Open connectstringIf option1.Value Then Set sqlres = New ADODB.Recordset sqlres.Open select * from dlgl where 用户名= + Trim(Text1.Text) + and 密码= + Trim(Text2.Text) + , connectstring, adOpenDynamic, adLockPessimistic If Not sqlres.EOF Then juese = o

18、ption1.Caption yonghuming = Trim(Text1.Text) mima = Trim(Text2.Text) MsgBox 登录成功 sqlres.Close Unload Me MDIForm1.Show Exit Sub Else sqlres.Close MsgBox 用户名或密码错误！ Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Randomize i = Int(Rnd * 25 + 65) j = Int(Rnd * 25 + 65) k = Int(Rnd * 25 + 65) l = I

19、nt(Rnd * 25 + 65) Label4.Caption = Chr(i) & Chr(j) & Chr(k) & Chr(l) Exit Sub End IfEnd IfIf Option2.Value Then Set sqlres = New ADODB.Recordset sqlres.Open select * from dl where 用户名= + Trim(Text1.Text) + and 密码= + Trim(Text2.Text) + , connectstring, adOpenDynamic, adLockPessimistic If Not sqlres.E

20、OF Then juese = Option2.Caption yonghuming = Trim(Text1.Text) mima = Trim(Text2.Text) MsgBox 登录成功 sqlres.Close Unload Me MDIForm1.Show Exit Sub Else sqlres.Close MsgBox 用户名或密码错误！ Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Randomize i = Int(Rnd * 25 + 65) j = Int(Rnd * 25 + 65) k = Int(Rnd

21、 * 25 + 65) l = Int(Rnd * 25 + 65) Label4.Caption = Chr(i) & Chr(j) & Chr(k) & Chr(l) End IfEnd IfEnd Sub6.4学生信息录入图6-4“更新”按钮的click事件添加如下的代码:Private Sub Command1_Click()Set sqlres = New ADODB.RecordsetAdodc2.RecordSource = select * from xs where 学号= & Trim(Text1.Text) & Adodc2.CommandType = adCmdText

22、Adodc2.RefreshDim s As StringDim bytedata() As ByteDim adofld As ADODB.Fields = select * from xs where 学号= & Trim(Text1.Text) & sqlres.Open s, connectstring, adOpenDynamic, adLockPessimisticIf Not sqlres.EOF Then sqlres.Fields(1) = Trim(Text2.Text) sqlres.Fields(2) = Combo1.Text If Option1.Value = T

23、rue Then sqlres.Fields(3) = 1 Else sqlres.Fields(3) = 0 End If If Trim(Text5.Text) Then sqlres.Fields(5) = CInt(Text5.Text) End If sqlres.Fields(7) = Trim(Text4.Text) sqlres.Fields(4) = DTPicker1.Value Set adofld = sqlres.Fields(照片) If CommonDialog1.filename Then Call picsavetodb(adofld, filename) E

24、nd If sqlres.Update Adodc1.Refresh MsgBox 修改学生信息成功!, vbOKOnly + vbExclamation, 修改学生信息Else sqlres.AddNew sqlres.Fields(0) = Trim(Text1.Text) sqlres.Fields(1) = Trim(Text2.Text) sqlres.Fields(2) = Combo1.Text If Option1.Value = True Then sqlres.Fields(3) = 1 Else sqlres.Fields(3) = 0 End If If Trim(Te

25、xt5.Text) Then sqlres.Fields(5) = CInt(Text5.Text) End If sqlres.Fields(7) = Trim(Text4.Text) sqlres.Fields(4) = DTPicker1.Value Set adofld = sqlres.Fields(照片) If CommonDialog1.filename Then Call picsavetodb(adofld, filename) End If sqlres.Update Adodc1.Refresh Adodc1.Recordset.MoveLast MsgBox 添加学生信

26、息成功!, vbOKOnly + vbExclamation, 添加学生信息End If CommonDialog1.filename = sqlres.Close Adodc1.RecordSource = select * from xs,cxb where xs.性别=cxb.性别0End Sub6.5 学生信息修改图6-56.6 学生信息查询图6-6“查询”按钮的click事件添加如下的代码Private Sub Command1_Click()Dim str As Stringstr = select * from xs,cxb where xs.性别=cxb.性别0 If Text

27、1.Text = And Text2.Text = And Combo1.Text 所有专业 Then str = select * from xs,cxb where 专业名= + Trim(Combo1.Text) + and xs.性别=cxb.性别0 End IfIf Text1.Text = And Text2.Text = And Combo1.Text = 所有专业 Then str = select * from xs,cxb where xs.性别=cxb.性别0End IfIf Text1.Text And Text2.Text = Thenstr = select * f

28、rom xs,cxb where 学号= & Trim(Text1.Text) & and xs.性别=cxb.性别0End IfIf Text1.Text And Text2.Text Thenstr = select * from xs where 学号= & Trim(Text1.Text) & and = & Trim(Text2.Text) & End IfIf Text1.Text = And Text2.Text Thenstr = select * from xs where = & Trim(Text2.Text) & End Ifstr = select * from xs

29、 where 学号= & Trim(Text1.Text) & or = & Trim(Text2.Text) & or 专业名= & Trim(Combo1.Text) & Adodc1.RecordSource = strAdodc1.CommandType = adCmdTextAdodc1.RefreshIf Adodc1.Recordset.EOF Then Text2.Text = Combo1.Text = 所有专业 Adodc1.RecordSource = select * from xs,cxb where xs.性别=cxb.性别0 Adodc1.Refresh Adodc1.Recordset.MoveFirstEnd IfIf Text1.Text Or Text2.Text Then