管理信息系统实验报告

《管理信息系统》实验报告
zsw
实验一观察一个管理信息系统
◆实验目的
（1）了解一个管理信息系统具有哪些功能，学会独立使用该系统。

（2）了解在该系统上如何通过各种操作完成功能。

◆实验内容
（1）进入一个管理信息系统。

（2）写出该系统的所有功能。

（3）写出一个具体的操作流程，需要用到哪些信息。

◆实验结果：
（1）进入安徽大学校园卡查询系统
（2）该系统的功能有：
A．基本信息查询功能：提供个人身份信息和卡片基本信息的显示。

包括帐号、身份类型、证件号码、帐户状态、卡内余额等信息。

B．历史流水查询功能：查询本帐户某一交易明细三十天范围内的交易情况。

统计项目包括交易次数、存入和支出金额等，交易明细包括转帐、存款、补助和扣款等科目。

C. 日流水查询功能：查询本帐户某一交易明细交易情况。

统计项目包括交易次数、存入和支出金额等，交易明细包括消费、转帐、存款、补助和扣款等科目。

D．持卡人统计功能：把本帐户一个阶段内的每月的用卡情况用柱形图表示出来。

E. 电子账户查询功能：查询本帐户和各种类型电子帐户的消费情况。

其中电子帐户包括：电费，网费，水费等。

统计项目包括电子
帐户编号，类型，剩余金额。

F．校园卡挂失功能：卡片如果丢失请尽快挂失，挂失后卡片的功能将全部失效直到解挂，以保护您的利益。

G．电费缴纳功能：网上缴纳电费。

H．电费查询功能：查询各寝室电费剩余情况。

I．修改查询密码功能：提供对本帐户的密码进行修改功能，以提高卡号的安全性。

J．捡获卡信息：此栏目提供了捡获卡片人的信息的发布和浏览。

如果您捡到了别人的卡片，请您使用该栏目发布、浏览这些信息。

K．你问我答：介绍一卡通的使用情况。

如开户、存款、消费、销户等情况。

提供一卡通使用的在线咨询。

L．退出系统：
（3）查询历史流水的操作流程：
在浏览器地址栏输入安徽大学校园卡查询系统网址——输入自己的用户名和密码——选择历史流水查询功能——进入查询界面——在下拉框中选择消费——输入查询的时间阶段——得到查询结果如图所示
◆实验小结
在此次实验中，了解了校园卡查询系统。

虽然只是一个小的校园卡查询系统，但是它的功能却十分完善，能满足我们的实际生活中的基本需求，而且十分方便。

它有不仅管理好了我们的校园卡信息，有方便我们用户利用信息。

我们要用心留意每个网上的管理信息系统，以便积累我们的相关知识，为自己以后开发自己的信息管理系统打好基础。

实验二 ACCESS数据库
◆实验目的
（1）掌握ACCESS数据库的构造。

（2）学会使用表设计器建立表。

◆实验内容
（1）建立用户信息表，员工考勤表，员工教育及工作经历记录表。

（2）在表中添加数据。

◆实验步骤及结果：
（1）打开Access新建空数据库并命名为“人事”
（2）使用设计器创建表创建用户信息表，员工考勤表，员工教育及工作经历表。

①用户信息信息表
相关属性
Username
Pwd
User-type
②员工考勤表
相关属性
Checkdate
Empld
Qqdays
Ccdays 、Bjdays
Sjdays
Kgdays
Fdxjdays Nxjdays Dxjdays
Cdminutes
Ztminutes
Ot1days
Ot2days
Ot3days
memol
③员工教育及工作经历表
（3）输入数据并修改表名
①用户数据
②员工考勤
③员工教育及工作经历
修改表名
◆总结：通过该实验初步掌握了数据库基本操作，为接下来的编程
奠定了基础。

实验三登录模块及系统主界面设计◆实验目的
（1）掌握如何访问数据库。

（2）学会界面设计及布局。

◆实验内容
（1）设计登录窗体。

（2）设计主界面。

