人力资源知识_企业管理系统

企业管理系统企业管理系统 目 录 摘 要 ( 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 修改和删除用户和密码 ( 1 2 ) 4.3 删除修改界面 ( 1 5 ) 4.4 系统数据库设计结果 ( 1 5 ) 摘摘 要要 随着信息技术的不断发展，我们对数据和业务的要求越来越高，因此对应 聘人员的各种信息进行数字化和网络化的管理也成为必要。一个完善的应聘人 员档案管理不仅有利于企业对应聘人员信息的统计和管理，且有利于提高应聘 人员信息查询速度。该系统分为账户管理模块，应聘人员档案添加、查询、修 改模块，专业、民族增删模块，数据的导入、导出模块。本次设计任务是通过 开发一个数据库企业管理系统，采用 VB6.0 和 Access 等软件为开发工具；对应 用领域进行调查分析；参考各种资料和进行数据库编程实践。通过我们一个小 组三个人的共同努力，已经基本上成功地实现了设计任务书的要求。使得设计 的数据库系统能够实现一般数据库的管理。我们研究了数据库的查询优化问题 .论 文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。 全文由系统设计、设计工具选择与简介、系统功能的实现等几部分组成。 文中所设计的“企业管理系统”是使用 Visual Basic 6.0 中文版作为开发工 具，后台数据库则采用 Access 2003。 “企业管理系统”为工作人员提供信息咨 询等服务。信息录入项目齐全、完整、系统。系统灵活使用表格对各种信息分 门别类，组成企业管理系统，可以方便地查询、阅读、修改、和使用。 在对企业管理系统各个方面进行调研后，在完成管理系统的设计与实现的基 础上,写下这篇论文。 第一章 绪论 1.1 摘要背景 企业管理系统使原本手工操作的复杂性、繁琐工作在电脑键盘弹指之间就 可轻松完成。 1.21.2 开发工具的选择 数据库系统的开发，作为后台的 Access 是一个非常理想选择。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理是一个重要 的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，在 本系统中主要采用 Access 作为后台工作,本系统选用的数据库语言，该开发工 具具有很多长处。 Visual Basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高 级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率 高，且功能强大，可以与 Windows 的专业开发工具 SDK 相媲美， 在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以 高效、快速地开发出 Windows 环境下功能强大、图形界面丰富的应用软件系统。 运用 VB 在加上 Access 作为其后台，会使系统更加完善。 第 2 章 需求分析 2.1 总体需求调查 2.1.1 企业的管理功能 生产管理、采购管理、销售管理、人事管理、库存管理、财务管理。 如图 1.1企业组织结构图企业组织结构图 总经理 副总副总副总 销售部人事部综合部财务部生产部品管部 1车间 2车间 物流部 2.1.2 系统目标 采用现有的软硬件及科学的管理系统开发方案，建立企业管理系统，实 现企业管理的计算机自动化。 系统应符合企业管理制度，并达到操作直观、方便、实用、安全等要求。 本系统不但可以节省您的时间，而且会使您事半功倍。 2.2 系统数据流程图 系统的数据是要达到数据的准确性，数据流程分析是系统分析中的基础环节。 企业管理系统的数据流程如图(2-1) 数据流程图数据流程图 第 3 章 系统设计 图图 1.21.2 业务流程图业务流程图 第四章第四章 系统实现系统实现 第 4 章 详细设计 41 界面设计 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.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(mainfrm); 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 where 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 (SQLException 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.Hide dljm.Show End Sub Private Sub sfgl_Click() mzgl.Hide yfgl.Show End Sub 4.1.3 医院药房管理系统界面 图 1-6 该界面显示了本系统要实现的药品信息维护、查询等功能。 Private Sub wh_Click() Form3.Show End Sub Private Sub cx_Click() Form6.Show End Sub Private Sub note_Click() Shell “notepad.exe“, 1 End Sub Private Sub jsq_Click() Shell “calc.exe“, 1 End Sub Private Sub tjyh_Click() Form9.Show End Sub Private Sub ggmm_Click() Form8.Show End Sub 4.24.2 修改和添加用户和密码修改和添加用户和密码 4.2.14.2.1 添加用户添加用户 输入用户名、密码、确认密码点确认就可以了非常容易实现。 Private Sub Command1_Click() *此代码说明用户添加完用户名和密 码后进* 行确认的功能* If Text1.Text = “ Or Text2.Text = “ Then MsgBox “请输入用户名或密码“ Else If Text2.Text = Text3.Text Then Form9.Adodc1.Recordset.AddNew Form9.Adodc1.Recordset.Fields(“user“) = Text1.Text Form9.Adodc1.Recordset.Fields(“passwd“) = Text2.Text Form9.Adodc1.Recordset.Update MsgBox “用户添加成功“ Text1.Text = “ Text2.Text = “ Text3.Text = “ Form9.Adodc1.Refresh Else: MsgBox “两次输入的密码不同，请重新输入“ Text2.Text = “ Text3.Text = “ End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Left = (Screen.Width - Width) / 2 27 Top = (Screen.Height - Height) / 2 End Sub 4.2.24.2.2 修改密码 当用户改完原密码和用户口令后进行确认的代码: Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find “user=“ & username & “ If Adodc1.Recordset.Fields(“passwd“).Value = Text1.Text Then If Text2.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 = “ 28 Else MsgBox “原密码不正确！“, vbCritical, “错误“ Text1.Text = “ Text2.Text = “ Text3.Text = “ End If End Sub Private Sub Command2_Click() Unload Me End Sub 退出代码,可以回到上一层界面: Private Sub Form_Load() Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2 Adodc1.Refresh End Sub 4.3 添加、修改界面 图 1-7 实现的功能：当有药品的进库，出库，库存信息改变时，可以此处完成 相关的添加、修改、删除操作，并及时将相关信息显示在此界面上。 Private Sub Option1_Click() If Option1.Value = True Then Adodc1.RecordSource = “select 库存药品.药品 ID,药品名称,保质期,现储备量,进 货管理.进货价,进货价*现储备量 as 库存药品金额 from 进货管理,库存药品 where 进货管理.药品 ID = 库存药品.药品 ID“ Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Adodc2.RecordSource = “select 进货管理.药品 ID,药品名称,进货价,进货量,进货 日期,进货价*进货量 as 进货金额 from 进货管理,销售管理 where 进货管理.药 品 ID = 销售管理.药品 ID“ Adodc2.Refresh Set DataGrid1.DataSource = Adodc2 End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Adodc3.RecordSource = “select 销售管理.药品 ID,药品名称,零售价,销售量,销售 时间,零售价*销售量 as 销售金额 from 销售管理,进货管理 where 进货管理.药 品 ID = 销售管理.药品 ID“ Adodc3.Refresh Set DataGrid1.DataSource = Adodc3 End If End Sub Private Sub Command1_Click() On Error Resume Next If Text1.Text = “ Then MsgBox “请输入药品 ID 先！“ ElseIf Form3.Option1.Value = True Then If Text13.Text = “ Or Text14.Text = “ Then MsgBox “请把药品信息添加全先，药品 ID 为数字， 无信息可用字符“”代替！“ Else Form3.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 Then 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 为数字， 无信息可用字符“”代替！“ Else Form3.Adodc2.Recordset.AddNew Form3.Adodc2.Recordset.Fields(“药品 ID“) = Text1.Text Form3.Adodc2.Recordset.Fields(“药品分类“) = 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 Form3.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 Text11.Text = “ Or Text12.Text = “ Then MsgBox “请把药品信息添加全先，药品 ID 为数字， 无信息可用字符“”代替！“ Else Form3.Adodc3.Recordset.AddNew Form3.Adodc3.Recordset.Fields(“药品 ID“) = Text1.Text Form3.Adodc3.Recordset.Fields(“零售价“) = Text10.Text Form3.Adodc3.Recordset.Fields(“销售量“) = Text11.Text Form3.Adodc3.Recordset.Fields(“销售时间“) = Text12.Text Form3.Adodc3.Recordset.Update Text1.Text = “ Text10.Text = “ Text11.Text = “ Text12.Text = “ MsgBox “添加成功！“ End If End If End Sub Private Sub Text8_Click() Text8.Text = Date End Sub Private Sub Command1_Click() On Error Resume Next If Text1.Text = “ Then MsgBox “药品 ID 不可以为空的！“ Else If Form3.Option1.Value = True Then Form3.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.Fields(“药品分类“) = Text2.Text Form3.Adodc2.Recordset.Fields