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

1、OA办公自动化系统毕业设计论文OA办公自动化系统-毕业设计-论文OA办公自动化系统学 院专 业班 级学 号姓 名指导教师教师职称年月日摘要【摘要】系统针对企业机关办公中存在的信息不畅、效率底下、操作不规范等一系列问题。用信息化的手段和新一代规范等一系列问题。用信息化手段和新一代的管理思想提供了强有力的网络化、电子化支持。把协同办公的理念、知识管理的思想带入了现代社会的办公生活，从而提升了现代企业的信息化程度，改变了人们的生活。【关键词】 OA 办公自动化引言在市场竞争过程中，对于一个企业而言，对信息的掌握程度、信息获取是否及时、信息能否得到充分的利用、对信息的反应是否敏感准确，也越来越成为衡量

2、一个企业市场竞争能力的重要因素。商场如战场，新一代的战争是信息化战争，如何使企业信息化建设完善起来?在这种情况下，开发OA办公自动化系统是当务之急的事了。本系统是以新闻发布、文件传送为核心的办公自动化系统，是一套集新闻管理、文件传送管理、信息发布、人事管理、局域网短消息快速传送等5部分为一体的办公自动化系统。该系统除了必须满足当前的应用要求外，在整套系统的设计过程中，还专门强调了其先进性及可扩展性。当前的信息技术日新月异，如果这套系统只着眼于当前的需求，而忽视了对系统技术的前瞻性，可以在不久的将来，系统必将不能满足客户日益增长的需求，导致系统的生命周期缩短，从而增加客户在信息化建设上的投资。1

3、 系统分析1.1 需求分析通过调查，要求系统需要有以下功能： 由于操作人员的计算机知识普遍较差，那么就要求有良好的人机界面。 由于该系统的使用对象多，要求有较好的权限管理。 原始数据修改简单方便，支持多条件修改。 方便的数据查询，支持多条件查询。 信息发布与文件传送速度快。 通过计算机，能够直接“透视”公司的各项工作及活动安排。 图表分析活动投票管理。 在相应的权限下，删除数据方便简单，数据稳定性好。1.2 可行性分析开发任何一个基于计算机的系统，都会受到时间和资源上的限制。因此，在接受任何一个项目开发任务之前，必须根据客户可能提供的时间和资源条件进行可行性分析，以减少项目开发风险，避免人力、

4、物力和财力的浪费。本系统数据库采用目前比较流行的Microsoft SQL Server，该数据库系统在安全性、准确性、运行速度方面有绝对的优势，并且处理数据库量大，效率高；前台采用Microsoft公司的Visual Basic 6.0作为主要的开发工具，其可与SQL Server 2000数据库无缝链接。2 总体设计2.1 项目规划OA办公自动化系统是一个典型的网络办公开发应用程序，包含通知管理模块、新闻管理模块、文件传送管理模块、交流管理模块、系统维护管理模块5部分组成，规划系统功能模块如下： 通知管理模块该模块主要负责信息的发布、接收等。 新闻管理模块该模块的主要负责新闻的发布、接收等

5、。 文件传送管理模块该模块主要负责文件的传送与接收等。 交流管理模块该模块主要实现意见反馈、活动投票、短消息服务（局域网）。 系统维护管理模块部门信息的基础设置、职员信息的基础设置、投票活动管理设置、系统操作员及权限设置。2.2 系统工作原理网络结构图系统工作原理网络结构图如图1所示。图1 系统工作原理网络结构图2.3 系统功能结构图图2 系统功能结构图3 详细设计3.1 公共模块设计为了节省系统资源，实现代码重用，可以在系统中新建一个Modulel模块。就本系统而言，该模块主要实现数据库安装和共享数据库连接。系统第一次使用时，根据用户设置的DataBase.ini配置文件，将数据库文件（db

6、_OA_Data.MDF）和数据库日志文件（db_OA_Log.LDF）自动安装到指定的SQL Server数据库服务器上。为了优化ADO+SQL数据库的连接，在公共模块（Module1）中建立数据库连接共享字符串。在以后的编程中，如果使用对象访问数据库或ADO Data控件访问数据库，则可以直接将数据库共享连接字符串（PublicStr）值赋值给相应的ConnectionString属性，从而避免了重复建立数据库连接的麻烦，而失去了ADO+SQL的优越性能。模块中代码如下：Public PublicStr As StringDim con As New ADODB.Connection, r

