2022年办公自动化系统毕业设计方案范文.docx

《2022年办公自动化系统毕业设计方案范文.docx》由会员分享，可在线阅读，更多相关《2022年办公自动化系统毕业设计方案范文.docx（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、OA 办公自动化系统学院专业班级学号姓名指导老师老师职称年月日摘要【摘要】系统针对企业机关办公中存在的信息不畅、效率底下、操作不规范等一系列问题；用信息化的手段和新一代规范等一系列问题；用信息化手段和新一代的治理思想供应了强有力的网络化、电子化支持；把协同办公的理念、学问治理的思想带入了现代社会的办公生活，从而提升了现代企业的信息化程度，转变了人们的生活；【关键词】 OA 办公自动化目录摘要 1目录 1引言 11 系统分析 11.1 需求分析 11.2 可行性分析12 总体设计 12.1 工程规划 12.2 系统工作原理网络结构图22.3 系统功能结构图33 具体设计 33.1公共模块设计33

2、.2系统登录设计43.3主界面设计63.4新闻治理 93.5传送文件 133.6文件接收 153.7附录 A投票活动治理参考文献 1917附录 B数据表结构 20附录 C文件架构图 22引言在市场竞争过程中，对于一个企业而言，对信息的把握程度、信息猎取是否准时、信息能否得到充分的利用、对信息的反应是否敏锐精确，也越来越成为衡量一个企业市场竞争才能的重要因素；商场如战场，新一代的战争是信息化战争，如何使企业信息化建设完善起来.在这种情形下，开发OA 办公自动化系统是当务之急的事了；本系统是以新闻发布、文件传送为核心的办公自动化系统，是一套集新闻治理、文件传送治理、信息发布、人事治理、局域网短消息

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

4、运算机，能够直接 “透视 ”公司的各项工作及活动支配；图表分析活动投票治理；在相应的权限下，删除数据便利简洁，数据稳固性好；1.2 可行性分析开发任何一个基于运算机的系统，都会受到时间和资源上的限制；因此，在接受任何一个工程开发任务之前，必需依据客户可能供应的时间和资源条件进行可行性分析，以削减工程开发风险，防止人力、物力和财力的铺张；本系统数据库采纳目前比较流行的 Microsoft SQL Server，该数据库系统在安全性、精确性、运行速度方面有肯定的优势，并且处理数据库量大，效率高；前台采纳Microsoft 公司的Visual Basic 6.0 作为主要的开发工具，其可与SQL S

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

6、 所示；公司职员运算机33 / 27公司职员运算机公司职员运算机公司职员运算机SQL Server服务器公司职员运算机图 1 系统工作原理网络结构图2.3 系统功能结构图系统启动系统登录系统主界面通知治理新闻治理文件传送沟通治理系统保护治理发接已新新已文文已布收发闻闻发件件传通通通发接新传接文知知知布收闻送收件短意投消见票息箱活服动务人 投 意 系事 票 见 统管 管 箱 设理 理 管 置理图 2 系统功能结构图3 具体设计3.1 公共模块设计为了节约系统资源，实现代码重用，可以在系统中新建一个Modulel 模块；就本系统而言， 该模块主要实现数据库安装和共享数据库连接；系 统 第 一 次

7、使 用 时 ， 根 据 用 户 设 置 的DataBase.ini配 置 文 件 ， 将 数 据 库 文 件db_OA_Data.MDF ）和数据库日志文件db_OA_Log.LDF）自动安装到指定的SQL Server 数据库服务器上；为了优化ADO+SQL数据库的连接，在公共模块Module1 ）中建立数据库连接共享字符串；在以后的编程中，假如使用对象拜访数据库或ADO Data 控件拜访数据库，就可以直接将数据库共享连接字符串 读取数据库配置文件Open App.Path & DataBase.ini For Input As #1 Line Input #1, IntextServer

8、 = MidIntext, 10, LenTrimIntext - 9Line Input #1, Intextuid = MidIntext, 7, LenTrimIntext - 6Line Input #1, Intextpwd = MidIntext, 7, LenTrimIntext - 6Close #1附加数据库On Error Resume Nextcon.ConnectionString = Provider=SQLOLEDB.1；Persist Security Info=False ；User ID= & uid & ；PWD= & pwd & ；Initial Cata

