软件工程课程设计论文范文.doc

课程设计说明书 课程名称： 软件开发技术 设计题目： 学生信息管理系统 专 业： 计算机科学与技术 班 级： 0801 学生姓名: 欧阳锋 学 号: 指导教师: 何频捷 湖南工业大学科技学院教务部 制2011年 12 月 10 日1 引言（或绪论）1.1 课题背景随着教育事业的不断发展，学校的规模不断扩大，学生数量及其信息量的急剧增加，有关学生的各种信息管理也随之展开，学生信息管理系统应运而生了，它可用来管理学生信息与提高系统管理工作的效率。学生信息管理系统把Eclipse（前台开发）与SQL数据库（后台管理）有机地结合，并运用SWING等相关技术，完成学生信息的规范管理、科学统计和快速查询，从而可大大减少该管理上的工作量。 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据库存储的效率，保证数据的完整性和一致性。同时，合理的数据结构也将有利于程序的顺利实现。1.2 系统开发关键技术介绍本系统采用的是Eclipse开发工具做为开发系统程序，采用SQL sever数据库访问技术完成对数据库信息的规范管理和统计查询。SQL sever使用更加简单灵活的对象模型，适用于各种程序设计语言。SQL sever提供执行以下操作方式：(1) 连接到数据源。(2) 指定访问数据源的命令，可以在命令中指定参数。(3) 执行命令，例如一个SELECT语句。(4) 在适当情况下，可以把缓存行的更改内容写回数据库中，更新数据源。(5) 提供常规方法检测错误，错误通常由建立连接或执行命令造成，涉及到 SQL的error对象。2 系统分析2.1 总体设计思想及工作流程用户必须通过已经注册的帐号和密码才能进行对该系统的管理与应用，否则在登录系统前要进行新账号的注册；管理员通过输入密码和帐号可以对数据库的数据进行各种操作，而普通用户仅仅可以进行一部分的操作；用户根据自己的实际情况选择相应的功能来提取自己所需信息。（1） 学生信息管理系统的功能为显示主要操作页面，通过密码验证登陆界面，档案信息处理功能。通过密码验证登陆，可实现安全登录，方便可靠。学生信息处理功能包括输入学生信息，显示学生的档案信息，学生档案信息条件查询（分为：按学生姓名进行查询，按学生学号进行查询），更新学生档案信息。（2） 学生信息管理系统的功能模块有：系统登陆界面，美观大方，按enter键进入密码验证登陆界面，输入正确密码登陆主菜单选择框架界面，方便用户对程序个功能进行选择，选择要实现的功能按enter键进入该功能。1. 输入学生档案信息。2. 显示学生的档案信息3. 学生档案信息条件查询4. 更新学生档案信息。0. 退出，谢谢使用!程序分为多个小模块，通过调用实现各种功能，增强了程序的可建设性。2.2 业务需求(1) 安全性: 用户必须通过帐号和密码才能进行对该系统的管理。(2) 权限分配: 超级管理员通过输入密码和帐号可以对数据库的数据进行各种操作，而普通用户仅仅可以进行一部分的操作。(3) 易操作性: 可以快速进行查询操作，进行数据的汇总。 2.3 数据流图 用户的需求具体体现在各种信息的提供、保存、更新、查询和统计上，这就要求数据库结构应充分满足各种信息的输入和输出。系统应定义数据结构、收集基本数据以及设置数据处理的流程，组成一份详尽的数据字典，为以后的具体设计打下基础与伏笔。在仔细分析、调查有关学生信息管理需要的基础上，得到了本系统的流程图：图3.2 总数据流图图3.3 零层数据流图图3.3 一层数据流图2.2 总体设计流程图学生信息管理系统密码登陆界面登陆主菜单选择框架界面输入信息模块显示信息模块条件查询模块更新信息模块退出系统模块从键盘输入信息输出信息至屏幕按学生学号查询按学生姓名查询修改学生信息插入学生信息将退出界面显示图2 总体设计流程图 该流程图为此次学生信息查询系统的总体流程图，用户进入界面以后可以看到登陆密码界面，密码输入正确进入主菜单选择框架界面，1为输入学生信息档案，2为显示学生档案，3为学生信息档案查询，4为更新学生档案，0为退出系统。用户可以根据自己的需求方便快捷的做出自己的选择。密码登陆函数流程图：密码函数开始登陆密码重新登陆密码正确密码错误该函数为密码登陆函数模块，当输入的密码不正确的时候，系统会提示“密码输入错误，请重新输入”，直到输入正确密码为止。选择框架函数流程图：选择框架函数开始用户选择1输入信息2 显示信息3 查询信息4 更新信息0退出进入学生档案管理系统时显示程序名称和选择框架主菜单，提示用户进行选择，完成相应任务。此代码被main（）函数调用。输入信息函数流程图：输入信息系统开始输入学号输入姓名输入性别输入联系方式输入班级输入错误重新输入 输入学生信息函数模块，用户可以根据提示的信息来进行每一步的输入操作，当输入不当时，系统会自动提示，并让用户进行正确的操作。在此系统中，要求用户输入的只有字符型和数值型数据，设计了相应的函数来进行数据校验工作，保证数据输入的准确性。显示信息流程图：显示信息函数开始输出学生信息结束 当用户进入查询信息模块时，系统会显示内部存储的内容。查询信息流程图：选择按姓名还是学号查询选择查询函数开始输入错误重新输入0按姓名查询1按学号查询输出信息输出信息当用户执行此查询任务时，系统会提醒用户进行查询字段的选择，即按学号或姓名进行查询。若此学生档案信息记录存在，则会显示该省的档案信息。此函数完成了节点定位的功能。更新信息流程图：更改信息函数开始输入要更改的学号输入错误输入更改后信息输入错误重新输入重新输入输出更改后信息完成在更新学生档案信息的操作中，系统会先按输入的学号查询到该生档案信息记录，然后按顺序填入要修改的学生信息。3 系统设计3.1 系统功能结构图 设计数据库系统时应充分满足各种信息的输入和输出。据此，结学生信息管理系统所需完成的主体任务。学生信息管理系统主要任务如下：（1） 基本信息的输入。包括学籍（学生基本）信息，班能、课程和成绩等住处的输入。（2） 基本信息的修改。包括学籍信息、班级、课程和成绩等信息的修改。（3） 基本信息的查询。包括学籍信息和成绩信息等的查询。（4） 年级信息及班级信息的设置等。（5） 学校基本课程信息的输入、修改和设置。 基于需求分析及主要任务的表述，可对上述各项功能按照结构化程序设计的要求进行集中、分层结构化，自上而下逐层设置得到系统功能模块结构图：图3.1 系统功能结构图 4 系统数据库设计4.1 系统E-R图 概念结构设计就是E-R方法的分析与设计，概念结构设计是整个数据库设计的关键。在此，将使用实体联系（E-R）模型来描述系统的概念结构，同时设计出能够满足用户需求的的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这也实体包括各种具体的实际信息，通过相互之间的作用形成数据的流动。本程序根据上面的设计规划出的实体有：学籍实体、班级实体、年级实体、课程实体与成绩实体，学生信息管理系统数据库E-R模型，如下图所示： 图4.1 学生信息管理系统E-R模型图4.2 数据表的创建 根据系统特点，由数据模型利用Oracle10g进行数据库的详细设计，学生信息管理系统数据库中各个表格的设计结果如下：表1: 学籍信息表表2: 学生成绩信息表 表3: 班级信息表 表4: 年级课程设置表 表5: 课程基本信息表 表6: 系统用户表 4.3 存储过程和触发器设计 为了提高该系统的运行环境，后台有关数据的操作部分使用了存储过程和触发器。1.创建的存储过程进行添加班级信息，代码如下：create or replace procedure insertclass(p_class_no in class_no%type, p_grade in grade%type, p_director in director%type, p_classroom_no in classroom_no%type) is v_count number;begin select count(*) into v_count from class_info where class_no=p_class_no; if v_count=0 then insertinto class_info values(p_class_no,p_grade,p_director,p_classroom_no ); else dbms_output.put_line(班号已经存在,请重新输入班号); end if;end insertclass;2.存储过程的调用代码:Private Sub Command1_Click() Dim sqlcon As New ADODB.Connection Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String Dim cmd As New ADODB.Command Dim classNO, grad, DIRECTO, CLASSROOMNO sqlcon.Open Provider=OraOLEDB.Oracle.1;Password=1234;Persist Security Info=True;User ID=CC;Data Source=orcl If Not Testtxt(txtClassno.Text) Then MsgBox 请输入班号！, vbOKOnly + vbExclamation, 警告 txtClassno.SetFocus Exit Sub End If If Not Testtxt(comboGrade.Text) Then MsgBox 请选择年级！, vbOKOnly + vbExclamation, 警告 comboGrade.SetFocus Exit Sub End If If Not Testtxt(txtDirector.Text) Then MsgBox 请输入班主任姓名！, vbOKOnly + vbExclamation, 警告 txtDirector.SetFocus Exit Sub End If If Not Testtxt(txtClassroom.Text) Then MsgBox 请输入教室房间号！, vbOKOnly + vbExclamation, 警告 txtClassroom.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtClassno.Text) Then MsgBox 请输入数字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtClassno.SetFocus End If cmd.ActiveConnection = sqlcon cmd.CommandText = insertclass cmd.CommandType = adCmdStoredProc Set classNO = cmd.CreateParameter(CLASS_NO, adVarChar, adParamInput, 50) cmd.Parameters.Append (classNO) Set grad = cmd.CreateParameter(GRADE, adVarChar, adParamInput, 50) cmd.Parameters.Append (grad) Set DIRECTO = cmd.CreateParameter(DIRECTOR, adVarChar, adParamInput, 50) cmd.Parameters.Append (DIRECTO) Set CLASSROOMNO = cmd.CreateParameter(CLASSROOM_NO, adVarChar, adParamInput, 50) cmd.Parameters.Append (CLASSROOMNO) cmd(CLASS_NO) = txtClassno.Text cmd(GRADE) = comboGrade.Text cmd(DIRECTOR) = txtDirector.Text cmd(CLASSROOM_NO) = txtClassroom.Text Set mrc = cmd.Execute cmd.Parameters.Delete (CLASS_NO) cmd.Parameters.Delete (GRADE) cmd.Parameters.Delete (DIRECTOR) cmd.Parameters.Delete (CLASSROOM_NO) MsgBox 添加班级信息成功！, vbOKOnly + vbExclamation, 添加班级信息 End Sub3.创建触发器：create or replace trigger course_info_del before delete on course_info for each rowdeclare - local variables herebegin delete from gradecourse_info;end ;4.4 数据库的连接配置文件连接数据库的代码：ConnectString = Provider=OraOLEDB.Oracle.1;Password=1234;Persist Security Info=True;User ID=CC;Data Source=orcl5 系统实现根据整个系统的总体设计以及相关子系统的相关模块功能的设计，我们进行了系统的软件开发。详细设计和功能展示如下：5.1 系统实现工具与支持平台(1) 用户界面本系统采用Microsoft Visual Basic 6.0设计，用户交互界面采用的是基于Windows的窗口界面。(2) 开发和运行环境工具软件：VisualBasic系统软件：Oracle 10g开发环境：Windows XP Professional 运行环境：Windows 98NT2000XP2003硬件配置：Pentium以上CPU、256MB以上的内存、4GB以上的硬盘空间5. 2 公用模块的设计以下为系统主控窗口的界面截图：图5.1 主控窗口在系统中创建公用模块，存放在整个工程项目中会调用到的函数、变量等。代码如下：Public fMainForm As frmMainPublic UserName As StringSub Main() Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain fMainForm.ShowEnd SubPublic Function ConnectString() _ As Stringreturns a DB ConnectString ConnectString = Provider=OraOLEDB.Oracle.1;Password=1234;Persist Security Info=True;User ID=CC;Data Source=orclEnd FunctionPublic Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordsetexecutes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & _ query successful Else Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic rst.MoveLast get RecordCount Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误: & _ Err.Description Resume ExecuteSQL_ExitEnd FunctionPublic Function Testtxt(txt As String) As Boolean If Trim(txt) = Then Testtxt = False Else Testtxt = True End IfEnd Function5. 3系统界面设计:图5.2 系统登录界面 图5.3添加课程信息界面图5.4添加学籍信息界面图5.5查询学籍信息界面图5.5设置年级课程信息界面5. 4 系统核心代码(1) 添加班级信息是通过存储过程的调用实现的,部分源代码: sqlcon.Open Provider=OraOLEDB.Oracle.1;Password=1234;Persist Security Info=True;User ID=CC;Data Source=orcl cmd.ActiveConnection = sqlcon cmd.CommandText = insertclass cmd.CommandType = adCmdStoredProc Set classNO = cmd.CreateParameter(CLASS_NO, adVarChar, adParamInput, 50) cmd.Parameters.Append (classNO) Set grad = cmd.CreateParameter(GRADE, adVarChar, adParamInput, 50) cmd.Parameters.Append (grad) Set DIRECTO = cmd.CreateParameter(DIRECTOR, adVarChar, adParamInput, 50) cmd.Parameters.Append (DIRECTO) Set CLASSROOMNO = cmd.CreateParameter(CLASSROOM_NO, adVarChar, adParamInput, 50) cmd.Parameters.Append (CLASSROOMNO) cmd(CLASS_NO) = txtClassno.Text cmd(GRADE) = comboGrade.Text cmd(DIRECTOR) = txtDirector.Text cmd(CLASSROOM_NO) = txtClassroom.Text Set mrc = cmd.Execute cmd.Parameters.Delete (CLASS_NO) cmd.Parameters.Delete (GRADE) cmd.Parameters.Delete (DIRECTOR)cmd.Parameters.Delete (CLASSROOM_NO)MsgBox 添加班级信息成功！, vbOKOnly + vbExclamation, 添加班级信息End Sub(2) 查询学生成绩模块的部分代码: Private Sub cmdInquire_Click() Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As ADODB.Recordset txtSQL = select * from RESULT_INFO where If Check1(0).Value Then If Trim(txtSID.Text) = Then sMeg = 学号不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtSID.SetFocus Exit Sub Else If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 请输入数字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtSID.SetFocus End If dd(0) = True txtSQL = txtSQL & student_ID = & Trim(txtSID.Text) & End If End If If Check1(1).Value Then If Trim(txtName.Text) = Then sMeg = 姓名不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtName.SetFocus Exit Sub Else dd(1) = True If dd(0) Then txtSQL = txtSQL & and student_Name = & txtName.Text & Else txtSQL = txtSQL & student_Name = & txtName.Text & End If End If End If If Check1(2).Value Then If Trim(txtCourse.Text) = Then sMeg = 课程不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtCourse.SetFocus Exit Sub Else dd(2) = True If dd(0) Or dd(1) Then txtSQL = txtSQL & and course_Name = & txtCourse.Text & Else txtSQL = txtSQL & course_Name = & txtCourse.Text & End If End If End If If Not (dd(0) Or dd(1) Or dd(2) Or dd(3) Then MsgBox 请设置查询方式！, vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = txtSQL & order by student_ID Set mrc = ExecuteSQL(txtSQL, MsgText) With myflexgrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = 考试编号 .TextMatrix(1, 1) = 学号 .TextMatrix(1, 2) = 姓名 .TextMatrix(1, 3) = 班号 .TextMatrix(1, 4) = 课程名称 .TextMatrix(1, 5) = 分数 Do While Not mrc.EOF .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows - 1, 0) = mrc.Fields(0) .TextMatrix(.Rows - 1, 1) = mrc.Fields(1) .TextMatrix(.Rows - 1, 2) = mrc.Fields(2) .TextMatrix(.Rows - 1, 3) = mrc.Fields(3) .TextMatrix(.Rows - 1, 4) = mrc.Fields(4) .TextMatrix(.Rows - 1, 5) = mrc.Fields(5) mrc.MoveNext Loop End With mrc.CloseEnd Sub(3) 修改课程信息部分代码: Private Sub cancelCommand_Click() If Not mcclean Then Frame2.Enabled = True firstCommand.Enabled = True previousCommand.Enabled = True nextCommand.Enabled = True lastCommand.Enabled = True txtCourseno.Enabled = False txtCoursename.Enabled = False comboCoursetype.Enabled = False txtCoursedes.Enabled = False mrc.Bookmark = myBookmark Call viewData Else MsgBox 什么都没有修改，不需要取消！, vbOKOnly + vbExclamation, 警告 End IfEnd SubPrivate Sub deleteCommand_Click() myBookmark = mrc.Bookmark str2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录) If str2$ = vbOK Then mrc.MoveNext If mrc.EOF Then mrc.MoveFirst myBookmark = mrc.Bookmark mrc.MoveLast mrc.Delete mrc.Bookmark = myBookmark Call viewData Else myBookmark = mrc.Bookmark mrc.MovePrevious mrc.Delete mrc.Bookmark = myBookmark Call viewData End If Else mrc.Bookmark = myBookmark Call viewData End IfEnd SubPrivate Sub editCommand_Click() mcclean = False Frame2.Enabled = False firstCommand.Enabled = False previousCommand.Enabled = False nextCommand.Enabled = False lastCommand.Enabled = False txtCourseno.Enabled = True txtCoursename.Enabled = True comboCoursetype.Enabled = True txtCoursedes.Enabled = True comboCoursetype.AddItem 必修 comboCoursetype.AddItem 考查 myBookmark = mrc.BookmarkEnd SubPrivate Sub firstCommand_Click() mrc.MoveFirst Call viewDataEnd SubPrivate Sub previousCommand_Click() mrc.MovePrevious If mrc.BOF Then mrc.MoveLast End If Call viewDataEnd SubPrivate Sub updateCommand_Click() Dim txtSQL As String Dim MsgText As String Dim mrcc As ADODB.Recordset If mcclean Then MsgBox 请先修改课程信息, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt(txtCourseno.Text) Then MsgBox 请输入课程编号！, vbOKOnly + vbExclamation, 警告 txtCourseno.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtCourseno.Text) Then MsgBox 课程编号请输入数字！, vbOKOnly + vbExclamation, 警告 txtCourseno.SetFocus Exit Sub End If If Not Testtxt(txtCoursename.Text) Then MsgBox 请输入课程名称！, vbOKOnly + vbExclamation, 警告 txtCoursename.SetFocus Exit Sub End If If Not Testtxt(comboCoursetype.Text) Then MsgBox 请选择课程类型！, vbOKOnly + vbExclamation, 警告 comboCoursetype.SetFocus Exit Sub End If If Not Testtxt(txtCoursedes.Text) Then MsgBox 请输入课程描述信息！, vbOKOnly + vbExclamation, 警告 txtCoursedes.SetFocus Exit Sub End If mrc.Delete txtSQL = select * from course_Info where course_No = & Trim(txtCourseno.Text) & Set mrcc = ExecuteSQL(txtSQL, MsgText) If mrcc.EOF = False Then MsgBox 课程编号重复，请重新输入！, vbOKOnly + vbExclamation, 警告 mrcc.Close txtCourseno.SetFocus Else mrcc.Close mrc.AddNew mrc.Fields(0) = Trim(txtCourseno.Text) mrc.Fields(1) = Trim(txtCoursename.Text) mrc.Fields(2) = Trim(comboCoursetype.Text) mrc.Fields(3) = Trim(txtCoursedes.Text) mrc.Update MsgBox 修改课程信息成功！, vbOKOnly + vbExclamation, 警告 mrc.Bookmark = myBookmark Call viewData Frame2.Enabled = True firstCommand.Enabled = True previousCommand.Enabled = True nextCommand.Enabled = True lastCommand.Enabled = True txtCourseno.Enabled = False txtCoursename.Enabled = False comboCoursetype.Enabled = False txtCoursedes.Enabled = False mcclean = True End IfEnd Sub6 总结与展望6.1 收获与体会通过本次数据库课程设计我从中学习到了许多课本中没有的知识，更重要的是从该课程设计中对自己的动手能力和动脑能力有了更大层次的提高，切实提高了自己的综合能力，使得将所学的知识同实际的运用相结合，并对数据库知识的了解和运用，尤其是数据库中常用的检索操作和更新操作，以及权限的分配和安全性保护等等，有了更深层次的理解；对oracle数据库的触发器和存储过程的运用有了很大的了解和认识，能够根据实际的情况来编写适当的触发器和存储过程，并显示正确的处理结果；同时，通过该设计也充分的将所学的语言和数据库知识有效的结合，创新性的开发出一个具备比较合理的功能的可视化图形界面的数据库软件，为今后的实际工作的开发项目有了很大程度的帮助。在本次课程设计中我认识和掌握了很多有关VB和ORACLE的相关知识。整个系统对数据库进行了细致上的设计，保证了数据库部分在应用程序设计时不做任何修改。并在有关的后台操作中使用了存储过程和触发器,提高了系统运行的速度和系统性能,确保了数据的安全.。参考文献1丁振凡 . Java语言实用教程M. 北京邮电大学出版社. 2006.92丁振凡 . Java语言实用教程实验指导M. 北京邮电大学出版社. 2006.93 John Lewis等Java程序设计教程（第四版）中文 电子工业出版社4Bruce Eckel著.Java编程思想（第四版）中文5宛延闿 . 实用Java语言程序设计教程习题解答与上机实践M. 机械工业出版社. 他身背三角架，手拎仪器箱，每天起早贪黑，晴天一身汗，雨天一身泥，晚上记录复核到深夜geographic location Yibin city is located in beautiful rich of abundance-Sichuan basin South margin, is located in n 103 39 -105 20 , latitude 27 49 -29 16 Zhijian; Yibin East and, Luzhou city, adjacent; North and zigong city development 12th a five years planning platform for into Yu city inter track network