人力资源知识企业人事部查询系统

1、（人力资源知识）企业人事部查询系统20XX年XX月峯年的企业咨询咸问经验.经过实战验证可以藩地执行的卓越萱理方案.值得您下载拥有企业管理系统目录摘要?(2 )第壹章绪论?(4 )1.1摘要背景? ? ? ? ? ? ? ? ? ? ? ? ? ? ?(4)1.2开发工具的选择? ? ? ? ? ? ? ? ? ? ? ?(4)第二章系统需求和分析? ? ? ? ? ? ? ? ? ? ? ?(5)2.1总体需求调查? ? ? ? ? ? ? ? ? ? ? ?(5)2.1.1企业的管理功能?( 5 )2.1.2系统目标调查?(5)2.2系统数据流程分析?(5)第三章系统设计? ? ? ? ?

2、? ? ? ? ? ? ? ?(6)3.1系统总体结构图?(8)第四章详细设计? ? ? ? ? ? ? ? ? ? ? ? ? ?(9)4.1界面设计?(9 )4.2修改和删除用户和密码?(12)4.3删除修改界面?(15 )4.4系统数据库设计结果?(15)摘要随着信息技术的不断发展，我们对数据和业务的要求越来越高，因此对应聘 人员的各种信息进行数字化和网络化的管理也成为必要。壹个完善的应聘人员档 案管理不仅有利于企业对应聘人员信息的统计和管理，且有利于提高应聘人员信 息查询速度。该系统分为账户管理模块，应聘人员档案添加、查询、修改模块， 专业、民族增删模块，数据的导入、导出模块。本次设计

3、任务是通过开发壹个数 据库企业管理系统，采用VB6.0和Access等软件为开发工具；对应用领域进行 调查分析；参考各种资料和进行数据库编程实践。通过我们壹个小组三个人的共 同努力，已经基本上成功地实现了设计任务书的要求。使得设计的数据库系统能 够实现壹般数据库的管理。 我们研究了数据库的查询优化问题.论文主要介绍了本 课题的开发背景，所要完成的功能和开发的过程。全文由系统设计、设计工具选择和简介、系统功能的实现等几部分组成。文 中所设计的“企业管理系统”是使用VisualBasic6.0中文版作为开发工具，后台 数据库则采用Access2003。“企业管理系统”为工作人员提供信息咨询等服务。

4、 信息录入项目齐全、完整、系统。系统灵活使用表格对各种信息分门别类，组成 企业管理系统，能够方便地查询、阅读、修改、和使用。于对企业管理系统各个方面进行调研后， 于完成管理系统的设计和实现的基础 上,写下这篇论文。第壹章绪论1.1 摘要背景企业管理系统使原本手工操作的复杂性、 繁琐工作于电脑键盘弹指之间就可 轻松完成。1.2 开发工具的选择数据库系统的开发，作为后台的Access是壹个非常理想选择。 数据库是MIS中的重要支持技术， 于MIS开发过程中，如何选择数据库管理是壹个重要的问题，目前，数据库产品较多，每种产品均具有各自的特点和适用范围，于本系统中主 要采用Access作为后台工作,本

5、系统选用的数据库语言，该开发工具具有很多长 处。VisualBasic是壹种可视化的、面对对象和条用事件驱动方式的结构化高级 程序设计， 可用于开发Windows环境下的种类应用程序。 它简单易学、 效率高， 且功能强大，能够和Windows的专业开发工具SDK相媲美，于VisualBasic环 境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，能够高效、快速 地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。运用VB于加上Access作为其后台，会使系统更加完善。第2章需求分析2.1总体需求调查2.1.1企业的管理功能生产管理、采购管理、销售管理、人事管理、库存管理、财

6、务管理。 如图1.1企业组织结构图2.1.2系统目标采用现有的软硬件及科学的管理系统开发方案，建立企业管理系统，实现企业管理的计算机自动化。系统应符合企业管理制度，且达到操作直观、方便、实用、安全等要求。 本系统不但能够节省您的时间，而且会使您事半功倍。2.2系统数据流程图系统的数据是要达到数据的准确性，数据流程分析是系统分析中的基础环节。企业管理系统的数据流程如图(2-1)数据流程图第3章系统设计图1.2业务流程图第四章系统实现第4章 详细设计41界面设计4.1.1系统启动界面设计图1-4图1-4是本系统的初始界面，其实现的是用户登陆系统。Stringname=txtName.getText

