企业管理系统

1、第一章论? ? ? ? ? ?4)1.1摘要背景 ? ? ? ? ?4)1.2开发工具的选择 ? ? ? ?4)第二章系统需求与分析? ? ? ? ?5)2.1总体需求调查 ? ? ? ? ?5)企业管理系统2)要 ? ? ? ? ? ? ?( 5)2.2系统数据流程分析?( 5 )2.1.1企业的管理功能 ? ? ( 5 )2.1.2 系统目标调查 ? ? ? ?3.1 系统总体结构图第三章 系统设计 ? ? ? ? ( 6)? ( 8 )第四章 详细设计 ? ? ? ? ?( 9 )4.1界面设计? ? ? ? ( 9 )4.2修改和删除用户和密码? ( 1 2 )4.3删除修改界面 ?(

2、 1 5 )4.4系统数据库设计结果?( 1 5 )摘要随着信息技术的不断发展， 我们对数据和业务的要求越来越高， 因此对应聘 人员的各种信息进行数字化和网络化的管理也成为必要。 一个完善的应聘人员档 案管理不仅有利于企业对应聘人员信息的统计和管理， 且有利于提高应聘人员信 息查询速度。该系统分为账户管理模块，应聘人员档案添加、查询、修改模块， 专业、民族增删模块，数据的导入、导出模块。本次设计任务是通过开发一个数 据库企业管理系统，采用 VB6.0和Access等软件为开发工具；对应用领域进行 调查分析； 参考各种资料和进行数据库编程实践。 通过我们一个小组三个人的共 同努力，已经基本上成功

3、地实现了设计任务书的要求。 使得设计的数据库系统能 够实现一般数据库的管理。 我们研究了数据库的查询优化问题 .论文主要介绍了 本课题的开发背景，所要完成的功能和开发的过程。全文由系统设计、 设计工具选择与简介、 系统功能的实现等几部分组成。 文 中所设计的“企业管理系统”是使用 Visual Basic 6.0中文版作为开发工具，后台数据库则采用 Access 2003 。“企业管理系统”为工作人员提供信息咨询等 服务。信息录入项目齐全、 完整、系统。系统灵活使用表格对各种信息分门别类， 组成企业管理系统，可以方便地查询、阅读、修改、和使用。在对企业管理系统各个方面进行调研后，在完成管理系统

4、的设计与实现的基 础上, 写下这篇论文。第一章 绪论1.1 摘要背景企业管理系统使原本手工操作的复杂性、 繁琐工作在电脑键盘弹指之间就可 轻松完成。1.2 开发工具的选择数据库系统的开发， 作为后台的 Access 是一个非常理想选择。 数据库是 MIS 中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题， 目前，数据库产品较多， 每种产品都具有各自的特点和适用范围， 在本系统中主 要采用 Access 作为后台工作 , 本系统选用的数据库语言， 该开发工具具有很多长 处。Visual Basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高 级程序设计，可用于开

5、发 Windows环境下的种类应用程序。它简单易学、效率高, 且功能强大，可以与 Windows的专业开发工具 SDK相媲美， 在Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快 速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。运用VB在加上Access作为其后台，会使系统更加完善。第2章需求分析2.1总体需求调查2.1.1企业的管理功能生产管理、采购管理、销售管理、人事管理、库存管理、财务管理如图1.1企业组织结构图2.1.2系统目标采用现有的软硬件及科学的管理系统开发方案，建立企业管理系统，实现企业管理的计算机自动化。系统

