OA办公自动化系统 毕业设计 论文.docx

《OA办公自动化系统 毕业设计 论文.docx》由会员分享，可在线阅读，更多相关《OA办公自动化系统 毕业设计 论文.docx（37页珍藏版）》请在第壹文秘上搜索。

1、三OA办公自劭化系统导师学院专业班级学号姓名指师老称摘要【摘要】系统针对企业机关办公中存在的信息不畅、效率底下、操作不规苑等一系列问题。用信息化的手段和新一代规范等一系列问题。用信息化手段和新一代的管理思想供应了强有力的网络化、电子化支持。把协同办公的理念、学问管理的思想带入了现代社会的办公生活，从而提升了现代企业的信息化程度，变更r人们的生活。【关键词】OA办公自动化书目摘要1书目I弓I言11 p二二二二二二二二二二二二二二二二二二二二21.1 需求分析21.2 可行性分析22总体设计22.1 项目规划22.2 系统工作原理网络结构图32.3 系统功能结构图33具体设计33.1 公共模块设计

2、33.2 系统登录设计43.3 主界面设计83.4 新闻管理123.5 传送文件163.6 文件接收193.7 投票活动管理21附录A参考文献25附录B数据表结构26附录C文件架构图31引言在市场竞争过程中，对于一个企业而言，对信息的驾驭程度、信息获得是否与时、信息能否得到充分的利用、对信息的反应是否敏感精确，也越来越成为衡砧一个企业市场竞争实力的市要因素。商场如战场，新一代的斗争是信息化斗争，如何使企业信息化建设完善起来？在这种状况下，开发OA办公自动化系统是当务之急的事了。本系统是以新闻发布、文件传送为核心的办公H动化系统，是一套集新闻管理、文件传送管理、信息发布、人事管理、局域网短消息快

3、速传送等5部分为一体的办公自动化系统。该系统除了必需满意当前的应用要求外，在整套系统的设计过程中，还特地强调了其先进性与可扩展性。当前的信息技术H新月异，假如这套系统只看眼F当前的需求，而忽视r对系统技术的前脂性，可以在不久的将来，系统必将不能满意客户日益增长的需求，导致系统的生命周期缩短，从而增加客户在信息化建设上的投资C1系统分析1.1 褥求分析通过调查，要求系统须要有以下功能： 由于操作人员的计算机学问普遍较差，那么就要求有良好的人机界面。 由，该系统的运用对象多，要求有较好的权限管理。 原始数据修改简洁便利，支持多条件修改C 便利的数据查询，支持多条件杳询. 信息发布与文件传送速度快“

4、 通过计算机，能够干脆“透视”公司的各项工作与活动支配。 图表分析活动投票管理。 在相应的权限下，删除数据便利简洁，数据稳定性好。1.2 可行性分析开发任何一个基于计管机的系统，都会受到时间和资源上的限制。因此，在接受任何一个项目开发任务之前，必需依据客户可能供应的时间和资源条件进行可行性分析，以削减项目开发风险，避开人力、物力和财力的奢侈。本系统数据库采纳目前比较流行的MiCrOSOkSQ1.Server,该数据库系统在平安性、精确性、运行速度方面有肯定的优势，并且处理数据库肽大，效率高；前台采纳MiCroSoft公司的ViSUalBasic6.0作为主要的开发工具，其可与SQ1.Serve

5、r2000数据库无健捱接。2总体设计2.1 项目规划OA办公自动化系统是一个典型的网络办公开发应用程序，包含通知管理模块、新闻管理模块、文件传送管理模块、沟通管理模块、系统维护管理模块5部分组成，规划系统功能模块如下： 通知管理模块该模块主要负责信息的发布、接收等。 新闻管理模块该模块的主要负责新闻的发布、接收等。 文件传送管理模块该模块主要负责文件的传送与接收等。 沟通管理模块该模块主要实现看法反馈、活动投票、短消息服务（局域网）。 系统维护管理模块部门信息的基础设置、职员信息的基础设置、投票活动管理设置、系统操作员与权限设置。图1系统工作原理网络结构图2.3系统功能结构图I7图2系统功能结

6、构图3具体设计3.1公共模块设计为了节约系统资源，实现代码重用，可以在系统中新建个Modulel模块。就本系统而言，该模块主要实现数据库安装和共享数据库连接C系统第一次运用时，依据用户设置的DataBaSeini配置文件，将数据库文件(db-OA-Data.MDF)和数据库日志文件(db_OA_1.og.1.DF)自动安装到指定的SQ1.Server数据库服务器上。为优化ADO+SQ1.数据库的连接，在公共模块(ModUIeI)中建立数据库连接共享字符串。在以后的编程中，假如运用对象访问数据库或ADOData控件访问数据库，则可以干脆将数据摩共享连接字符串(PUbliCStr)值赋值给相应的C