◆实验步骤及结果：
（1）打开microsoft visual basic,新建标准EXE工程，添加相应的部件和引用，分别为
以下所做的工程和窗体保存到 hrmanager 文件夹中，相关图片储存在hrmanager下的IMG，类模块保存在 hrmanager下的modules、子模块保存在 hrmanager 下的classes
（2）设计登录主界面
①按以下属性设计登录窗体及相关控件
做出如下窗体
②编写相关的程序代码
NameKey = MakeStr(txtUser)
PasswordKey = MakeStr(txtPwd)
'判断用户是否存在
If MyUser.In_DB(NameKey) = False Then MsgBox "用户名不存在" Try_times = Try_times + 1 If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"
DBapi_Disconnect End Else
Exit Sub End If End If
'判断密码是否正确
MyUser.GetInfo (NameKey)
If MyUser.Pwd <> PasswordKey Then MsgBox "密码错误"
Try_times = Try_times + 1 If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"
DBapi_Disconnect End Else
Exit Sub End If End If
'登录成功，将当前用户的信息保存在CurUser 中 erName = erName er_type = er_type Public PasswordKey As String
Public NameKey As String
Public Try_times As Integer
Private Sub Client_Close()
connected = False End Sub
Private Sub Client_Connect() connected = True
End Sub
Private Sub Client_Error(ByVal Number As Integer, Description
As String, ByVal Scode As Long, ByVal Source As String,
ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
connected = False
MsgBox "服务器没有相应" DBapi_Disconnect
' myhost.setfree
End End Sub
Private Sub Cmd_Cancel_Click() End
End Sub
Private Sub Cmd_Ok_Click()
'数据有效性检查
If Trim(txtUser) = "" Then MsgBox "请输入用户名"
txtUser.SetFocus
Exit Sub End If
If Trim(txtPwd) = "" Then
（3）设计主界面
①按以下属性设计主界面的窗体和菜单
做出相应的主窗体
②编写程序代码
Private Sub Form_Load()
FrmLogin.Show 1
End Sub
Private Sub mn_check_Click()
FrmCheckMan.Show 1
End Sub
Private Sub mn_dep_Click() FrmDepMan.Show 1
End Sub
Private Sub mn_emp_Click() FrmEmpMan.Show
End Sub
Private Sub mn_eva_Click()
If er_type = 1 Then
FrmEvaMan.Show 1
Else
MsgBox "没有权限"
End If
End Sub
Private Sub mn_exit_Click()
DBapi_Disconnect
End
End Sub
Private Sub mn_pwd_Click()
With FrmUserEdit
.OriUser = erName
.txtUserName = erName
If er_type = 1 Then
.ComboType.AddItem "系统管理员" Else
.ComboType.AddItem "普通用户" End If
.ComboType.ListIndex = 0
.ComboType.Enabled = False
.Modify = True
.Show 1
End With
End Sub
（4）运行结果
◆总结：通过本实验的学习，学会了vb的相关操作。

初步设计了人
事管理信息系统的外在框架，为下面的主模块的开发做好了铺垫。

实验四开发MIS系统主体模块
◆实验目的
（1）掌握VB的界面设计，代码编写。

（2）学会使用VB对数据记录进行访问操作。

（3）完成任务处理直至退出的代码开发工作。

◆实验内容（介绍一个模块）
（1）将MIS系统分模块进行开发，进行前台界面设计和后台代码开发。

（2）利用VB访问数据库记录，进行数据查询和修改。

◆实验步骤及结果（以编辑部门信息模块为例）：
（1）打开实验三中得hrmanager文件夹中的工程入口后，添加microsoft windows common control6.0（OLEDB）部件
①按相应属性设计、编辑相应窗体
②编写相应的程序代码
Public Modify As Boolean
Private Sub Cmd_OK_Click()
If Trim(txtDep) = "" Then
MsgBox "请输入部门名称"
Exit Sub
End If
'将新输入的数据保存到类变量中
With MyDep
.DepName = MakeStr(txtDep)
.Describes = MakeStr(txtDescribe)
If Modify = False Then '插入
If .In_DB(.DepName, .UpperId) = True Then
MsgBox Trim(txtDep) + " 已经存在"
Exit Sub
End If
'CurDep中保存在部门管理窗体中选中的部门信息
'当插入新记录时，新记录将做为当前部门的下级部门.UpperId = CurDep.DepId
Bh = .Insert
'生成TreeView中一个结点的关键字
Tmp_Key = "a" + Trim(Str(Bh))
'设置结点的图像
FrmDepMan.TreeView1.SelectedItem.Image = 1
If CurDep.DepName <> Trim(txtDep) Then
If .In_DB(Trim(txtDep), .UpperId) = True Then
MsgBox Trim(txtDep) + " 已经存在"
Exit Sub
End If
End If
'当修改记录时，不能改变上下级之间的关系
.UpperId = CurDep.UpperId
.Update (CurDep.DepId)
If CurDep.DepName <> Trim(txtDep) Then
FrmDepMan.TreeView1.SelectedItem.Text = Trim(txtDep)
End If
'设置CurDep变量
CurDep.DepName = Trim(txtDep)
End If
End With
'关闭窗口
Unload Me
End Sub
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
（2）设计其他模块，具体过程略。

（3）运行人事管理信息系统
◆总结：通过本次试验，继续完善了试验三，操作并熟悉了系统的
主模块设计。

进一步完善了该系统，为下次试验做好了铺垫。

实验五开发MIS系统用户模块
◆实验目的
（1）掌握角色设计及代码编写。

（2）学会给不同用户安排不同权限。

◆实验内容
（1）系统管理员用户的角色及权限设计。

（2）普通用户的角色及权限设计。

◆实验步骤及结果：
（1）根据相应的属性设计窗体
①编辑用户信息窗体
对象名属性属性值
Label1 Caption 用户名
Label2 Caption 密码
Label3 Caption 确认密码Label4 Caption 用户类型Textbox1 Name txtUserName Textbox2 Name Txtpass Textbox3 Name Txtpass2 combobox4 Name Combotype
Style 2
Command1 Name Cmd-ok
Caption 确定Command2 Name Cmd-cancel
Caption 取消
②用户管理窗体
对象名属性属性值
Adocdc Caption AdoUserList
Name AdoUserList
Frame1 Caption 用户列表
Datalist Name Datalist
Frame2 Caption 用户信息
Label1 Caption 用户类型
Label2 Caption 用户名
Label3 Caption、name Lblusertype
Label4 Caption、name Lblempname Command1 Caption、name 添加用户、cmd-add Command2 Caption、name 修改用户、cmd-modi Command3 Caption、name 删除用户、cmd-del Command4 Caption、name 返回、cmd-back
（2）编写相应的程序①编辑用户信息
Public Modify As Boolean
Public OriUser As String
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Exit Sub
End If
'判断是否存在同名用户
With MyUser
If Modify = False Or OriUser <> Trim(txtUserName) Then If .In_DB(Trim(txtUserName)) = True Then
MsgBox "用户名已经存在，请重新输入"
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtUserName)
Exit Sub
End If
End If
'将用户数据赋值到MyUser对象中
②用户管理
Private Sub Cmd_Add_Click()
UpperEmp.Init
With FrmUserEdit
.txtUserName = ""
.txtPass = ""
.txtPass2 = ""
'Admin用户可以添加系统管理员和普通用户'其他系统管理员则只能添加普通用户
If UCase(erName) = "ADMIN" Then .ComboType.AddItem "系统管理员"
.ComboType.AddItem "普通用户"
Else
.ComboType.AddItem "普通用户"
End If
.ComboType.ListIndex = 0
.Modify = False
.Show 1
End With
AdoUserList.Refresh
DataList1_Click
End Sub
Private Sub Cmd_Back_Click()
Unload Me
End Sub
Private Sub Cmd_Del_Click()
If DataList1.Text = "" Then
Exit Sub
End If
If UCase(erName) <> "ADMIN" And er_type = 1 And erName <> erName Then
MsgBox "没有修改此用户的权限"
Exit Sub
End If
With FrmUserEdit
.OriUser = erName
.txtUserName = erName
.txtPass = MyUser.Pwd
.txtPass2 = MyUser.Pwd
.ComboType.AddItem "系统管理员"
.ComboType.AddItem "普通用户"
.ComboType.ListIndex = er_type - 1
.Modify = True
.Show 1
End With
AdoUserList.Refresh
DataList1_Click
End Sub
Private Sub DataList1_Click()
If DataList1.Text = "" Then
lblUserType = ""
lblUserName = ""
Exit Sub
（3）运行结果
①添加或修改用户
③删除用户
④修改密码
◆实验小结：
通过本次实验，完成了人事管理信息系统的设计，学
会给不同角色的用户安排不同的权限。

这五次实验使我们学习并熟悉了vb及access软件的使用，有计划有步骤地完成一个信息系统的设计。

在学习的过程中有由于种种小错误而造成系统无法正确运行的苦恼，有成功实现预想功能时的喜悦……总之从这五次实验中我们学到了很多，感受也很多。