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

Set nnode2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, "新闻发布", "新闻发布", 1)
Set node2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, "接收新闻", "接收新闻", 1)
学院
专业
班级
学号
姓名
指导教师
教师职称
年
月
日
摘要
【摘要】
系统针对企业机关办公中存在的信息不畅、效率底下、操作不规范等一系列问题。用信息化的手段和新一代规范等一系列问题。用信息化手段和新一代的管理思想提供了强有力的网络化、电子化支持。把协同办公的理念、知识管理的思想带入了现代社会的办公生活，从而提升了现代企业的信息化程度，改变了人们的生活。
【关键词】OA办公自动化
引言
在市场竞争过程中，对于一个企业而言，对信息的掌握程度、信息获取是否及时、信息能否得到充分的利用、对信息的反应是否敏感准确，也越来越成为衡量一个企业市场竞争能力的重要因素。商场如战场，新一代的战争是信息化战争，如何使企业信息化建设完善起来?
在这种情况下，开发OA办公自动化系统是当务之急的事了。本系统是以新闻发布、文件传送为核心的办公自动化系统，是一套集新闻管理、文件传送管理、信息发布、人事管理、局域网短消息快速传送等5部分为一体的办公自动化系统。
con.Open '打开数据库连接
Set rs = New ADODB.Recordset
'开始附加数据库
Str = "EXEC sp_attach_db @dbname = N'db_SSS', @filename1 = N'" + App.Path + "\DataBase\db_OA_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataBase\db_OA_Log.LDF" + "'"
系统第一次使用时，根据用户设置的DataBase.ini配置文件，将数据库文件（db_OA_Data.MDF）和数据库日志文件（db_OA_Log.LDF）自动安装到指定的SQL Server数据库服务器上。
为了优化ADO+SQL数据库的连接，在公共模块（Module1）中建立数据库连接共享字符串。在以后的编程中，如果使用对象访问数据库或ADO Data控件访问数据库，则可以直接将数据库共享连接字符串（PublicStr）值赋值给相应的ConnectionString属性，从而避免了重复建立数据库连接的麻烦，而失去了ADO+SQL的优越性能。
1.2
开发任何一个基于计算机的系统，都会受到时间和资源上的限制。因此，在接受任何一个项目开发任务之前，必须根据客户可能提供的时间和资源条件进行可行性分析，以减少项目开发风险，避免人力、物力和财力的浪费。
本系统数据库采用目前比较流行的Microsoft SQL Server，该数据库系统在安全性、准确性、运行速度方面有绝对的优势，并且处理数据库量大，效率高；前台采用Microsoft公司的Visual Basic 6.0作为主要的开发工具，其可与SQL Server 2000数据库无缝链接。
系统登录窗体的设计结果如图3所示。
图3系统登录窗体设计
2
单击名称为labLogin的Label控件用来进行用户安全性检查，如果用户名称和密码正确，则进入系统并分配相应的权限。在Label控件名称为labLogin的Click事件下，添加代码如下：
Private Sub labLogin_Click()
Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index, tvwChild, "意见箱", "意见箱", 1)
Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index, tvwChild, "投票活动", "投票活动", 1)
frm_mainBefore.StatusBar1.Panels(1).Text = "操作职员：" & Text1.Text
'设置控件TreeView树状菜单
Set n1 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, "通知管理", "通知管理", 1)
交流管理模块
该模块主要实现意见反馈、活动投票、短消息服务（局域网）。
系统维护管理模块
部门信息的基础设置、职员信息的基础设置、投票活动管理设置、系统操作员及权限设置。
2.2
系统工作原理网络结构图如图1所示。
图1系统工作原理网络结构图
2.3
图2系统功能结构图
3
3.1
为了节省系统资源，实现代码重用，可以在系统中新建一个Modulel模块。就本系统而言，该模块主要实现数据库安装和共享数据库连接。
Public Sub main()
'读取数据库配置文件
Open (App.Path & "\DataBase.ini") For Input As #1
Line Input #1, Intext
Server = Mid(Intext, 10, Len(Trim(Intext)) - 9)
Line Input #1, Intext
Set nnode4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, "传送文件", "传送文件", 1)
Set node4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, "接收文件", "接收文件", 1)
uid = Mid(Intext, 7, Len(Trim(Intext)) - 6)
Line Input #1, Intext
pwd = Mid(Intext, 7, Len(Trim(Intext)) - 6)
Close #1
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & uid & ";PWD=" & pwd & ";Initial Catalog=db_OA;Data Source=" & Server & ""
1
（1）新建一个窗体，将窗体的“名称”属性设置为frm_login，BorderStyle属性设置为0-None，设置Picture属性，为窗体添加背景图片。
（2）添加Adodc控件，设置名称为adoLogin，Visible属性为False，由于该控件属于ActiveX控件，在使用之前必须从“部件”对话框将其添加到工具箱中。添加方法为：
adoLogin.Refresh
If adoLogin.Recordset.RecordCount > 0 Then
If adoLogin.Recordset.Fields(2).Value = 0 Then
frm_mainBefore.Show
frm_mainBefore.System.Enabled = False '权限约束
Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, "已发通知", "已发通知", 1)
Set n2 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, "新闻管理", "新闻管理", 1)
frm_login.Show
End Sub
3.2
本系统属于OA办公自动化系统，用户权限分为两种：系统管理员和普通用户。
系统登录验证操作员及其密码，主要通过记录集结果（RecordSet）结合If语句，判断用户输入的操作员及密码是否符合数据库中的操作员和密码，如果符合则允许登录，并给予相应的权限，否则提示用户非法登录。
该系统除了必须满足当前的应用要求外，在整套系统的设计过程中，还专门强调了其先进性及可扩展性。当前的信息技术日新月异，如果这套系统只着眼于当前的需求，而忽视了对系统技术的前瞻性，可以在不久的将来，系统必将不能满足客户日益增长的需求，导致系统的生命周期缩短，从而增加客户在信息化建设上的投资。
1.1
通过调查，要求系统需要有以下功能：
Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, "发布通知", "发布通知", 1)
Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, "接收通知", "接收通知", 1)
adoLogin.ConnectionString = PublicStr
adoLogin.RecordSource = "select * from tbOA_user where username='" + Text1.Text + "' and userpwd='" + Text2.Text + "'"
在“工程”/“部件”对话框中勾选“Microsoft Ado Data Controls 6.0(SP4)”列表项。
（3）添加2个TextBox控件，分别设置名称（Name属性）为Text1和Text2，设置BorderStyle属性为0-None。
（4）添加2个Label控件，将名称设置为labLogin和labEnd，BackStyle属性为0-Transparent。
模块中代码如下：
Public PublicStr As String
Dim con As New ADODB.Connection, rs As New ADODB.Recordset
Dim Str As String, Server As String, uid As String, Dim pwd As String
2
2.1
OA办公自动化系统是一个典型的网络办公开发应用程序，包含通知管理模块、新闻管理模块、文件传送管理模块、交流管理模块、系统维护管理模块5部分组成，规划系统功能模块如下：
通知管理模块
该模块主要负责信息的发布、接收等。
新闻管理模块
该模块的主要负责新闻的发布、接收等。
文件传送管理模块
该模块主要负责文件的传送与接收等。
由于操作人员的计算机知识普遍较差，那么就要求有良好的人机界面。
由于该系统的使用对象多，要求有较好的权限管理。
原始数据修改简单方便，支持多条件修改。
方便的数据查询，支持多条件查百度文库。
信息发布与文件传送速度快。
通过计算机，能够直接“透视”公司的各项工作及活动安排。
图表分析活动投票管理。
在相应的权限下，删除数据方便简单，数据稳定性好。
Set node4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, "已发文件", "已发文件", 1)
Set n3 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, "交流管理", "交流管理", 1)
' rs.Open str, con, 1, adLockOptimistic
Set rs = con.Execute(Str)
con.Close '关闭数据库连接
'共享连接字符串
PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & uid & ";PWD=" & pwd & ";Initial Catalog=db_OA;Data Source=" & Server & ""
Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index, tvwChild, "短消息服务", "短消息服务", 1)
Set node2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, "已发新闻", "已发新闻", 1)
Set n4 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, "文件传送", "文件传送", 1)