公司管理系统论文.doc

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

1、题延安大年夜学西安创新学院专业综合课程方案目：集团公司管理系统班姓学级：名：号：打算机科学与技能陈涛11501指导教师：柴荣军职称：工程师1前言.-3-1.1课题的背景跟意思.-3-1.2研究内容.-3-2系统调研.-4-2.1系统调研.-4-2.2可行性分析.-4-3系统分析.-5-3.2数据流程分析.-6-4系统方案.-6-4.1功能方案.-7-4.2功能结构方案.-7-5系统完成.-8-5.1登录模块完成.-8-5.2主界面方案完成.-10-5.3管理员设置界面完成.-12-5.4各公司界面完成5.5各货色界面完成5.6各员工界面完成5.7帮助界面完成.-13-.-15-.-22-.-2

2、6-6使用说明.-27-7总结.-27-1前言1.1课题的背景跟意思随着打算机的普及，越来越多的企业开始自己的业务通过使用打算机管理，他们不断想有一个优良的管理软件，以帮助他们提高任务效能跟管理水平。该软件有用于集团式公司管理，采用最新的把持系统管理数据，用户将把持更随便，更直不雅观，更便当。每个系统可以是一个独破的业务管理模块来独破把持，系统可以大年夜大年夜提高企业管理效能。随着科学与技能，打算机科学的成熟，使用该关于大年夜多数人来说，微小的功能掉掉落不断提高见解，发挥着越来越要紧的感染。它已进入人类社会的各个范围，并集团业务在打算机的使用，有入手工管理无法比拟的优点。比如：经济快速，随便寻

3、到的，可靠性高，存储量大年夜，安全性高跟本钞票低。这些优点可以极大年夜地提高业务的管理的效能。1.2研究内容管理信息系统是一个收集、传输、存储、加工、输出、爱护、管理跟使用信息的人机系统，它不仅可以停顿数据处理，同时还将数据处理与优化的经济管理模型、仿真技能等结合起来，向各级指导供应决定支持信息。开始朝着智能化、收集化、分布式的倾向展开。现在，国际特不多范围，树破、银行、农业、税务、石油化工、公安等都有差异层次、差异典范的管理信息系统的使用。本课题的研究目的是对集团公司业务流程状况停顿管理。功能。1.存在管理员与用户权限区不。2.主模块：下属公司，货色，人员档案，系统设置。3.窗体存在全然功能

4、：最大年夜化，最小化，封锁等功能。要紧完成以下几多个4.存在特定权限的用户登录后可以停顿各种信息的录入、删除与修改把持。5.一般用户登录后可以按照特定的条件查征询统计各种信息。2系统调研需求调研分析阶段研究的货色是软件工程的用户恳求。包括两个方面：一要单方面理解用户的各项恳求，也不克不迭接受所有的恳求；二，要精确地表达被接受的用户恳求。只需通过的确描画的软件需求才能成为软件方案的基础。2.1系统调研本次假设陈氏集团公司停顿示场调研，理解了公司的相当结构结构跟业务流程。1、公司现状本次调研的公司是其中小型的中介公司，公司现有人员12人，要紧是下属公司管理人员。公司管理人员有店长跟店员，局部包括集

5、团总部、水果店、超市、影院、交易系统、图书管理、餐饮等几多个局部。2、业务现状公司现要紧采用收集对业务停顿管理。有公司的管理系统对企业停顿信息化跟标准化管理，大年夜大年夜落低了任务效能。业务要紧是各公司的畸形事情。2.2可行性分析可行性研究的目的的确是在尽可以短的时辰内用最小的代价判定征询题是否能够处理。可行性研究的目的不是处理征询题，而是判定征询题是否值得去解。可行性研究的实质是要停顿一次大年夜大年夜压缩简化的系统分析跟方案过程。该当从下述三方面研究每种解法的可行性。1、把持的可行性分析一般来说，至少系统的登录界面庞杂跟友好，采用稀有的界面窗口的登录界面，而系统的开发那么采用的是较为常用的V

6、B语言开拓。这些策使得用户不需求特不长的时辰就能够快速熟悉系统，并把持系统的把持办法。不的，为了便当系统管理爱护人员，用户登录系统后会给出了一些提示，使得全体系统更加人性化，用户把持更庞杂便当。2、社会可行性分析企业要暂时生涯，你必须先有一个优良的企业文化，其次需求有一个完满的管理，再采用科学的办法完成可接着展开，最后还要与时俱进，不断革新，使企业的研究所的时辰去适应社会的变卦。最要紧的是要确保科学的管理办法，为企业获得长远展开的竞争力提高的唯一路途。3、技能可行性分析本次拟采用VisualBasic作为开拓货色，访征询数据库采用ADO数据库访征询技能，数据库采用ACCESS树破。方案一个基于

