企业管理系统

1、PAGE PAGE 27企业管理系统目录 摘 要 (2)第一章 绪绪 论 (4)1.1 摘摘要背景景 (4)1.2 开开发工具具的选择择 (4)第二章 系系统需求求与分析 (55)2.1 总总体需求求调查 (5)2.1.11 企业的管理功能能 (5)2.1.22 系统统目标调调查 (5) 2.22系统数数据流程程分析(5)第三章 系系统设计计 (66)3.1 系系统总体体结构图图 (8)第四章 详详细设计计(9)4.1界面面设计 (99)4.2修改改和删除除用户和和密码 (12)4.3删除除修改界界面(15)4.4系统统数据库库设计结结果(155) 摘 要随着信息技技术的不不断发展展，我们们对

2、数据据和业务务的要求求越来越越高，因因此对应应聘人员员的各种种信息进进行数字字化和网网络化的的管理也也成为必必要。一一个完善善的应聘聘人员档档案管理理不仅有有利于企企业对应应聘人员员信息的的统计和和管理，且且有利于于提高应应聘人员员信息查查询速度度。该系系统分为为账户管管理模块块，应聘人人员档案案添加、查查询、修修改模块块，专业业、民族族增删模模块，数数据的导导入、导导出模块块。本次次设计任任务是通通过开发发一个数数据库企企业管理理系统，采采用VBB6.00和Acccesss等软件件为开发发工具；对应用用领域进进行调查查分析；参考各各种资料料和进行行数据库库编程实实践。通通过我们们一个小小组三

3、个个人的共共同努力力，已经经基本上上成功地地实现了了设计任任务书的的要求。使使得设计计的数据据库系统统能够实实现一般般数据库库的管理理。我们们研究了了数据库库的查询询优化问问题 .论文主主要介绍绍了本课课题的开开发背景景，所要要完成的的功能和和开发的的过程。 全文由系统统设计、设设计工具具选择与与简介、系系统功能能的实现现等几部部分组成成。文中中所设计计的“企业管理理系统”是使用用Vissuall Baasicc 6.0 中中文版作作为开发发工具，后后台数据据库则采采用Acccesss 220033。“企业管管理系统统”为工作作人员提提供信息息咨询等等服务。信信息录入入项目齐齐全、完完整、系系

4、统。系系统灵活活使用表表格对各各种信息息分门别别类，组组成企业业管理系系统，可可以方便便地查询询、阅读读、修改改、和使使用。 在对企业业管理系系统各个个方面进进行调研研后，在在完成管管理系统统的设计计与实现现的基础础上,写写下这篇篇论文。 第一章 绪论论1.1 摘摘要背景景企业管理系系统使原本手工工操作的的复杂性、繁琐琐工作在在电脑键键盘弹指指之间就就可轻松松完成。1.2 开发工工具的选选择数据库系统统的开发发，作为为后台的的Acccesss是一个个非常理理想选择择。数据据库是MMIS中中的重要要支持技技术，在在MISS开发过过程中，如如何选择择数据库库管理是是一个重重要的问问题，目目前，数数

5、据库产产品较多多，每种种产品都都具有各各自的特特点和适适用范围围，在本本系统中中主要采采用Acccesss作为为后台工工作,本本系统选选用的数数据库语语言，该该开发工工具具有有很多长长处。Visuaal BBasiic是一一种可视视化的、面面对对象象和条用用事件驱驱动方式式的结构构化高级级程序设设计，可可用于开开发Wiindoows环环境下的的种类应应用程序序。它简简单易学学、效率率高，且且功能强强大，可可以与WWinddowss的专业业开发工工具SDDK相媲媲美， 在Viisuaal BBasiic环境境下，利利用事件件驱动的的编程机机制、新新颖易用用的可视视化设计计工具，可可以高效效、快速

6、速地开发发出Wiindoows环环境下功功能强大大、图形形界面丰丰富的应应用软件件系统。运用VB在在加上AAcceess作作为其后后台，会会使系统统更加完完善。第2章 需求分分析2.1 总体需需求调查查2.1.11企业的管理功功能生产管理、采采购管理理、销售售管理、人人事管理理、库存存管理、财财务管理理。如图1.11企业组组织结构构图总经理总经理副总副总副总销售部人事部综合部财务部生产部品管部1车间2车间物流部2.1.22系统目目标采用现有的的软硬件件及科学学的管理理系统开开发方案案，建立立企业管理理系统，实实现企业业管理的的计算机机自动化化。系统应符合合企业管理理制度，并并达到操操作直观观、

