管理信息系统实习报告_3.docx

《管理信息系统实习报告_3.docx》由会员分享，可在线阅读，更多相关《管理信息系统实习报告_3.docx（19页珍藏版）》请在第一文库网上搜索。

1、西安彝重大学管理信息系统上机实验报告书项目名称:工资管理系统专业名称:人力资源管理姓名:刘子君班级：人力1102班指导教师:张峰时间2013年6月21日目录一、实验课题名称(2)二、开发环境(2)三、实验目的及要求(2)四、实验步骤(2)1、选定上机实验任务2、设计方案、设计进度五、需求分析(3)六、系统设计1、系统功能设计(4)2、系统界面设计(5)3、数据库设计4、代码设计(11)七、实验心得(16)、实验课题名称:工资管理系统二、开发环境：设计一个C/S模式的小型管理信息系统，前端设计采用Visua1Basic6.O开发工具，数据库设计采用SQ1SETVER2000,用ADODC数据控件

2、访问数据库。三、实验目的及要求：目的：在深入理解理论教学关键知识点的基础上，能针对给定的某个实际管理信息系统，独立的进行系统分析、系统设计、程序的编写与调试，最终完成系统实施任务。通过以上环节的训练,可以锻炼和培养学生综合运用知识以及开发管理信息系统任务的初步能力。要求：（1）根据所学内容，自行设计相关的实验方案。（2）撰写规范的系统分析与实验报告。（3）要分工明确，按时完成任务。四、实验步骤：1、选定实验任务：工资管理系统（内容：具有一般管理系统的录入、添加、删除、插入、修改和清空的要求）。2、商议方案，小组三人分工合作，刘子君主要负责代码设计部分、高杰主要负责系统界面设计部分，刘晓主要负责

3、数据库设计部分。3、提交实验报告。五、需求分析:随着高等学校的快速发展，高校规模越来越大，教职工的数量也越来越多，高校工资管理更加的复杂，而工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能

4、够极大地提高人事工资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。这就对高校工资管理提出了新的要求，用计算机管理系统来管理高校工资已经成为目前的趋势，使用计算机可以高速，快捷地完成以上工作。在计算机联网后，数据在网上传递，可以实现数据共享,避免重复劳动，规范数据管理行为，从而提高了管理效率和水平。高校工资管理系统便是以计算机为工具，通过对工资管理所需的信息管理，不仅把管理人员从繁琐的数据计算处理中解脱出来，而且优化了管理体系，使其高效化，简易化，智能化，也提高了透明度和互动性。工资管理系统的H的和现实意义就是提高企业或公司的管理效率，避免一些在管理中由于人为因素而存在的一些诸

5、多问题。工资管理系统还可以节省人力资源，不必浪费过多的人力资源在这种手工发放工资的模式之上。工资管理系统也可以为企业或公司节省生产成本，获取更大的利润，人力资源问题的减少必将为企业或公司节省一些不必要的生产成本，从而为企业或公司获取更大的利润。六、系统设计：1、系统功能设计：“工资管理系统”主要是定期对职工的工资信息进行录入、删除、查询、搜素、添加等日常管理。工程包括“工资管理系统”、“工资录入”、“浏览编辑”、“工资查询”4个窗体。各窗体的功能如下：(1) “工资管理系统”窗体，单击“系统”菜单下的“工资录入”命令，进入“工资录入”窗体。单击“系统”菜单下的“浏览编辑”命令，进入“浏览编辑”

6、窗体。单击“系统”菜单下的“工资查询”命令，进入“工资查询”窗体。(2) “工资录入”窗体，包含2个框架、2个命令和一个AdodC数据控件。“基本信息”框架中有4个标签和4个文本框,，“工资输入项”中有4个标签和4个文本框，。在窗体中可以录入职工的“基本信息”和“工资收入项”两部分内容。单击“添加”按钮可以添加有关信息。单击“返回”按钮，关闭当前窗体，返回到“工资管理系统”窗体。(3) “浏览编辑”窗体，包含2个框架、3个命令和一个AdodC数据控件。“基本信息”框架中有4个标签和4个文本框，“工资输入项”中有4个标签和4个文本框，。在窗体中可以录入职工的“基本信息”和“工资收入项”两部分内容