9、log=db_OA ；Data Source= & Server & con.Open打开数据库连接Set rs = New ADODB.Recordset 开头附加数据库Str = EXEC sp_attach_db dbname = Ndb_SSS, filename1 = N + App.Path + DataBasedb_OA_Data.MDF + , filename2 = N + App.Path + DataBasedb_OA_Log.LDF + rs.Open str, con, 1, adLockOptimistic Set rs = con.ExecuteStrcon.Cl

10、ose 关闭数据库连接 共享连接字符串PublicStr = Provider=SQLOLEDB.1；Persist Security Info=False；User ID= & uid & ；PWD= & pwd & ；Initial Catalog=db_OA ；Data Source= & Server & frm_login.Show End Sub3.2 系统登录设计本系统属于 OA 办公自动化系统，用户权限分为两种：系统治理员和一般用户；系统登录验证操作员及其密码，主要通过记录集结果RecordSet）结合 If 语句，判定用户输入的操作员及密码是否符合数据库中的操作员和密码，假如

11、符合就答应登录，并赐予相应的权限，否就提示用户非法登录；1. 窗体设计1 ）新建一个窗体，将窗体的“名称”属性设置为frm_login ， BorderStyle属性设置为0- None，设置 Picture 属性，为窗体添加背景图片； ”列表项；3 ）添加2 个 TextBox控件，分别设置名称 Name 属性）为Text1 和 Text2 ，设置BorderStyle 属性为 0-None ； adoLogin.ConnectionString = PublicStradoLogin.RecordSource = select * from tbOA_user where username

12、= + Text1.Text + and userpwd= +Text2.Text + adoLogin.RefreshIf adoLogin.Recordset.RecordCount 0 ThenIf adoLogin.Recordset.Fields2.Value = 0 Then frm_mainBefore.Show frm_mainBefore.System.Enabled = False 权限约束frm_mainBefore.StatusBar1.Panels1.Text = 操作职员： & Text1.Text设置控件 TreeView 树状菜单Set n1 = frm_mai

13、nBefore.TreeView1.Nodes.Add, tvwChild, 通知治理 , 通知治理 , 1Set node1 = frm_mainBefore.TreeView1.Nodes.Addn1.Index, tvwChild, 发布通知 , 发布通知 , 1 Set node1 = frm_mainBefore.TreeView1.Nodes.Addn1.Index, tvwChild, 接收通知 , 接收通知 , 1 Set node1 = frm_mainBefore.TreeView1.Nodes.Addn1.Index, tvwChild, 已发通知 , 已发通知 , 1

14、Set n2 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 新闻治理 , 新闻治理 , 1Set nnode2 = frm_mainBefore.TreeView1.Nodes.Addn2.Index, tvwChild, 新闻发布 , 新闻发布 , 1 Set node2 = frm_mainBefore.TreeView1.Nodes.Addn2.Index, tvwChild, 接收新闻 , 接收新闻 , 1 Set node2 = frm_mainBefore.TreeView1.Nodes.Addn2.Index, tvwChild,

15、 已发新闻 , 已发新闻 , 1 Set n4 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 文件传送 , 文件传送 , 1Set nnode4 = frm_mainBefore.TreeView1.Nodes.Addn4.Index, tvwChild, 传送文件 , 传送文件 , 1 Set node4 = frm_mainBefore.TreeView1.Nodes.Addn4.Index, tvwChild, 接收文件 , 接收文件 , 1 Set node4 = frm_mainBefore.TreeView1.Nodes.Addn4

16、.Index, tvwChild, 已发文件 , 已发文件 , 1 Set n3 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 沟通治理 , 沟通治理 , 1Set node3 = frm_mainBefore.TreeView1.Nodes.Addn3.Index, tvwChild, 看法箱 , 看法箱 , 1Set node3 = frm_mainBefore.TreeView1.Nodes.Addn3.Index, tvwChild, 投票活动 , 投票活动 , 1 Set node3 = frm_mainBefore.TreeView

