企业管理系统

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

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

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

4、有各自的特点和适用范围，在本系统中主要采用Access作为后台工作,本系统选用的数据库语言，该开发工具具有很多长处。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美， 在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。运用VB在加上Access作为其后台，会使系统更加完善。第2章 需求分析2.1 总体需求调查企业的管理功

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

6、是本系统的初始界面，其实现的是用户登陆系统。 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, 密码

7、, 警告, 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(t

8、rue); 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 userPa

9、ssword=?; con = ConnectionManager.getCon(); /与数据库取得连接 try prsm = con.prepareStatement(sql); /预编译sql语句tString(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(User

10、TableDao类中的checkUser()方法出错了 + ex.getMessage(); finally ConnectionManager.closeRet(rs); ConnectionManager.closePre(prsm); ConnectionManager.closeCon(con); return ret;主界面的设计 图1-5 图1-5为系统的主界面其用菜单编辑器完善了主界面的菜单。 Private Sub Form_Load() End Sub Private Sub sfgl_Click() yfgl.Show End Sub医院药房管理系统界面图1-6 该界面显示

11、了本系统要实现的药品信息维护、查询等功能。 Private Sub wh_Click()End SubPrivate Sub cx_Click()End SubPrivate Sub note_Click()Shell notepad.exe, 1End SubPrivate Sub jsq_Click()Shell calc.exe, 1End SubPrivate Sub tjyh_Click()End SubPrivate Sub ggmm_Click()End Sub 4.添加用户 输入用户名、密码、确认密码点确认就可以了非常容易实现。Private Sub Command1_Clic

12、k() *此代码说明用户添加完用户名和密码后进* 行确认的功能*If Text1.Text = Or Text2.Text = ThenMsgBox 请输入用户名或密码 Else If Text2.Text = Text3.Text Then.AddNew MsgBox 用户添加成功 Text1.Text = Text2.Text = Text3.Text = Else: MsgBox 两次输入的密码不同，请重新输入 Text2.Text = Text3.Text = End If End IfEnd Sub Private Sub Command2_Click()Unload MeEnd S

13、ubPrivate Sub Form_Load() Left = (Screen.Width - Width) / 2 27 Top = (Screen.Height - Height) / 2End Sub 4. 修改密码当用户改完原密码和用户口令后进行确认的代码:Private Sub Command1_Click() On Error Resume Next rstAdodc1.Recordset.Find user= & username & If Adodc1.Recordset.Fields(passwd).Value = Text1.Text Then If Text2.Text

14、 = Text3.Text Then MsgBox 密码修改成功！, vbInformation, 信息 Text1.Text = Text2.Text = Text3.Text = Else MsgBox 新密码与验证码不一致！, vbCritical, 错误 Text1.Text = Text2.Text = Text3.Text = 28 ElseMsgBox 原密码不正确！, vbCritical, 错误 Text1.Text = Text2.Text = Text3.Text = End If End SubPrivate Sub Command2_Click()Unload MeE

15、nd Sub退出代码,可以回到上一层界面:Private Sub Form_Load() Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2 End Sub添加、修改界面图 1-7 实现的功能：当有药品的进库，出库，库存信息改变时，可以此处完成相关的添加、修改、删除操作，并及时将相关信息显示在此界面上。 Private Sub Option1_Click()If Option1.Value = True ThenAdodc1.RecordSource = select 库存药品.药品ID,药品名称,保质期,现

16、储备量,进货管理.进货价,进货价*现储备量 as 库存药品金额 from 进货管理,库存药品 where 进货管理.药品ID = 库存药品.药品ID Set DataGrid1.DataSource = Adodc1End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True ThenAdodc2.RecordSource = select 进货管理.药品ID,药品名称,进货价,进货量,进货日期,进货价*进货量 as 进货金额 from 进货管理,销售管理 where 进货管理.药品ID = 销售管理.药品ID Set Data

17、Grid1.DataSource = Adodc2End IfEnd SubPrivate Sub Option3_Click()If Option3.Value = True ThenAdodc3.RecordSource = select 销售管理.药品ID,药品名称,零售价,销售量,销售时间,零售价*销售量 as 销售金额 from 销售管理,进货管理 where 进货管理.药品ID = 销售管理.药品ID Set DataGrid1.DataSource = Adodc3 End IfEnd SubPrivate Sub Command1_Click()On Error Resume

18、NextIf Text1.Text = Then MsgBox 请输入药品ID先！ ElseIf Form3.Option1.Value = True Then If Text13.Text = Or Text14.Text = Then MsgBox 请把药品信息添加全先，药品ID为数字，无信息可用字符“”代替！ Else Text1.Text = Text13.Text = Text14.Text = MsgBox 添加成功！ End If ElseIf Form3.Option2.Value = True Then If Text1.Text = Or Text2.Text = Or T

19、ext3.Text = Or Text4.Text = Or _ Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = Or _ Text9.Text = _ Then MsgBox 请把药品信息添加全先，药品ID为数字，无信息可用字符“”代替！ Else 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 =