企业人事部查询系统.docx

1、企业人事部查询系统企业管理系统目录摘 要(2)第一章 绪 论(4)1.1 摘要背景(4)1.2 开发工具的选择(4)第二章 系统需求与分析 (5)2.1 总体需求调查(5)2.1.1企业的管理功能(5)2.1.2 系统目标调查(5)2.2系统数据流程分析(5)第三章 系统设计 (6)3.1系统总体结构图 (8)第四章 详细设计(9)4.1界面设计 (9)4.2修改和删除用户和密码 (12)4.3删除修改界面(15)4.4系统数据库设计结果(15)摘 要随着信息技术的不断发展，我们对数据和业务的要求越来越高，因此对应聘人员的各种信息进行数字化和网络化的管理也成为必要。一个完善的应聘人员档案管理不

2、仅有利于企业对应聘人员信息的统计和管理，且有利于提高应聘人员信息查询速度。该系统分为账户管理模块，应聘人员档案添加、查询、修改模块，专业、民族增删模块，数据的导入、导出模块。本次设计任务是通过开发一个数据库企业管理系统，采用VB6.0和Access等软件为开发工具；对应用领域进行调查分析；参考各种资料和进行数据库编程实践。通过我们一个小组三个人的共同努力，已经基本上成功地实现了设计任务书的要求。使得设计的数据库系统能够实现一般数据库的管理。我们研究了数据库的查询优化问题 .论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。全文由系统设计、设计工具选择与简介、系统功能的实现等几部分组成

3、。文中所设计的“企业管理系统”是使用Visual Basic 6.0 中文版作为开发工具，后台数据库则采用Access 2003。“企业管理系统”为工作人员提供信息咨询等服务。信息录入项目齐全、完整、系统。系统灵活使用表格对各种信息分门别类，组成企业管理系统，可以方便地查询、阅读、修改、和使用。 在对企业管理系统各个方面进行调研后，在完成管理系统的设计与实现的基础上,写下这篇论文。第一章 绪论1.1 摘要背景企业管理系统使原本手工操作的复杂性、繁琐工作在电脑键盘弹指之间就可轻松完成。1.2开发工具的选择数据库系统的开发，作为后台的Access是一个非常理想选择。数据库是MIS中的重要支持技术，

4、在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用X围，在本系统中主要采用Access作为后台工作,本系统选用的数据库语言，该开发工具具有很多长处。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美， 在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。运用VB在加上

5、Access作为其后台，会使系统更加完善。第2章需求分析2.1 总体需求调查2.1.1企业的管理功能生产管理、采购管理、销售管理、人事管理、库存管理、财务管理。如图1.1企业组织结构图2.1.2系统目标采用现有的软硬件及科学的管理系统开发方案，建立企业管理系统，实现企业管理的计算机自动化。系统应符合企业管理制度，并达到操作直观、方便、实用、安全等要求。本系统不但可以节省您的时间，而且会使您事半功倍。2.2系统数据流程图系统的数据是要达到数据的准确性，数据流程分析是系统分析中的基础环节。企业管理系统的数据流程如图(2-1)数据流程图第3章系统设计图1.2业务流程图第四章系统实现第4章详细设计41