17、1.Nodes.Addn3.Index, tvwChild, 短消息服务 , 短消息服务 , 1Elsefrm_mainBefore.Showfrm_mainBefore.StatusBar1.Panels1.Text = 操作职员： & Text1.Text 设置控件 TreeView 树状菜单Set n1 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 通知治理 , 通知治理 , 1Set node1 = frm_mainBefore.TreeView1.Nodes.Addn1.Index, tvwChild, 发布通知 , 发布通知 , 1

18、 Set node1 = frm_mainBefore.TreeView1.Nodes.Addn1.Index, tvwChild, 接收通知 , 接收通知 , 1 Set node1 = frm_mainBefore.TreeView1.Nodes.Addn1.Index, tvwChild, 已发通知 , 已发通知 , 1 Set n2 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 新闻治理 , 新闻治理 , 1Set nnode2 = frm_mainBefore.TreeView1.Nodes.Addn2.Index, tvwChild

19、, 新闻发布 , 新闻发布 , 1 Set node2 = frm_mainBefore.TreeView1.Nodes.Addn2.Index, tvwChild, 接收新闻 , 接收新闻 , 1 Set node2 = frm_mainBefore.TreeView1.Nodes.Addn2.Index, tvwChild, 已发新闻 , 已发新闻 , 1 Set n4 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 文件传送 , 文件传送 , 1Set nnode4 = frm_mainBefore.TreeView1.Nodes.Addn

20、4.Index, tvwChild, 传送文件 , 传送文件 , 1 Set node4 = frm_mainBefore.TreeView1.Nodes.Addn4.Index, tvwChild, 接收文件 , 接收文件 , 1 Set node4 = frm_mainBefore.TreeView1.Nodes.Addn4.Index, tvwChild, 已发文件 , 已发文件 , 1 Set n3 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 沟通治理 , 沟通治理 , 1Set node3 = frm_mainBefore.Tree

21、View1.Nodes.Addn3.Index, tvwChild, 看法箱 , 看法箱 , 1Set node3 = frm_mainBefore.TreeView1.Nodes.Addn3.Index, tvwChild, 投票活动 , 投票活动 , 1 Set node3 = frm_mainBefore.TreeView1.Nodes.Addn3.Index, tvwChild, 短消息服务 , 短消息服务 , 1 Set n5 = frm_mainBefore.TreeView1.Nodes.Add, tvwChild, 系统保护治理 , 系统保护治理 , 1Set node5 =

22、frm_mainBefore.TreeView1.Nodes.Addn5.Index, tvwChild, 人事治理 , 人事治理 , 1 Set node5 = frm_mainBefore.TreeView1.Nodes.Addn5.Index, tvwChild, 投票治理 , 投票治理 , 1Set node5 = frm_mainBefore.TreeView1.Nodes.Addn5.Index, tvwChild, 看法箱治理 , 看法箱治理 , 1 Set node5 = frm_mainBefore.TreeView1.Nodes.Addn5.Index, tvwChild,

23、 系统设置 , 系统设置 , 1End If Unload MeEnd If End Sub3.3 主界面设计主界面主要包括菜单、树状菜单TreeView 控件实现）、状态栏以及显示OA 办公系统的最新新闻和最新通知；界面设计简洁明白，为用户供应便利的拜访途径，把一些具有共性的命令集中于一个简洁的菜单之下；状态栏将显示系统运行时间、公司信息和操作员信息，其中状态栏上的操作员信息主要通过“系统登录窗体”中“登录操作员”项传递而得到的；主界面运行结果如图 4 所示；1. 窗体设计图 4 主界面1 ）新建 1 个窗体，将窗体的“名称”属性设置为frm_mainBefore ， Caption 属性为

24、“ OA办公自动化系统”， MaxButton 属性为 False，设置 Picture 属性，为窗体添加背景图片；2 ）为窗体设计菜单；3 ）添加 ImageList 控件，使用默认名称，该控件属于ActiveX控件，在使用之前必需从“部件”对话框将其添加到工具箱中；添加方法为：在“工程”/“部件”对话框中勾选“Microsoft Windows Common Controls 6.0SP6）”列表项；4 ）添加 MSHFlexGrid控件，该控件属于ActiveX 控件，使用之前必需将MSHFlexGrid控件添加到工具箱中，添加方法为：在“工程”/“部件”对话框中勾选“Microsoft

