MIS系统设计实例

登录窗体代码设计
功能：取消按钮的处理

Private Sub cmdCancel_Click() '设置全局变量为 false '不提示失败的登录 txtUserName.Text = "" txtPassword = "" txtUserName.SetFocus


LoginSucceded = False


常见的MIS系统有：学生信息管理系统、工资管理 系统、进销存管理系统、图书信息管理系统等等 ！
一个完整的MIS系统包括的内容

一个完整的MIS系统应包括：辅助决策系统（DDS ）、工业控制系统（IPC）、办公自动化系统（OA ）以及数据库、模型库、方法库、知识库和与上 级机关及外界交换信息的接口。其中特别是办公 自动化系统、与上级机关及外界交换信息的接口 都是结合Intarnet的应用。 传统的MIS系统是基于C/S构架的，目前在向基于 B/S构架过渡。
Me.Hide End Sub
主窗体代码设计
1、菜单栏设计 2、增加班级按钮处理

Private Sub class_add_Click(Index As Integer) class_addb = True ’控制是增加还是编辑


Form2.Show
End Sub
增加班级代码设计
1、用到的控件Adodc和DataGride控件，添加方法如 下
增加班级代码设计
2、 Adodc属性设计 connectionstring 属性：数据库连接串 RecordSource属性：Sql语句 3、DataGrid属性设置
Datasource属性：设置为Adodc控件
添加相关列表属性
增加班级代码设计
增加班级代码设计——班级管理窗体部分

登录窗体代码设计
功能：验证用户登录。

Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = "password" And txtUserName = "admin" Then LoginSucceded = True Unload Me ’销毁login窗体 Else MsgBox "用户名或密码无效，请重试!", , "登录" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub
（1）班级管理：班级增加，查询。 （2）学生管理：学生增加，学生信息编辑，学 生删除。 （3）学生成绩管理：成绩维护和成绩统计。
系统结构图
学生信息管理系统
班级管理
学生管理
成绩管理
增 加 班 级
查 询 班 级
增 加 学 生
编 辑 学 生
删 除 学 生
成 绩 维 护
成 绩 统 计
业务流程图
本例中的业务流程比较简单，我们以宾馆客房 管理为例，说明业务流程图的使用。
调房 房态查询 追加押金 客户 前台接待 住宿登记 续住 持牌入住 宿费提醒 客房预定 预定房费 结帐 报表 退宿 预定房费查询 挂 帐 应 收 款
数据库结构设计
Hale Waihona Puke 班级表class学生表Students
界面设计
主界面
界面设计
班级管理
界面设计
增加班级
应用程序编码—主窗体上登录窗体的显示
功能：在主窗体前显示Login窗体。 定义一个变量LoginSucceded来控制是否显示Login窗体，此变量 在两窗体（主窗体和login窗体上都使用）所以把它定义在公 共模块中。
MIS系统设计实例
学生信息管理系统
课程目的
通过本课程学习使得同学们了解MIS系统的开发流 程，掌握用VB语言开发基于Sql Server数据库的MIS 系统开发技术。
课程内容
1、MIS系统概述 2、系统功能设计
3、数据库结构设计
4、应用程序编制 5、系统测试
MIS系统概述
问题1、什么是MIS系统？ 问题2、一个完整的MIS系统应该包括那些内容？

MIS系统的开发流程
需求分析：系统分析师对企业所面临的管理问题进行分析。 需求初步确定：软件系统分析师初步确定企业需求，作为合同确认的依据。 系统调研：软件系统分析师对企业的初步需求进行详细调研，确定系统界面的 设计和运行流程。 需求说明书：将软件系统分析师对企业详细调研文档化，经双方讨论确定后， 开始系统界面设计。 界面设计：专业软件开发工程师及美工设计师完成系统界面设计，经用户确认 ，开始软件开发。 开发及测试：专业软件开发工程师和测试工程师完成系统软件开发和测试，强 大的测试力量和一对一软件测试体系，确保系统软件质量。 使用培训：专业培训师对企业进行软件基础知识和系统软件运行流程全面培训 。
Unload Me End Sub
作业
请同学们参照演示代码，完成如下功能： 1、班级管理（删除和更新） 2、学生管理（添加、删除和更新） 3、完成成绩统计和查询功能
问题3、MIS系统的开发流程？
什么是MIS系统

MIS系统 （Management Information System）即管理 信息系统，是一个由人、计算机及其其他外围设 备等组成的能进行信息的收集、传递、存储、加 工、维护和使用的系统。 MIS系统的特点：一类日常事务操作的系统，通过 人机交互界面录入数据、处理数据和输出数据。

End With
Form2.DataGrid1.ReBind Unload Me End Sub
增加班级代码设计
方法二 使用Adodc的RecordSet的addnew方法

Private Sub Com_ok_Click() Dim sqlstr As String With Form2.Adodc1 .Recordset.AddNew .Recordset.Fields("class_name").Value = Te_classname.Text
Private Sub Form_Activate()
If class_add = True Then
Com_add.Visible = False End If End Sub
增加班级代码设计
方法一 使用SQL语句

Private Sub Com_ok_Click() Dim sqlstr As String With Form2.Adodc1 .CommandType = adCmdText sqlstr = "insert into CLASS values(" + "'" + Te_classname.Text + "','" + Te_classDes.Text + "'," + Te_deparment.Text + ")" .Recordset.ActiveConnection.Execute sqlstr .Refresh

Private Sub Form_Activate() If LoginSucceded = False Then '判断login是否成功 frmLogin.Show End If End Sub '显示login对话框


Private Sub Form_Load()
LoginSucceeded = False End Sub '初始化login控制变量
初始化试运行：专业软件工程师辅导用户使用系统，协助用户进行初始化工作 ；系统初始化完毕，进行试运行阶段，测试系统功能的完善和全面性。
正式切换：双方共同测评系统，确保系统能够全面符合用户需求说明书定义的 所有功能，正式切换系统。
系统功能设计
本课程我们以学生信息管理系统为例讲解此系 统的功能设计。
系统主要功能包括：


.Recordset.Fields("Describe").Value = Te_classDes.Text
.Recordset.Fields("UpperID").Value = Val(Te_deparment.Text) End With


Form2.DataGrid1.ReBind