管理信息系统实验报告

《管理信息系统》实验报告zsw实验一观察一个管理信息系统◆实验目的（1）了解一个管理信息系统具有哪些功能，学会独立使用该系统。（2）了解在该系统上如何通过各种操作完成功能。◆实验内容进入一个管理信息系统。写出该系统的所有功能。写出一个具体的操作流程，需要用到哪些信息。◆实验结果：（1）进入安徽大学校园卡查询系统（2）该系统的功能有：A．基本信息查询功能：提供个人身份信息和卡片基本信息的显示。包括帐号、身份类型、证件号码、帐户状态、卡内余额等信息。B．历史流水查询功能：查询本帐户某一交易明细三十天范围内的交易情况。统计项目包括交易次数、存入和支出金额等，交易明细包括转帐、存款、补助和扣款等科目。C.日流水查询功能：查询本帐户某一交易明细交易情况。统计项目包括交易次数、存入和支出金额等，交易明细包括消费、转帐、存款、

补助和扣款等科目。D．持卡人统计功能：把本帐户一个阶段内的每月的用卡情况用柱形图表示出来。E.电子账户查询功能：查询本帐户和各种类型电子帐户的消费情况。其中电子帐户包括：电费，网费，水费等。统计项目包括电子帐户

编号，类型，剩余金额。F．校园卡挂失功能：卡片如果丢失请尽快挂失，挂失后卡片的功能将全部失效直到解挂，以保护您的利益。G．电费缴纳功能：网上缴纳电费。H．电费查询功能：查询各寝室电费剩余情况。I．修改查询密码功能：提供对本帐户的密码进行修改功能，以提高卡号的安全性。J．捡获卡信息：此栏目提供了捡获卡片人的信息的发布和浏览。如果您捡到了别人的卡片，请您使用该栏目发布、浏览这些信息。K．你问我答：介绍一卡通的使用情况。如开户、存款、消费、销户等情况。提供一卡通使用的在线咨询。L．退出系统： （3）查询历史流水的操作流程：在浏览器地址栏输入安徽大学校园卡查询系统网址——输入自己的用户名和密码——选择历史流水查询功能——进入查询界面——在下拉框中选择消费——输入查询的时间阶段——得到查询结果如图所示实验小结在此次实验中，了解了校园卡查询系统。虽然只是一个小的校园卡查询系统，但是它的功能却十分完善，能满足我们的实际生活中的基本需求，而且十分方便。它有不仅管理好了我们的校园卡信息，有方便我们用户利用信息。我们要用心留意每个网上的管理信息系统，以便积累我们的相关知识，为自己以后开发自己的信息管理系统打好基础。实验二ACCESS数据库◆实验目的（1）掌握ACCESS数据库的构造。（2）学会使用表设计器建立表。◆实验内容（1）建立用户信息表，员工考勤表，员工教育及工作经历记录表。（2）在表中添加数据。实验步骤及结果：（1）打开Access新建空数据库并命名为“人事”（2）使用设计器创建表创建用户信息表，员工考勤表，员工教育及工作经历表。用户信息信息表相关属性UsernamePwdUser-type员工考勤表相关属性CheckdateEmpldQqdaysCcdays、BjdaysSjdaysKgdaysFdxjdaysNxjdaysDxjdaysCdminutesZtminutesOt1daysOt2daysOt3daysmemol员工教育及工作经历表（3）输入数据并修改表名①用户数据②员工考勤③员工教育及工作经历修改表名总结：通过该实验初步掌握了数据库基本操作，为接下来的编程奠定了基础。实验三登录模块及系统主界面设计◆实验目的（1）掌握如何访问数据库。（2）学会界面设计及布局。◆实验内容（1）设计登录窗体。（2）设计主界面。◆实验步骤及结果：（1）打开microsoftvisualbasic,新建标准EXE工程，添加相应的部件和引用，分别为以下所做的工程和窗体保存到hrmanager文件夹中，相关图片储存在hrmanager下的IMG，类模块保存在hrmanager下的modules、子模块保存在hrmanager下的classes（2）设计登录主界面①按以下属性设计登录窗体及相关控件做出如下窗体②编写相关的程序代码PublicPasswordKeyAsStringPublicNameKeyAsStringPublicPasswordKeyAsStringPublicNameKeyAsStringPublicTry_timesAsIntegerPrivateSubClient_Close()connected=FalseEndSubPrivateSubClient_Connect()connected=TrueEndSubPrivateSubClient_Error(ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)connected=FalseMsgBox"服务器没有相应"DBapi_Disconnect'myhost.setfreeEndEndSubPrivateSubCmd_Cancel_Click()EndEndSubPrivateSubCmd_Ok_Click()'数据有效性检查IfTrim(txtUser)=""ThenMsgBox"请输入用户名"txtUser.SetFocusExitSubEndIfIfTrim(txtPwd)=""ThenMsgBox"请输入密码"txtPwd.SetFocusExitSubEndIfNameKey=MakeStr(txtUser)PasswordKey=MakeStr(txtPwd)'判断用户是否存在IfMyUser.In_DB(NameKey)=FalseThenMsgBox"用户名不存在"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExitSubEndIfEndIf'判断密码是否正确MyUser.GetInfo(NameKey)IfMyUser.Pwd<>PasswordKeyThenMsgBox"密码错误"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExitSubEndIfEndIf'登录成功，将当前用户的信息保存在CurUser中CurUser.UserName=MyUser.UserNameCurUser.User_type=MyUser.User_type'关闭自己UnloadMeEndSubPrivateSubForm_Load()EndSubNameKey=MakeStr(txtUser)PasswordKey=MakeStr(txtPwd)'判断用户是否存在IfMyUser.In_DB(NameKey)=FalseThenMsgBox"用户名不存在"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExitSubEndIfEndIf'判断密码是否正确MyUser.GetInfo(NameKey)IfMyUser.Pwd<>PasswordKeyThenMsgBox"密码错误"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExitSubEndIfEndIf'登录成功，将当前用户的信息保存在CurUser中CurUser.UserName=MyUser.UserNameCurUser.User_type=MyUser.User_type'关闭自己UnloadMeEndSubPrivateSubForm_Load()EndSub（3）设计主界面①按以下属性设计主界面的窗体和菜单做出相应的主窗体②编写程序代码PrivateSubForm_Load()PrivateSubForm_Load()FrmLogin.Show1EndSubPrivateSubmn_check_Click()FrmCheckMan.Show1EndSubPrivateSubmn_dep_Click()FrmDepMan.Show1EndSubPrivateSubmn_emp_Click()FrmEmpMan.ShowEndSubPrivateSubmn_dep_Click()PrivateSubmn_dep_Click()FrmDepMan.Show1EndSubPrivateSubmn_emp_Click()FrmEmpMan.ShowEndSubPrivateSubmn_eva_Click()IfCurUser.User_type=1ThenFrmEvaMan.Show1ElseMsgBox"没有权限"EndIfEndSubPrivateSubmn_exit_Click()DBapi_DisconnectEndEndSubPrivateSubmn_pwd_Click()WithFrmUserEdit.OriUser=CurUser.UserName.txtUserName=CurUser.UserNameIfCurUser.User_type=1Then.ComboType.AddItem"系统管理员"Else.ComboType.AddItem"普通用户"EndIf.ComboType.ListIndex=0.ComboType.Enabled=False.Modify=True.Show1EndWithEndSubPrivateSubmn_user_Click()IfCurUser.User_type=1ThenFrmUserMan.Show1ElseMsgBox"没有权限"EndIfEndSub（4）运行结果总结：通过本实验的学习，学会了vb的相关操作。初步设计了人事管理信息系统的外在框架，为下面的主模块的开发做好了铺垫。实验四开发MIS系统主体模块◆实验目的（1）掌握VB的界面设计，代码编写。（2）学会使用VB对数据记录进行访问操作。（3）完成任务处理直至退出的代码开发工作。◆实验内容（介绍一个模块）（1）将MIS系统分模块进行开发，进行前台界面设计和后台代码开发。（2）利用VB访问数据库记录，进行数据查询和修改。◆实验步骤及结果（以编辑部门信息模块为例）：（1）打开实验三中得hrmanager文件夹中的工程入口后，添加microsoftwindowscommoncontrol6.0（OLEDB）部件①按相应属性设计、编辑相应窗体②编写相应的程序代码PublicModifyAsBooleanPrivateSubCmd_OK_Click()PublicModifyAsBooleanPrivateSubCmd_OK_Click()IfTrim(txtDep)=""ThenMsgBox"请输入部门名称"ExitSubEndIf'将新输入的数据保存到类变量中WithMyDep.DepName=MakeStr(txtDep).Describes=MakeStr(txtDescribe)IfModify=FalseThen'插入If.In_DB(.DepName,.UpperId)=TrueThenMsgBoxTrim(txtDep)+"已经存在"ExitSubEndIf'CurDep中保存在部门管理窗体中选中的部门信息'当插入新记录时，新记录将做为当前部门的下级部门.UpperId=CurDep.DepIdBh=.Insert'生成TreeView中一个结点的关键字Tmp_Key="a"+Trim(Str(Bh))'设置结点的图像FrmDepMan.TreeView1.SelectedItem.Image=1FrmDepMan.TreeView1.SelectedItem.ExpandedImage=2FrmDepMan.TreeView1.SelectedItem.SelectedImage=3'在树中添加一个结点SetTmpNode=FrmDepMan.TreeView1.Nodes.Add(FrmDepMan.TreeView1.SelectedItem.Key,_tvwChild,Tmp_Key,.DepName,4,5)TmpNode.Selected=TrueElse'修改IfCurDep.DepName<>Trim(txtDep)ThenIf.In_DB(Trim(txtDep),.UpperId)=TrueThenMsgBoxTrim(txtDep)+"已经存在"ExitSubEndIfEndIf'当修改记录时，不能改变上下级之间的关系.UpperId=CurDep.UpperId.Update(CurDep.DepId)IfCurDep.DepName<>Trim(txtDep)ThenFrmDepMan.TreeView1.SelectedItem.Text=Trim(txtDep)EndIf'设置CurDep变量CurDep.DepName=Trim(txtDep)EndIfEndWith'关闭窗口UnloadMeEndSubPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubForm_Load()EndSubPrivateSubtxtDep_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSubIfCurDep.DepName<>Trim(txtDep)ThenIf.In_DB(Trim(txtDep),.UpperId)=TrueThenMsgBoxTrim(txtDep)+"已经存在"ExitSubEndIfEndIf'当修改记录时，不能改变上下级之间的关系.UpperId=CurDep.UpperId.Update(CurDep.DepId)IfCurDep.DepName<>Trim(txtDep)ThenFrmDepMan.TreeView1.SelectedItem.Text=Trim(txtDep)EndIf'设置CurDep变量CurDep.DepName=Trim(txtDep)EndIfEndWith'关闭窗口UnloadMeEndSubPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubForm_Load()EndSubPrivateSubtxtDep_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSub（2）设计其他模块，具体过程略。（3）运行人事管理信息系统◆总结：通过本次试验，继续完善了试验三，操作并熟悉了系统的主模块设计。进一步完善了该系统，为下次试验做好了铺垫。实验五开发MIS系统用户模块◆实验目的（1）掌握角色设计及代码编写。（2）学会给不同用户安排不同权限。◆实验内容（1）系统管理员用户的角色及权限设计。（2）普通用户的角色及权限设计。◆实验步骤及结果：（1）根据相应的属性设计窗体①编辑用户信息窗体对象名属性属性值Label1Caption用户名Label2Caption密码Label3Caption确认密码Label4Caption用户类型Textbox1NametxtUserNameTextbox2NameTxtpassTextbox3NameTxtpass2combobox4NameCombotypeStyle2Command1NameCmd-okCaption确定Command2NameCmd-cancelCaption取消用户管理窗体对象名属性属性值AdocdcCaptionAdoUserListNameAdoUserListFrame1Caption用户列表DatalistNameDatalistFrame2Caption用户信息Label1Caption用户类型Label2Caption用户名Label3Caption、nameLblusertypeLabel4Caption、nameLblempnameCommand1Caption、name添加用户、cmd-addCommand2Caption、name修改用户、cmd-modiCommand3Caption、name删除用户、cmd-delCommand4Caption、name返回、cmd-backExitSubEndIfExitSubEndIf'判断是否存在同名用户WithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(Trim(txtUserName))=TrueThenMsgBox"用户名已经存在，请重新输入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf'将用户数据赋值到MyUser对象中.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)SelectCaseComboType.TextCase"系统管理员".User_type=1Case"普通用户".User_type=2EndSelect'保存用户数据IfModify=FalseThen.InsertElse.Update(OriUser)'如果修改自身用户名，则更新CurUser对象IfOriUser=CurUser.UserNameAndTrim(txtUserName)<>OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfEndIfEndWithMsgBox"数据保存成功"UnloadMeEndSub（2）编写相应的程序编辑用户信息编辑用户信息PublicModifyAsBooleanPublicOriUserAsStringPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()IfTrim(txtUserName)=""ThenMsgBox"请输入用户名"txtUserName.SetFocusExitSubEndIfIfLen(txtPass)<6ThenMsgBox"密码长度不能小于6"txtPass.SetFocustxtPass.SelStart=0txtPass.SelLength=Len(txtPass2)ExitSubEndIfIftxtPass<>txtPass2ThenMsgBox"密码和确认密码不相同，请重新确认"txtPass2.SetFocustxtPass2.SelStart=0txtPass2.SelLength=Len(txtPass2)ExitSubEndIf'判断是否存在同名用户WithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(Trim(txtUserName))=TrueThenMsgBox"用户名已经存在，请重新输入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf'将用户数据赋值到MyUser对象中.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)SelectCaseComboType.TextCase"系统管理员".User_type=1Case"普通用户".User_type=2EndSelect'保存用户数据IfModify=FalseThen.InsertElse.Update(OriUser)'如果修改自身用户名，则更新CurUser对象IfOriUser=CurUser.UserNameAndTrim(txtUserName)<>OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfEndIfEndWithMsgBox"数据保存成功"UnloadMeEndSubPrivateSubForm_Load()EndSubExitSubEndIfExitSubEndIfIfUCase(CurUser.UserName)<>"ADMIN"AndMyUser.User_type=1AndMyUser.UserName<>CurUser.UserNameThenMsgBox"没有修改此用户的权限"ExitSubEndIfWithFrmUserEdit.OriUser=MyUser.UserName.txtUserName=MyUser.UserName.txtPass=MyUser.Pwd.txtPass2=MyUser.Pwd.ComboType.AddItem"系统管理员".ComboType.AddItem"普通用户".ComboType.ListIndex=MyUser.User_type-1.Modify=True.Show1EndWithAdoUserList.RefreshDataList1_ClickEndSubPrivateSubDataList1_Click()IfDataList1.Text=""ThenlblUserType=""lblUserName=""ExitSubEndIf'读取用户数据MyUser.GetInfo(DataList1.Text)SelectCaseMyUser.User_typeCase1lblUserType="系统管理员"Case2lblUserType="普通用户"EndSelectlblUserName=MyUser.UserNameEndSubPrivateSubForm_Load()lblUserType=""lblUserName=""'设置ADO控件的连接字符串AdoUserList.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_+App.Path+"\人事.mdb;PersistSecurityInfo=False"'设置数据源AdoUserList.RecordSource="SELECT*FROMUsers"AdoUserList.RefreshEndSubPrivateSubFrame2_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSub②用户管理PrivateSubCmd_Add_Click()UpperEmp.InitWithFrmUserEdit.txtUserName="".txtPass="".txtPass2=""'Admin用户可以添加系统管理员和普通用户'其他系统管理员则只能添加普通用户IfUCase(CurUser.UserName)="ADMIN"Then.ComboType.AddItem"系统管理员".ComboType.AddItem"普通用户"Else.ComboType.AddItem"普通用户"EndIf.ComboType.ListIndex=0.Modify=False.Show1EndWithAdoUserList.RefreshDataList1_ClickEndSubPrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Del_Click()IfDataList1.Text=""ThenMsgBox"请选择要删除的用户"ExitSubEndIfIfMyUser.UserName="Admin"ThenMsgBox"此用户不能删除"ExitSubEndIfIfUCase(CurUser.UserName)<>"ADMIN"AndMyUser.User_type=1ThenMsgBox"没有删除此用户的权限"ExitSubEndIf'确认删除IfMsgBox("是否删除当前用户",vbYesNo,"请确认")=vbYesThenMyUser.Delete(DataList1.Text)MsgBox"成功删除用户"AdoUserList.RefreshDataList1_ClickEndIfEndSubPrivateSubCmd_Modi_Click()IfData