7、。单击“搜索”按钮可以搜索有关信息。单击“删除”按钮，可以删除想要删除的信息，单击“返回”按钮，关闭当前窗体，返回到“工资管理系统”窗体。(4) “工资查询”窗体，包含3个框架、4个命令和一个AdodC数据控件。“基本信息”框架中有4个标签和4个文本框,，“工资输入项”中有4个标签和4个文本框,。“查询条件”框架中有2个按钮，一个标签，一个文本框，在窗体中可以录入职工的“基本信息”和“工资收入项”两部分内容。单击“查询”按钮可以按条件查询有关信息，单击“前一条按钮可以浏览前一条信息，单击“后一条”按钮可以浏览后一条信息，单击“返回”按钮，关闭当前窗体，返回到“工资管理系统”窗体。2、系统界面设

8、计：(1) “工资管理系统”窗体界面设计：（2）“工资录入”窗体设计:(3)“浏览编辑”窗体设计:(4)“工资查询”的窗体设计:列名数85类型长度允许至的ChftTIOV姓名chr12职相crIO发汰日期dtetin8员位口5varch*r50VKs3I55vrchr50V扑助费Vtrchtr50V一苴他扣软rchr50V一表属性一工资常规各名称凶）：工资权限但）所有者：dbo创建日期：201382119:14:36文件组：PRIMARY行：1。列.课ID名称数据类型大小空默认值人职工号Chaf10姓名职称发放日期岗位工资薪级工资补助费charchardatetimevarcharVarCha

9、rvarchar2O118rsrrsrrsr确定|取消|应用|.帮助姓名011150020111500301115004011150050111500601115007011150080111500901115010冯雨W张东成光隹提李明2范小洁教讲讲副导导讲教讲副授授授师师教员员师授师教I发放日期2012-11-22012-11-22012-11-22012-11-22012-11-22012-11-22012-11-22012-11-22012-11-22012-11-2身位工资I薪级工资1500100010001200001000150010001200I补助费5003003005003

10、00300300500300500I其因映O100100005005004、代码设计：(1)“窗体”链接代码:PrivateSubCommand1_C1ick()frmWInput.ShowMe-HideEndSubPrivateSubCommand2_C1ick()frmWscan.ShowMe.HideEndSubPrivateSubCommand3_C1ick()frmWse1ect.ShowMe.HideEndSub(2) “添加”代码：PrivateSubCmdADD_C1ick()Fori=0To3txtInfo(i).Enab1ed=TruetxtInfo(i).Text=,Ne

11、xtiForj=0To3txtWage(j).Enab1ed=TruetxtWage(j).Text=NextjCmdADD.Enab1ed=TrueEndSub(3) “返回”的代码：PrivateSubCommand2_C1ick()Me.HidefrmVmanager.ShowEndSub(4) “搜索”的代码：PrivateSubCmdse1ect_C1ick()DimWnumberAsStringWnumber=InPUtBOx(请输入职工号”，查找职工号，”01115002)IfWnumber,ThenWnumber=职工号“二&Wnumber&adoEdit.Recordset.

12、MoveFirstadoEdit.Recordset.FindWnumberEndIfIfframeInfo(0).Text=,ThenMsgBox”未找到匹配的记录,VbCritiCa1,警告adoEdit.Recordset.MoveFirstEndIfEndSub(5) “删除”的代码：PrivateSubCmdDe1ete_C1ick()DimanwserAsStringanwser=MSgBoX(“确实删除该记录了吗？，VbCritica1,警告)Ifanwser=vbYesThenIfAdoedit-Recordset-EOF=Fa1seThenAdoedit.Recordset-

13、De1eteAdoedit.Recordset-UpdateAdoedit.Recordset.movefirstE1seMsgBox”数据库没有记录！”,VbCritica1J警告”EndIf(6) “查询”的代码:PrivateSubCmdSearch_C1ick()IftxtShow.TextThenIfoptworkernum.Va1ueThenSearchSQ1=SE1ECT*FR0M工资WHERE姓名=“&”&txtShow.Text&Ifoptmonth.Va1ueThensearchSQ1=SE1ECT*FROM工资WHERE发放日期=“&”&txtShow.Text&”E1s

14、eMsgBox条件不能为空，请输入查询依据！”,VbCritica1,警告”EndIfAdosearch.RecordSource=searchSQ1Adosearch.RefreshIfOptworkernum.VaIueThenIfAdosearch.Recordset.EOFThenMSgBoX”没有找到该职工姓名!”,VberitiCa1,“警告”EndIfE1seIfAdosearch.Recordset.EOFThenMsgBox“没有找到这个月的信息!”,VbCritica1警告”EndIfEndSub(7) “前一条”的代码PrivateSubCmdPrevious_C1ick()Adoedit-Recordset.movePreviousIfAd