7、ADO的房屋中介管理系统的方案与完成。1硬件可行性分析系统的硬件恳求方面不存在特不的恳求，只需求在一般的硬件设置就可以轻松的完成，只是需求确保系统的畸形任务即可，以及拥有较高的效能。假设有特不低的硬件，它可以导致系统的低功能以及效能低，从而导致全体系统的运行不顺畅。以现在普遍的集团打算机的设置而言，这是特不随便完成的团管理系统的开拓在硬件方面是可行的。2软件可行性分析。因此，集VB语言供应了一个共同的机制类似的设辞静态模型，方案更汇合。不的，在使用VB语言可以特不随便完成模块化跟存储信息。不的，代码复用，也可以特不好的表达。因此，考虑到系统的理论状况，选择VB作为集团管理系统开拓语言的时候。通

8、过上述分析，该系统的方案完成在软件方面是可行的。因此，我们停顿了三个方面的可行性研究，可以看出，该系统的开拓是不征询题的。3系统分析在软件工程中，软件生命周期中的系统分析，包括判定系统必须存在的功能跟功能，系统恳求的运行状况。同时猜想系统展开的近景，必须仔细分析系统中的数据，既要分析系统中的数据流，又要分析暂时使用的数据存储。通过分析该当得出用业务流图、数据字典，可行性分析等外容，为系统的方案奠定基础。3.1业务流程分析图3-1登录界面3.2数据流程分析数据流程分析一般采用数据流图表示。包括内部实体、数据流、加工处理、数据文件表。一般用图内部实数据加3-2表示。图3-2数据流全然图数据流表文件

9、内部实体，内部实体指系统之外的实体，不在系统中的单位或人物，但是这些实体与系统之间有信息转达关系。在集团公司管理系统中，内部实体无效户跟管理员等。数据流，数据流是指系统中用于表示交流与转达的数据，房屋中介管理系统的要紧数据流有出租数据、出售数据等等。处理加工。处理加工是指系统对数据的把持加工或处理。房屋中介管理系统处理加工有交易等。数据存储。也的确是文件，指系统所存储数据的文件。房屋中介管理系统的文件包括业务记录等。4系统方案在系统方案阶段，要着重处理“怎样做的征询题。将系统的逻辑模型转化为系统的信息结构或数据库物理方式及软件结构，并方案每个软件模块的输出、输出格式，形成系统方案说明书或系统方

10、案文档，作为系统实施阶段编程的开门见山按照。4.1功能方案按照系统功能需求分析，对系统功能进进的方案跟分析。功能分析的过程的确是一个由抽象到详细的过程。为了提高集团公司业务管理水平，减轻集团公司管理人员的苏息强度，提高对信息处理速度与信息的精确性；为把持员供应更便当、科学的效力。方案了本集团管理系统，同时给把持员供应的一种更提高、科学的效力系统。用打算机来方案一个集团公司管理系统的方案。度上完成自动化。让打算机对房屋中介公司的数据库信息停顿管理，息化的管理。作为租赁数据库系统，其要紧完成的功能应包括以下并能在肯定程完成公司信7个模块：1管理员登录模块：需求有管理员名称与密码：输出差错时要提示，

11、错3次不克不迭再输出；精确时进入主界面。管理员也可重置密码。2系统管理模块：用户跟密码管理；可以对这些信息停顿修改、删除。用户管理包括添加用户跟删除用户，用户数据为用户名称跟密码权限。密码管理对当前用户的密码停顿修改。必须供应当前的密码才能对密码停顿修改，提高了系统的安全性。3公司管理模块：包括各公司信息添加、查征询等。4员工管理模块：包括员工信息管理的添加、查征询。4.2功能结构方案在本系统方案阶段，功能结构采用结构化的系统方案办法，将集团公司管理系统的逻辑模型转化为信息结构或数据库物理方式及软件结构，并形成集团公司管理系统方案说明书或方案文档，作为本系统完成阶段编程的要紧按照。按照系统功能

12、需求分析、功能方案跟系统功能停顿的方案跟分析。功能结构图的确是按功能隶属关系画成的图表，图中的每一个框称为一个功能模块。我们将全体系统分析成相对独破的假设干模块，通过对模块之间关系的调跟来完成全体软件系统的功能，从而掉掉落系统的功能模块结构图。如图4-1。管理系统下共有系统关于。5个模块为：系统管理，员工信息管理，下属公司管理，用户管系统管密码修员工信员工信员工信陈氏集团公司管理系统公司各各公公司司信信图4-2功能结构图系统关系统关帮助文5系统完成分歧的人机界面不至于会添加用户的担当，让用户不断用一致种办法考虑与把持。最忌讳的是每换一个屏幕用户就要换一套把持命令与把持办法。5.1登录模块完成如