6、界面设计4.1.1 系统启动界面设计图1-4图1-4是本系统的初始界面，其实现的是用户登陆系统。 String name = txtName.getText().trim(); String pass = String.valueOf(txtPassword.getPassword(); if (name.equals() JOptionPane.showMessageDialog(this, 用户名, 警告, JOptionPane.WARNING_MESSAGE); txtName.requestFocus(); return; if (pass.equals() JOptionPane.

7、showMessageDialog(this, 密码, 警告, JOptionPane.WARNING_MESSAGE); txtPassword.requestFocus(); return; /*创建UserTable类的对象*/ UserTable user = new UserTable(); user.setUserName(name); user.setUserPassword(pass); if (LoginBusiness.userIsRight(user) MainFrm mainfrm = new MainFrm(); MainFrm.setFrameMiddle(main

8、frm); mainfrm.setVisible(true); this.dispose(); else JOptionPane.showMessageDialog(this, 用户名或密码错误！, 警告,JOptionPane.WARNING_MESSAGE); boolean ret = false; Connection con = null; PreparedStatement prsm = null; ResultSet rs = null; /*存储sql语句*/ String sql = select userName,userPassword from UserTable wh

9、ere userName=? and userPassword=?; con = ConnectionManager.getCon(); /与数据库取得连接 try prsm = con.prepareStatement(sql); /预编译sql语句 prsm.setString(1, user.getUserName(); prsm.setString(2, user.getUserPassword(); rs = prsm.executeQuery(); if (rs.next() ret = true; System.out.println(查询成功！); catch (SQLExce

10、ption ex) System.out.println(UserTableDao类中的checkUser()方法出错了 + ex.getMessage(); finally ConnectionManager.closeRet(rs); ConnectionManager.closePre(prsm); ConnectionManager.closeCon(con); return ret;4.1.2主界面的设计图1-5 图1-5为系统的主界面其用菜单编辑器完善了主界面的菜单。 Private Sub Form_Load()mzgl.Hidedljm.ShowEnd SubPrivate S

11、ub sfgl_Click()mzgl.Hide yfgl.Show End Sub4.1.3医院药房管理系统界面图1-6 该界面显示了本系统要实现的药品信息维护、查询等功能。 Private Sub wh_Click()Form3.ShowEnd SubPrivate Sub cx_Click()Form6.ShowEnd SubPrivate Sub note_Click()Shell notepad.exe, 1End SubPrivate Sub jsq_Click()Shell calc.exe, 1End SubPrivate Sub tjyh_Click()Form9.ShowE

12、nd SubPrivate Sub ggmm_Click()Form8.ShowEnd Sub4.2修改和添加用户和密码4.2.1添加用户 输入用户名、密码、确认密码点确认就可以了非常容易实现。Private Sub mand1_Click() *此代码说明用户添加完用户名和密码后进* 行确认的功能*If Text1.Text = Or Text2.Text = ThenMsgBox 请输入用户名或密码 Else If Text2.Text = Text3.Text ThenForm9.Adodc1.Recordset.AddNewForm9.Adodc1.Recordset.Fields(u

13、ser) = Text1.TextForm9.Adodc1.Recordset.Fields(passwd) = Text2.TextForm9.Adodc1.Recordset.Update MsgBox 用户添加成功 Text1.Text = Text2.Text = Text3.Text = Form9.Adodc1.Refresh Else: MsgBox 两次输入的密码不同，请重新输入 Text2.Text = Text3.Text = End IfEnd IfEnd SubPrivate Sub mand2_Click()Unload MeEnd SubPrivate Sub Fo

14、rm_Load() Left = (Screen.Width - Width) / 227 Top = (Screen.Height - Height) / 2End Sub4.2.2 修改密码当用户改完原密码和用户口令后进行确认的代码:Private Sub mand1_Click() On Error Resume Next Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find user= & username & If Adodc1.Recordset.Fields(passwd).Value = Text1.Text Then If Text2

15、.Text = Text3.Text Then Adodc1.Recordset.Fields(passwd).Value = Text2.Text Adodc1.Recordset.Update MsgBox 密码修改成功！, vbInformation, 信息 Text1.Text = Text2.Text = Text3.Text = Else MsgBox 新密码与验证码不一致！, vbCritical, 错误 Text1.Text = Text2.Text = Text3.Text = 28ElseMsgBox 原密码不正确！, vbCritical, 错误 Text1.Text =

16、 Text2.Text = Text3.Text = End If End SubPrivate Sub mand2_Click()Unload MeEnd Sub退出代码,可以回到上一层界面:Private Sub Form_Load() Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2Adodc1.Refresh End Sub4.3添加、修改界面图 1-7 实现的功能：当有药品的进库，出库，库存信息改变时，可以此处完成相关的添加、修改、删除操作，并及时将相关信息显示在此界面上。 Private Sub

17、 Option1_Click()If Option1.Value = True ThenAdodc1.RecordSource = select 库存药品.药品ID,药品名称,保质期,现储备量,进货管理.进货价,进货价*现储备量 as 库存药品金额 from 进货管理,库存药品 where 进货管理.药品ID = 库存药品.药品IDAdodc1.Refresh Set DataGrid1.DataSource = Adodc1End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenAdodc2.RecordSour

18、ce = select 进货管理.药品ID,药品名称,进货价,进货量,进货日期,进货价*进货量 as 进货金额 from 进货管理,销售管理 where 进货管理.药品ID = 销售管理.药品IDAdodc2.Refresh Set DataGrid1.DataSource = Adodc2End IfEnd SubPrivate Sub Option3_Click()If Option3.Value = True ThenAdodc3.RecordSource = select 销售管理.药品ID,药品名称,零售价,销售量,销售时间,零售价*销售量 as 销售金额 from 销售管理,进货管

19、理 where 进货管理.药品ID = 销售管理.药品IDAdodc3.Refresh Set DataGrid1.DataSource = Adodc3 End IfEnd SubPrivate Sub mand1_Click()On Error Resume NextIf Text1.Text = Then MsgBox 请输入药品ID先！ ElseIf Form3.Option1.Value = True Then If Text13.Text = Or Text14.Text = Then MsgBox 请把药品信息添加全先，药品ID为数字，无信息可用字符“”代替！ Else Form

20、3.Adodc1.Recordset.AddNew Form3.Adodc1.Recordset.Fields(药品ID) = Text1.Text Form3.Adodc1.Recordset.Fields(现储备量) = Text13.Text Form3.Adodc1.Recordset.Fields(保质期) = Text14.Text Form3.Adodc1.Recordset.Update Text1.Text = Text13.Text = Text14.Text = MsgBox 添加成功！ End If ElseIf Form3.Option2.Value = True T

21、hen If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or _ Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = Or _ Text9.Text = _ Then MsgBox 请把药品信息添加全先，药品ID为数字，无信息可用字符“”代替！ ElseForm3.Adodc2.Recordset.AddNewForm3.Adodc2.Recordset.Fields(药品ID) = Text1.TextForm3.Adodc2.Recordse

22、t.Fields(药品分类) = Text2.TextForm3.Adodc2.Recordset.Fields(药品名称) = Text3.TextForm3.Adodc2.Recordset.Fields(规格型号) = Text4.TextForm3.Adodc2.Recordset.Fields(单位) = Text5.TextForm3.Adodc2.Recordset.Fields(进货价) = Text6.TextForm3.Adodc2.Recordset.Fields(进货量) = Text7.TextForm3.Adodc2.Recordset.Fields(进货日期) =

23、 Text8.TextForm3.Adodc2.Recordset.Fields(药品产地) = Text9.TextForm3.Adodc2.Recordset.Update Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = MsgBox 添加成功！ End If ElseIf Form3.Option3.Value = True Then If Text1.Text = Or Text10.Text = Or

24、 Text11.Text = Or Text12.Text = Then MsgBox 请把药品信息添加全先，药品ID为数字，无信息可用字符“”代替！ ElseForm3.Adodc3.Recordset.AddNewForm3.Adodc3.Recordset.Fields(药品ID) = Text1.TextForm3.Adodc3.Recordset.Fields(零售价) = Text10.TextForm3.Adodc3.Recordset.Fields(销售量) = Text11.TextForm3.Adodc3.Recordset.Fields(销售时间) = Text12.Te

25、xt Form3.Adodc3.Recordset.Update Text1.Text = Text10.Text = Text11.Text = Text12.Text = MsgBox 添加成功！ End IfEnd IfEnd SubPrivate Sub Text8_Click()Text8.Text = DateEnd SubPrivate Sub mand1_Click()On Error Resume NextIf Text1.Text = Then MsgBox 药品ID不可以为空的！ Else If Form3.Option1.Value = True Then Form3.

26、Adodc1.Recordset.Fields(药品ID) = Text1.Text Form3.Adodc1.Recordset.Fields(现储备量) = Text13.Text Form3.Adodc1.Recordset.Fields(保质期) = Text14.Text MsgBox 修改成功！ Form3.Adodc1.Recordset.Update Else If Form3.Option2.Value = True Then Form3.Adodc2.Recordset.Fields(药品ID) = Text1.Text Form3.Adodc2.Recordset.Fie

27、lds(药品分类) = Text2.Text Form3.Adodc2.Recordset.Fields(药品名称) = Text3.Text Form3.Adodc2.Recordset.Fields(规格型号) = Text4.Text Form3.Adodc2.Recordset.Fields(单位) = Text5.Text Form3.Adodc2.Recordset.Fields(进货价) = Text6.Text Form3.Adodc2.Recordset.Fields(进货量) = Text7.Text Form3.Adodc2.Recordset.Fields(进货日期) = Text8.Text Form3.Adodc2.Recordset.Fields(药品产地) = Text9.Text MsgBox 修改成功！ Form3.Adodc2.Recordset.Update Else If Form3.Option3.Value =