7、onnectionStringWtt,从而避开了通灾建立数据库连接的麻烦，而失去了ADO+SQ1.的优越性能。PublicPublicStrAsStringDimconAsNewADODB.Connection,rsAsNewADODB.RecordsetDimStrAsString,ServerAsString,uidAsString,DimpwdAsStringPublicSubmain()读取数据库配置文件Open(App.Path&,DataBase.ini)ForInputAs#11.ineInput#1,IntextSerVer=MidfIntext,10,1.en(Trim(In

8、text)-9)1.ineInput#1,Intextuid=Mid(Intext,7,1.en(TrimfIntext)-6)1.ineInput#1,Intextpwd=Mid(Intext,7,1.en(Trim(Intext)-6)Close#1附加数据库OnErrorResumeNextCon1ConnectionString=Provider=SQ1.O1.EDB.1;PersistSecurityInfo=FalseiUserID=&uid&;PWD=&pwd&JnitialCatalog=db_OA;DataSource=&SerVer&con.Open打开数据库连接Setrs

9、=NewADODB-Recordset起先附加数据库Str=EXECsp_attach_dbdbnamc=Ndb-SSS,=N+App.Path+DataBasedb-OA-Data.MDF+,=N+App.Path+DataBasedb_OA_1.og.1.DFm+,rs.0penstr,con,1,ad1.ockOptimisticSetrs=con.Execute(Str)con.Close关闭数据库连接共享:连接字符出PublicStr=Provider=SQ1.O1.EDB.1;PersistSecurityInfo=FalseRserID=&uid&;PWD=&pwd&Jnitia

10、lCatalog=db_OA;DataSource=&SerVer&frm_login.ShowEndSub3.2系统登录设计本系统属于OA办公自动化系统，用户权限分为两种：系统管理员和般用户。系统登录验证操作员与其密码，主要通过记录集结果(ReCOrdSCt)结合If语句，推断用户输入的操作员与密码是否符合数据库中的操作员和密码，假如符合则允许登玳，并赐予相应的权限，否则提示用户非法登求。1 .窗体设计新建一个身体,将窗体的“名称”属性设置为frmogin,BorderStyIe属性设置为O-NOne,设置PiCtUre属性，为窗体添加背景图片。(2)添加AdOdC控件，设置名称为ado1.

11、ogin,ViSible属性为False,由于该控件属于ACtiVeX控件，在运用之前必需从“部件”对话框将其添加到工具箱中。添加方法为：在“工程”/“部件”对话在中勾选“MicrosoftdoDataControls6.0(SP4)”列表项。(3)添加2个TextBox控件，分别设置名称(Name属性)为Textl和Text2,设置BorderStyle属性为O-NoneC(4)添加2个1.abel控件,将名称设置为Iab1.Ogin和IabEnd,BackStyle屈性为O-Transparcnto系统登录窗体的设计结果如图3所示。图3系统登录窗体设计2 .代码设计单击名称为Iab1.og

12、in的1.abel控件用来进行用户平安性检查，假如用户名称和密码正确，则进入系统并安排相应的权限。在1.abel控件名称为Iab1.ogin的CliCk事务下，添加代码如下：PrivateSubIab1.ogin-Click()adolx)gin.ConnectionString=PublicStrHdo1.ogin-RecordSource=select*fromtbOA-userwhereusername=+Text1.Text+anduserpwd=+Text2.Text+ado1.ogin.RefreshIfado1.ogin.Recordset.RecordCount0ThenIfa

13、do1.ogin.Recordset.Fields(2).Value=0Thenfrm_mainBefore.Showfrm-mainBefore.System.Enabled=False权限约束frm_mainBefore.StatusBar1.Panels(1).Text=操作职员：&TeXt1TeXt设置控件TreeVieW树状菜单Setnl=frm_mainBefore.TreeViewl.Nodes.Add(,tvwChild三通知管理，通知管理”,DSetnodelfrm_mainBefore.TreeView1.Nodes.Add(n1.Index,tvwChild,发布通知发布

14、通知，DSetnodel=frm_mainBefore.TreeView1.Nodes.Add(n1.Index,tvwChild,接收通知”接收通知，DSetnodel=frm-mainBefore.TreeView1.Nodes.Add(n1.Index,tvwChild,已发通知已发通知”,DSetn2=frm_mainBefore.TreeView1.Nodes.Add(,tvwChildl“新闻管理新闻管理，DSetnnode2=frm_mainBefore.TreeView1.Nodes.Add(n2.Index,tvwChikl,新闻发布“新词发布”,DSetnode2=frm_

15、mainBefore.TreeViewl.Nodes.Add(n2.Index,tvwChild,接收新闻J“接收新闻”,DSetnode2-frm_mainBefore.TreeView1.Nodes.Add(n2.Index,tvwChild,已发新闻”，!已发新闻”，DSetn4=frm_mainBefore.TreeView1.Nodes.Add(,tvwChild文件传送文件传送”，DSetnnode4=frm_mainBefore.TreeViewl.Nodes.Add(n4.Index,tvwChild,传送文件,传送文件，1)Setnode4=frm_mainBefore.TreeView1.Nodes.Add(n4.Index,tvwChild,接收文件J接收文件”,DSetnode4三frm_mainBe