7、方便便、实用用、安全全等要求求。本系统不但但可以节节省您的的时间，而而且会使使您事半半功倍。2.2系统统数据流流程图 系统的的数据是是要达到到数据的的准确性性，数据据流程分分析是系系统分析析中的基基础环节节。企业业管理系系统的数数据流程程如图(2-11) 数据据流程图图 第3章 系统设计计 图1.2业务务流程图图 第四章系统实实现详细设计41界面面设计 4.1.1 系系统启动动界面设设计图1-4图1-4是是本系统统的初始始界面，其其实现的的是用户户登陆系系统。 Strringg naame = ttxtNNamee.geetTeext().ttrimm(); Strringg paass =

8、SStriing.vallueOOf(ttxtPPasssworrd.ggetPPasssworrd(); if (naame.equualss() JOOptiionPPanee.shhowMMesssageeDiaalogg(thhis, 用用户名, 警告, JOpptioonPaane.WARRNINNG_MMESSSAGEE); txxtNaame.reqquesstFoocuss(); reeturrn; if (paass.equualss() JOOptiionPPanee.shhowMMesssageeDiaalogg(thhis, 密密码, 警警告, JOOptiionPPa

9、nee.WAARNIING_MESSSAGGE); txxtPaasswwordd.reequeestFFocuus(); reeturrn; /*创建UUserrTabble类类的对象象*/ UseerTaablee usser = nnew UseerTaablee(); useer.ssetUUserrNamme(nnamee); useer.ssetUUserrPassswoord(passs); if (LooginnBussineess.useerIssRigght(useer) MaainFFrm maiinfrrm = neew MMainnFrmm(); MaainFFrm.

10、settFraameMMidddle(maiinfrrm); maainffrm.settVissiblle(ttruee); thhis.dissposse(); eelsee JOOptiionPPanee.shhowMMesssageeDiaalogg(thhis, 用用户名或或密码错错误！, 警告告, JOOptiionPPanee.WAARNIING_MESSSAGGE); booleean rett = fallse; Connnecctioon ccon = nnulll; PreeparredSStattemeent prssm = nuull; RessulttSett rs

11、s = nulll; /*存储ssql语语句*/ Strringg sqql = sseleect useerNaame,useerPaasswwordd frrom UseerTaablee whheree usserNNamee=? andd usserPPasssworrd=?; conn = ConnnecctioonMaanagger.gettConn(); /与数据据库取得得连接 tryy prrsm = ccon.preeparreSttateemennt(ssql); /预编编译sqql语句句 prrsm.settStrringg(1, usser.gettUseerNaame

12、(); prrsm.settStrringg(2, usser.gettUseerPaasswwordd(); rss = prssm.eexeccuteeQueery(); iff (rrs.nnextt() rret = ttruee; SSysttem.outt.prrinttln(查询询成功！); ccatcch (SQLLExccepttionn exx) Syysteem.oout.priintlln(UseerTaableeDaoo类中的的cheeckUUserr()方方法出错错了 + ex.gettMesssagge(); ffinaallyy CoonneectiionMMa

13、naagerr.clloseeRett(rss); CoonneectiionMManaagerr.clloseePree(prrsm); CoonneectiionMManaagerr.clloseeConn(coon); retturnn reet;4.1.22主界面面的设计计 图1-5 图1-5为为系统的的主界面面其用菜菜单编辑辑器完善善了主界界面的菜菜单。 PPrivvatee Suub FFormm_Looad() mzggl.HHidee dljjm.SShoww End SSub Privaate Subb sffgl_Cliick() mzggl.HHidee yfggl.SS

14、howw End SSub4.1.33医院药房房管理系系统界面面图1-6 该界界面显示示了本系系统要实实现的药药品信息息维护、查查询等功功能。 Privaate Subb whh_Cllickk()Form33.ShhowEnd SSubPrivaate Subb cxx_Cllickk()Form66.ShhowEnd SSubPrivaate Subb noote_Cliick()Shelll nnoteepadd.exxe, 1End SSubPrivaate Subb jssq_CClicck()Shelll ccalcc.exxe, 1End SSubPrivaate Subb tj

15、jyh_Cliick()Form99.ShhowEnd SSubPrivaate Subb gggmm_Cliick()Form88.ShhowEnd SSub4.2修改改和添加加用户和和密码 4.2.11添加用用户 输入入用户名名、密码码、确认认密码点点确认就就可以了了非常容容易实现现。Privaate Subb Coommaand11_Cllickk() *此代码码说明用用户添加加完用户户名和密密码后进进* 行确认认的功能能*If Teext11.Teext = OOr TTextt2.TTextt = TheenMsgBoox 请输入入用户名名或密码码 Ellse If TTextt2.

16、TTextt = Texxt3.Texxt TThennForm99.Addodcc1.RRecoordsset.AdddNewwForm99.Addodcc1.RRecoordsset.Fieeldss(uuserr) = TTextt1.TTexttForm99.Addodcc1.RRecoordsset.Fieeldss(ppassswd) = Teext22.TeextForm99.Addodcc1.RRecoordsset.Upddatee MMsgBBox 用户户添加成成功 TTextt1.TTextt = TTextt2.TTextt = TTextt3.TTextt = For

17、m99.Addodcc1.RRefrreshh Elsse: MsggBoxx 两两次输入入的密码码不同，请请重新输输入 TTextt2.TTextt = TTextt3.TTextt = Endd Iff End IIfEnd SSub Priivatte SSub Commmannd2_Cliick()Unloaad MMeEnd SSubPrivaate Subb Foorm_Loaad() Leeft = (Scrreenn.Wiidthh - Widdth) / 2 27 Toop = (SScreeen.Heiightt - Heiightt) / 2End SSub 4.2.22

18、 修修改密码码当用户改完完原密码码和用户户口令后后进行确确认的代代码:Privaate Subb Coommaand11_Cllickk() OOn EErroor RResuume Nexxt AAdoddc1.Reccorddsett.MooveFFirsstAdodcc1.RRecoordsset.Finnd useer= & ussernnamee & If Addodcc1.RRecoordsset.Fieeldss(ppassswd).VValuue = Teext11.Teext Theen IIf TTextt2.TTextt = Texxt3.Texxt TThenn Ado

19、odc11.Reecorrdseet.FFiellds(paasswwd).Vaaluee = Texxt2.Texxt Adoodc11.Reecorrdseet.UUpdaate MsggBoxx 密密码修改改成功！, vbIInfoormaatioon, 信息息 Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = EElsee MsggBoxx 新新密码与与验证码码不一致致！, vbbCriiticcal, 错错误 Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = 288 ElseMsgBoox 原密码码不正确

20、确！, vbbCriiticcal, 错错误 TTextt1.TTextt = TTextt2.TTextt = TTextt3.TTextt = End IIf Ennd SSubPrivaate Subb Coommaand22_Cllickk()Unloaad MMeEnd SSub退出代码,可以回回到上一一层界面面:Privaate Subb Foorm_Loaad() Leeft = (Scrreenn.Wiidthh - Widdth) / 2 Toop = (SScreeen.Heiightt - Heiightt) / 2Adodcc1.RRefrreshh Ennd SSub

21、4.3添加加、修改界面面图 1-77 实实现的功功能：当当有药品品的进库库，出库库，库存存信息改改变时，可可以此处处完成相相关的添添加、修改、删除操操作，并并及时将将相关信信息显示示在此界界面上。 Privaate Subb Opptioon1_Cliick()If Opptioon1.Vallue = TTruee ThhenAdodcc1.RRecoordSSourrce = sellectt 库存存药品.药品IID,药药品名称称,保质质期,现现储备量量,进货货管理.进货价价,进货货价*现现储备量量 ass 库存存药品金金额 ffromm 进货货管理,库存药药品 wwherre 进进货管理

22、理.药品品ID = 库库存药品品.药品品IDAdodcc1.RRefrreshh SSet DattaGrrid11.DaataSSourrce = AAdoddc1End IIfEnd SSubPrivaate Subb Opptioon2_Cliick()If Opptioon2.Vallue = TTruee ThhenAdodcc2.RRecoordSSourrce = sellectt 进货货管理.药品IID,药药品名称称,进货货价,进进货量,进货日日期,进进货价*进货量量 ass 进货货金额 froom 进进货管理理,销售售管理 wheere 进货管管理.药药品IDD = 销售管管

23、理.药药品IDDAdodcc2.RRefrreshh SSet DattaGrrid11.DaataSSourrce = AAdoddc2End IIfEnd SSubPrivaate Subb Opptioon3_Cliick()If Opptioon3.Vallue = TTruee ThhenAdodcc3.RRecoordSSourrce = sellectt 销销售管理理.药品品ID,药品名名称,零零售价,销售量量,销售售时间,零售价价*销售售量 aas 销销售金额额 frrom 销售管管理,进进货管理理 whheree 进货货管理.药品IID = 销售售管理.药品IIDAdodcc

24、3.RRefrreshh SSet DattaGrrid11.DaataSSourrce = AAdoddc3 End IfEnd SSubPrivaate Subb Coommaand11_Cllickk()On Errrorr Reesumme NNexttIf Teext11.Teext = TThenn MssgBoox 请输入入药品IID先！ EllseIIf FFormm3.OOptiion11.Vaaluee = Truue TThenn IIf TTextt13.Texxt = Orr Teext114.TTextt = Theen MssgBoox 请把药药品信息息添加全全先

25、，药药品IDD为数字字，无信信息可用用字符“”代替！ Ellse Foorm33.Addodcc1.RRecoordsset.AdddNeww Foorm33.Addodcc1.RRecoordsset.Fieeldss(药药品IDD) = TTextt1.TTextt Foorm33.Addodcc1.RRecoordsset.Fieeldss(现现储备量量) = TTextt13.Texxt Foorm33.Addodcc1.RRecoordsset.Fieeldss(保保质期) = Teext114.TTextt Foorm33.Addodcc1.RRecoordsset.Upddate

26、e Teext11.Teext = Teext113.TTextt = Teext114.TTextt = MssgBoox 添加成成功！ EEnd If EElseeIf Forrm3.Opttionn2.VValuue = Trrue Theen If Texxt1.Texxt = Orr Teext22.Teext = OOr TTextt3.TTextt = Or Texxt4.Texxt = Orr _ Texxt5.Texxt = Orr Teext66.Teext = OOr TTextt7.TTextt = Or Texxt8.Texxt = Orr _ Texxt9.Texx

27、t = _ Theen MsggBoxx 请请把药品品信息添添加全先先，药品品ID为为数字，无无信息可可用字符符“”代替！ Ellse FFormm3.AAdoddc2.Reccorddsett.AdddNeew FFormm3.AAdoddc2.Reccorddsett.Fiieldds(药品IID) = Texxt1.Texxt FFormm3.AAdoddc2.Reccorddsett.Fiieldds(药品分分类) = Texxt2.Texxt FFormm3.AAdoddc2.Reccorddsett.Fiieldds(药品名名称) = Texxt3.Texxt FFormm3.AA

28、doddc2.Reccorddsett.Fiieldds(规格型型号) = Texxt4.Texxt FFormm3.AAdoddc2.Reccorddsett.Fiieldds(单位) = Teext55.Teext FFormm3.AAdoddc2.Reccorddsett.Fiieldds(进货价价) = TTextt6.TTextt FFormm3.AAdoddc2.Reccorddsett.Fiieldds(进货量量) = TTextt7.TTextt FFormm3.AAdoddc2.Reccorddsett.Fiieldds(进货日日期) = Texxt8.Texxt FForm

29、m3.AAdoddc2.Reccorddsett.Fiieldds(药品产产地) = Texxt9.Texxt FFormm3.AAdoddc2.Reccorddsett.Uppdatte TTextt1.TTextt = TTextt2.TTextt = TTextt3.TTextt = TTextt4.TTextt = TTextt5.TTextt = TTextt6.TTextt = TTextt7.TTextt = TTextt8.TTextt = TTextt9.TTextt = MMsgBBox 添加加成功！ Endd Iff EElseeIf Forrm3.Opttionn3.V

30、Valuue = Trrue Theen If Texxt1.Texxt = Orr Teext110.TTextt = Or Texxt111.Teext = OOr TTextt12.Texxt = Thhen MssgBoox 请把药药品信息息添加全全先，药药品IDD为数字字，无信信息可用用字符“”代替！ Elsse Forrm3.Adoodc33.Reecorrdseet.AAddNNew Forrm3.Adoodc33.Reecorrdseet.FFiellds(药品品ID) = Teext11.Teext Forrm3.Adoodc33.Reecorrdseet.FFiellds(

31、零售售价) = Texxt100.Teext Forrm3.Adoodc33.Reecorrdseet.FFiellds(销售售量) = Texxt111.Teext Forrm3.Adoodc33.Reecorrdseet.FFiellds(销售售时间) = Teext112.TTextt FFormm3.AAdoddc3.Reccorddsett.Uppdatte TTextt1.TTextt = TTextt10.Texxt = TTextt11.Texxt = TTextt12.Texxt = MMsgBBox 添加加成功！ Ennd IIfEnd IIfEnd SSubPrivaat

32、e Subb Teext88_Cllickk()Text88.Teext = DDateeEnd SSubPrivaate Subb Coommaand11_Cllickk()On Errrorr Reesumme NNexttIf Teext11.Teext = TThenn MssgBoox 药品IID不可可以为空空的！ Ellse If Forrm3.Opttionn1.VValuue = Trrue Theen Forrm3.Adoodc11.Reecorrdseet.FFiellds(药品品ID) = Teext11.Teext Forrm3.Adoodc11.Reecorrdsee

33、t.FFiellds(现储储备量) = Teext113.TTextt Forrm3.Adoodc11.Reecorrdseet.FFiellds(保质质期) = Texxt144.Teext MsggBoxx 修修改成功功！ Forrm3.Adoodc11.Reecorrdseet.UUpdaate EElsee If Forrm3.Opttionn2.VValuue = Trrue Theen Forrm3.Adoodc22.Reecorrdseet.FFiellds(药品品ID) = Teext11.Teext Forrm3.Adoodc22.Reecorrdseet.FFiellds(