计算机信息管理系统实验报告.docx
- 文档编号:4592902
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:25
- 大小:2.89MB
计算机信息管理系统实验报告.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”),按
2.单击H3单元格,移动光标到该单元格右下角,当光标变成“+”形状时,按住左键不放向下拖动至H12单元格,然后松开左键,这时就将公式复制到了H3:
H12单元格区域,结果如下图所示。
编制VBA来提示到龄员工
下面编制VBA,借助窗体提示人力资源部有哪些员工即将退休。
因为要用到宏,所以要预先降低宏的安全性。
读者可以依次单击菜单“选项”→“信任中心”→“宏设置”,在弹出“信任中心”对话框中将安全性调整为“启用所有宏”。
最后单击“确定”按钮即可。
Step1:
启动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。
众所周知,管理信息系统在信息化的大势所趋下,它的完善与发展、越来越受到人们的普遍关注,它是企业现代化的重要标志,是企业发展的一条心由之路,其在管理现代化中起着举足轻重的作用。
我们知道,我们所掌握的知识远远只是信息管理系统这门学科的冰山一角。
所以,我们组将坚持不懈,继续学习,一路向前。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 信息管理 系统 实验 报告