25、HierarchicalFlexGridControl6.0”列表，添加2 个 MSHFlexGrid控件，名称分别为MSHFlexGrid1和MSHFlexGrid2 ，二者的属性完全相同，主要设置控件的背景色、前景色及表格颜色，方法为： 在控件上单击鼠标右键挑选“属性”菜单，弹出“属性页”挑选“颜色”选项卡设置控件的相 关颜色，如图5 所示；图 5 设置 MSHFlexGrid 控件颜色属性5 ）添加 StatusBarFor i = 1 To TreeView1.Nodes.Count 绽开全部节点TreeView1.Nodesi.Expanded = TrueNext i End Su

26、b单击树状菜单中的菜单，依据所挑选的菜单显示相应的窗体；在TreeView 控件的 NodeClick大事下添加代码如下：Private Sub TreeView1_NodeClickByVal Node As MSComctlLib.Node If TreeView1.SelectedItem.Key = 发布通知 Then frmNotice_issue.ShowIf TreeView1.SelectedItem.Key = 接收通知 Then frmNotice_incept.Show If TreeView1.SelectedItem.Key = 已发通知 Then frmNotice

27、_toVoice.Show If TreeView1.SelectedItem.Key = 新闻发布 Then frmNews_issue.ShowIf TreeView1.SelectedItem.Key = 接收新闻 Then frmNews_incept.ShowIf TreeView1.SelectedItem.Key = 已发新闻 Then frmNews_toNews.ShowIf TreeView1.SelectedItem.Key = 新闻发布 Then frmNews_issue.Show If TreeView1.SelectedItem.Key = 接收新闻 Then f

28、rmNews_incept.ShowIf TreeView1.SelectedItem.Key = 已发新闻 Then frmNews_toNews.Show If TreeView1.SelectedItem.Key = 传送文件 Then frmFile.ShowIf TreeView1.SelectedItem.Key = 接收文件 Then frmFile_incept.Show If TreeView1.SelectedItem.Key = 已发文件 Then frmFile_toFile.Show If TreeView1.SelectedItem.Key = 看法箱 Then f

29、rmAC_idear.ShowIf TreeView1.SelectedItem.Key = 投票活动 Then frmAC_vote.Show If TreeView1.SelectedItem.Key = 短消息服务 Then frmAC_QQ.ShowIf TreeView1.SelectedItem.Key = 人事治理 Then frmSys_person.Show If TreeView1.SelectedItem.Key = 投票治理 Then frmSys_vote.ShowIf TreeView1.SelectedItem.Key = 看法箱治理 Then frmSys_id

30、ear.Show If TreeView1.SelectedItem.Key = 系统设置 Then frmSys_sys.ShowEnd Sub在 Form 窗体的装载过程中，将最新的新闻和通知显示在MSHFlexGrid表格中；Private Sub Form_Load / 设置 NEWSadoNews.ConnectionString = PublicStradoNews.RecordSource = SELECT news_date,news_text FROM tbOA_news WHERE news_acceptPerson = & frm_login.Text1 & ORDER

31、BY news_date DESCadoNews.RefreshSet MSHFlexGrid2.DataSource = adoNews Call setNewsDataGrid_Caption/ 设置通知adoNotice.ConnectionString = PublicStr adoNotice.RecordSource = SELECTnotice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE notice_acceptPerson = & frm

32、_login.Text1 & ORDER BY notice_date DESCadoNotice.RefreshSet MSHFlexGrid1.DataSource = adoNotice Call setNoticeDataGrid_CaptionEnd Sub每隔一分多钟就更新一次最新新闻和最新通知；在Timer 控件的Timer 大事下添加如下代码：Private Sub Timer1_Timer / 设置 NEWSadoNews.RecordSource = SELECT news_date,news_text FROM tbOA_news WHERE news_acceptPer

33、son = & MidStatusBar1.Panels1.Text, 6, LenStatusBar1.Panels1.Text - 5 & ORDER BY news_date DESC adoNews.RefreshCall setNewsDataGrid_Caption/ 设置通知adoNotice.RecordSource = SELECT notice_date,notice_person,notice_acceptDept,notice_acceptPerson,notice_text FROM tbOA_notice WHERE notice_acceptPerson = &