7、().trim();Stringpass=String.valueOf(txtPassword.getPassword();if(name.equals()JOptionPane.showMessageDialog(this,用户名,警告,JOptionPane.WARNING_MESSAGE);txtName.requestFocus();return;if(pass.equals()JOptionPane.showMessageDialog(this,密码,警告,JOptionPane.WARNING_MESSAGE);txtPassword.requestFocus();return;/

8、*创建UserTable类的对象*/UserTableuser=newUserTable();user.setUserName(name);user.setUserPassword(pass);if(LoginBusiness.userIsRight(user)MainFrmmainfrm=newMainFrm();MainFrm.setFrameMiddle(mainfrm);mainfrm.setVisible(true);this.dispose();elseJOptionPane.showMessageDialog(this,用户名或密码错误！JOptionPane.WARNING_M

9、ESSAGE);booleanret=false;Connectioncon=null;PreparedStatementprsm=null;ResultSetrs=null;/*存储sql语句*/Stringsql=selectuserName,userPasswordfromUserTablewhereuserName=?anduser Password=?;con=ConnectionManager.getCon();/和数据库取得连接tryprsm=con.prepareStatement(sql);/预编译sql语句prsm.setString(1,user.getUserName(

10、);prsm.setString(2,user.getUserPassword();rs=prsm.executeQuery();if(rs.next()ret=true;System.out.println(查询成功！);catch(SQLExceptionex)System.out.println(UserTableDao类中的checkUser()方法出错了+ex.getMessage();finallyConnectionManager.closeRet(rs);ConnectionManager.closePre(prsm);ConnectionManager.closeCon(co

11、n);returnret;主界面的设计图1-5图1-5为系统的主界面其用菜单编辑器完善了主界面的菜单。PrivateSubForm_Load()mzgl.Hidedljm.ShowEndSubPrivateSubsfgl_Click()mzgl.Hideyfgl.Show EndSub医院药房管理系统界面图1-6该界面显示了本系统要实现的药品信息维护、查询等功能。PrivateSubwh_Click()Form3.Show EndSubPrivateSubcx_Click()Form6.Show 显示药品进销存信息和关联金额的查询功能界面EndSubPrivateSubnote_Click()

12、Shellnotepad.exe,1 EndSubPrivateSubjsq_Click()Shellcalc.exe,1 EndSubPrivateSubtjyh_Click()Form9.Show EndSubPrivateSubggmm_Click()Form8.Show EndSubn修改和添加用户和密码4.2.1添加用户输入用户名、密码、确认密码点确认就能够了非常容易实现。PrivateSubCommand1_Click()*此代码说明用户添加完用户名和密码后进*行确认的功能*IfText1.Text=OrText2.Text=ThenMsgBox请输入用户名或密码Else27IfT

13、ext2.Text=Text3.TextThenForm9.Adodc1.Recordset.AddNewForm9.Adodc1.Recordset.Fields(user)=Text1.TextForm9.Adodc1.Recordset.Fields(passwd)=Text2.TextForm9.Adodc1.Recordset.UpdateMsgBox用户添加成功Text1.Text=Text2.Text=Text3.Text=Form9.Adodc1.RefreshElse:MsgBox俩次输入的密码不同，请重新输入Text2.Text=Text3.Text=EndIfEndIfE

14、ndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Left=(Screen.Width-Width)/2Top=(Screen.Height-Height)/228EndSub修改密码当用户改完原密码和用户口令后进行确认的代码:PrivateSubCommand1_Click()OnErrorResumeNextAdodc1.Recordset.MoveFirstAdodc1.Recordset.Finduser=&username&IfAdodc1.Recordset.Fields(passwd).Value=

15、Text1.TextThenIfText2.Text=Text3.TextThenAdodc1.Recordset.Fields(passwd).Value=Text2.TextAdodc1.Recordset.UpdateMsgBox密码修改成功！,vbInformation,信息Text1.Text=Text2.Text=Text3.Text=ElseMsgBox新密码和验证码不壹致！,vbCritical,错误Text1.Text=Text2.Text=Text3.Text=ElseMsgBox原密码不正确！,vbCritical,错误Text1.Text=Text2.Text=Text

16、3.Text=EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub退出代码,能够回到上壹层界面:PrivateSubForm_Load()Left=(Screen.Width-Width)/2Top=(Screen.Height-Height)/2Adodc1.RefreshEndSubn添加、修改界面图1-7实现的功能： 当有药品的进库， 出库， 库存信息改变时， 能够此处完成关联的添 加、修改、删除操作，且及时将关联信息显示于此界面上。PrivateSubOption1_Click()IfOption1.Value=TrueThen进货管理

17、.进货价，进货价*现储备量as库存药品金额from进货管理，库存药品where进货管理.药品ID=库存药品.药品IDAdodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfEndSubPrivateSubOption2_Click()IfOption2.Value=TrueThenAdodc2.RecordSource=select进货管理.药品ID,药品名称,进货价，进货量泄货日期,进货价*进货量as进货金额from进货管理,销售管理where进货管理.药 品ID=销售管理.药品IDAdodc2.RefreshSetDataGrid1.DataSou

18、rce=Adodc2EndIfEndSubPrivateSubOption3_Click()IfOption3.Value=TrueThenAdodc3.RecordSource=select销售管理.药品ID,药品名称，零售价,销售量，销Adodc1.RecordSource=select库存药品.药品ID,药品名称,保质期，现储备量,售时间,零售价*销售量as销售金额from销售管理,进货管理where进货管理.药 品ID=销售管理.药品IDAdodc3.RefreshForm3.Adodc1.Recordset.Fields(现储备量)=Text13.TextForm3.Adodc1.R

19、ecordset.Fields(保质期)=Text14.TextSetDataGrid1.DataSource=Adodc3EndIfEndSubPrivateSubCommand1_Click()OnErrorResumeNextIfText1.Text=ThenMsgBox请输入药品ID先！ElseIfForm3.Option1.Value=TrueThenIfText13.Text=OrText14.Text=ThenMsgBox请把药品信息添加全先，药品ID为数字，无信息可用字符“”代替！ElseForm3.Adodc1.Recordset.AddNewForm3.Adodc1.Rec

20、ordset.Fields(Form3.Adodc1.Recordset.UpdateText1.Text=药品ID)=Text1.TextText13.Text=Text14.Text=MsgBox添加成功！EndIfElseIfForm3.Option2.Value=TrueThenIfText1.Text=OrText2.Text=OrText3.Text=OrText4.Text=Or_Text5.Text=OrText6.Text=OrText7.Text=OrText8.Text=Or_Text9.Text=_ThenMsgBox请把药品信息添加全先，药品ID为数字，无信息可用字符

21、“”代替！ElseForm3.Adodc2.Recordset.AddNewForm3.Adodc2.Recordset.Fields(药品ID)=Text1.TextForm3.Adodc2.Recordset.Fields(药品分类)=Text2.TextForm3.Adodc2.Recordset.Fields(药品名称)=Text3.TextForm3.Adodc2.Recordset.Fields(规格型号)=Text4.TextForm3.Adodc2.Recordset.Fields(单位)=Text5.TextForm3.Adodc2.Recordset.Fields(进货价)

22、=Text6.TextForm3.Adodc2.Recordset.Fields(进货量)=Text7.TextForm3.Adodc2.Recordset.Fields(进货日期)=Text8.TextForm3.Adodc2.Recordset.Fields(药品产地)=Text9.TextForm3.Adodc3.Recordset.Fields(药品ID)=Text1.TextForm3.Adodc3.Recordset.Fields(零售价)=Text10.TextForm3.Adodc2.Recordset.UpdateText1.Text=Text2.Text=Text3.Tex

23、t=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Text9.Text=MsgBox添加成功！EndIfElseIfForm3.Option3.Value=TrueThenIfText1.Text=OrText10.Text=OrText11.Text=OrText12.Text=ThenMsgBox请把药品信息添加全先，药品ID为数字，无信息可用字符“”代替！ElseForm3.Adodc3.Recordset.AddNewForm3.Adodc3.Recordset.Fields(Form3.Adodc3.Recordset.

24、Fields(销售量)=Text11.Text销售时间)=Text12.TextForm3.Adodc1.Recordset.Fields（保质期）=Text14.TextMsgBox修改成功！IIForm3.Adodc3.Recordset.UpdateText1.Text=Text10.Text=Text11.Text=Text12.Text=MsgBox添加成功！EndIfEndIfEndSubPrivateSubText8_Click（）Text8.Text=DateEndSubPrivateSubCommand1_Click（）OnErrorResumeNextIfText1.Tex

25、t=ThenMsgBox药品ID不能够为空的！ElseIfForm3.Option1.Value=TrueThenForm3.Adodc1.Recordset.Fields（药品ID）=Text1.TextForm3.Adodc1.Recordset.Fields（现储备量）=Text13.TextForm3.Adodc3.Recordset.Fields(销售时间)=Text12.TextForm3.Adodc1.Recordset.UpdateElseIfForm3.Option2.Value=TrueThenForm3.Adodc2.Recordset.Fields(药品ID)=Text1.Tex