13、图5-1为房屋中介管理系统的登录界面方案。此模块要紧功能是用于登录本系统，起首将从登录窗体提交的用户名跟密码停顿接受，之后在后台停顿处理，按照用户名在数据库中停顿查征询假设查到该用户那么将该用户的名称跟密码全都取出来分不赋给两个字符串变量，揣摸从数据库中读出的密码与登录时输出的密码是否配比上，假设两个密码一样那么按照权限的值进入主界面，否那么输出密码差错。假设三次错，就自动参与系统。如斯提高了系统的可靠性。登录界面的方案：添加SDI窗体命名为公司内部管理系统。再加1个textbox跟combo。Textbox方案password为密码格式。添加两个label。详细方案如图。代码如下：Dimti

14、mAsIntegerPrivateSubcmdcancel_click()DimmessageAsString图5-1登录界面IfCombo1.Text=adminAndtext2.Text=123Then登录界面.Hide桌面界面.ShowElseIftim=3Thenmessage=MsgBox(密码输出差错，请向管理员查征询！,0,)Ifmessage=vbOKThenEndEndIfMsgBox(密码差错，请重新输出密码！)tim=tim+1EndIfEndSubPrivateSubcmdok_Click()Combo1.Text=text2.Text=EndSub5.2主界面方案完成

15、系统主界面无效SDI窗体如图5-2,要紧是菜单式管理，要紧菜单如下：系统管理、下属公司信息、员工信息管理、查征询、关于帮助。系统管理模块包括用户管理跟密码修改；下属公司信息模块包括公司信息，添加信息跟查征询；员工信息管理模块员工信息，添加信息跟查征询；系统关于模块包括系统关于跟帮助文件。图5-2主界面代码如下：PrivateSubb_Click()系统文件.ShowEndSubPrivateSubc_Click()打算器.ShowEndSubPrivateSube_Click()各公司软件系统.ShowEndSubPrivateSubg_Click()管理员设置.ShowEndSubPriva

16、teSubh_Click()管理员设置.ShowEndSubPrivateSubi_Click()人员奖惩.ShowEndSubPrivateSubj_Click()参与界面.ShowEndSubPrivateSubn_Click()帮助.ShowEndSubPrivateSubr_Click()各公司形成.ShowEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Callx_ClickCase2Callc_ClickEndSelectEndSubPri

17、vateSubu_Click()管理员设置.ShowEndSubPrivateSubw_Click()各公司资料.ShowEndSubPrivateSubx_Click()视频.ShowEndSubPrivateSuby_Click()人员档案查征询.ShowEndSub5.3管理员设置界面完成管理员设置界面包括管理员登录跟密码管理如图录用户的密码停顿修改。图5-3密码修改图5-4管理员登录代码如下；DimtimAsIntegerPrivateSubCommand1_Click()DimmessageAsStringIfText1.Text=adminAndText2.Text=123Then

18、管理员设置.Hide管理员设置界面.ShowElseIftim=3Then5-3。密码管理是对当前登message=MsgBox(密码输出差错，请向管理员查征询！,0,)Ifmessage=vbOKThen警告.ShowEndIfMsgBox(密码差错，请重新输出密码！)tim=tim+1EndIfEndSubPrivateSubCommand2_Click()DimmessageAsStringIfText1.Text=adminAndText2.Text=123Then管理员设置.Hide人员档案管理.ShowElseIftim=3Thenmessage=MsgBox(密码输出差错，请向管

19、理员查征询！,0,)Ifmessage=vbOKThen警告.ShowEndIfMsgBox(密码差错，请重新输出密码！)tim=tim+1EndIfEndSub5.4各公司界面完成图5-5各公司系统出口代码如下：PrivateSubCommand1_Click()四季水果店.ShowEndSubPrivateSubCommand2_Click()超市.ShowEndSubPrivateSubCommand3_Click()登陆界面.ShowEndSubPrivateSubCommand4_Click()博瑞影视.ShowEndSubPrivateSubCommand5_Click()亮阳餐饮

20、.ShowEndSubPrivateSubCommand6_Click()图书管理.ShowEndSub图5-6各公司资料查征询代码如下：PrivateSubCommand1_Click()IfCombo1.Text=公司名称ThenAdodc1.RecordSource=select*from称=&Trim(Text1.Text)&Adodc1.RefreshExitSub各公司资料where公司名ElseIfCombo1.Text=公司担负人ThenAdodc1.RecordSource=select*from责人=&Trim(Text1.Text)&各公司资料where公司负Adodc1

