搜索
企业管理系统目录摘要••••••••••••••••••••••••••••••••••••••••••••••••••••(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)摘要1随着信息技术的不断发展，我们对数据和业务的要求越来越高，因此对应聘人员的各种信息进行数字化和网络化的管理也成为必要。一个完善的应聘人员档案管理不仅有利于企业对应聘人员信息的统计和管理，且有利于提高应聘人员信息查询速度。该系统分为账户管理模块，应聘人员档案添加、查询、修改模块，专业、民族增删模块，数据的导入、导出模块。本次设计任务是通过开发一个数据库企业管理系统，采用VB6.0和Access等软件为开发工具；对应用领域进行调查分析；参考各种资料和进行数据库编程实践。通过我们一个小组三个人的共同努力，已经基本上成功地实现了设计任务书的要求。使得设计的数据库系统能够实现一般数据库的管理。我们研究了数据库的查询优化问题.论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。全文由系统设计、设计工具选择与简介、系统功能的实现等几部分组成。文中所设计的“企业管理系统”是使用VisualBasic6.0中文版作为开发工具，后台数据库则采用Access2003。“企业管理系统”为工作人员提供信息咨询等服务。信息录入项目齐全、完整、系统。系统灵活使用表格对各种信息分门别类，组成企业管理系统，可以方便地查询、阅读、修改、和使用。在对企业管理系统各个方面进行调研后，在完成管理系统的设计与实现的基础上,写下这篇论文。第一章绪论1.1摘要背景企业管理系统使原本手工操作的复杂性、繁琐工作在电脑键盘弹指之间就可轻松完成。1.2开发工具的选择数据库系统的开发，作为后台的Access是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，在本系统中主要采用Access作为后台工作,本系统选用的数据库语言，该开发工具具有很多长处。2VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。运用VB在加上Access作为其后台，会使系统更加完善。第2章需求分析2.1总体需求调查2.1.1企业的管理功能生产管理、采购管理、销售管理、人事管理、库存管理、财务管理。如图1.1企业组织结构图2.1.2系统目标采用现有的软硬件及科学的管理系统开发方案，建立企业管理系统，实现企业管理的计算机自动化。系统应符合企业管理制度，并达到操作直观、方便、实用、安全等要求。总经理副总副总副总销售部人事部综合部财务部生产部品管部1车间2车间物流部3本系统不但可以节省您的时间，而且会使您事半功倍。2.2系统数据流程图系统的数据是要达到数据的准确性，数据流程分析是系统分析中的基础环节。企业管理系统的数据流程如图(2-1)《数据流程图》第3章系统设计图1.2业务流程图4第四章系统实现第4章详细设计4．1界面设计4.1.1系统启动界面设计5图1-4图1-4是本系统的初始界面，其实现的是用户登陆系统。Stringname=txtName.getText().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;}/**创建UserTable类的对象*/UserTableuser=newUserTable();user.setUserName(name);user.setUserPassword(pass);if(LoginBusiness.userIsRight(user)){MainFrmmainfrm=newMainFrm();MainFrm.setFrameMiddle(mainfrm);mainfrm.setVisible(true);this.dispose();}else{JOptionPane.showMessageDialog(this,用户名或密码错误！！,警告,JOptionPane.WARNING_MESSAGE);}}booleanret=false;6Connectioncon=null;PreparedStatementprsm=null;ResultSetrs=null;/**存储sql语句*/Stringsql=selectuserName,userPasswordfromUserTablewhereuserName=?anduserPassword=?;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(SQLExceptionex){System.out.println(UserTableDao类中的checkUser()方法出错了+ex.getMessage());}finally{ConnectionManager.closeRet(rs);ConnectionManager.closePre(prsm);ConnectionManager.closeCon(con);}returnret;4.1.2主界面的设计图1-57图1-5为系统的主界面其用菜单编辑器完善了主界面的菜单。PrivateSubForm_Load()mzgl.Hidedljm.ShowEndSubPrivateSubsfgl_Click()mzgl.Hideyfgl.Show显示登陆药房管理系统EndSub4.1.3医院药房管理系统界面图1-6该界面显示了本系统要实现的药品信息维护、查询等功能。PrivateSubwh_Click()Form3.Show显示药品进销存信息的添加、修改、删除功能界面EndSubPrivateSubcx_Click()Form6.Show显示药品进销存信息与相关金额的查询功能界面EndSubPrivateSubnote_Click()Shellnotepad.exe,1此为方便于管理者的记事本辅助功能EndSubPrivateSubjsq_Click()8Shellcalc.exe,1此为方便于管理者的计算器辅助功能EndSubPrivateSubtjyh_Click()Form9.Show显示添加用户界面EndSubPrivateSubggmm_Click()Form8.Show显示更改密码界面EndSub4.2修改和添加用户和密码4.2.1添加用户输入用户名、密码、确认密码点确认就可以了非常容易实现。PrivateSubCommand1_Click()*此代码说明用户添加完用户名和密码后进*行确认的功能*IfText1.Text=OrText2.Text=ThenMsgBox请输入用户名或密码ElseIfText2.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.Refresh9Else:MsgBox两次输入的密码不同，请重新输入Text2.Text=Text3.Text=EndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Left=(Screen.Width-Width)/227Top=(Screen.Height-Height)/2EndSub4.2.2修改密码当用户改完原密码和用户口令后进行确认的代码:PrivateSubCommand1_Click()OnErrorResumeNextAdodc1.Recordset.MoveFirstAdodc1.Recordset.Finduser='&username&'IfAdodc1.Recordset.Fields(passwd).Value=Text1.TextThenIfText2.Text=Text3.TextThenAdodc1.Recordset.Fields(passwd).Value=Text2.TextAdodc1.Recordset.UpdateMsgBox密码修改成功！,vbInformation,信息10Text1.Text=Text2.Text=Text3.Text=ElseMsgBox新密码与验证码不一致！,vbCritical,错误Text1.Text=Text2.Text=Text3.Text=28ElseMsgBox原密码不正确！,vbCritical,错误Text1.Text=Text2.Text=Text3.Text=EndIfEndSubPrivateSubCommand2_Click()UnloadMeEnd