企业管理系统目录摘要••••••••••••••••••••••••••••••••••••••••••••••••••••(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)摘要随着信息技术的不断发展，我们对数据和业务的要求越来越高，因此对应聘人员的各种信息进行数字化和网络化的管理也成为必要。
一个完善的应聘人员档案管理不仅有利于企业对应聘人员信息的统计和管理，且有利于提高应聘人员信息查询速度。
该系统分为账户管理模块，应聘人员档案添加、查询、修改模块，专业、民族增删模块，数据的导入、导出模块。
本次设计任务是通过开发一个数据库企业管理系统，采用VB6.0和Access等软件为开发工具；对应用领域进行调查分析；参考各种资料和进行数据库编程实践。
通过我们一个小组三个人的共同努力，已经基本上成功地实现了设计任务书的要求。
使得设计的数据库系统能够实现一般数据库的管理。
我们研究了数据库的查询优化问题.论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。
全文由系统设计、设计工具选择与简介、系统功能的实现等几部分组成。
文中所设计的“企业管理系统”是使用Visual Basic 6.0 中文版作为开发工具，后台数据库则采用Access 2003。
“企业管理系统”为工作人员提供信息咨询等服务。
信息录入项目齐全、完整、系统。
系统灵活使用表格对各种信息分门别类，组成企业管理系统，可以方便地查询、阅读、修改、和使用。
在对企业管理系统各个方面进行调研后，在完成管理系统的设计与实现的基础上,写下这篇论文。
第一章绪论1.1摘要背景企业管理系统使原本手工操作的复杂性、繁琐工作在电脑键盘弹指之间就可轻松完成。
1.2 开发工具的选择数据库系统的开发，作为后台的Access是一个非常理想选择。
数据库是MIS 中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，在本系统中主要采用Access作为后台工作,本系统选用的数据库语言，该开发工具具有很多长处。
Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。
它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，在Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
运用VB在加上Access作为其后台，会使系统更加完善。
第2章需求分析2.1 总体需求调查2.1.1企业的管理功能生产管理、采购管理、销售管理、人事管理、库存管理、财务管理。
采用现有的软硬件及科学的管理系统开发方案，建立企业管理系统，实现企业管理的计算机自动化。
系统应符合企业管理制度，并达到操作直观、方便、实用、安全等要求。
本系统不但可以节省您的时间，而且会使您事半功倍。
2.2系统数据流程图系统的数据是要达到数据的准确性，数据流程分析是系统分析中的基础环节。
企业管理系统的数据流程如图(2-1)《数据流程图》第3章系统设计图1.2业务流程图第四章系统实现第4章详细设计4．1界面设计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 (erIsRight(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.Hidedljm.ShowEnd SubPrivate Sub sfgl_Click()mzgl.Hideyfgl.Show <显示登陆药房管理系统>End Sub4.1.3医院药房管理系统界面图1-6该界面显示了本系统要实现的药品信息维护、查询等功能。
Private Sub wh_Click()Form3.Show <显示药品进销存信息的添加、修改、删除功能界面>End SubPrivate Sub cx_Click()Form6.Show <显示药品进销存信息与相关金额的查询功能界面>End SubPrivate Sub note_Click()Shell "notepad.exe", 1 <此为方便于管理者的记事本辅助功能>End SubPrivate Sub jsq_Click()Shell "calc.exe", 1 <此为方便于管理者的计算器辅助功能>End SubPrivate Sub tjyh_Click()Form9.Show <显示添加用户界面>End SubPrivate Sub ggmm_Click()Form8.Show <显示更改密码界面>End Sub4.2修改和添加用户和密码4.2.1添加用户输入用户名、密码、确认密码点确认就可以了非常容易实现。
Private Sub Command1_Click() *此代码说明用户添加完用户名和密码后进*行确认的功能*If Text1.Text = "" Or Text2.Text = "" ThenMsgBox "请输入用户名或密码"ElseIf Text2.Text = Text3.Text ThenForm9.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 = ""End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Left = (Screen.Width - Width) / 227Top = (Screen.Height - Height) / 2End Sub4.2.2修改密码当用户改完原密码和用户口令后进行确认的代码:Private Sub Command1_Click()On Error Resume NextAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "user='" & username & "'"If Adodc1.Recordset.Fields("passwd").Value = Text1.Text ThenIf Text2.Text = Text3.Text ThenAdodc1.Recordset.Fields("passwd").Value = Text2.TextAdodc1.Recordset.UpdateMsgBox "密码修改成功！", vbInformation, "信息"Text1.Text = ""Text2.Text = ""Text3.Text = ""ElseMsgBox "新密码与验证码不一致！", vbCritical, "错误"Text1.Text = ""Text2.Text = ""Text3.Text = ""28ElseMsgBox "原密码不正确！", vbCritical, "错误"Text1.Text = ""Text2.Text = ""Text3.Text = ""End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub退出代码,可以回到上一层界面:Private Sub Form_Load()Left = (Screen.Width - Width) / 2Top = (Screen.Height - Height) / 2Adodc1.RefreshEnd Sub4.3添加、修改界面图1-7实现的功能：当有药品的进库，出库，库存信息改变时，可以此处完成相关的添加、修改、删除操作，并及时将相关信息显示在此界面上。