计算机信息管理系统实验报告.docx
《计算机信息管理系统实验报告.docx》由会员分享，可在线阅读，更多相关《计算机信息管理系统实验报告.docx（25页珍藏版）》请在冰豆网上搜索。
计算机信息管理系统实验报告
目录
实验一：
职工退休到龄提醒表1
实验背景1
【实验步骤】1
【实验心得】14
实验二：
Access综合练习15
实验背景15
【实验步骤】15
【实验心得】27
课程实验心得28
实验一：
职工退休到龄提醒表
实验背景
按照国家现行的规定，男性慢60周岁，女性干部慢55周岁，女性工人满50周岁即达到正式退休年龄。
在实际工作中，在员工到龄办理退休手续之前，人力资源部还有许多工作要完成，如工作的交接、可定保险缴费、照片准备、保险手册签字等工作，因此人力资源部门需要提前了解哪些员工快要到龄，从而提前做好各种准备工作。
下面介绍的案例将借助VBA实现职工退休到龄提醒功能。
最终效果展示
【实验步骤】
创建职工退休到龄提醒表
Step1：
创建工作簿
启动Excel2010自动建立一个工作簿，然后保存并命名为“职工退休到龄提醒表。
”
Step2：
重命名工作表
双击工作表标签“Sheet1”进入标签重命名状态，输入“人事数据表”，按键确定。
Step3：
输入表格标题
在A1：
M2单元格区域的各个单元格里分别输入表格标题
Step4输入员工相关信息
除了“入职时间”项之外，在A3:
M12单元格区域输入员工的相关信息
Step5：
编制计算员工入职时间公式
现在需要计算员工的入职时间。
1.单击H3单元格，输入以下公式：
=DATEDIF（F3，TODAY（）,”Y”），按键确认，此时H3单元格输出结果“41”。
2.单击H3单元格，移动光标到该单元格右下角，当光标变成“+”形状时，按住左键不放向下拖动至H12单元格，然后松开左键，这时就将公式复制到了H3：
H12单元格区域，结果如下图所示。
编制VBA来提示到龄员工
下面编制VBA，借助窗体提示人力资源部有哪些员工即将退休。
因为要用到宏，所以要预先降低宏的安全性。
读者可以依次单击菜单“选项”→“信任中心”→“宏设置”，在弹出“信任中心”对话框中将安全性调整为“启用所有宏”。
最后单击“确定”按钮即可。
Step1：
启动VBA
按组合键启动VBA.
Step2：
插入窗体
依次单击菜单“插入”→“用户窗体”
Step3修改窗体属性
此时，系统将添加一个窗体“UserForm1”
1.单击屏幕左下角“属性”窗口中的“（名称）”文本框“UserForm1”,然后将其修改为“UsfRtRmnd”，按键确认。
2.依照操作方法，将“Caption”文本框里的“UserForm1”修改为“退休提醒”。
3.连续单击“属性”窗口里的下箭头按钮，纸质窗口显示“Height”，然后修改该文本框的数据为“147.75”。
4.按此操作方法，近“Weight”里的数据修改为“436.5”，至此新添加的窗体的属性设置完成，结果如下图所示。
Step4:
添加控件标签
单击窗体的任意位置调出“工具箱”，然后单击“工具箱”里的“标签”按钮，接着移动鼠标单击窗体的任意位置，此时就可以添加一个新标签框。
Step5修改标签控件属性
1.单击“属性”窗口里的“（名称）”文本框里的“Label1”，然后修改为“IbIRtRmnd”，按键确认。
2.按此操作方法，将“Caption”文本框里的“Label1”修改为“下列人员即将到达退休期：
”。
3.连续单击“属性”窗口里的下键头按钮，直至窗口里显示“Height”，然后修改该文本框里的数据为“9”。
4.按此操作方法，将“Left”文本框里的数据修改为“6”，将“Top”文本框里的数据修改为“6”，将“Width”文本框里数据修改为“117.5”。
Step6添加列表框控件
单击窗体的任意位置调出“工具箱”，然后单击“工具箱”里的“列表框”按钮，接着移动鼠标单击窗体的任意位置，此时就可以添加一个新列表框。
Step7修改列表框控件属性
1.按step5的方法，将命令“（名称）”文本框里的“ListBox1”修改为“IstRtRmnd”。
2.然后将“Height”，然后修改该文本框里的数据为“65.9”，将“Left”文本框里的数据修改为“6”，将“Top”文本框里的数据修改为“24”，将“Width”文本框里数据修改为“422.3”。
ColumnCount为列表框的列数，用来显示符合条件人员的工号、姓名、隶属部门、学历、生日、性别、入职时间、职称、职务、身份、退休时间等，因此需要对其进行修改。
3.将“ColumnCount”文本框里的数据“1”修改为“11”。
4.在“ColumnWidth”文本框里输入如下数据：
“24.95；40；4.；30；53；24.95；24.95；40；40；24.95；49.95”。
Step8添加命令控件
单击窗体的任意位置调出“工具箱”，然后单击“工具箱”里的“命令按钮”按钮，接着移动鼠标单击窗体的任意位置，此时就可以添加一个新命令按钮。
Step9修改命令控件属性
1.按step5的方法，将命令“（名称）”文本框里的“CommandButton1”修改为“cork”，将“Caption”文本框里的“CommandButton1”修改为“关闭”。
2.将“Height”，然后修改该文本框里的数据为“24”，将“Left”文本框里的数据修改为“342”，将“Top”文本框里的数据修改为“96”，将“Width”文本框里数据修改为“54”。
Step10输入命令按钮控件代码
双击窗体里的“关闭”按钮，弹出如图所示的窗口，然后输入如下代码
PrivateSubcmdOk_Click（）
UnloadMe
EndSub
Step11输入工作簿代码
1.双击屏幕左侧“工程”窗口里的“ThisWorkbook”弹出如下图所示的窗口。
2.单击代码区，输入如下代码。
Step12运行VBA
1.单击“保存”按钮，然后关闭整个工作簿。
2.重新启动该工作簿，此时会弹出警告框，然后单击“启用宏”按钮。
随即工作簿被打开，同时会显示如下图所示的提示框，该框里包含了即将退休的员工信息。
【实验心得】
通过本次实验，我们学会了如何制作职工退休到龄提醒表，怎样运用DATEDTF函数来计算员工的入职时间，如何编制VBA来提醒到龄员工。
学会了这样一个操作流程，给我们的工作和生活带来了便利。
实验二：
Access综合练习
实验背景
练习access
【实验步骤】
Step1：
创建数据库
先建立数据库“本人姓名．MDB”，如：
赵卿.MDB
Step2：
建立如下三个表的表结构
人事表
工资表
部门表
字段名称
数据类型
字段大小
字段名称
数据类型
字段大小
小数位数
字段名称
数据类型
字段大小
部门号
文本
2
部门号
文本
2
部门号
文本
2
职工编号
文本
4
职工编号
文本
4
部门
文本
20
姓名
文本
8
基本工资
数字
单精度
2
性别
文本
2
奖金
数字
单精度
2
注意：
人事表中的职务、职称等字段均定义成组合框，并添加相应的值。
民族
文本
10
书报费
数字
单精度
2
出生日期
日期时间
中日期
洗理费
数字
单精度
2
学历
文本
6
房补
数字
单精度
2
职务
文本
8
会费
数字
单精度
2
职称
文本
8
住房基金
数字
单精度
2
备注
备注
照片
OLE对象
1.人事表
2.工资表
3.部门表
Step3：
分别为三个表添加如下记录
Step4：
将“人事表”和“工资表”的职工编号字段设置为主键。
Step5：
通过“部门号”、“职工编号”字段，建立三个表之间的关系。
打开表格工具下的“表”，点击“关系”，在“显示表”中朱哥添加三个表，将部门表的“部门号”拖到工资表的“部门号”，在弹出的小窗口中选择“参照完整性”，同样，将工资表的“职工编号”与人事表的“职工编号”相连，点击“参照完整性”，结果如下图所示。
Step6：
查询少数民族的职工的姓名、性别、学历和职称。
点击“创建”下的“查询设计”，在弹出的窗口中点击“人事表”，在下方列表分别输入姓名，性别，学历，职称，民族，在民族的条件下输入“not”汉族””，如下图所示。
最终结果如下图
Step7：
查询男职工的姓名、学历和职务。
打开查询向导，点击“人事表”，分别输入姓名，学历，职务，性别，性别的条件输为“”男””，如下图所示
最终结果如下图所示
Step8：
在“人事表”中插入一条记录（01,0009，王五，女，瑶族，1979-01-01，博士，教师，副教授）
在“工资表”中添加相关记录，再在“人事表”中添加相关记录，最终结果如下图所示
Step9：
统计女职工人数。
点击“查询向导”，“人事表”，字段中选择“性别”，点击左右键选择“汇总”，条件中输入“”女””，在第二个字段中输入“人数:
Count（“女”）”，总计行选择“Expression”，如下图所示
最终结果如下图
Step10：
将“工资表”中“洗理费”修改为“卫生费”。
修改字段名为“卫生费”
Step11：
查询女职工的姓名、基本工资和奖金。
创建查询，添加“人事表”和“工资表”，字段行分别输入“性别”，“姓名”，“基本工资”，“奖金”，在“性别”的条件中输入“”女””，如下图所示
最终结果如下图所示
Step12：
查询奖金超过300的职工的姓名以及所在部门。
建立查询，添加三个表，在下方字段中输入“奖金”，“姓名”，“部门”，“奖金”的条件下输入“>300”，如下图所示
最终结果如下图
Step13：
通过sql语句为“工资表”建立一个“实发工资”字段。
（实发工资＝基本工资＋奖金＋洗理费＋书报费＋房补－住房基金－会费）
创建查询，打开SQL视图，输入如下
新建立一个查询，定义实发工资，如下图所示
运行更新数据后，打开“工资表”，结果如下图所示
【实验心得】
通过本次实验，我们再一次复习了access，并掌握了如何建立查询，如何用SQL语言更新数据，这次实验使我们更加熟练运用access。
课程实验心得
通过计算机实验和系统设计，使我们加深理解、验证巩固了课堂教学内容；增强了我们的管理信息系统的感性认识；掌握了管理信息系统分析、开发的基本方法；培养了我们的理论与实践相结合的能力。
在学这门课程之前，考过计算机二级的我自以为对Excel的了解非常透彻了。
可进入VBA后，才知道自己对这个程序一无所知。
这激发了我深厚的学习兴趣。
所以我来了一些兴趣相投的小伙伴一起学习VBA。
我们的案例一，将借助VBA实现职工退休到龄提醒功能。
在小组实验的过程中，我深深地感受到了团队合作的重要性。
VBA对于我们0基础的大学生来说，还是很有挑战的。
每当“山重水复疑无路”时，小组成员间的讨论总能让人看到“柳暗花明又一村”。
当我们实验完VBA案例后，发现，我们所学到的信息管理系统远远不止这一个Excel的VBA程序。
信息管理系统这门学科简直就是万花筒，里面蕴含着无穷无尽的知识体系。
所以我们组决定再学习access。
大一时我们便接触过access，所以算是一次复习。
我们在学习过程多多次感叹这个数据库的庞大，以及对将来工作的作用。
通过这次实验，我们掌握了如何建立查询，如何用SQL语言更新数据，使我们更加熟练运用access。
众所周知，管理信息系统在信息化的大势所趋下，它的完善与发展、越来越受到人们的普遍关注，它是企业现代化的重要标志，是企业发展的一条心由之路,其在管理现代化中起着举足轻重的作用。
我们知道，我们所掌握的知识远远只是信息管理系统这门学科的冰山一角。
所以，我们组将坚持不懈，继续学习，一路向前。
升级会员 