第一篇：mis教务管理课程设计
MIS(管理信息系统)课程设计个人总结
课 程 设 计 总 结
姓名：李斌 专业：财务管理
学号：1145543131
课程设计个人总结
本次课程设计持续了1个星期，时间非常紧张，我们的课题是企业人力资源管理系统，我们小组由7个人组成，需要完成企业人力资源管理系统子系统的开发、调试与运行，此外还要撰写课程设计报告。我的工作主要是课程设计报告的整理兼撰写。但实际上每个文档之间都有着联系，仅仅做自己分配到的部分是不够的，系统分为哪些模块以及各模块的功能都需要大家一起讨论确定，统一思路，否则文档无法衔接，课程设计无法完成。
人力资源的各大模块的工作各有侧重点，但是各大模块是不可分割的，就像生物链一样，任何一个环节的缺失都会影响整个系统的失衡。HR工作是一个有机的整体，各个环节的工作都必须到位，同时要根据不同的情况，不断地调整工作的重点，才能保证人力资源管理保持良性运作，并支持企业战略目标的最终实现。
我们在分工编写文档前先在一起讨论确定了系统的主要模块和每个模块的功能，统一它们的名称，然后各自编写文档，发现应该添加新功能或原先的设计有问题时再一起讨论，统一修改，防止文档出现偏差。通过大家的讨论，发现很多问题和没有想到的细节，在不断发现问题，不断改正错误、不断完善系统设计的过程中，我们对人力资源系统的理解和研究也越来越深入，也使我们认识到团队的力量。
课程设计需要使用很多建模和作图工具软件，例如Visio、rose，以及网页制作、图像处理软件，同时需要查阅资料和做一些必要的调研。虽然平时上课这些软件的使用老师都讲过，考试也能通过，但当用这些软件和课本上的知识来独立地设计一个实际的系统时，很多问题就暴露出来了，比如什么时候要用E-R图、什么时候要用流程图，虽然这些图我们每个人都会画，但是这些图是用来描述什么的、作用是什么、什么时候需要使用这些图我们却不是很清楚。
课程设计是培养学生综合运用所学知识,发现、提出、分析和解决实际问题,锻炼实践能力的重要环节，这次课程设计虽然很累，但我学到了不少东西，对软件的设计过程和方法有了更深入的了解，培养了我们的团队精神，锻炼了我们的沟通和表达能力。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。
通过此次课程设计，使我更加扎实的掌握了有关人力资源管理系统方面的知识，在设计过程中虽然遇到了一些问题，但经过一次又一次的思考，一遍又一遍的检查终于找出了原因所在，也暴露出了前期我在这方面的知识欠缺和经验不足。实践出真知，通过亲自动手制作，使我们掌握的知识不再是纸上谈兵。
在课程设计过程中，我们不断发现错误，不断改正，不断领悟，不断获取。最终的检测调试环节，本身就是在践行“过而能改，善莫大焉”的知行观。这次课程设计终于顺利完成了，在设计中遇到了很多问题，最后在大家的努力下，终于游逆而解。在今后社会的发展和学习实践过程中，一定要不懈努力，不能遇到问题就想到要退缩，一定要不厌其烦的发现问题所在，然后一一进行解决，只有这样，才能成功的做成想做的事，才能在今后的道路上劈荆斩棘，而不是知难而退，那样永远不可能收获成功，收获喜悦，也永远不可能得到社会及他人对你的认可!
课程设计诚然是一门专业课，给我很多专业知识以及专业技能上的提升，同时又是一门讲道课，一门辩思课，给了我许多道，给了我很多思，给了我莫大的空间。回顾起此课程设计，至今我仍感慨颇多，从理论到实践，我学到很多很多的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。
第二篇：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
五.附录或参考资料
1 设计任务书
信管专业
2004级MIS课程设计任务书
一、设计目的：
通过本次设计，要求同学们能够将所学到的信息系统分析方法与软件设计技术及方法综合运用到实际信息系统的分析与设计中，提高同学们对软件的综合分析与设计能力，主要包括对数据的分析、组织能力，数据的提取、处理能力;软件结构的分析设计，复杂界面与输入输出设计能力;学习常用软件开发工具的使用。
二、设计内容： 学生学籍管理系统：
1、系统需求：
本系统主要是用于学生基本信息的管理。该系统可以完成对学生信息添加、班级管理、查找等操作,能够对学生信息进行方便有效的科学管理。
2、主要功能描述 1)权限管理
主要是用户的等级和权限的划分。分3级管理员，超级用户、只读用户、普通用户，权限可以自定义添加和删除。 2)班级管理
添加班级、浏览班级、查询班级。 3)学生档案管理
浏览档案、添加档案、查询档案。
4)课程设置：基本课程设置和班级课程设置。
5)成绩管理：考试类型设置、成绩添加浏览和查询。
6)打印报表：可以打印学生的档案和成绩等相关的信息报表。
三、设计要求
结合所学习的系统分析与设计的具体方法，应用程序设计的基本知识和数据库知识进行详细的系统分析设计。具体要求如下：
1、学习进行相对复杂数据的分析与设计，建立合理的数据模型。
2、学习使用VB的数据环境设计器和数据报表设计器进行报表输出设计。
3、学习使用visio工具进行常用软件图形的绘制。
4、进一步熟练进行软件系统的界面设计，深入掌握界面设计元素。
5、提供相应的软件设计报告。报告要求有系统的需求分析、系统流程图、数据流程图、软件结构图、数据库设计说明和软件说明书。
6、提供与设计报告相一致的软件系统。
7、每四人为一个课题组，自由组合，检查相应的小组讨论，讨论结果计入平时成绩。
8、报告书写规范见附件。
四、时间安排(共两周10天)
1、第一周的周
一、周二(2天)：查阅资料、进行系统的需求分析，要求画出
2 系统的业务流程图及数据流程图，并设计各类报表的格式。(图书馆)
2、第一周的周三到周五(3天)：并进行详细的数据分析，建立数据字典，并进行数据库及数据查询设计。(机房)
3、第二周的周一周二(2天)：进行软件结构设计，包括软件功能的划分、输入输出界面的设计。(机房)
4、第二周的周三：(1天)：进行输出报表的设计。(机房)
5、第二周的周四：(1天)：全面进行系统调试。(机房)
6、第二周的周五：(1天)：作业检查，提交报告及设计好的软件。(机房)
五、考查方式
1、考勤20%
2、文档40%
3、程序40%
六、地点
信管系机房
3 正文: (1)可行性分析
计算机管理学生信息的意义：
在各大中小学校，用计算机管理学校的信息已经越来越普遍了。用计算机不但可以提高工作效率，而且还节省了许多人力物力，增强了学校资料的安全性。提高了学校的管理能力，为此，用计算机来管理学校的信息，是非常必要的。 我作为一个计算机应用的大学生，希望能有所贡献。用我三年的所学编制了一个实用的程序来帮助桂阳一中进行更有效的学籍档案管理。
可行性研究：
目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。
经济上可行性：
现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面： 第一，本系统的运行可以代替人工进行许多繁杂的劳动; 第二，本系统的运行可以节省许多资源;
第三，本系统的运行可以大大的提高学校的工作效率; 第四，本系统可以使敏感文档更加安全，等等。 所以，本系统在经济上是可行的。 技术上可行性：
本系统的开发我利用Microsoft SQL Server2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。
使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。 综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。
运行上可行性：
本系统为一个小型的学生信息管理系统，所耗费的资源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。 法律可行性：
本系统纯为私人设计，在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。
(2)系统分析部分
4 1)业务流程图
用户学生名单基本信息管理学生情况统计查询浏览表操作人员学生学生登记表学生学籍学生学籍管理 各专业教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表学生
2)数据流程图
5 用户学生名单学生学生登记表学生信息管理学生学籍查询浏览表查询浏览表操作人员学生学籍管理各系部教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表打印课表学生
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
22
.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
34
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))
36
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 "
37
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
40 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)
41
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)
42
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
43
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
47
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
49
第三篇：MIS课程设计实验心得体会
一：在此试验中调研阶段：在网上观察了淘宝、京东商城的物品购买流程以及所用到的编码格式以及一些我们在后面的程序设计中需要到得各种模式。
二：系统设计与分析阶段我做的任务是：购物车模块，订单模块和后台管理模块的库存管理部分。所画的图有：
购物车业务流程图、购物车数据流程图、购物车功能结构图
订单业务流程图、订单数据流程图、订单功能结构图
库存管理业务流程图、库存管理数据流程图、库存功能结构图
第二层数据流程图、整体业务流程图、整体E-R图总计十四张图。
然后又详细写了相对应数据流程图的数据字典包括数据项的定义、数据结构的定义、数据流的定义、处理逻辑的定义、数据存储的定义以及外部实体的定义。然后又通过加入所学过的管理理念和思想结合我们组所做的网上超市进行了分析和总结。其中用到了运筹学、电子支付与安全、物流与供应链管理这三门课程所学过的知识。
三：在系统实现阶段我的主要任务是：做程序的购物车模块、订单模块、以及后台部分。主要是利用JSP和Servlet数据库使用的是SQL2005.
四：通过三周的课程设计，在老师的热心帮助和指导下，我们最终顺利完成了莘莘网上超市管理信息系统课程设计报告。总的来说，我们对自己所做的工作及获得的成果还是比较满意的。系统运行基本达到了预期目标，课程设计报告通过系统可行性分析报告、系统分析报告、系统设计报告三部分详细完整地记录了系统开发的过程。
在本次系统开发的过程中，我们小组成员以极大的热情投入到工作中去，我们目标一致、分工明确，大家在完成自己工作的基础上沟通交流，互帮互助。有效的解决了设计过程中的许多难题，但都在陆老师的悉心指导下一一克服了，同时也收获了很多。
首先，我们通过实际运用所学知识更深刻地理解了MIS，懂得了业务流程图的画法以及应该注意到的问题，还有数据流程图的画法以及对数据项、数据结构、数据流、处理逻辑、外部实体、数据存储的定义方法和规则。然后将管理知识和现代化系统开发技术相结合，以达到我们的最终目标;比如说我们在设计的过程中运用到了我们之前所学过的运筹学、物流与供应链管理、商务智能、管理决策与分析、客户关系管理、电子支付与安全等方面的知识。深深感觉到了我们所学过的知识的重要性以及各个学科的综合运用是那么的重要。
其次，系统的设计过程锻炼了我们的逻辑能力，要完成一个任务有很多种途径，如何选取最优解并将每一步的最优解衔接，然后以图表方式表现出来是非常考验人的，在繁复的设计过程中我们的思路更加清晰，视野更加开阔;我记得刚开始的时候把自己所画的图交给老师看，出现了各种各样的错误和不足之处，但老师非常耐心的给我们讲解，然后在后面的每一天里我们都会准时找到老师分析
自己所画的图，对自己的图修改了一遍又一遍，复印了一遍又一遍，在一遍又一遍的完善之下，最后终于功夫不负有心人，我看到最终自己画的图感到很骄傲。
第三，小组内部沟通是很重要的，也许在给队友讲解的时间自己已经能完成任务，但是为了大家整体思想的统一，必须多次交换意见，力求使彼此间信息对称、理解一致，同时，我们也学会了面对和接受不同的意见，在交流中找到最佳解决方案;比如说不同的人对不同的业务有着不同的想法。刚开始的时候我们组先是按照淘宝购物的模式来进行分析设计我们这所网站的，但是进行到中间的时候一组员突然提到了京东商城，感觉我们这所网站还是按照京东商城的模式设计比较好，然后又进行了大量的修改，在此过程中有支持淘宝利用第三方支付平台模式的，有支持京东那样直接支付到商城模式的。还有就是在订单设计的时候也遇到了很多的分歧，比如说初始订单和预定订单问题，我们讨论了很长时间，最后决定把他们看做是一种订单。
第四，要有刻苦钻研的精神，这次设计不仅运用了本次课程的知识，同时也结合了以前学过的知识，有些软件成员们都不会用或者忘记了，而且许多设计环节工作量很大，但小组成员们都很努力，我们刻苦钻研，最终把困难各个击破。同时，在此次设计当中认我认识到开发一项好的软件不是某一个人就能完成的任务。一个团队的小组，一个勤奋的小组非常重要，沟通是解决问题的就好办法。所以小组中的每个成员的能力与协作能力也是致关重要的，不仅是团队内部的交流，更多需要协调好团队之间的交流。
然后呢，在实习中我了解了，在开发一个项目时一定要先做好规划，按照软件的开发过程，详细地写好每一个必要的文档。
由于我们的知识水平有限，并且是第一次做这样的设计，有些设计环节应该不是很完善，希望老师及同学们能多多指点。
第四篇：管理信息系统（MIS）权威期刊列表
学术长文：
信息系统领域(排名先后排序)
MIS Quarterly(EBSCO) SCIE SSCI (全文，EndNotes) Information Systems Research(EBSCO) SSCI 延迟一年，例如08年的论文要到2010年才可以下载 (全文，EndNotes) Communications of the ACM(EBSCO) SCI (全文，EndNotes) Management Science(EBSCO)延迟一年 SCIE SSCI (全文，EndNotes) Journal of Management Information Systems (EBSCO) SCIE SSCI (全文，EndNotes) Harvard Business Review(EBSCO) SSCI (全文，EndNotes) IEEE Transactions on Engineering management(IEEE) SCI SSCI 没有全文，在IEEE数据库 EndNotes European Journal of Information Systems SCIE 没有最新的全文 EndNotes Decision Support Systems(elsevier) SCIE (全文，EndNotes) Information & Management(elsevier) SCIE SSCI (全文，EndNotes) Communications of the Association for Information Systems(EBSCO) 无检索 (全文，EndNotes) Academy of Management Journal (EBSCO) SSCI (全文，EndNotes) International Journal of Electronic Commerce(EBSCO) SCIE SSCI (全文，EndNotes) Journal of the Association for Information Systems (EBSCO) SSCI (全文，EndNotes) Organization Science(EBSCO) ISSN:10477039 SSCI 延迟两年 (全文，EndNotes) Information Systems Journal(EBSCO，blackwel) ISSN:13501917 SSCI (全文，EndNotes) Academy of Management Review (EBSCO) SSCI (全文，EndNotes) Journal of strategic information systems (elsevier) SCIE SSCI (全文，EndNotes) Information Systems Management(EBSCO) SCIE 2010年可以下载09年的论文 (全文，EndNotes) Journal of Organizational Computing and Electronic Commerce(EBSCO) SCIE (全文，EndNotes) International Journal of Information Management(elsevier) SSCI (全文，EndNotes) Electronic Commerce Research and Applications(elsevier) SCIE SSCI (全文，EndNotes) Journal of Information Technology (EndNotes)
Strategic Management Journal (Wiley-Blackwell ) SSCI (全文，EndNotes)
偏技术或方法的IS期刊
+IEEE Transactions on Data and Knowledge Systems(IEEE)没有全文 SCIE EndNotes +IEEE Transactions on Software Engineering(IEEE)没有全文 SCI EndNotes +ACM Transactions on Information Systems (ACM) 没有全文 SCI EndNotes +Information Systems(elsevier) SCI EndNotes) +Information Sciences(elsevier) SCI (EndNotes) 供应链
Journal of Operations Management(elsevier) SCIE SSCI (全文，EndNotes) Decision Sciences (Wiley-Blackwell) SSCI (全文，EndNotes) Production and Operations Management (EBSCO) SCIE [ISSN:10591478] (全文，EndNotes) Operations Research SCIE [ISSN: 0030364X] 延迟l两年(全文，EndNotes) International Journal of Production Economics(elsevier) SCIE SSCI 好 多 (全文，EndNotes) Supply chain management: An International Journal (Emerald) SCIE
SSCI(全文，EndNotes) Industrial Marketing Management (elsevier) SSCI 好 多 (全文，EndNotes)
服务管理
International Journal of Service Industry Management(Emerald) SSCI(全文，EndNotes)
******************八个权威期刊************ MIS Quarterly
Information Systems Research Journal of MIS
European Journal of Information Systems (EndNotes) Journal of AIS
Information Systems Journal
补充的两个
Journal of Strategic Information Systems ***********************************************
第五篇：《管理信息系统》课程设计
一、目的
通过课程设计使学生更进一步掌握课程的有关知识，提高实施管理信息系统的综合能力，并将所学的内容在实践中加以提高。通过查阅资料，了解所学知识的应用情况。同时也使学生通过动手进行设计，从而提高解决实际问题的能力。
二、选题
学生根据前期课内实验时自己所确定的相关行业的管理信息系统自行选择题目或自己独立开发软件。
三、任务
本课程设计分为需求分析、系统设计和应用程序运行调试维护三个阶段进行。基本要求为：
1、认真查阅资料
2、遵守课程设计时间安排
3、按时上机，认真运行或调试程序
4、认真书写报告
报告书写格式(见附录)：
1、课程设计封皮
2、课程设计说明
3、课程设计成绩
4、正文
5、参考文献
四、进程
1)选定设计课题，下达设计任务(课外时间)
由学生自己选题，但学生选题需通过指导教师批准。课题应在设计周之前提前公布，并尽量早些，以便学生有充分的设计准备时间。
指导教师在公布课程设计课题时一般应包括以下内容：课题名称、设计任务、技术指标和要求、主要参考文献等内容。
2)教师讲解
a.介绍课程设计的内容、要求、安排、考核方法、注意事项
b.讲授必要的课题背景和相关知识、原理。着重帮助学生明确任务，理解管理信息系统的一般设计方法。
3)学生查询资料，进行分析、设计并完成设计报告
设计报告应包括的内容：系统分析：子系统划分、业务流程图、数据流图、数据字典、关键算法。系统设计：功能结构设计、I/O设计、代码设计、界面设计、数据库设计、网络环境。撰写设计总结报告。
4)学生运行或编制程序
学生运行并研究已有的管理信息系统，或者完成自己开发的信息系统的程序代码的编制和调试工作。
5)验收并简单考查
学生在运行使用已有的管理信息系统或编制完新的程序后，由指导老师进行检查，通过相关测试后，进行成绩评定。
审查设计报告是否规范，设计方案是否合理、正确、可行，否则要求调整或整改。教师记录学生的相应成绩。
五、考核方法与成绩评定
1、考核方法
课程设计采用课程设计报告和课程设计综合评定成绩，以课程设计报告为主，参考对相应的管理信息系统程序的熟悉程度或自己编写程度的水平。
2、成绩评定
成绩优秀、良好、中等、及格和不及格五级计分。
1)未完成设计任务，没达到设计要求则成绩为“不及格”。
2)基本完成设计任务，并撰写出课程设计报告则成绩为“及格”。
3)学生能够认真查阅资料，独立完成设计任务，程序运行或调试通过，并且撰写出课程设计报告则成绩为“中”。
4)学生能够认真查阅资料，独立完成设计任务，程序运行或调试通过，功能完善，操作灵活，界面美观，并且撰写出课程设计报告则成绩为“良好”。
5)学生根据自身的实际能力，在实现设计题目基本要求的基础上增加一些功能，评定成绩时根据其难度和完成情况给与适当加分，如界面效果，系统操作的方便性、灵活性、创新性等，如果设计非常完善则成绩为“优秀”。