21、.RefreshExitSubElseIfCombo1.Text=公司工程ThenAdodc1.RecordSource=select*from目=&Trim(Text1.Text)&Adodc1.RefreshExitSubEndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSub5.5各货色界面完成图5-7打算器代码如下：PublicaAsStringPublicbAsSinglePubliccAsSinglePrivateSubCommand1_Click(IndexAsInteger)Text1.Text=Text1.Text&0EndSub

22、PrivateSubCommand10_Click()Text1.Text=Text1.Text&9EndSubPrivateSubCommand11_Click()各公司资料where公司项Text1.Text=Text1.Text&.EndSubPrivateSubCommand12_Click()Ifb=1ThenText1.Text=Val(Text1.Text)+Val(a)Ifc=0ThenLabel1.Caption=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label

23、2.CaptionLabel2.Caption=Text1.TextEndIfEndIfIfb=2ThenText1.Text=Val(a)-Val(Text1.Text)Ifc=0ThenLabel1.Caption=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label2.CaptionLabel2.Caption=Text1.TextEndIfEndIfIfb=3ThenText1.Text=Val(Text1.Text)*Val(a)Ifc=0ThenLabel1.Captio

24、n=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label2.CaptionLabel2.Caption=Text1.TextEndIfEndIfIfb=4ThenText1.Text=Val(a)/Val(Text1.Text)Ifc=0ThenLabel1.Caption=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label2.CaptionLabel2.Caption=

25、Text1.TextEndIfEndIfEndSubPrivateSubCommand13_Click()b=1a=Text1.TextVal(a)Text1.Text=EndSubPrivateSubCommand14_Click()IfText1.Text=ThenText1.Text=-Elseb=2a=Text1.TextText1.Text=EndIfEndSubPrivateSubCommand15_Click()b=3a=Text1.TextText1.Text=EndSubPrivateSubCommand16_Click()b=4a=Text1.TextText1.Text=

26、EndSubPrivateSubCommand17_Click()Text1.Text=EndSubPrivateSubCommand18_Click()IfVal(Text1.Text)0ThenText1.Text=输出差错，请输出正数！ElseText1.Text=Sqr(Val(Text1.Text)Ifc=0ThenLabel1.Caption=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label2.CaptionLabel2.Caption=Text1.TextEndIf

27、EndIfEndSubPrivateSubCommand19_Click()DimtAsSingleDimkAsSinglek=Val(Text1.Text):t=1Ifk0ThenText1.Text=输出差错，请输出正数！ElseIfk*10Mod100ThenText1.Text=输出差错，请输出整数！ElseDot=t*kk=k-1LoopUntilk=1Text1.Text=tIfc=0ThenLabel1.Caption=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Labe

28、l2.CaptionLabel2.Caption=Text1.TextEndIfEndIfEndSubPrivateSubCommand2_Click()Text1.Text=Text1.Text&1EndSubPrivateSubCommand21_Click()Text1.Text=Cos(Val(Text1.Text)Ifc=0ThenLabel1.Caption=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label2.CaptionLabel2.Caption=Text1.T

29、extEndIfEndSubPrivateSubCommand22_Click()Text1.Text=Tan(Val(Text1.Text)Ifc=0ThenLabel1.Caption=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label2.CaptionLabel2.Caption=Text1.TextEndIfEndSubPrivateSubCommand20_Click()Text1.Text=Sin(Val(Text1.Text)Ifc=0ThenLabel1.Capti

30、on=Text1.Textc=c+1ElseIfc=1Thenc=c+1Label2.Caption=Text1.TextElseLabel1.Caption=Label2.CaptionLabel2.Caption=Text1.TextEndIfEndSubPrivateSubCommand3_Click()Text1.Text=Text1.Text&2EndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text&3EndSubPrivateSubCommand5_Click()Text1.Text=Text1.Text&4EndSubPriva

31、teSubCommand6_Click()Text1.Text=Text1.Text&5EndSubPrivateSubCommand7_Click()Text1.Text=Text1.Text&6EndSubPrivateSubCommand8_Click()Text1.Text=Text1.Text&7EndSubPrivateSubCommand9_Click()Text1.Text=Text1.Text&8EndSubPrivateSubForm_Load()Label3.Caption=NowEndSubPrivateSubLabel1_Click()Text1.Text=Label1.CaptionEndSubPrivateSubLabel2_Click()Text1.Text=Label2.CaptionEndSub5.6各员工界面完成