7、s As New ADODB.RecordsetDim Str As String, Server As String, uid As String, Dim pwd As StringPublic 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 uid = Mid(Intext, 7, Len(Trim(Intext) - 6

8、) 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 & con.Open 打开数据库连接 Set rs = New ADODB.Recordset 开始附

9、加数据库 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.Execute(Str) con.Close 关闭数据库连接 共享连接字符串 PublicStr = Provider=SQLOLEDB.1;Persist Security Info=Fals

10、e;User ID= & uid & ;PWD= & pwd & ;Initial Catalog=db_OA;Data Source= & Server & frm_login.ShowEnd Sub3.2 系统登录设计本系统属于OA办公自动化系统，用户权限分为两种：系统管理员和普通用户。系统登录验证操作员及其密码，主要通过记录集结果（RecordSet）结合If语句，判断用户输入的操作员及密码是否符合数据库中的操作员和密码，如果符合则允许登录，并给予相应的权限，否则提示用户非法登录。1窗体设计（1）新建一个窗体，将窗体的“名称”属性设置为frm_login，BorderStyle属性设置为

11、0-None，设置Picture属性，为窗体添加背景图片。（2）添加Adodc控件，设置名称为adoLogin，Visible属性为False，由于该控件属于ActiveX控件，在使用之前必须从“部件”对话框将其添加到工具箱中。添加方法为：在“工程”/“部件”对话框中勾选“Microsoft Ado Data Controls 6.0(SP4)”列表项。（3）添加2个TextBox控件，分别设置名称（Name属性）为Text1和Text2，设置BorderStyle属性为0-None。（4）添加2个Label控件，将名称设置为labLogin和labEnd，BackStyle属性为0-Tran

12、sparent。系统登录窗体的设计结果如图3所示。图3 系统登录窗体设计2代码设计单击名称为labLogin的Label控件用来进行用户安全性检查，如果用户名称和密码正确，则进入系统并分配相应的权限。在Label控件名称为labLogin的Click事件下，添加代码如下：Private Sub labLogin_Click() adoLogin.ConnectionString = PublicStr adoLogin.RecordSource = select * from tbOA_user where username= + Text1.Text + and userpwd= + Tex

13、t2.Text + adoLogin.Refresh If adoLogin.Recordset.RecordCount 0 Then If adoLogin.Recordset.Fields(2).Value = 0 Then frm_mainBefore.Show frm_mainBefore.System.Enabled = False 权限约束 frm_mainBefore.StatusBar1.Panels(1).Text = 操作职员： & Text1.Text 设置控件TreeView树状菜单 Set n1 = frm_mainBefore.TreeView1.Nodes.Add

14、(, tvwChild, 通知管理, 通知管理, 1) Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, 发布通知, 发布通知, 1) Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, 接收通知, 接收通知, 1) Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, 已发通知, 已发通知, 1) Set n2 = frm_mainBefore.Tr

15、eeView1.Nodes.Add(, tvwChild, 新闻管理, 新闻管理, 1) Set nnode2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, 新闻发布, 新闻发布, 1) Set node2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, 接收新闻, 接收新闻, 1) Set node2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, 已发新闻, 已发新闻, 1) Set n4 =

16、 frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, 文件传送, 文件传送, 1) Set nnode4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, 传送文件, 传送文件, 1) Set node4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, 接收文件, 接收文件, 1) Set node4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, 已发文件,

17、 已发文件, 1) Set n3 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, 交流管理, 交流管理, 1) Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index, tvwChild, 意见箱, 意见箱, 1) Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index, tvwChild, 投票活动, 投票活动, 1) Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index,

18、tvwChild, 短消息服务, 短消息服务, 1) Else frm_mainBefore.Show frm_mainBefore.StatusBar1.Panels(1).Text = 操作职员： & Text1.Text 设置控件TreeView树状菜单 Set n1 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, 通知管理, 通知管理, 1) Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, 发布通知, 发布通知, 1) Set node1 = frm_

19、mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, 接收通知, 接收通知, 1) Set node1 = frm_mainBefore.TreeView1.Nodes.Add(n1.Index, tvwChild, 已发通知, 已发通知, 1) Set n2 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, 新闻管理, 新闻管理, 1) Set nnode2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, 新闻发布, 新闻发布, 1

20、) Set node2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, 接收新闻, 接收新闻, 1) Set node2 = frm_mainBefore.TreeView1.Nodes.Add(n2.Index, tvwChild, 已发新闻, 已发新闻, 1) Set n4 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, 文件传送, 文件传送, 1) Set nnode4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwCh

21、ild, 传送文件, 传送文件, 1) Set node4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, 接收文件, 接收文件, 1) Set node4 = frm_mainBefore.TreeView1.Nodes.Add(n4.Index, tvwChild, 已发文件, 已发文件, 1) Set n3 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, 交流管理, 交流管理, 1) Set node3 = frm_mainBefore.TreeView1.Nodes.Ad

