第一篇：MIS课程设计报告
西安郵電學院
MIS课程设计报告书
(学生学籍管理系统分析设计)
系部名称 ： 信息与管理工程系 学生姓名 ： 王 鸣
专业名称 ： 信息管理与信息系统 班
级 ： 信管0402班
时间 ：
2006 年 12 月11 日 至
2006
年12 月 22 日
目 录：
一.可行性分析„„„„„„„„„„„„„„„„„„„„„„„„„ 4
二.系统分析部分„„„„„„„„„„„„„„„„„„„„„„„„ 4 1.业务流程图„„„„„„„„„„„„„„„„„„„„„„„„ 5 2.数据流程图„„„„„„„„„„„„„„„„„„„„„„„„ 5 3.功能分析图„„„„„„„„„„„„„„„„„„„„„„„„ 6 4.数据字典„„„„„„„„„„„„„„„„„„„„„„„„„ 7 5.数据加工处理的描述„„„„„„„„„„„„„„„„„„„„ 8 6.管理信息系统流程设想图„„„„„„„„„„„„„„„„„„ 9
三.系统设计部分
1.功能结构图设计„„„„„„„„„„„„„„„„„„„„„„ 9 2.新系统信息处理流程设计„„„„„„„„„„„„„„„„„„ 9 3.输出设计(主要指打印输出设计)„„„„„„„„„„„„„„„ 9 4.存储文件格式设计(数据库结构设计)„„„„„„„„„„„„„ 9 5.输入设计(主要指数据录入卡设计)„„„„„„„„„„„„„„ 12 6.代码设计(职工证号和部门代号等)„„„„„„„„„„„„„„ 14 7.程序设计说明书„„„„„„„„„„„„„„„„„„„„„„ 14
四.系统实施部分
1.程序框图„„„„„„„„„„„„„„„„„„„„„„„„„ 14 2.源程序„„„„„„„„„„„„„„„„„„„„„„„„„„ 18 3.模拟运行数据„„„„„„„„„„„„„„„„„„„„„„„ 71 4.打印报表„„„„„„„„„„„„„„„„„„„„„„„„„ 72 5.系统使用说明书„„„„„„„„„„„„„„„„„„„„„„ 72
五.附录或参考资料设计任务书
信管专业
2004级MIS课程设计任务书
一、设计目的：
通过本次设计，要求同学们能够将所学到的信息系统分析方法与软件设计技术及方法综合运用到实际信息系统的分析与设计中，提高同学们对软件的综合分析与设计能力，主要包括对数据的分析、组织能力，数据的提取、处理能力；软件结构的分析设计，复杂界面与输入输出设计能力；学习常用软件开发工具的使用。
二、设计内容： 学生学籍管理系统：
1、系统需求：
本系统主要是用于学生基本信息的管理。该系统可以完成对学生信息添加、班级管理、查找等操作,能够对学生信息进行方便有效的科学管理。
2、主要功能描述 1）权限管理
主要是用户的等级和权限的划分。分３级管理员，超级用户、只读用户、普通用户，权限可以自定义添加和删除。2）班级管理
添加班级、浏览班级、查询班级。3）学生档案管理
浏览档案、添加档案、查询档案。
4）课程设置：基本课程设置和班级课程设置。
5）成绩管理：考试类型设置、成绩添加浏览和查询。
6）打印报表：可以打印学生的档案和成绩等相关的信息报表。
三、设计要求
结合所学习的系统分析与设计的具体方法，应用程序设计的基本知识和数据库知识进行详细的系统分析设计。具体要求如下：
1、学习进行相对复杂数据的分析与设计，建立合理的数据模型。
2、学习使用VB的数据环境设计器和数据报表设计器进行报表输出设计。
3、学习使用visio工具进行常用软件图形的绘制。
4、进一步熟练进行软件系统的界面设计，深入掌握界面设计元素。
5、提供相应的软件设计报告。报告要求有系统的需求分析、系统流程图、数据流程图、软件结构图、数据库设计说明和软件说明书。
6、提供与设计报告相一致的软件系统。
7、每四人为一个课题组，自由组合，检查相应的小组讨论，讨论结果计入平时成绩。
8、报告书写规范见附件。
四、时间安排（共两周10天）
1、第一周的周一、周二（2天）：查阅资料、进行系统的需求分析，要求画出 系统的业务流程图及数据流程图，并设计各类报表的格式。（图书馆）
2、第一周的周三到周五（3天）：并进行详细的数据分析，建立数据字典，并进行数据库及数据查询设计。（机房）
3、第二周的周一周二（2天）：进行软件结构设计，包括软件功能的划分、输入输出界面的设计。（机房）
4、第二周的周三：（1天）：进行输出报表的设计。（机房）
5、第二周的周四：（1天）：全面进行系统调试。（机房）
6、第二周的周五：（1天）：作业检查，提交报告及设计好的软件。（机房）
五、考查方式
1、考勤20％
2、文档40％
3、程序40％
六、地点
信管系机房正文:（1）可行性分析
计算机管理学生信息的意义：
在各大中小学校，用计算机管理学校的信息已经越来越普遍了。用计算机不但可以提高工作效率，而且还节省了许多人力物力，增强了学校资料的安全性。提高了学校的管理能力，为此，用计算机来管理学校的信息，是非常必要的。我作为一个计算机应用的大学生，希望能有所贡献。用我三年的所学编制了一个实用的程序来帮助桂阳一中进行更有效的学籍档案管理。
可行性研究：
目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。
经济上可行性：
现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面： 第一，本系统的运行可以代替人工进行许多繁杂的劳动； 第二，本系统的运行可以节省许多资源；
第三，本系统的运行可以大大的提高学校的工作效率； 第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：
本系统的开发我利用Microsoft SQL Server2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。
使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。
运行上可行性：
本系统为一个小型的学生信息管理系统，所耗费的资源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。法律可行性：
本系统纯为私人设计，在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。
（2）系统分析部分 1）业务流程图
用户学生名单基本信息管理学生情况统计查询浏览表操作人员学生学生登记表学生学籍学生学籍管理 各专业教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表学生
2）数据流程图
用户学生名单学生学生登记表学生信息管理学生学籍查询浏览表查询浏览表操作人员学生学籍管理各系部教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表打印课表学生
3）功能分析图
学生信息管理系统用户信息管理班级信息管理学籍信息管理课程信息管理成绩信息管理奖惩信息管理个人信息查询添加修改删除用户查看所有班级信息添加修改删除班级信息查询学生学籍信息添加修改删除学生学籍信息查询课程信息添加修改删除课程信息查询成绩信息添加修改删除成绩信息查询学生奖惩信息添加修改删除奖惩信息按学号查询个人信息
4）数据字典 数据存储字典
（1）存储文件名：班级和课程
标识符：class_Cour
数据结构：
班级号
class_No
课程名称
course_Name(2)存储文件名：班级信息
标识符：class_Form
数据结构：
班级号
class_No
班级名称
class_Name
导员名称
class_Teacher
备注信息
class_Remarks(3)存储文件名：课程信息
标识符：course_Form
数据结构：
课程名
class_Name
课程列表
class_Rem(4)存储文件名：奖惩信息
标识符：prize_Form
数据结构：
奖惩名
class_Name
奖惩列表
class_Rem(5)存储文件名：奖惩信息
标识符：prize_Stud
数据结构：
奖惩号
prize_No
奖惩学号
prize_Stu
奖惩日期
prize_Data
奖惩名
prize_Name(6)存储文件名：成绩信息
标识符：score_Form
数据结构：
成绩号
score_No
考试期号
score_Per
班级号
score_Cla
学号
score_Stu
科目
score_Cou
成绩
score_Sco(7)存储文件名：个人信息
标识符：student_Form
数据结构：
学号
student_No
姓名
student_Name
性别
student_Sex
出生日期
student_Bir
班级号
student_Cla
电话
student_Tel
入学日期
student_Esd
籍贯
student_Add
备注
student_Rem(8)存储文件名：用户信息
标识符：user_Form
数据结构：
用户名
user_ID
登陆密码
user_PWD
用户日期
user_DATA 5）数据加工处理的描述
处理名：用户名处理
处理过程：登陆学生信息管理系统后，点击“用户信息管理”后出现用户信息管理界面，可以用于添加，修改，删除用户信息。
处理名：班级信息处理
处理过程：登陆学生信息管理系统后，点击“班级信息管理”后出现班级信息管理界面，可以用于查询所有班级信息和添加，修改，删除班级信息。
处理名：学籍信息处理
处理过程：登陆学生信息管理系统后，点击“学籍信息管理”后出现学籍信息管理界面，可以用于查询所有学生学籍信息和添加，修改，删除学生学籍信息。
处理名：课程信息处理
处理过程：登陆学生信息管理系统后，点击“课程信息管理”后出现课程信息管理界面，可以用于查询所有班级课程信息和添加，修改，删除班级课程信息。
处理名：成绩信息处理
处理过程：登陆学生信息管理系统后，点击“成绩信息管理”后出现成绩信息管理界面，可以用于查询所有成绩信息和添加，修改，删除成绩信息。
处理名：奖惩信息处理
处理过程：登陆学生信息管理系统后，点击“奖惩信息管理”后出现奖惩信息管理界面，可以用于查询所有奖惩信息和添加，修改，删除奖惩信息。
处理名：个人信息处理
处理过程：登陆学生信息管理系统后，点击“个人信息管理”后出现个人信息管理界面，可以用于查询个人信息。
6）管理信息系统流程设想图（新系统模型）
（3）系统设计部分
1）功能结构图设计
学生信息管理系统用户信息管理班级信息管理学籍信息管理课程信息管理成绩信息管理奖惩信息管理个人信息查询添加用户信息修改用户信息删除用户信息查询班级信息添加班级信息修改班级信息删除班级信息查询学籍信息添加学籍信息修改学籍信息删除学籍信息查询课程信息添加课程信息删除课程信息添加成绩信息查询成绩信息修改成绩信息删除成绩信息查询奖惩信息添加奖惩信息删除奖惩信息查询个人信息
2）新系统信息处理流程设计
3）输出设计（主要指打印输出设计）
4）存储文件格式设计（数据库结构设计）
5）输入设计（主要指数据录入卡设计）
6）代码设计（职工证号和部门代号等）
7）程序设计说明书
（4）系统实施部分
1）程序框图
2）源程序
学生信息管理图形界面程序设计如下：
Dim i As Long Private Sub Form_Load()
Label1.ForeColor = &H8000000E
Label1.FontSize = 12
Label1.AutoSize = True
i = Image2.Width End Sub
Private Sub Form_Resize()
Image1.Top = 0
Image1.Left = 0
Image1.Height = Me.Height
Image1.Width = Me.Width
Image2.Top = Me.HeightImage2.Width
Label1.Top = Me.Height100 End Sub
Private Sub Timer1_Timer()
i = i + 50
Label1.Left = Me.Width1
.TextMatrix(.Rows1
End With
mrc.Close
OK = False
miCount = 0 End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide End Sub
Private Sub cmdOK_Click()
txtSQL = “select * from user_Form where user_ID = '” & txtUserName.Text & “'”
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox “没有这个用户，请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1))= Trim(txtPassword.Text)Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox “输入密码不正确，请重新输入！”, vbOKOnly + vbExclamation, “警告”
txtPassword.SetFocus
txtPassword.Text = “"
End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub End Sub
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode End Sub
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdOK_Click
End If End Sub
Private Sub txtUserName_Click()
txtPassword.Text = ”“ End Sub
Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode End Sub
学生信息管理系统界面程序设计如下： Private Sub claiMenu_Click()
frmclai.Show End Sub
Private Sub couiMenu_Click()
frmcoui.Show End Sub
Private Sub cusiMenu_Click()
frmcusi.Show End Sub
Private Sub MDIForm_Load()
dColor.Show End Sub
Private Sub MDIForm_Resize()
If Me.Height > 1100 Then
dColor.Height = Me.Height180
End If End Sub
Private Sub prpiMenu_Click()
frmprpi.Show End Sub
Private Sub scoiMenu_Click()
frmscoi.Show End Sub
Private Sub stsiMenu_Click()
frmstsi.Show End Sub
Private Sub sumiMenu_Click()
frmsumi.Show End Sub
奖惩信息管理界面程序设计如下： Dim mrc As ADODB.Recordset Dim MsgText As String
Private Sub Command1_Click()
Dim txtSQL As String
If Text1(0)= ”“ Then
MsgBox ” 奖惩名称不能为空!“, vbOKOnly, ”提示“
Text1(0).SetFocus
Exit Sub
End If
txtSQL = ”select * from prize_Form where prize_Name='“ & Trim(Text1(0))& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox ”此奖惩名称已经存在!“, vbOKOnly, ”警告“
Text1(0).SetFocus
Exit Sub
End If
mrc.Close
txtSQL = ”select * from prize_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0)= Trim(Text1(0))
mrc.Fields(1)= Trim(Text1(1))
mrc.Update
mrc.Close
Text1(0)= ”“
Text1(1)= ”“
MsgBox ”奖惩信息添加成功!“, vbOKOnly, ”提示“
List1Text End Sub
Private Sub Command2_Click()
If List1.Text <> ”“ Then
txtSQL = ”delete from prize_Form where prize_Name='“ & Trim(List1.Text)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
MsgBox ”奖惩信息已经删除!“, vbOKOnly, ”提示“
List1Text
End If End Sub
Private Sub Form_Load()
MSFlexGrid1.Cols = 5
MSFlexGrid1.ColWidth(0)= 300
MSFlexGrid1.ColWidth(1)= 0
MSFlexGrid1.ColWidth(2)= 0
MSFlexGrid1.ColWidth(3)= 1200
MSFlexGrid1.ColWidth(4)= 1200
MSFlexGrid1.TextMatrix(0, 3)= ”奖惩日期“
MSFlexGrid1.TextMatrix(0, 4)= ”奖惩名称“
MSFlexGrid1.Rows = 1
Text3(0)= GetRkno
List1Text End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6(0).BackColor = &HC0C0C0
Label6(1).BackColor = &HC0C0C0 End Sub
Private Sub Form_Resize()
dColor.ZOrder 1 End Sub Private Sub List1Text()
Dim txSQL As String
Dim mrcc As ADODB.Recordset
txSQL = ”select * from prize_Form “
Set mrcc = ExecuteSQL(txSQL, MsgText)
List1.Clear
Do While Not mrcc.EOF
List1.AddItem Trim(mrcc!prize_Name)
mrcc.MoveNext
Loop
mrcc.Close End Sub
Private Function GetRkno()As String
GetRkno = Format(Now, ”yymmddhhmmss“)
Randomize
GetRkno = GetRkno & Int((991).Type
Case adDBDate
.TextMatrix(.Rows1)& ”“, ”yyyy-mm-dd“)
Case Else
.TextMatrix(.Rows1)& ”“
End Select
Next i
mrc.MoveNext
Loop
End With
mrc.Close End Sub
Private Sub Text2_Change()
Dim txtSQL As String
txtSQL = ”select * from prize_Stud where prize_Stu='“ & Trim(Text2)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
ShowData End Sub
成绩信息管理程序设计如下： Dim mrc As ADODB.Recordset Dim MsgText As String
Private Sub Combo1_Click(Index As Integer)
Dim txSQL As String
If Index = 0 Then
txSQL = ”select * from student_Form where student_Cla='“ & Trim(Combo1(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = True Then
MsgBox ”请先进行班级设置!“, vbOKOnly, ”提示“
Else
With Combo1(1)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!student_NO)
mrc.MoveNext
Loop
End With
End If
txSQL = ”select * from class_Cour where class_NO='“ & Trim(Combo1(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = True Then
MsgBox ”请先进行班级设置!“, vbOKOnly, ”提示“
Else
With Combo1(2)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!course_Name)
mrc.MoveNext
Loop
End With
End If
End If End Sub
Private Sub Combo2_Click(Index As Integer)
Dim txSQL As String
If Index = 0 Then
txSQL = ”select DISTINCT score_Stu from score_Form where score_Cla='“ & Trim(Combo2(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo2(1)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Stu)
mrc.MoveNext
Loop
End With
End If
txSQL = ”select DISTINCT score_Cou from score_Form where score_Cla='“ & Trim(Combo2(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo2(2)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Cou)
mrc.MoveNext
Loop
End With
End If
End If End Sub
Private Sub Combo3_Click(Index As Integer)
Dim txSQL As String
If Index = 0 Then
txSQL = ”select * from student_Form where student_Cla='“ & Trim(Combo3(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo3(1)
.Clear
Do While Not mrc.EOF
If mrc!student_NO <>.Text Then
.AddItem Trim(mrc!student_NO)
End If
mrc.MoveNext
Loop
End With
End If
txSQL = ”select * from class_Cour where class_NO='“ & Trim(Combo3(0).Text)& ”'“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo3(2)
.Clear
Do While Not mrc.EOF
If mrc!course_Name <>.Text Then
.AddItem Trim(mrc!course_Name)
End If
mrc.MoveNext
Loop
End With
End If
End If End Sub
Private Sub Command1_Click()
Dim txtSQL As String
If Text1(1)= ”“ Then
MsgBox ”考试期号不能为空!“, vbOKOnly, ”提示“
Text1(1).SetFocus
Exit Sub
End If
If Combo1(0).Text = ”“ Then
MsgBox ”学生班号不能为空!“, vbOKOnly, ”提示“
Combo1(0).SetFocus
Exit Sub
End If
If Combo1(1).Text = ”“ Then
MsgBox ”学生编号不能为空!“, vbOKOnly, ”提示“
Combo1(1).SetFocus
Exit Sub
End If
If Combo1(2).Text = ”“ Then
MsgBox ”考试课程不能为空!“, vbOKOnly, ”提示“
Combo1(2).SetFocus
Exit Sub
End If
If Text1(2)= ”“ Then
MsgBox ”考试分数不能为空!“, vbOKOnly, ”提示“
Text1(2).SetFocus
Exit Sub
End If
txtSQL = ”select * from score_Form where score_Per='“ & Trim(Text1(1))& ”' and score_Cla='“ & Trim(Combo1(0).Text)& ”' and score_Stu='“ & Trim(Combo1(1).Text)& ”'And score_Cou='“ & Trim(Combo1(2).Text)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox ”同次同人同科只能添加一次“, vbOKOnly, ”警告“
Text1(2)= ”“
Combo1(0).SetFocus
Exit Sub
End If
txtSQL = ”select * from score_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0)= Trim(Text1(0))
mrc.Fields(1)= Trim(Text1(1))
mrc.Fields(2)= Trim(Combo1(0).Text)
mrc.Fields(3)= Trim(Combo1(1).Text)
mrc.Fields(4)= Trim(Combo1(2).Text)
mrc.Fields(5)= Trim(Text1(2))
mrc.Update
mrc.Close
MsgBox ”考试信息添加成功!“, vbOKOnly, ”提示“
With MSFlexGrid1
.Rows =.Rows + 1
.TextMatrix(.Rows1, 1)= Trim(Text1(1))
.TextMatrix(.Rows1, 3)= Trim(Combo1(1).Text)
.TextMatrix(.Rows1, 5)= Trim(Text1(2))
End With
Text1(2)= ”“
Combo1(0).Clear
txtSQL = ”select * from class_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With Combo1(0)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!class_NO)
mrc.MoveNext
Loop
End With
End If
Combo1(1).Clear
Combo1(2).Clear
Text1(0)= GetRkno
MSFlexGrid1.TopRow = MSFlexGrid1.Rows1
Select Case mrc.Fields(i).Type
Case adDBDate
.TextMatrix(.Rows1, i)= mrc.Fields(i)& ”“
End Select
Next i
mrc.MoveNext
Loop
.Visible = True
End With
Frame1.Visible = False
mrc.Close
Text2(1)= ”“
txSQL = ”select DISTINCT score_Cla from score_Form“
Set mrc = ExecuteSQL(txSQL, MsgText)
If mrc.EOF = False Then
With Combo2(0)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Cla)
mrc.MoveNext
& ”“, 46
Loop
End With
End If
Combo2(1).Clear
Combo2(2).Clear
Text2(2)= ”“ End Sub
Private Sub Command4_Click()
Dim txtSQL As String
Text2(1)= ”“
txtSQL = ”select DISTINCT score_Cla from score_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With Combo2(0)
.Clear
Do While Not mrc.EOF
.AddItem Trim(mrc!score_Cla)
mrc.MoveNext
Loop
End With
End If
Combo2(1).Clear
Combo2(2).Clear
Text2(2)= ”“ End Sub
Private Sub Command5_Click()
Dim j As Integer
Dim txtSQL As String
If Text3(0)= ”“ Then
MsgBox ”清选择要修改的纪录!“, vbOKOnly, ”提示“
MSFlexGrid1.SetFocus
Exit Sub
End If
If Text3(1)= ”“ Then
MsgBox ”考试期号不能为空!“, vbOKOnly, ”提示“
Text3(1).SetFocus
Exit Sub
End If
If Combo3(0).Text = ”“ Then
MsgBox ”学生班号不能为空!“, vbOKOnly, ”提示“
Combo3(0).SetFocus
Exit Sub
End If
If Combo3(1).Text = ”“ Then
MsgBox ”学生编号不能为空!“, vbOKOnly, ”提示“
Combo3(1).SetFocus
Exit Sub
End If
If Combo3(2).Text = ”“ Then
MsgBox ”考试课程不能为空!“, vbOKOnly, ”提示“
Combo3(2).SetFocus
Exit Sub
End If
If Text3(2)= ”“ Then
MsgBox ”考试分数不能为空!“, vbOKOnly, ”提示“
Text3(2).SetFocus
Exit Sub
End If
txtSQL = ”select * from score_Form where score_NO<>'“ & Trim(Text3(0))& ”' And score_Per='“ & Trim(Text3(1))& ”' and score_Cla='“ & Trim(Combo3(0).Text)& ”' and score_Stu='“ & Trim(Combo3(1).Text)& ”'And score_Cou='“ & Trim(Combo3(2).Text)& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
MsgBox ”同次同人同科只能添加一次“, vbOKOnly, ”警告“
Text3(2)= ”“
Combo3(0).SetFocus
Exit Sub
End If
txtSQL = ”Delete from score_Form where score_NO='“ & Trim(Text3(0))& ”'“
Set mrc = ExecuteSQL(txtSQL, MsgText)
txtSQL = ”select * from score_Form“
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
mrc.Fields(0)= Trim(Text3(0))
mrc.Fields(1)= Trim(Text3(1))
mrc.Fields(2)= Trim(Combo3(0).Text)
mrc.Fields(3)= Trim(Combo3(1).Text)
mrc.Fields(4)= Trim(Combo3(2).Text)
mrc.Fields(5)= Trim(Text3(2))
mrc.Update
mrc.Close
MsgBox ”考试信息修改成功!“, vbOKOnly, ”提示"
j = 0
For i = 1 To MSFlexGrid1.Rows1
第二篇：MIS课程设计报告
管理信息系统课程设计
专 业： 信息管理与信息系统 课程名称： MIS课程设计 课题名称: 学生管理系统 教 师: 许炜 小组成员: 张浩 张旭 周杨 徐俊杰
2014年 12 月 26 日 目录
第一章 系统规划..................................................1 1.1设计背景....................................................1 1.2系统设计目标................................................1 1.3 可行性分析..................................................1 第二章 系统分析..................................................2 2.1组织结构分析................................................2 2.2业务流程图..................................................2 2.3功能需求....................................................2 第三章 系统设计..................................................4 3.1 界面设计....................................................4 第四章 系统实施.................................................11 4.1 系统操作使用的简要说明.....................................11 4.2 系统评价...................................................11 课程设计总结....................................................13 参考资料........................................................13 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
第一章 系统规划 1.1设计背景
学生信息系统是一项数据量很庞大的管理信息系统，需要实现的功能也越来越复杂，越来越全。因此，对于学生信息的管理系统的设计要求越来越严格，其功能的全面性，简便性要求也逐步增强。
1.2系统设计目标
本系统是基于AxureRP软件设计搭接用户界面的学生信息管理系统，实现对学生在校信息的全面集中管理。
1.3 可行性分析
技术可行性：本系统采用AxureRP软件，软件具有以下优点：
网站构架图(Site Structure)：AxureRP可以快速绘制树状的网站构架图，而且可以让构架图中的每一个页面节点，直接连接到对应网页。
示意图(Wireframe)：Axure RP内建了许多会经常使用到的widget元件，例如：按钮(Button)、图片(Image)、文字面板(Text Panel)、选择钮(Radio Button)、下拉式菜单(Droplist)。流程图(Flowchart)：AxureRPFlowDiagram快速建立流程图就像建立wireframe一样容易，Flow Widget中有设计流程图时会经常用到的形状，您可以轻松在流程之间加入连接线并设定连接的格式。
交互设计(InteractionDesign)：大多数的widget可以对一个或多个事件产生动作，包括OnClick、OnMouseOver和OnMouseLeave等
自动输出网站原型(HTML Prototype): Axure RP可以将wireframe，输出成符合InternetExplorer或Firefox等不同浏览器的HTML prototype。江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
第二章 系统分析
2.1组织结构分析
2.2业务流程图 2.3功能需求
主要功能：
※登录界面：用户名、密码登录，密码丢失，用户注册 学籍管理：包括入学注册、学籍信息查询和更新
班级管理：包括班级信息添加、更新和删除 ※课程管理：包括课程查询，学生选课系统 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
成绩管理：包括成绩录入、查询和统计
收费管理：学生缴费信息输入、查询和统计 ※打印统计：打印统计结果 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
第三章 系统设计
3.1 界面设计 登陆界面：
注册界面：
密码修改界面： 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
系统功能界面：
江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
学籍管理界面：
学籍修改界面： 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
班级管理界面： 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
课程管理界面： 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
成绩管理界面： 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
收费管理界面： 江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
打印系统界面：
第四章 系统实施
4.1 系统操作使用的简要说明
本系统是基于学生信息管理过程进行设计的简明版信息存储管理系统。由登录界面进入，若还未注册或者密码遗忘，可以进行相应的找回、修改功能。之后，便可以进行学生学籍、课程、成绩以及学费管理等方面的信息查询与统计功能，最后，也可以对之前的统计结果进行打印。
4.2 系统评价
4.1.1采用的有特色的技术与技巧
1）动态面板部件。在运用AxureRP软件设计学生管理系统流程界面时，不仅使用了江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
系统一般常用的部件进行常规设计，而且使用了动态面板部件，可以让你实现高级的交互功能，实现原型的高保真度。
2）菜单控件。菜单控件用于创建简单的弹出菜单，菜单控件分为垂直菜单（Vertical Menu）和水平菜单（Horizontal Menu），可以通过控件面板中拖入菜单控件到线框图中创建菜单，每一层的菜单项可以继续向下新增子菜单。图例：
3)OnChange事件。OnChange事件可用于下拉框（Droplist）和列表框（List Box）控件。OnChange事件是在下拉框或列表框的选项选择时发生。这在原型中以下拉框进行导航非常有用，即当选择下拉框的某个选项时跳转到相应的页面上。在本次实验中，此应用很多地方用到就不一一例举。
4.2.2成功之处与主要特点
1）模块化。本系统主要分为七个模块，分别为登录界面、学籍管理、班级管理、课程管理、成绩管理、收费管理、打印统计，每一个模块中也有细分具体功能板块，这样编排，使得学生与管理员使用都很清楚、明朗；
2）简明而全面。本系统实现了学籍、班级、课程、成绩、收费的五个功能，具体而全面地涵盖了关于学生日常涉及的事务处理；
3）实用性。本系统在本校已有系统功能的基础上，完善了部分未能使用，却是学生需要的功能，如个人、专业学分计算与统计功能等。江苏科技大学苏州理工学院 商学院
课 程 设 计 报 告
4.2.3系统会改进完善之处和进一步工作的打算
1）各部信息之间关联性太强，一处信息的错误可能导致整个系统中信息错误。2）现有系统在用户角色和用户权限设置上没有相关的功能。3）在用户界面，用户体验，响应速度等方面存在问题。
改进措施：下一步将进行用户权限系统的设置。不同的用户角色享有不同的权限，方便进行信息的查询、管理和利用。同时也要改进用户界面，提高系统的响应速度，改善用户的体验，做到更便捷、更友好。
课程设计总结
本次课程设计，让我们了解和熟悉了另一种搭建网络页面框架，实现网络功能的软件和方法。虽然有些方面不及Java与ASP.net等其他软件所能实现的页面功能复杂全面，但Axure RP 可以让桌面应用软件和Web网站的设计师创建线框图、流程图、原型和规格说明文档，它比任何当前其它创建静态原型的工具如Visio,、Illustrator、Photoshop、Dreamweaver, Visual Studio、FireWorks、GUI Studio等都要快速、高效，因为它才是真正的专门原型设计工具，并且支持多人协作设计和版本控制管理。
而本次课程设计也提高我们小组成员的动手实践能力与遇到问题时的思考、分析、解决问题的能力，懂得如何实在地搭建一个我们自己生活学习中所接触到，使用到的网络界面，网站数据查询与统计功能，真正的学而致用，理解的也更全面透彻，提高了学习计算机的兴趣，增强了信心。
在本次课程设计中，我们因为不熟悉，也遇到了很多的困难。虽如此，每当克服一个困难时，我们都非常的兴奋，这些都是自己努力的结果。现在，我们有信心面对接下来的挑战，在不断的实践中锻炼自己，提高自己！
参考资料
[1] Axure第一书（作者马克）[2] Axure快速原型设计(第二版)
第三篇：MIS课程设计实验心得体会
MIS课程设计实验心得体会
一：在此试验中调研阶段：在网上观察了淘宝、京东商城的物品购买流程以及所用到的编码格式以及一些我们在后面的程序设计中需要到得各种模式。
二：系统设计与分析阶段我做的任务是：购物车模块，订单模块和后台管理模块的库存管理部分。所画的图有：
购物车业务流程图、购物车数据流程图、购物车功能结构图
订单业务流程图、订单数据流程图、订单功能结构图
库存管理业务流程图、库存管理数据流程图、库存功能结构图
第二层数据流程图、整体业务流程图、整体E-R图总计十四张图。
然后又详细写了相对应数据流程图的数据字典包括数据项的定义、数据结构的定义、数据流的定义、处理逻辑的定义、数据存储的定义以及外部实体的定义。然后又通过加入所学过的管理理念和思想结合我们组所做的网上超市进行了分析和总结。其中用到了运筹学、电子支付与安全、物流与供应链管理这三门课程所学过的知识。
三：在系统实现阶段我的主要任务是：做程序的购物车模块、订单模块、以及后台部分。主要是利用JSP和Servlet数据库使用的是SQL2005.四：通过三周的课程设计，在老师的热心帮助和指导下，我们最终顺利完成了莘莘网上超市管理信息系统课程设计报告。总的来说，我们对自己所做的工作及获得的成果还是比较满意的。系统运行基本达到了预期目标，课程设计报告通过系统可行性分析报告、系统分析报告、系统设计报告三部分详细完整地记录了系统开发的过程。
在本次系统开发的过程中，我们小组成员以极大的热情投入到工作中去，我们目标一致、分工明确，大家在完成自己工作的基础上沟通交流，互帮互助。有效的解决了设计过程中的许多难题，但都在陆老师的悉心指导下一一克服了，同时也收获了很多。
首先，我们通过实际运用所学知识更深刻地理解了MIS，懂得了业务流程图的画法以及应该注意到的问题，还有数据流程图的画法以及对数据项、数据结构、数据流、处理逻辑、外部实体、数据存储的定义方法和规则。然后将管理知识和现代化系统开发技术相结合，以达到我们的最终目标；比如说我们在设计的过程中运用到了我们之前所学过的运筹学、物流与供应链管理、商务智能、管理决策与分析、客户关系管理、电子支付与安全等方面的知识。深深感觉到了我们所学过的知识的重要性以及各个学科的综合运用是那么的重要。
其次，系统的设计过程锻炼了我们的逻辑能力，要完成一个任务有很多种途径，如何选取最优解并将每一步的最优解衔接，然后以图表方式表现出来是非常考验人的，在繁复的设计过程中我们的思路更加清晰，视野更加开阔；我记得刚开始的时候把自己所画的图交给老师看，出现了各种各样的错误和不足之处，但老师非常耐心的给我们讲解，然后在后面的每一天里我们都会准时找到老师分析
自己所画的图，对自己的图修改了一遍又一遍，复印了一遍又一遍，在一遍又一遍的完善之下，最后终于功夫不负有心人，我看到最终自己画的图感到很骄傲。
第三，小组内部沟通是很重要的，也许在给队友讲解的时间自己已经能完成任务，但是为了大家整体思想的统一，必须多次交换意见，力求使彼此间信息对称、理解一致，同时，我们也学会了面对和接受不同的意见，在交流中找到最佳解决方案；比如说不同的人对不同的业务有着不同的想法。刚开始的时候我们组先是按照淘宝购物的模式来进行分析设计我们这所网站的，但是进行到中间的时候一组员突然提到了京东商城，感觉我们这所网站还是按照京东商城的模式设计比较好，然后又进行了大量的修改，在此过程中有支持淘宝利用第三方支付平台模式的，有支持京东那样直接支付到商城模式的。还有就是在订单设计的时候也遇到了很多的分歧，比如说初始订单和预定订单问题，我们讨论了很长时间，最后决定把他们看做是一种订单。
第四，要有刻苦钻研的精神，这次设计不仅运用了本次课程的知识，同时也结合了以前学过的知识，有些软件成员们都不会用或者忘记了，而且许多设计环节工作量很大，但小组成员们都很努力，我们刻苦钻研，最终把困难各个击破。同时，在此次设计当中认我认识到开发一项好的软件不是某一个人就能完成的任务。一个团队的小组，一个勤奋的小组非常重要，沟通是解决问题的就好办法。所以小组中的每个成员的能力与协作能力也是致关重要的，不仅是团队内部的交流，更多需要协调好团队之间的交流。
然后呢，在实习中我了解了，在开发一个项目时一定要先做好规划，按照软件的开发过程，详细地写好每一个必要的文档。
由于我们的知识水平有限，并且是第一次做这样的设计，有些设计环节应该不是很完善，希望老师及同学们能多多指点。
第四篇：《管理信息系统MIS》课程设计教学大纲
《管理信息系统》课程设计教学大纲 Management Information System
课程编号：
适用专业：经济学、管理学 非信息类各专业
本科生 课程性质和教学目的
本设计是与为经济学、管理学 非信息类各专业 本科生开设的主干专业课程《管理信息系统MIS》配套的课程设计，是其必修实践环节。本设计要使学生采用本课程中学习的信息系统开发的以数据库为中心的原型法，运用其基本方法与主要图表工具完成一个自己所了解的小业务的信息系统系统分析与设计，用自己熟悉的数据库管理系统、程序设计语言及其相关开发工具实现该系统，并运行、评价、改进之；在此基础上严格按本大纲所附报告提纲撰写课程设计报告。通过本设计进一步弄懂管理信息系统及其相关的基本概念，理解企业管理决策与管理信息系统之间的依存互动关系，把握与信息系统密切相关的管理决策理论与方法，掌握管理信息系统开发的原则、方法、方式、策略及其基本过程与项目管理，领悟信息系统开发的基本思路和基本过程，初步具备用原型法开发与管理管理信息系统的基本能力，初步形成在计算机网络平台上，运用现代管理理论与方法，解决管理决策中的实际问题的基本素质。
设计内容与要求
参见附录《管理信息系统MIS》课程设计报告提纲
设计过程与步骤
要求学生在数据库应用课程设计的基础上，选择自己了解的一项管理业务，运用原型法，分析、设计、实现一个业务信息系统，并运行、评价改进之，最后要写出课程设计报告。
课程设计分3个阶段进行：首先，结合课堂教学，在学生已完成数据库应用课程设计的基础上，安排学生逐步完成选题和资料准备，课堂教学完成结构化系统分析后开始组织学生初步完成系统分析与总体设计；然后，在期末2周的课程设计阶段，在教师的面对面与网上指导下，完成系统分析、系统设计，做好系统实现计划，撰写包含这些内容的课程设计报告初稿并用Email交初稿；教师在假期的头几天批改，提出指导意见用Email返回给学生，学生在假期中，在老师网上指导下全面完成课程设计，撰写并经过教师网上指导修改，完成课程设计报告；开学时交课程设计报告的打印稿和有完整的可运行软件与设计报告的电子文档的光盘。
成绩评定：按课程设计报告提纲逐条逐项定出评分标准，逐项给出成绩，最后计算总分。建议教材与教学参考书
参考书目
[1] Stephen Haag, Maeve Cummings, James Dawkins: Management Information Systems for the Information Age.机械工业出版社, 英文版,1998.[2] E.F.Peter Newson, Michael Parent: Management Information System Case.机械工业出版社,英文版,1998.[3] 薛华成，管理信息系统（第三版），清华大学出版社，1999.[4] 张海藩，软件工程导轮（第三版），清华大学出版社，1999.[5] 黄梯云，管理信息系统，北京：经济科学出版社，1999。
[6] 王晓铭，管理信息系统及其开发技术，北京：电子工业出版社，1999。
附录
MIS课程设计报告提纲
（经济学 管理学 非信息类专业 本科用）
封面：课题名称，与内容相符合的画面，设计人姓名、专业、班级、学号，日期。要美观大方，具有创新性。
目录：有序号、标题、页码，布局合理
报告内容
概述：系统的基本任务，主要业务，开发目标 1． 系统分析
1.1 用户需求：系统现状，要解决的主要问题，达到的具体指标等。
1.2 可行性研究：几个可供选择的初步方案，从技术、经济、社会三个方面分析系统开发的必要性、可能性和有益性。
1.3 现状调查：现状的业务流程图及其相关单据票证帐簿报表，现状评价。
1.4 目标分析：由现状的相关单据票证帐簿报表找出要长期存储的基本项，写出由基本项构思ERD的四条原则及相应得出的实体、联系及其属性，画出ERD（不少于两个主实体，一个联系和16个属性）；写出由ERD导出一般关系模型的四条原则，列出数据存储初步构思的关系框架，进而分析IT带来的变化，从而作BPR/BPI，画出新的业务流程图；画出功能层次图。系统设计
2.1 总体设计
2.1.1 一般关系模型设计：如果与系统分析中的初步构思没有什么不同，则可用文字说明而不必再列表。
2.1.2 处理流程总体设计：设计欢迎画面、主控菜单。
2.1.3 系统平台的总体结构设计：设想所开发业务系统所用的MIS的网络拓扑结构、计算机系统和网络连接设备的逻辑功能。
2.2 详细设计
2.2.1 代码系统设计：写出代码设计的基本原则，设计主要的代码（不少于2种）。2.2.2 数据库结构的具体设计：按所选用的DBMS设计数据库表的具体框架及其完整性说明；设计用户视图。
2.2.3 模块设计：设计输出模块、输入模块、接口模块的方式、格式，机内模块的框图。（至少有两层菜单、1个查询模块和1个报表生成模块）。系统实现
3.1 数据库表结构的建立与数据输入：建立表结构，输入计算机并打印出来；输入数据并打印出来；建立用户视图，并打印出来。3.2 应用程序设计与测试：编写各应用程序，输入并打印出来；或打印出表单和菜单画面、方法程序；叙述测试中的问题与解决方法。系统运行
4.1 写出系统操作使用的简要说明。
4.2 运行系统并打印出运行结果（至少有1个查询结果和1个报表输出结果）。
4.3 系统评价：采用的有特色的技术与技巧；成功之处与主要特点；系统会改进完善之处和进一步工作的打算；自己通过本设计所得到的收获、体会。
说明：本提纲按以数据库为中心的原型法开发一个业务小系统并以vb+sql server 2005实现 为前提来讨论，但鼓励学生用结构化方法来完成课程设计，其报告可参照本提纲撰写，基本内容应不少于本提纲的要求。
第五篇：MIS(管理信息系统)课程设计个人总结
课 程 设 计 总 结
姓名：李斌 专业：财务管理
学号：1145543131
课程设计个人总结
本次课程设计持续了1个星期，时间非常紧张，我们的课题是企业人力资源管理系统，我们小组由7个人组成，需要完成企业人力资源管理系统子系统的开发、调试与运行，此外还要撰写课程设计报告。我的工作主要是课程设计报告的整理兼撰写。但实际上每个文档之间都有着联系，仅仅做自己分配到的部分是不够的，系统分为哪些模块以及各模块的功能都需要大家一起讨论确定，统一思路，否则文档无法衔接，课程设计无法完成。
人力资源的各大模块的工作各有侧重点，但是各大模块是不可分割的，就像生物链一样，任何一个环节的缺失都会影响整个系统的失衡。HR工作是一个有机的整体，各个环节的工作都必须到位，同时要根据不同的情况，不断地调整工作的重点，才能保证人力资源管理保持良性运作，并支持企业战略目标的最终实现。
我们在分工编写文档前先在一起讨论确定了系统的主要模块和每个模块的功能，统一它们的名称，然后各自编写文档，发现应该添加新功能或原先的设计有问题时再一起讨论，统一修改，防止文档出现偏差。通过大家的讨论，发现很多问题和没有想到的细节，在不断发现问题，不断改正错误、不断完善系统设计的过程中，我们对人力资源系统的理解和研究也越来越深入，也使我们认识到团队的力量。
课程设计需要使用很多建模和作图工具软件，例如Visio、rose，以及网页制作、图像处理软件，同时需要查阅资料和做一些必要的调研。虽然平时上课这些软件的使用老师都讲过，考试也能通过，但当用这些软件和课本上的知识来独立地设计一个实际的系统时，很多问题就暴露出来了，比如什么时候要用E-R图、什么时候要用流程图，虽然这些图我们每个人都会画，但是这些图是用来描述什么的、作用是什么、什么时候需要使用这些图我们却不是很清楚。
课程设计是培养学生综合运用所学知识,发现、提出、分析和解决实际问题,锻炼实践能力的重要环节，这次课程设计虽然很累，但我学到了不少东西，对软件的设计过程和方法有了更深入的了解，培养了我们的团队精神，锻炼了我们的沟通和表达能力。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。
通过此次课程设计，使我更加扎实的掌握了有关人力资源管理系统方面的知识，在设计过程中虽然遇到了一些问题，但经过一次又一次的思考，一遍又一遍的检查终于找出了原因所在，也暴露出了前期我在这方面的知识欠缺和经验不足。实践出真知，通过亲自动手制作，使我们掌握的知识不再是纸上谈兵。
在课程设计过程中，我们不断发现错误，不断改正，不断领悟，不断获取。最终的检测调试环节，本身就是在践行“过而能改，善莫大焉”的知行观。这次课程设计终于顺利完成了，在设计中遇到了很多问题，最后在大家的努力下，终于游逆而解。在今后社会的发展和学习实践过程中，一定要不懈努力，不能遇到问题就想到要退缩，一定要不厌其烦的发现问题所在，然后一一进行解决，只有这样，才能成功的做成想做的事，才能在今后的道路上劈荆斩棘，而不是知难而退，那样永远不可能收获成功，收获喜悦，也永远不可能得到社会及他人对你的认可！
课程设计诚然是一门专业课，给我很多专业知识以及专业技能上的提升，同时又是一门讲道课，一门辩思课，给了我许多道，给了我很多思，给了我莫大的空间。回顾起此课程设计，至今我仍感慨颇多，从理论到实践，我学到很多很多的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。
点击咨询 