MIS课程设计报告.docx
《MIS课程设计报告.docx》由会员分享，可在线阅读，更多相关《MIS课程设计报告.docx（111页珍藏版）》请在冰豆网上搜索。
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）可行性分析
计算机管理学生信息的意义：
在各大中小学校，用计算机管理学校的信息已经越来越普遍了。
用计算机不但可以提高工作效率，而且还节省了许多人力物力，增强了学校资料的安全性。
提高了学校的管理能力，为此，用计算机来管理学校的信息，是非常必要的。
我作为一个计算机应用的大学生，希望能有所贡献。
用我三年的所学编制了一个实用的程序来帮助桂阳一中进行更有效的学籍档案管理。
可行性研究：
目的：
可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。
经济上可行性：
现在，计算机的价格已经十分低廉，性能却有了长足的进步。
而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：
第一，本系统的运行可以代替人工进行许多繁杂的劳动；
第二，本系统的运行可以节省许多资源；
第三，本系统的运行可以大大的提高学校的工作效率；
第四，本系统可以使敏感文档更加安全，等等。
所以，本系统在经济上是可行的。
技术上可行性：
本系统的开发我利用MicrosoftSQLServer2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。
学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。
使用VisualBasic6.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）源程序
学生信息管理图形界面程序设计如下：
DimiAsLong
PrivateSubForm_Load（）
Label1.ForeColor=&H8000000E
Label1.FontSize=12
Label1.AutoSize=True
i=Image2.Width
EndSub
PrivateSubForm_Resize（）
Image1.Top=0
Image1.Left=0
Image1.Height=Me.Height
Image1.Width=Me.Width
Image2.Top=Me.Height-Image2.Height
Image2.Left=Me.Width-Image2.Width
Label1.Top=Me.Height-Label1.Height-100
EndSub
PrivateSubTimer1_Timer（）
i=i+50
Label1.Left=Me.Width-i
Ifi>Me.Width+Label1.WidthThen
i=Image2.Width
EndIf
EndSub
班级信息管理界面程序设计如下：
DimmrcAsADODB.Recordset
DimMsgTextAsString
DimtSQLAsString
PrivateSubCommand1_Click（）
IfText1（0）=""Then
MsgBox"班级编号不能为空!
",vbOKOnly,"提示"
Text1（0）.SetFocus
ExitSub
EndIf
IfText1
（1）=""Then
MsgBox"班级名称不能为空!
",vbOKOnly,"提示"
Text1
（1）.SetFocus
ExitSub
EndIf
IfText1
（2）=""Then
MsgBox"导员姓名不能为空!
",vbOKOnly,"提示"
Text1
（2）.SetFocus
ExitSub
EndIf
txtSQL="select*fromclass_Formwhereclass_NO='"&Trim（Text1（0））&"'"
Setmrc=ExecuteSQL（txtSQL,MsgText）
Ifmrc.EOF=FalseThen
MsgBox"此班级编号已存在!
",vbOKOnly,"警告"
Text1（0）.SetFocus
ExitSub
EndIf
mrc.Close
txtSQL="select*fromclass_Form"
Setmrc=ExecuteSQL（txtSQL,MsgText）
mrc.AddNew
mrc.Fields（0）=Trim（Text1（0））
mrc.Fields
（1）=Trim（Text1
（1））
mrc.Fields
（2）=Trim（Text1
（2））
mrc.Fields（3）=Trim（Text1（3））
mrc.Update
mrc.Close
Fori=0To3
Text1（i）=""
Next
MsgBox"班级信息添加成功!
",vbOKOnly,"提示"
ShowData
EndSub
PrivateSubCommand2_Click（）
Fori=0To3
Text1（i）=""
Next
EndSub
PrivateSubCommand3_Click（）
IfText1（5）=""Then
MsgBox"班级名称不能为空!
",vbOKOnly,"提示"
Text1（5）.SetFocus
ExitSub
EndIf
IfText1（6）=""Then
MsgBox"导员姓名不能为空!
",vbOKOnly,"提示"
Text1（6）.SetFocus
ExitSub
EndIf
txtSQL="deletefromclass_Formwhereclass_NO='"&Trim（Text1（4））&"'"
Setmrc=ExecuteSQL（txtSQL,MsgText）
txtSQL="select*fromclass_Form"
Setmrc=ExecuteSQL（txtSQL,MsgText）
mrc.AddNew
mrc.Fields（0）=Trim（Text1（4））
mrc.Fields
（1）=Trim（Text1（5））
mrc.Fields
（2）=Trim（Text1（6））
mrc.Fields（3）=Trim（Text1（7））
mrc.Update
mrc.Close
Fori=4To7
Text1（i）=""
Next
MsgBox"班级信息修改成功!
",vbOKOnly,"提示"
ShowData
EndSub
PrivateSubCommand4_Click（）
Fori=4To7
Text1（i）=""
Next
EndSub
PrivateSubCommand5_Click（）
txtSQL="deletefromclass_Formwhereclass_NO='"&Trim（Text1（8））&"'"
Setmrc=ExecuteSQL（txtSQL,MsgText）
Fori=8To11
Text1（i）=""
Next
MsgBox"班级信息以经删除!
",vbOKOnly,"警告"
ShowData
EndSub
PrivateSubCommand6_Click（）
Fori=8To11
Text1（i）=""
Next
EndSub
PrivateSubForm_Load（）
Me.Caption="班级信息->添加"
Picture1
（1）.Top=Picture1（0）.Top
Picture1
（1）.Left=Picture1（0）.Left
Picture1
（2）.Top=Picture1（0）.Top
Picture1
（2）.Left=Picture1（0）.Left
ShowData
Fori=0To2
Label2（i）.BackColor=&HE0E0E0
Picture1（i）.Visible=False
Next
Label2（0）.BackColor=&HFFFFFF
Picture1（0）.Visible=True
EndSub
PrivateSubForm_Resize（）
dColor.ZOrder1
EndSub
PrivateSubLabel2_Click（IndexAsInteger）
Me.Caption="班级信息"
Me.Caption=Me.Caption&"->"&Trim（Label2（Index）.Caption）
Fori=0To2
Label2（i）.BackColor=&HE0E0E0
Picture1（i）.Visible=False
Next
Label2（Index）.BackColor=&HFFFFFF
Picture1（Index）.Visible=True
Fori=0To11
Text1（i）=""
Next
Command3.Enabled=False
Command5.Enabled=False
EndSub
PrivateSubShowData（）
DimtxSQLAsString
DimmrccAsADODB.Recordset
txSQL="select*fromclass_Form"
Setmrcc=ExecuteSQL（txSQL,MsgText）
WithMSFlexGrid1
.ColWidth（0）=1200
.ColWidth
（1）=1200
.ColWidth
（2）=1200
.ColWidth（3）=6000
.TextMatrix（0,0）="班级编号"
.TextMatrix（0,1）="班级名称"
.TextMatrix（0,2）="导员姓名"
.TextMatrix（0,3）="备注信息"
.Rows=1
DoWhileNotmrcc.EOF
.Rows=.Rows+1
Fori=0Tomrcc.Fields.Count-1
.TextMatrix（.Rows-1,i）=mrcc.Fields（i）&""
Nexti
mrcc.MoveNext
Loop
EndWith
mrcc.Close
EndSub
PrivateSubMSFlexGrid1_Click（）
IfPicture1
（1）.Visible=TrueThen
Text1（4）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,0））
Text1（5）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,1））
Text1（6）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,2））
Text1（7）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,3））
Command3.Enabled=True
EndIf
IfPicture1
（2）.Visible=TrueThen
Text1（8）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,0））
Text1（9）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,1））
Text1（10）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,2））
Text1（11）=Trim（MSFlexGrid1.TextMatrix（MSFlexGrid1.Row,3））
Command5.Enabled=True
EndIf
EndSub
PrivateSubText1_Change（IndexAsInteger）
IfIndex=4Then
tSQL="select*fromclass_Formwhereclass_NO='"&Trim（Text1（Index））&"'"
Setmrc=ExecuteSQL（tSQL,MsgText）
Ifmrc.EOF=FalseThen
Text1（5）=mrc.Fields
（1）
Text1（6）=mrc.Fields
（2）
Text1（7）=mrc.Fields（3）
Command3.Enabled=True
ExitSub
Else
Text1（5）=""
Text1（6）=""
Text1（7）=""
Command3.Enabled=False
EndIf
mrc.Close
EndIf
IfIndex=8Then
tSQL="s
升级会员 