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

三OA办公自劭化系统导师学院专业班级学号姓名指师老称摘要【摘要】系统针对企业机关办公中存在的信息不畅、效率底下、操作不规苑等一系列问题。用信息化的手段和新一代规范等一系列问题。用信息化手段和新一代的管理思想供应了强有力的网络化、电子化支持。把协同办公的理念、学问管理的思想带入了现代社会的办公生活，从而提升了现代企业的信息化程度，变更r人们的生活。【关键词】OA办公自动化书目摘要1书目I弓I言11 p'二二二二二二二二二二二二二二二二二二二二21.1 需求分析21.2 可行性分析22总体设计22.1 项目规划22.2 系统工作原理网络结构图32.3 系统功能结构图33具体设计33.1 公共模块设计33.2 系统登录设计43.3 主界面设计83.4 新闻管理123.5 传送文件163.6 文件接收193.7 投票活动管理21附录A参考文献25附录B数据表结构26附录C文件架构图31引言在市场竞争过程中，对于一个企业而言，对信息的驾驭程度、信息获得是否与时、信息能否得到充分的利用、对信息的反应是否敏感精确，也越来越成为衡砧一个企业市场竞争实力的市要因素。商场如战场，新一代的斗争是信息化斗争，如何使企业信息化建设完善起来？在这种状况下，开发OA办公自动化系统是当务之急的事了。本系统是以新闻发布、文件传送为核心的办公H动化系统，是一套集新闻管理、文件传送管理、信息发布、人事管理、局域网短消息快速传送等5部分为一体的办公自动化系统。该系统除了必需满意当前的应用要求外，在整套系统的设计过程中，还特地强调了其先进性与可扩展性。当前的信息技术H新月异，假如这套系统只看眼F当前的需求，而忽视r对系统技术的前脂性，可以在不久的将来，系统必将不能满意客户日益增长的需求，导致系统的生命周期缩短，从而增加客户在信息化建设上的投资C1系统分析1.1 褥求分析通过调查，要求系统须要有以下功能： 由于操作人员的计算机学问普遍较差，那么就要求有良好的人机界面。 由，该系统的运用对象多，要求有较好的权限管理。 原始数据修改简洁便利，支持多条件修改C 便利的数据查询，支持多条件杳询. 信息发布与文件传送速度快“ 通过计算机，能够干脆“透视”公司的各项工作与活动支配。 图表分析活动投票管理。 在相应的权限下，删除数据便利简洁，数据稳定性好。1.2 可行性分析开发任何一个基于计管机的系统，都会受到时间和资源上的限制。因此，在接受任何一个项目开发任务之前，必需依据客户可能供应的时间和资源条件进行可行性分析，以削减项目开发风险，避开人力、物力和财力的奢侈。本系统数据库采纳目前比较流行的MiCrOSOkSQ1.Server,该数据库系统在平安性、精确性、运行速度方面有肯定的优势，并且处理数据库肽大，效率高；前台采纳MiCroSoft公司的ViSUalBasic6.0作为主要的开发工具，其可与SQ1.Server2000数据库无健捱接。2总体设计2.1 项目规划OA办公自动化系统是一个典型的网络办公开发应用程序，包含通知管理模块、新闻管理模块、文件传送管理模块、沟通管理模块、系统维护管理模块5部分组成，规划系统功能模块如下： 通知管理模块该模块主要负责信息的发布、接收等。 新闻管理模块该模块的主要负责新闻的发布、接收等。 文件传送管理模块该模块主要负责文件的传送与接收等。 沟通管理模块该模块主要实现看法反馈、活动投票、短消息服务（局域网）。 系统维护管理模块部门信息的基础设置、职员信息的基础设置、投票活动管理设置、系统操作员与权限设置。图1系统工作原理网络结构图2.3系统功能结构图I7图2系统功能结构图3具体设计3.1公共模块设计为了节约系统资源，实现代码重用，可以在系统中新建个Modulel模块。就本系统而言，该模块主要实现数据库安装和共享数据库连接C系统第一次运用时，依据用户设置的DataBaSeini配置文件，将数据库文件(db-OA-Data.MDF)和数据库日志文件(db_OA_1.og.1.DF)自动安装到指定的SQ1.Server数据库服务器上。为优化ADO+SQ1.数据库的连接，在公共模块(ModUIeI)中建立数据库连接共享字符串。在以后的编程中，假如运用对象访问数据库或ADOData控件访问数据库，则可以干脆将数据摩共享连接字符串(PUbliCStr)值赋值给相应的ConnectionStringWtt,从而避开了通灾建立数据库连接的麻烦，而失去了ADO+SQ1.的优越性能。PublicPublicStrAsStringDimconAsNewADODB.Connection,rsAsNewADODB.RecordsetDimStrAsString,ServerAsString,uidAsString,DimpwdAsStringPublicSubmain()'读取数据库配置文件Open(App.Path&',DataBase.ini")ForInputAs#11.ineInput#1,IntextSerVer=MidfIntext,10,1.en(Trim(Intext)-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=NewADODB-Recordset'起先附加数据库Str='EXECsp_attach_dbdbnamc=N'db-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&"JnitialCatalog=db_OA;DataSource="&SerVer&""frm_login.ShowEndSub3.2系统登录设计本系统属于OA办公自动化系统，用户权限分为两种：系统管理员和般用户。系统登录验证操作员与其密码，主要通过记录集结果(ReCOrdSCt)结合If语句，推断用户输入的操作员与密码是否符合数据库中的操作员和密码，假如符合则允许登玳，并赐予相应的权限，否则提示用户非法登求。1 .窗体设计新建一个身体,将窗体的“名称”属性设置为frmogin,BorderStyIe属性设置为O-NOne,设置PiCtUre属性，为窗体添加背景图片。(2)添加AdOdC控件，设置名称为ado1.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.ogin的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.RecordCount>0ThenIfado1.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,"发布通知"发布通知"，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_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