6、应符合企业管理制度，并达到操作直观、方便、实用、安全等要求。本系统不但可以节省您的时间，而且会使您事半功倍。2.2系统数据流程图系统的数据是要达到数据的准确性，数据流程分析是系统分析中的基础环节 企业管理系统的数据流程如图(2-1)数据流程图第3章系统设计图1.2业务流程图第四章系统实现第4章详细设计4.1界面设计员工信息录入姓名：年薪:工号：性别职垃年蟄确定4.1.1系统启动界面设计图1-4图1-4是本系统的初始界面，其实现的是用户登陆系统。Stri ng n ame = txtName.getText().trim();Stri ng pass = Str in g.valueOf(txt

7、Password.getPassword();if (n ame.equals("") JOptionPane.showMessageDialog(this,"用户名","警告",JOpti onPan e.WARNING_MESSAGE); txtName.requestFocus();return;if (pass.equals("") JOptionPane.showMessageDialog(this,"密码","警告",JOpti onPan e.WARNING_M

8、ESSAGE); txtPassword.requestFocus();return;/*创建UserTable类的对象*/UserTable user = new UserTable();user.setUserName( name);user.setUserPassword(pass);if (Log in Bus in ess.userIsRight(user) Mai nFrm mainfrm = new Mai nFrm();Mai nF rm.setFrameMiddle(mai nfrm);mai nfrm.setVisible(true); this.dispose(); el

9、se JOptionPane.showMessageDialog(this,"用户名或密码错误！ JOpti onPan e.WARNING_MESSAGE);boolea n ret = false;Conn ecti on con = n ull;PreparedStateme nt prsm = n ull;ResultSet rs = null;/*存储sql语句*/Stri ng sql = "select userName,userPassword from UserTable where userName=? and userPassword=?"c

10、on = ConnectionManager.getCon(); / 与数据库取得连接try prsm = con.prepareStatement(sql); / 预编译 sql 语句prsm.setStri ng(1, user.getUserName();prsm.setStri ng(2, user.getUserPassword();rs = prsm.executeQuery();if (rs. next() ret = true;System.out.println("查询成功！"); catch (SQLExcepti on ex) System.out.p

11、rintln("UserTableDao 类中的 checkUser()方法岀错了 " + ex.getMessage(); fin ally Conn ecti onMan ager.closeRet(rs);Conn ectio nMan ager.closePre(prsm);Conn ecti onMan ager.closeC on(con);return ret;4.1.2主界面的设计图1-5图1-5为系统的主界面其用菜单编辑器完善了主界面的菜单Private Sub Form_Load()mzgl.Hidedljm.ShowEnd SubPrivate Sub

12、 sfgl_Click()mzgl.Hide yfgl.ShowEnd Sub显示登陆药房管理系统4.1.3医院药房管理系统界面图1-6该界面显示了本系统要实现的药品信息维护、查询等功能。Private Sub wh_Click()Form3.Show显示药品进销存信息的添加、修改、删除功能界面End SubPrivate Sub cx_Click()Form6.Show<显示药品进销存信息与相关金额的查询功能界面>End SubPrivate Sub n ote_Click()Shell " notepad.exe", 1<此为方便于管理者的记事本辅助功

13、能 >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 Textl.T

14、ext = "" Or Text2.Text = "" The nMsgBox "请输入用户名或密码"ElseIf Text2.Text = Text3.Text The nForm9.Adodc1.Recordset.AddNewForm9.Adodc1.Recordset.Fields("user") = Textl.TextForm9.Adodc1.Recordset.Fields("passwd") = Text2.TextForm9.Adodc1.Recordset.UpdateMsg

15、Box "用户添加成功"Textl.Text =""Text2.Text =""Text3.Text =""Form9.Adodc1.RefreshElse: MsgBox "两次输入的密码不同，请重新输入"Text2.Text =""Text3.Text =""End IfEnd IfEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd SubPrivate Sub Form_Load()Left = (Sc

16、ree n. Width - Width) / 227Top = (Scree n.Height - Height) / 2 End Sub4.2.2修改密码当用户改完原密码和用户口令后进行确认的代码Private Sub Comma nd1_Click()On Error Resume NextAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "user='" & username & "”'If Adodc1.Recordset.Fields("passwd").

17、Value = Text1.Text The nIf Text2.Text = Text3.Text The nAdodc1.Recordset.Fields("passwd").Value = Text2.TextAdodc1.Recordset.UpdateMsgBox "密码修改成功！ ", vbI nformatio n," 信息"Text1.Text = ""Text2.Text = ""Text3.Text = ""ElseMsgBox " 新密码与验证

18、码不一致！ ", vbCritical, "错误 "Text1.Text = ""Text2.Text = ""Text3.Text = ""28ElseMsgBox "原密码不正确！ ", vbCritical, "错误 "Text1.Text = ""Text2.Text = ""Text3.Text = ""End IfEnd SubPrivate Sub Command2_Click()Unload

19、 MeEnd Sub退出代码 , 可以回到上一层界面 :Private Sub Form_Load()Left = (Screen.Width - Width) / 2Top = (Screen.Height - Height) / 2Adodc1.RefreshEnd Sub4.3 添加 、修改界面图1-7实现的功能：当有药品的进库，出库，库存信息改变时，可以此处完成 相关的添加、修改、删除操作，并及时将相关信息显示在此界面上。Private Sub Optio n1_Click()If Optio n1.Value = True The nAdodc1.RecordSource = &qu

20、ot;select库存药品药品ID,药品名称保质期现储备量，进 货管理.进货价，进货价*现储备量as库存药品金额from进货管理，库存药品 where进货管理.药品ID =库存药品.药品ID"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfEnd SubPrivate Sub Optio n2_Click()If Optio n2.Value = True The nAdodc2.RecordSource = "select进货管理药品ID,药品名称，进货价,进货量，进货 日期,进货价*进货量as进货金额from进货

21、管理，销售管理where进货管理.药 品ID =销售管理.药品ID"Adodc2.RefreshSet DataGrid1.DataSource = Adodc2End IfEnd SubPrivate Sub Optio n3_Click()If Optio n3.Value = True The nAdodc3.RecordSource = "select销售管理药品ID,药品名称，零售价,销售量,销售时间,零售价*销售量as销售金额from销售管理，进货管理where进货管理.药品ID =销售管理.药品ID"Adodc3.RefreshSet DataGri

22、d1.DataSource = Adodc3End IfEnd Sub <此部分是当点击不同的 Option按扭时，上面的DataGrid控件显示不同表的药 品信息。添加和删除按扭可打开新的窗体来实现其功能，删除记录时只要直接 在DataGrid表里选中它删就可以了。为了方便，把这些功能都做到一个界面上 了。 >Private Sub Comma nd1_Click() On Error Resume NextIf Text1.Text = "" The nMsgBox "请输入药品ID先!ElseIf Form3.Optio n1.Value = T

23、rue The nIf Text13.Text = "" Or Text14.Text = "" The nMsgBox "请把药品信息添加全先，药品 ID 为数字， 无信息可用字符“”代替！ "ElseForm3.Adodc1.Recordset.AddNewForm3.Adodc1.Recordset.Fields（药品 ID"）=Text1.TextForm3.Adodc1 .Recordset.Fields（现储备量"）=Text13.TextForm3.Adodc1.Recordset.Fields（保质

24、期"）=Text14.TextForm3.Adodc1.Recordset.UpdateText1.Text = ""Text13.Text = ""Text14.Text = ""MsgBox "添加成功！ " End IfElseIf Form3.Option2.Value = True ThenIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" OrText4.Text = &q

25、uot;" Or _Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or _Text9.Text = "" _ThenMsgBox "请把药品信息添加全先，药品 ID 为数字， 无信息可用字符“”代替！ "ElseForm3.Adodc2.Recordset.AddNewForm3.Adodc2.Recordset.Fields（药品 ID"） = Textl

26、.TextForm3.Adodc2.Recordset.Fields（药品分类"）=Text2.TextForm3.Adodc2.Recordset.Fields（药品名称"）=Text3.TextForm3.Adodc2.Recordset.Fields（规格型号"）=Text4.TextForm3.Adodc2.Recordset.Fields（单位"）=Text5.TextForm3.Adodc2.Recordset.Fields（进货价"）=Text6.TextForm3.Adodc2.Recordset.Fields（进货量"

27、;）=Text7.TextForm3.Adodc2.Recordset.Fields（进货日期"）=Text8.TextForm3.Adodc2.Recordset.Fields（药品产地"）=Text9.TextForm3.Adodc2.Recordset.UpdateText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text

28、7.Text = ""Text8.Text = ""Text9.Text = "" MsgBox "添加成功！ " End IfElseIf Form3.Option3.Value = True ThenIf Text1.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" ThenMsgBox "请把药品信息添加全先，药品 ID 为数字，

29、无信息可用字符“”代替！ "ElseForm3.Adodc3.Recordset.AddNewForm3.Adodc3.Recordset.Fields（药品 ID"） = Textl.TextForm3. Adodc3.Recordset.Fields（零售价"）=TextIO.TextForm3 .A dodc3.Recordset.Fields（销售量"）=Textll.TextForm3.Adodc3.Recordset.Fields（销售时间"）=Text12.Text Form3.Adodc3.Recordset.Update Te

30、xt1.Text = ""Text1O.Text = ""Text11.Text = ""Text12.Text = "" MsgBox "添加成功！ "End IfEnd IfEnd SubPrivate Sub Text8_Click（）Text8.Text = DateEnd SubPrivate Sub Comma nd1_Click（）On Error Resume NextIf Text1.Text = "" The nMsgBox "药品ID不可以为空

31、的！"ElseIf Form3.Optio n1.Value = True The nForm3.Adodc1.Recordset.Fields（药品 ID"） = Text1.TextForm3.Adodc1.Recordset.Fields（现储备量"）=Text13.TextForm3.Adodc1.Recordset.Fields（保质期"）=Text14.TextMsgBox "修改成功！"Form3.Adodc1.Recordset.UpdateElseIf Form3.Optio n2.Value = True The nForm3.Adodc2