企业管理系统.docx

《企业管理系统.docx》由会员分享，可在线阅读，更多相关《企业管理系统.docx（23页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

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

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

5、用用Acccesss作为后后台工作作,本系系统选用用的数据据库语言言，该开开发工具具具有很很多长处处。Visuual Bassic是是一种可可视化的的、面对对对象和和条用事事件驱动动方式的的结构化化高级程程序设计计，可用用于开发发Winndowws环境境下的种种类应用用程序。它简单单易学、效率高高，且功功能强大大，可以以与Wiindoows的的专业开开发工具具SDKK相媲美美， 在在Vissuall Baasicc环境下下，利用用事件驱驱动的编编程机制制、新颖颖易用的的可视化化设计工工具，可可以高效效、快速速地开发发出Wiindoows环环境下功功能强大大、图形形界面丰丰富的应应用软件件系统。

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

7、2系系统数据据流程图图系统的数数据是要要达到数数据的准准确性，数据流流程分析析是系统统分析中中的基础础环节。企业管管理系统统的数据据流程如如图(22-1)数据流流程图第3章系系统设计计图1.22业务流流程图第四章系统实实现第4章 详细设计计41界界面设计计4.1.1 系系统启动动界面设设计图1-44图1-44是本系系统的初初始界面面，其实实现的是是用户登登陆系统统。 Striing namme = txxtNaame.gettTexxt().trrim(); Sttrinng ppasss = Strringg.vaalueeOf(txttPassswoord.gettPassswoord()

8、; iff (nnamee.eqqualls() JJOpttionnPanne.sshowwMesssaggeDiialoog(tthiss, 用户名名, 警告告, JOOptiionPPanee.WAARNIING_MESSSAGGE); ttxtNNamee.reequeestFFocuus(); rretuurn; iff (ppasss.eqqualls() JJOpttionnPanne.sshowwMesssaggeDiialoog(tthiss, 密码, 警告, JOpptioonPaane.WARRNINNG_MMESSSAGEE); ttxtPPasssworrd.rreq

9、uuesttFoccus(); rretuurn; /*创建建UseerTaablee类的对对象*/ UsserTTablle uuserr = neww UsserTTablle(); usser.settUseerNaame(namme); usser.settUseerPaasswwordd(paass); iff (LLogiinBuusinnesss.usserIIsRiightt(usser) MMainnFrmm maainffrm = nnew MaiinFrrm(); MMainnFrmm.seetFrrameeMidddlee(maainffrm); mmainnfrmm.

10、seetViisibble(truue); tthiss.diispoose(); elsse JJOpttionnPanne.sshowwMesssaggeDiialoog(tthiss, 用户名名或密码码错误！, 警警告,JOpttionnPanne.WWARNNINGG_MEESSAAGE); boolleann reet = faalsee; Coonneectiion conn = nulll; PrrepaareddStaatemmentt prrsm = nnulll; ReesulltSeet rrs = nuull; /*存储储sqll语句*/ Sttrinng ssql =

11、 sellectt usserNNamee,usserPPasssworrd ffromm UsserTTablle wwherre uuserrNamme=? annd uuserrPassswoord=?; coon = CoonneectiionMManaagerr.geetCoon(); /与数数据库取取得连接接 trry pprsmm = conn.prrepaareSStattemeent(sqll); /预预编译ssql语语句 pprsmm.seetSttrinng(11, uuserr.geetUsserNNamee(); pprsmm.seetSttrinng(22, uus

12、err.geetUsserPPasssworrd(); rrs = prrsm.exeecutteQuueryy(); iif (rs.nexxt() rett = truue; Sysstemm.ouut.pprinntlnn(查查询成功功！); cattch (SQQLExxcepptioon eex) SSysttem.outt.prrinttln(UsserTTablleDaao类中中的chheckkUseer()方法出出错了 + ex.gettMesssagge(); finnallly CConnnecttionnMannageer.cclosseReet(rrs); CConnn

13、ecttionnMannageer.cclossePrre(pprsmm); CConnnecttionnMannageer.cclosseCoon(ccon); reeturrn rret;4.1.2主界界面的设设计图1-55 图1-55为系统统的主界界面其用用菜单编编辑器完完善了主主界面的的菜单。 Privvatee Suub FFormm_Looad()mzgll.Hiidedljmm.ShhowEnd SubbPrivvatee Suub ssfgll_Cllickk()mzgll.Hiide yffgl.Shoow End Subb4.1.3医院院药房管管理系统统界面图1-66 该该

14、界面显显示了本本系统要要实现的的药品信信息维护护、查询询等功能能。 Privvatee Suub wwh_CClicck()Formm3.SShowwEnd SubbPrivvatee Suub ccx_CClicck()Formm6.SShowwEnd SubbPrivvatee Suub nnotee_Cllickk()Shelll nottepaad.eexe, 11End SubbPrivvatee Suub jjsq_Cliick()Shelll callc.eexe, 11End SubbPrivvatee Suub ttjyhh_Cllickk()Formm9.SShowwEnd

15、 SubbPrivvatee Suub gggmmm_Cllickk()Formm8.SShowwEnd Subb4.2修修改和添添加用户户和密码码4.2.1添加加用户 输入用用户名、密码、确认密密码点确确认就可可以了非非常容易易实现。Privvatee Suub CCommmandd1_CClicck() *此代代码说明明用户添添加完用用户名和和密码后后进* 行确确认的功功能*If TTextt1.TTextt = Or Texxt2.Texxt = ThhenMsgBBox 请输输入用户户名或密密码 EElsee If Texxt2.Texxt = Teext33.Teext TheenF

16、ormm9.AAdoddc1.Reccorddsett.AdddNeewFormm9.AAdoddc1.Reccorddsett.Fiieldds(useer) = Texxt1.TexxtFormm9.AAdoddc1.Reccorddsett.Fiieldds(passswdd) = TTextt2.TTexttFormm9.AAdoddc1.Reccorddsett.Uppdatte MsggBoxx 用用户添加加成功 Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = Formm9.AAdoddc1.Reffressh Ellse: MssgBoo

17、x 两次输输入的密密码不同同，请重重新输入入 Texxt2.Texxt = Texxt3.Texxt = Ennd IIfEnd IfEnd SubbPrivvatee Suub CCommmandd2_CClicck()Unlooad MeEnd SubbPrivvatee Suub FFormm_Looad() LLeftt = (Sccreeen.WWidtth - Wiidthh) / 227 TTop = (Scrreenn.Heeighht - Heeighht) / 22End Subb4.2.2 修改密密码当用户改改完原密密码和用用户口令令后进行行确认的的代码:Privvate

18、e Suub CCommmandd1_CClicck() On Errror Ressumee Neext Adoodc11.Reecorrdseet.MMoveeFirrstAdoddc1.Reccorddsett.Fiind usser= & uuserrnamme & If AAdoddc1.Reccorddsett.Fiieldds(passswdd).Vallue = TTextt1.TTextt Thhen If Texxt2.Texxt = Teext33.Teext Theen Addodcc1.RRecoordsset.Fieeldss(ppassswd).VValuue =

19、 Teext22.Teext Addodcc1.RRecoordsset.Upddatee MssgBoox 密码修修改成功功！, vbbInfformmatiion, 信信息 Teext11.Teext = Teext22.Teext = Teext33.Teext = Elsse MssgBoox 新密码码与验证证码不一一致！, vvbCrritiicall, 错误 Teext11.Teext = Teext22.Teext = Teext33.Teext = 28ElseeMsgBBox 原密密码不正正确！, vvbCrritiicall, 错误 Texxt1.Texxt = Texxt

20、2.Texxt = Texxt3.Texxt = End If EEnd SubbPrivvatee Suub CCommmandd2_CClicck()Unlooad MeEnd Subb退出代码码,可以以回到上上一层界界面:Privvatee Suub FFormm_Looad() LLeftt = (Sccreeen.WWidtth - Wiidthh) / 2 TTop = (Scrreenn.Heeighht - Heeighht) / 22Adoddc1.Reffressh EEnd Subb4.3添添加、修改界面面图 1-7 实现的的功能：当有药药品的进进库，出出库，库库存信息息

21、改变时时，可以以此处完完成相关关的添加加、修改、删除操操作，并并及时将将相关信信息显示示在此界界面上。 Privvatee Suub OOptiion11_Cllickk()If OOptiion11.Vaaluee = Truue TThennAdoddc1.ReccorddSouurcee = seelecct 库库存药品品.药品品ID,药品名名称,保保质期,现储备备量,进进货管理理.进货货价,进进货价*现储备备量 aas 库库存药品品金额 froom 进进货管理理,库存存药品 wheere 进货管管理.药药品IDD = 库存药药品.药药品IDDAdoddc1.Reffressh Sett

22、 DaataGGridd1.DDataaSouurcee = Adoodc11End IfEnd SubbPrivvatee Suub OOptiion22_Cllickk()If OOptiion22.Vaaluee = Truue TThennAdoddc2.ReccorddSouurcee = seelecct 进进货管理理.药品品ID,药品名名称,进进货价,进货量量,进货货日期,进货价价*进货货量 aas 进进货金额额 frrom 进货管管理,销销售管理理 whheree 进货货管理.药品IID = 销售售管理.药品IIDAdoddc2.Reffressh Sett DaataGGri

23、dd1.DDataaSouurcee = Adoodc22End IfEnd SubbPrivvatee Suub OOptiion33_Cllickk()If OOptiion33.Vaaluee = Truue TThennAdoddc3.ReccorddSouurcee = seelecct 销售管管理.药药品IDD,药品品名称,零售价价,销售售量,销销售时间间,零售售价*销销售量 as 销售金金额 ffromm 销售售管理,进货管管理 wwherre 进进货管理理.药品品ID = 销销售管理理.药品品IDAdoddc3.Reffressh Sett DaataGGridd1.DData

24、aSouurcee = Adoodc33 Endd IffEnd SubbPrivvatee Suub CCommmandd1_CClicck()On EErroor RResuume NexxtIf TTextt1.TTextt = Theen MMsgBBox 请输输入药品品ID先先！ EElseeIf Forrm3.Opttionn1.VValuue = Trrue Theen If Texxt133.Teext = OOr TTextt14.Texxt = Thhen MMsgBBox 请把把药品信信息添加加全先，药品IID为数数字，无无信息可可用字符符“”代替！ EElsee FFo

25、rmm3.AAdoddc1.Reccorddsett.AdddNeew FFormm3.AAdoddc1.Reccorddsett.Fiieldds(药品IID) = Texxt1.Texxt FFormm3.AAdoddc1.Reccorddsett.Fiieldds(现储备备量) = Texxt133.Teext FFormm3.AAdoddc1.Reccorddsett.Fiieldds(保质期期) = TTextt14.Texxt FFormm3.AAdoddc1.Reccorddsett.Uppdatte TTextt1.TTextt = TTextt13.Texxt = TText

26、t14.Texxt = MMsgBBox 添加加成功！ Endd Iff ElsseIff Foorm33.Opptioon2.Vallue = TTruee Thhen Iff Teext11.Teext = OOr TTextt2.TTextt = Or Texxt3.Texxt = Orr Teext44.Teext = OOr _ Teext55.Teext = OOr TTextt6.TTextt = Or Texxt7.Texxt = Orr Teext88.Teext = OOr _ Teext99.Teext = _ Thhen MssgBoox 请把药药品信息息添加全全先，药

27、药品IDD为数字字，无信信息可用用字符“”代替！ EElseeFormm3.AAdoddc2.Reccorddsett.AdddNeewFormm3.AAdoddc2.Reccorddsett.Fiieldds(药品IID) = Texxt1.TexxtFormm3.AAdoddc2.Reccorddsett.Fiieldds(药品分分类) = Texxt2.TexxtFormm3.AAdoddc2.Reccorddsett.Fiieldds(药品名名称) = Texxt3.TexxtFormm3.AAdoddc2.Reccorddsett.Fiieldds(规格型型号) = Texxt4.T

28、exxtFormm3.AAdoddc2.Reccorddsett.Fiieldds(单位) = Teext55.TeextFormm3.AAdoddc2.Reccorddsett.Fiieldds(进货价价) = TTextt6.TTexttFormm3.AAdoddc2.Reccorddsett.Fiieldds(进货量量) = TTextt7.TTexttFormm3.AAdoddc2.Reccorddsett.Fiieldds(进货日日期) = Texxt8.TexxtFormm3.AAdoddc2.Reccorddsett.Fiieldds(药品产产地) = Texxt9.TexxtF

29、ormm3.AAdoddc2.Reccorddsett.Uppdatte Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = Texxt4.Texxt = Texxt5.Texxt = Texxt6.Texxt = Texxt7.Texxt = Texxt8.Texxt = Texxt9.Texxt = MsggBoxx 添添加成功功！ Ennd IIf ElsseIff Foorm33.Opptioon3.Vallue = TTruee Thhen Iff Teext11.Teext = OOr TTextt10.Texxt = Orr Teext111

30、.TTextt = Or Texxt122.Teext = TThenn MMsgBBox 请把把药品信信息添加加全先，药品IID为数数字，无无信息可可用字符符“”代替！ EllseFormm3.AAdoddc3.Reccorddsett.AdddNeewFormm3.AAdoddc3.Reccorddsett.Fiieldds(药品IID) = Texxt1.TexxtFormm3.AAdoddc3.Reccorddsett.Fiieldds(零售价价) = TTextt10.TexxtFormm3.AAdoddc3.Reccorddsett.Fiieldds(销售量量) = TTextt1

31、1.TexxtFormm3.AAdoddc3.Reccorddsett.Fiieldds(销售时时间) = Texxt122.Teext Forrm3.Adoodc33.Reecorrdseet.UUpdaate Texxt1.Texxt = Texxt100.Teext = Texxt111.Teext = Texxt122.Teext = MsggBoxx 添添加成功功！ EEnd IfEnd IfEnd SubbPrivvatee Suub TTextt8_CClicck()Textt8.TTextt = DatteEnd SubbPrivvatee Suub CCommmandd1_C

32、Clicck()On EErroor RResuume NexxtIf TTextt1.TTextt = Theen MMsgBBox 药品品ID不不可以为为空的！ EElsee Iff Foorm33.Opptioon1.Vallue = TTruee Thhen Foorm33.Addodcc1.RRecoordsset.Fieeldss(药药品IDD) = TTextt1.TTextt Foorm33.Addodcc1.RRecoordsset.Fieeldss(现现储备量量) = TTextt13.Texxt Foorm33.Addodcc1.RRecoordsset.Fieeldss

33、(保保质期) = Teext114.TTextt MssgBoox 修改成成功！ Foorm33.Addodcc1.RRecoordsset.Upddatee Elsse Iff Foorm33.Opptioon2.Vallue = TTruee Thhen Foorm33.Addodcc2.RRecoordsset.Fieeldss(药药品IDD) = TTextt1.TTextt Foorm33.Addodcc2.RRecoordsset.Fieeldss(药药品分类类) = TTextt2.TTextt Foorm33.Addodcc2.RRecoordsset.Fieeldss(药药品名称称) = TTextt3.TTextt Foorm33.Addodcc2.RRecoordsset.Fieeldss(规规格型号号) = TTextt4.TTextt Foorm33.Addodcc2.RRecoordsset.Fieeldss(单单位) = Texxt5.Tex