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