22、d(n3.Index, tvwChild, 意见箱, 意见箱, 1) Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index, tvwChild, 投票活动, 投票活动, 1) Set node3 = frm_mainBefore.TreeView1.Nodes.Add(n3.Index, tvwChild, 短消息服务, 短消息服务, 1) Set n5 = frm_mainBefore.TreeView1.Nodes.Add(, tvwChild, 系统维护管理, 系统维护管理, 1) Set node5 = frm_mainBefo

23、re.TreeView1.Nodes.Add(n5.Index, tvwChild, 人事管理, 人事管理, 1) Set node5 = frm_mainBefore.TreeView1.Nodes.Add(n5.Index, tvwChild, 投票管理, 投票管理, 1) Set node5 = frm_mainBefore.TreeView1.Nodes.Add(n5.Index, tvwChild, 意见箱管理, 意见箱管理, 1) Set node5 = frm_mainBefore.TreeView1.Nodes.Add(n5.Index, tvwChild, 系统设置, 系统设

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

25、属性为False，设置Picture属性，为窗体添加背景图片。（2）为窗体设计菜单。（3）添加ImageList控件，使用默认名称，该控件属于ActiveX控件，在使用之前必须从“部件”对话框将其添加到工具箱中。添加方法为：在“工程”/“部件”对话框中勾选“Microsoft Windows Common Controls 6.0（SP6）”列表项。（4）添加MSHFlexGrid控件，该控件属于ActiveX控件，使用之前必须将MSHFlexGrid控件添加到工具箱中，添加方法为：在“工程”/“部件”对话框中勾选“Microsoft Hierarchical FlexGrid Control

26、 6.0”列表，添加2个MSHFlexGrid控件，名称分别为MSHFlexGrid1和MSHFlexGrid2，二者的属性完全相同，主要设置控件的背景色、前景色及表格颜色，方法为：在控件上单击鼠标右键选择“属性”菜单，弹出“属性页”选择“颜色”选项卡设置控件的相关颜色，如图5所示。图5 设置MSHFlexGrid控件颜色属性（5）添加StatusBar（状态栏）控件，主要用来显示系统操作员信息、系统时间及公司名称和网站。该控件属于ActiveX控件，添加ImageList控件时已经将该控件添加到工具箱中。StatusBar控件的名称为默认名，单击鼠标右键打开“属性页”，为StatusBar控

27、件添加3个窗格，第1个窗格显示系统操作员、第2个窗格显示系统日期、第3个窗格显示公司名称和网址，该控件的属性设置方法在前面的章节中已经详细讲解过了，这里就不做介绍了。2程序代码设计当窗体激活时，将TreeView控件中所有的节点展开。在Form窗体的Activate事件下添加如下代码：Private Sub Form_Activate() For i = 1 To TreeView1.Nodes.Count 展开全部节点 TreeView1.Nodes(i).Expanded = True Next iEnd Sub单击树状菜单中的菜单，根据所选择的菜单显示相应的窗体。在TreeView控件的

28、NodeClick事件下添加代码如下：Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) If TreeView1.SelectedItem.Key = 发布通知 Then frmNotice_issue.Show If TreeView1.SelectedItem.Key = 接收通知 Then frmNotice_incept.Show If TreeView1.SelectedItem.Key = 已发通知 Then frmNotice_toVoice.Show If TreeView1.SelectedItem

29、.Key = 新闻发布 Then frmNews_issue.Show If TreeView1.SelectedItem.Key = 接收新闻 Then frmNews_incept.Show If TreeView1.SelectedItem.Key = 已发新闻 Then frmNews_toNews.Show If TreeView1.SelectedItem.Key = 新闻发布 Then frmNews_issue.Show If TreeView1.SelectedItem.Key = 接收新闻 Then frmNews_incept.Show If TreeView1.Sele

30、ctedItem.Key = 已发新闻 Then frmNews_toNews.Show If TreeView1.SelectedItem.Key = 传送文件 Then frmFile.Show If TreeView1.SelectedItem.Key = 接收文件 Then frmFile_incept.Show If TreeView1.SelectedItem.Key = 已发文件 Then frmFile_toFile.Show If TreeView1.SelectedItem.Key = 意见箱 Then frmAC_idear.Show If TreeView1.SelectedItem.Key = 投票活动 Then frmAC_vote.Show If TreeView1.SelectedItem.Key = 短消息服务 Then frmAC_QQ.Show If TreeView1.SelectedItem.Key = 人事管理 Then frmSys_person.Show If TreeView1.SelectedItem.Key = 投票管理 Then frmSys_vote.Show If TreeView1.SelectedItem.Key = 意见箱管理 Then frmSys_idear.Sh