企业管理系统

1、33/34企业管理系统目录 摘 要 (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是一个非常理想选择。数据库是M

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

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

6、理系统的数据流程如图(2-1) 数据流程图 第3章 系统设计 图1.2业务流程图 第四章系统实现详细设计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

7、.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) MainF

8、rm 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语句*/ Str

9、ing 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

10、() 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为系统的主界面其用菜单编辑器完善了主界面的菜单。

11、Private Sub Form_Load() mzgl.Hide dljm.Show End Sub Private Sub 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_Clic

12、k()Shell calc.exe, 1End SubPrivate Sub tjyh_Click()Form9.ShowEnd SubPrivate Sub ggmm_Click()Form8.ShowEnd Sub4.2修改和添加用户和密码 4.2.1 输入用户名、密码、确认密码点确认就可以了非常容易实现。Private Sub Command1_Click() *此代码说明用户添加完用户名和密码后进* 行确认的功能*If Text1.Text = Or Text2.Text = ThenMsgBox 请输入用户名或密码 Else If Text2.Text = Text3.Text Th

13、enForm9.Adodc1.Recordset.AddNewForm9.Adodc1.Recordset.Fields(user) = 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 If End I

14、fEnd Sub Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() Left = (Screen.Width - Width) / 2 27 Top = (Screen.Height - Height) / 2End Sub 4.2.2当用户改完原密码和用户口令后进行确认的代码:Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find user= & username &

15、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.Te

16、xt = Text3.Text = 28 ElseMsgBox 原密码不正确！, vbCritical, 错误 Text1.Text = Text2.Text = Text3.Text = End If End SubPrivate Sub Command2_Click()Unload MeEnd Sub退出代码,可以回到上一层界面:Private Sub Form_Load() Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2Adodc1.Refresh End Sub4.3添加、修改界面图 1-7 实现

17、的功能：当有药品的进库，出库，库存信息改变时，可以此处完成相关的添加、修改、删除操作，并及时将相关信息显示在此界面上。 Private Sub Option1_Click()If Option1.Value = True ThenAdodc1.RecordSource = select 库存药品.药品ID,药品名称,保质期,现储备量,进货管理.进货价,进货价*现储备量 as 库存药品金额 from 进货管理,库存药品 where 进货管理.药品ID = 库存药品.药品IDAdodc1.Refresh Set DataGrid1.DataSource = Adodc1End IfEnd SubP

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

19、urce = select 销售管理.药品ID,药品名称,零售价,销售量,销售时间,零售价*销售量 as 销售金额 from 销售管理,进货管理 where 进货管理.药品ID = 销售管理.药品IDAdodc3.Refresh Set DataGrid1.DataSource = Adodc3 End IfEnd SubPrivate Sub Command1_Click()On Error Resume NextIf Text1.Text = Then MsgBox 请输入药品ID先！ ElseIf Form3.Option1.Value = True Then If Text13.Tex

20、t = 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.Te

21、xt = 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.

22、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 Fo

23、rm3.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 添加

24、成功！ 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.

25、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 IfEnd IfEnd SubPrivate Sub Text8_Click()Text8.Text = DateEnd SubPrivate Sub Command1_Click()On Error Resu

26、me NextIf 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 Form