34、MidStatusBar1.Panels1.Text, 6, LenStatusBar1.Panels1.Text - 5 & ORDER BY notice_date DESCadoNotice.RefreshCall setNoticeDataGrid_Caption 调用自定义过程End Sub自定义过程 setNewsDataGrid_Caption 用来初始化新闻 MSHFlexGrid2控件的列标题和表格宽度；Sub setNewsDataGrid_Caption初始化行序号For i = 1 To adoNews.Recordset.RecordCount MSHFlexGrid

35、2.TextMatrixi, 0 = iNext初始化表格标题和列宽MSHFlexGrid2.TextMatrix0, 0 = 序号: MSHFlexGrid2.TextMatrix0, 1 = 发布日期 MSHFlexGrid2.TextMatrix0, 2 = 新闻内容 : MSHFlexGrid2.ColWidth0 = 400 MSHFlexGrid2.ColWidth1 = 1000: MSHFlexGrid2.ColWidth2 = 6700End Sub3.4 新闻治理新闻治理包含 3 个部分：新闻发布、新闻接收、已发新闻；其中新闻发布用来将新闻发布给某部门中某人；新闻接收用来接

36、收其他职员发布新闻；已发新闻用来浏览将新闻发布给其他职员的新闻；下面笔者分别讲解新闻发布、新闻接收和已发新闻的开发过程；1. 新闻发布新闻治理窗体的设计结果如图6 所示；图 6 新闻发布设计图1 ）新建 1 个窗体，设置窗体的“名称”属性为frmNews_issue 、Caption 属性为“新闻发布”， MaxButton 属性为 False；2 ）在窗体中添加 4 个 Label 控件、 2 个 Combo 控件、 3 个 ADO 控件、 2 个 TextBox 控件和2 个 CommandButton 控件；3 ）添加 DTPicker 控件，该控件属于ActiveX控件，在使用之前必需

37、从“部件”对话框中添加到工具箱中；添加方法为：在“工程”/ “部件”对话框中勾选“MicrosoftWindows Common Controls 2.6.0 ”列表项，添加 DTPicker 控件后，其名称为默认的DTPicker1 ； adoNews.Recordset.AddNewadoNews.Recordset.Fields1.Value = DTPicker1.Value adoNews.Recordset.Fields2.Value = Text2.Text adoNews.Recordset.Fields3.Value = Combo1.Text adoNews.Records

38、et.Fields4.Value = Combo2.Text adoNews.Recordset.Fields5.Value = 0 adoNews.Recordset.Fields6.Value = Text1.TextadoNews.Recordset.UpdateMsgBox 通知发布胜利！ , vbInformation End SubForm 窗体载入时，主要实现以下功能：1 ）建立 adoNews 控件和 adoDept 控件数据库连接；2 ）为 Combo1 控件中添加部门名称数据；3 ）猎取系统操作职员姓名，并通过Text2 控件显示出来；adoNews.ConnectionS

39、tring = PublicStr建立数据库连接adoNews.RecordSource = select * from tbOA_news adoNews.RefreshadoDept.ConnectionString = PublicStradoDept.RecordSource = select * from tbOA_dept adoDept.Refresh检索数据表数据For i = 0 To adoDept.Recordset.RecordCount 1 将全部部门名称添加到 Combo1中Combo1.AddItem adoDept.Recordset.Fields1.Value

40、adoDept.Recordset.MoveNext Next iText2.Text = Midfrm_mainBefore.StatusBar1.Panels1.Text, 6, Lenfrm_mainBefore.StatusBar1.Panels1.Text -5猎取操作员姓名DTPicker1.Value = Date End Sub显示系统当前日期在 Combo1 控件中挑选不同的部门，检索该部门的全部员工并将其添加到Combo2 控件中；Combo1 控件 Click 大事的代码如下：Private Sub Combo1_ClickCombo2.Clear adoEmployee.ConnectionString = PublicStradoEmployee.RecordSource = select * from tbOA_employee adoEmployee.RefreshFor i = 0 To adoE