办公自动化管理系统介绍摘要bivz.docx

办公自动化管理系统摘要 随着信息技术的飞速发展和日趋激烈的商业竞争，企业已不再满足于独立、零散的办公自动化应用，企业需要的是协同工作、综合、集成化的解决方案。而网络是解决由于物理距离造成的信息交流不畅、协商沟通不便的办公瓶颈问题的最佳方式。企业网上办公自动化通过对各办公自动化要素的闭环整合，实现了工作流、信息流、知识流和办公自动化系统的整合管理，提供了一个科学、开放、先进的信息化办公平台，实现办公自动化，并进行远程办公或在家办公。企业网上办公自动化将人从繁琐、无序、低序、低端的工作中解放出来从事核心事务，整体提高了单位办事效率和对信息的可控性，降低办公成本，提高执行力，使管理趋于完善。【关键词】 办公自动化管理、ADO连接、数据源、办公管理Abstract With the rapid development of information technology and increasingly fierce business competition, companies are no longer satisfied with an independent, fragmented office automation applications, enterprises need to work together, comprehensive, integrated solution. The network is to solve the physical distance caused by the poor exchange of information, consultation office communication bottlenecks inconvenience the best way. Corporate Internet Office Automation Office Automation on the elements of the closed-loop integration, to achieve the workflow, information flow, knowledge flow and management of office automation systems integration, providing a scientific, open, advanced information technology office platform, office automation, and remote office or home office. Office automation business will be online from the tedious, disorder, low-order, low-end work in the liberation of core business units of the overall improvement of the efficiency and controllability of information, reduce business costs, improve execution, so that the management trend to perfect. Key words office automation management, ADO connections, data sources, office management 37 目录摘要10 引言11 系统分析21.1 需求分析21.2 可行性分析22 总体设计22.1 项目规划22.2 系统功能结构图33 系统设计33.1 设计目标33.2 开发及运行环境43.3 逻辑结构设计44 网站总体架构54.1 模块功能介绍54.2 网站首页的运行结果55 系统登录模块设计66 日常管理模块设计86.1 收文管理模块设计86.2 发文管理模块设计96.3 批示管理模块设计106.4 会议管理模块设计126.5 个人办公管理模块设计156.6 人事管理模块设计237 业务管理模块设计257.1 生产报表管理模块257.2 采购计划管理模块设计317.3 库存管理模块设计338 用户管理模块设计358.1 用户添加管理模块设计358.2 用户修改管理模块设计388.3 用户注销管理模块设计39附录A 参考文献40附录B 数据表42附录C 文件架构图47 引言随着中国加入WTO及全球经济一体化进程的加快，世界经济已由工业化经济逐步进入网络信息化时代。在信息时代来临之季，各企业都紧跟时代的脚步，转变着企业的经营模式、管理模式，从传统的人工管理体制，向信息自动化管理体制过渡。与此同时，企业的传统式的办公管理模式也在逐步向自动化办公管理模式转变。网络自动化办公系统就是在这样的大背景下应运而生的。信息时代的到来让人们尝到了“信息爆炸”的滋味，信息的大量拥入让企业在信息处理方便应接不暇，传统的办公模式、对信息的处理方法，早已不能满足企业对信息快速、准确的处理的要求。一个企业对信息数据的掌握程度、处理能力，体现了一个企业对市场的敏感程度，数据的真实性、准确性直接决定着企业的发展方向。从传统的办公模式向自动化办公管理模式转变，提高企业的信息处理能力，以增强企业的市场竞争力，成了企业发展过程中的首要问题。1 系统分析1.1 需求分析通过调查，要求系统需要有以下功能：q 由于操作人员的计算机知识普遍较差，要求有良好的人机界面。q 管理系统用户，由于该系统的使用对象多，要求有较好的权限管理。q 管理企业的会议信息，发文信息、公共信息。q 提供个人办公服务。q 对企业员工基本情况进行全面管理。q 设置生产数据统计、打印功能。q 对企业制定的采购计划进行管理。q 对库存信息进行管理。q 发布企业的生产指标，对其进行管理。q 强大的生产数据统计功能。q 当外界环境（停电、网络病毒）干扰本系统时，系统可以自动保护原始数据的安全。q 在相应的权限下，删除数据方便简单，数据稳定性好。q 数据计算自动完成，尽量减少人工干预。q 系统退出。1.2 可行性分析q 经济性通过网站对企业内部信息进行全面的自动化的管理，大大提高了企业的办公效率。通过系统对企业生产经营过程中的数据进行全面的管理和统计，避免人为处理各类数据时所产生的各种问题，提高了企业的经济效益，为企业经营决策提供了大量的、权威的数据，使企业的管理进行到科学化、系统化的范筹。q 技术性网络化的办公管理，使企业管理更加规范，实现了通过网络对信息进行发布、传递、接收等一系列功能。系统中设置的个人办公管理模块，为个人办公提供了一个更为方便的管理平台，大大提高个人办公的工作效率，进而提高整个企业的办公效率。2 总体设计2.1 项目规划办公自动化管理系统是一个典型的数据库开发应用程序，由日常管理模块、业务管理模块、用户管理模块组成，规划系统功能模块如下：q 日常管理模块该模块包括收文管理模块、发文管理模块、批示管理模块、会议管理模块、公共信息管理模块、个人办公管理模块、人事管理模块。q 业务管理模块该模块包括生产报表模块、采购计划模块、库存管理模块、指标情况模块。q 用户管理模块该模块主要包括用户添加模块、用户管理模块、用户注销模块。2.2 系统功能结构图办公自动化管理系统功能结构如图1所示。图1 系统功能结构图3 系统设计3.1 设计目标本系统是针对中小型企业内部办公自动化管理的要求进行设计的，主要实现如下目标：q 系统采用人机对话方式，界面清晰、信息查询灵活、方便、快捷、准确、数据存储安全可靠。q 利用系统快速的统计生产的数据报表，并对报表信息进行打印。q 键盘操作，快速响应。q 实现了各类发文信息、公共信息的强大的管理能力。q 实现对员工基础信息（人事管理）的管理功能等。q 实现了个人办公的信息自动化管理功能。q 对企业的采购计划、库存信息进行管理。q 发布生产指标，对企业生产指标信息进行管理。q 发布会议信息，并对会议信息进行管理。q 对系统用户进行管理。q 为了加强数据保密性，为每个用户设置权限级别。q 系统最大限度地实现了易安装性、易维护性和易操作性。q 系统运行稳定、安全可靠。3.2 开发及运行环境硬件平台：q CPU：P41.8GHz；q 内存：256MB以上。软件平台：q 操作系统：Windows xp/ Windows 2000。q 数据库：SQL Server 2000。q 浏览器：IE5.0，推荐使用IE6.0。q Web服务器：IIS5.0。q 分辨率：最佳效果1024×768像素。3.3 逻辑结构设计本系统数据库采用SQL Server 2000数据库，系统数据库名称为db_office。数据库db_office中包含13张表。数据库中的数据表请参见附录B。4 网站总体架构4.1 模块功能介绍系统主要包括以下功能模块：q 系统登录模块：主要用于用户登录管理。q 日常管理模块：主要包括收文管理、发文管理、批示管理、会议管理、公共信息管理、个人办公管理、人事管理7部分。q 业务管理模块：主要包括生产报表管理、采购计划管理、库存管理、指标情况管理4部分。q 用户管理模块：主要包括超级用户、普通用户两种登录情况。超级用户包括用户添加、用户修改(所有用户)、用户注销3部分；普通用户包括用户修改(个人信息进行修改)、用户注销2部分。4.2 网站首页的运行结果网站首页的运行结果如图3所示。图3 网站首页运行结果为了方便阅读将网站页面的各部分说明以列表形式给出，如表1所示。表1 网站首页解析区域名称说明对应文件1旗帜广告区用于显示网站的标识、标题admin.asp2日常管理区主要用于日常工作管理admin.asp3业务管理区主要用于业务管理admin.asp4用户管理区主要用于管理用户的添加、修改、注销admin.asp5展示区主要用于显示相关操作或其他内容列表main.asp5 系统登录模块设计系统登录模块主要用于验证用户登录系统时输入的用户名、密码、验证码是否正确，如果正确用户进入系统，否则将不能进入此系统。系统登录页面的设计效果如图4所示。图4 系统登录页面设计效果系统登录页面所涉及的HTML表单元素如表2所示。表2 系统登录页面所涉及的HTML表单元素名称类型含义重要属性form1Form表单action="check.asp?action=login" method="POST"admin_nametext用户名onFocus="this.select(); " onmouseover="this.style.background='#EAEAEA'" onmouseout="this.style.background='#FFFFFF'"admin_passpassword密码onFocus="this.select(); " onmouseover="this.style.background='#EAEAEA'" onmouseout="this.style.background='#FFFFFF'"verifycodetext验证码onFocus="this.select(); " onmouseover="this.style.background='#EAEAEA'" onmouseout="this.style.background='#FFFFFF'" size="6" maxlength="4"verifycode2hidden隐藏域value="<%=session("verifycode")%>"submitsubmit【登录】按钮class="input" value=" 登 录 "submit2reset【重填】按钮value=" 重 填 " class="input"系统登录页面所涉及到的程序代码如下：<% dim verifycode,verifycode2 verifycode=trim(Request.Form("verifycode") '获取输入验证码的值verifycode2=trim(Request.Form("verifycode2") '应用Trim函数替换字符串左右空格符if verifycode<>verifycode2 then '判断输入的验证码与随机产生的验证码是否一致response.write"<SCRIPT language=JavaScript>alert('您输入的验证码不正确。');"response.write"location.href='index.asp'</SCRIPT>"elsesession("verifycode")="" '清空验证码%><% if request("action")="login" then '判断表单是否接收到值admin_name=request("admin_name") '接收用户名admin_pass=request("admin_pass") '接收用户密码username=trim(request("admin_name") '应用Trim函数去掉左右空格符password=trim(request("admin_pass")for i=1 to len(username) '应用len函数计算出用户名的长度 user=mid(username,i,1) '判断用户名中是否含有非法字符if user="'" or user="%" or user="<" or user=">" or user="&" or user="|" thenresponse.write "<script language=JavaScript>"&"alert('您的用户名含有非法字符,请重新输入！');" & "history.back()" & "</script>"response.endend ifnext for i=1 to len(password) '判断用户密码中是否含有非法字符 pass=mid(password,i,1) if pass="'" or pass="%" or pass="<" or pass=">" or upass="&" or pass="|" then response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入！');" & "history.back()" & "</script>" response.end end if next%><%set rs=server.createobject("adodb.recordset")sql="select * from users where username='"&admin_name&"' and userpwd='"&admin_pass&"'"rs.open sql,conn,1,3if rs.eof then '判断输入的用户名、密码或验证码是否正确response.write "<br><br><br><br><font size=2><center>对不起，您输入的用户名、密码或验证码有误，从重新输入，谢谢！<br><br>本软件建议您使用IE6.0以上版本，分辨率：1024*768<br><br>否则一切后果与本软件无关，特此声明！</font>"elsesession("admin_name")=request("admin_name") '创建session阶段变量response.Redirect("admin.asp") '跳转到指定的动态页end if rs.closeset rs=nothingconn.close '关闭已打开的记录集set conn=nothing '将不用的对象释放掉end ifend if%>系统登录页面的运行结果如图5所示。图5 系统登录页面的运行结果6 日常管理模块设计日常管理模块主要包括收文管理、发文管理、批示管理、会议管理、公共信息管理、个人办公管理、人事管理7部分。6.1 收文管理模块设计收文管理主要用于显示发文人、审批人、发文日期、发文标题，通过单击“发文标题”超链接，可以打开收文的详细信息页面。收文信息以分页形式进行显示。收文管理页面的设计效果如图6所示。图6 收文管理页面的设计效果收文管理页面所涉及到的程序代码如下：<%set rs=server.CreateObject("adodb.recordset")sql="select * from fajian where shen=1 order by time desc"rs.open sql,conn,1,1%><% if not rs.eof then tel=rs.recordcount '获取记录集的总数 shum=15 rs.pagesize=shum maxpage=rs.pagecount '获取最大页面码值 requestpage=clng(request("p") if requestpage="" or requestpage=0 then requestpage=1 '设置默认值 end if if requestpage>maxpage then requestpage=maxpage end if if not requestpage=1 then rs.move (requestpage-1)*rs.pagesize end if for i=1 to rs.pagesize and not rs.eof %> <tr> <td height="26" bgcolor="#FFFFFF"><span class="style3"></span> <a href="#" onClick="window.open('shouxian.asp?id=<%=rs("id")%>','','scrollbars=yes,width=510,height=500')"><%=rs("title")%></a></td> <td height="26" bgcolor="#FFFFFF" ><div align="center"><%=rs("name")%></div></td> <td height="26" bgcolor="#FFFFFF" ><div align="center"><%=rs("sname")%></div></td> <td bgcolor="#FFFFFF" ><div align="center"><%=rs("time")%></div></td></tr><% rs.movenext if rs.eof then exit for '如果记录集为空，跳出循环 next else response.Write("暂无信息") end if rs.close%>6.2 发文管理模块设计发文管理主要包括发布发文、发文删除两部分。发布发文管理的相关程序代码如下：<%if request("post")="true" then '判断表单是否提交call wri '调用wri自定义函数end if function wriif request("title")<>"" and request("content")<>"" then '判断发文的标题、内容是否为空set rs=server.CreateObject("adodb.recordset")sql="select * from fajian"rs.open sql,conn,1,3 '打开记录集rs.AddNewrs("title")=request("title")rs("content")=request("content")rs("name")=session("admin_name")rs("shen")=0 '添加发文属于未审核rs("time")=now() '根据计算机系统设定的日期和时间返回当前的日期和时间值rs.updaters.closeresponse.Redirect("chenggong.htm") '跳转到指定的动态页elseresponse.Write("<script language=javascript>alert('请把信息填写完整')</script>")end if end function%>除了发布发文功能同时也设置了删除发文的功能，单击“删除”超链接将删除指定的发文信息。发文删除的程序代码如下：<%if request("del")<>"" then '判断接收的del值不能等于空call delend iffunction del sql2="delete from fajian where id="&request("del")conn.Execute(sql2) '执行sql2语句end function%><%set rs=server.CreateObject("adodb.recordset") sql="select * from fajian where name='"&session("admin_name")&"' and shen=0 order by time desc"rs.open sql,conn,1,1 '打开记录集%><a href=faguan.asp?del=<%=rs("id")%>&p=<%=requestpage%>>删除</a>发文删除页面的运行结果如图7所示。图7 发文删除页面的运行结果6.3 批示管理模块设计批示管理主要包括发文批示、发文修改、发文删除，只有当用户是超级用户才有权限进行批示管理，普通用户没有此权限。当审批之后，发文在收文管理页面中才能够显示出来。批示管理页面的设计效果如图8所示。图8 批示管理页面设计效果批示管理页面所涉及到的程序代码如下：<%call case1if request("del")<>"" and (ps("shenhe")=1 or ps("chaoji")=1) then '判断用户是否有权限删除发文call delend iffunction delsql2="delete from fajian where id="&request("del")conn.Execute(sql2) '执行sql2语句end functionif request("shen")<>"" and (ps("shenhe")=1 or ps("chaoji")=1) then '判断用户是否有权限进行审核call upend iffunction upset rs1=server.CreateObject("adodb.recordset")sql1="select * from fajian where id="&request("id")rs1.open sql1,conn,1,3rs1("shen")=request("shen") '是否审核rs1("sname")=session("admin_name") '获取操作用户名rs1.updaters1.closeend function%><%set rs=server.CreateObject("adodb.recordset")sql="select * from fajian order by time desc" '将所有记录进行降序排列rs.open sql,conn,1,1%><%if rs("shen")=1 then%> 已审核<% End If %><%if rs("shen")=0 then%> <a href=piguan.asp?shen=1&id=<%=rs("id")%> onClick="return confirm('确定审核吗？')">审核</a> '通过鼠标单击事件实现弹出提示框<% End If %>修改发文进行修改所涉及到的程序代码如下<%call case1 '验证用户身份,此时调用inc/yan.asp文件,select case1set rs1=server.CreateObject("adodb.recordset")sql1="select * from fajian where id="&request("id")rs1.open sql1,conn,1,1session("id")=rs1("id")if rs1("shen")<>1 then '判断是否已审核if request("post")="true" then '判断是否已接收表单的值call wriend if function wriif request("title")<>"" and request("content")<>"" then '判断是否接收到值set rs=server.CreateObject("adodb.recordset")sql="select * from fajian where id="&session("id") '通过session("id")查找相关记录rs.open sql,conn,1,3 '打开记录集rs("title")=request("title") '接收添加的标题rs("content")=request("content") '接收添加的内容rs("time")=now() '获取当前系统日期和时间rs.updaters.closeresponse.Redirect("chenggong.htm") '跳转到发文修改成功页面elseresponse.Write("<script language=javascript>alert('请把信息填写完整')</script>")end if end functionif request("id")="" then response.Redirect("piguan.asp")end if%>批示管理页面的运行结果如图9所示。图9 批示管理页面的运行结果6.4 会议管理模块设计会议管理主要包括会议修改、会议删除、会议发布3部分。当用户单击会议标题超链接时，进入相关的会议信息详细页面，可对会议的详细信息进行浏览。会议管理页面的设计效果如图10所示。图10 会议管理页面设计效果会议管理页面所涉及到的程序代码如下：<% call case2 '验证用户身份，此时调用inc/yan.asp文件中select case2if request("del")<>"" then '判断是否接收到值call delend iffunction delsql2="delete from huiyi where id="&request("del")conn.Execute(sql2) '通过execute执行sql2语句end function%><%set rs=server.CreateObject("adodb.recordset")sql="select * from huiyi order by time desc"rs.open sql,conn,1,1%><a href=huiyiguan.asp?del=<%=rs("id")%>&p=<%=requestpage%>>删除</a> '调用删除会议功能模块会议管理页面的运行结果如图11所示。图11 会议管理页面运行结果在会议管理页面，单击“修改”超链接，进入会议信息修改页面后，用户可以对会议的标题、内容进行修改。只有当用户有修改权限时，才可以对会议的相关信息进行修改。会议修改页面的设计效果如图12所示。图12 会议修改页面的设计效果修改会议所涉及到的程序代码如下：<%call case2 '验证用户身份此时调用inc/yan.asp文件select case2if request("post")="true" then '判断是否接收到表单值call wri '通过call语句调用function过程end if function wriif request("title")<>"" and request("content")<>"" and (ps("huiyi")=1 or ps("chaoji")=1) then set rs=server.CreateObject("adodb.recordset")sql="select * from huiyi where id="&session("id")rs.open sql,conn,1,3rs("title")=request("title") '接收进行修改的会议标题rs("content")=request("content")rs("time")=now() '接收当前系统日期和时间rs.updaters.closeresponse.Redirect("chenggong.htm")elseresponse.Write("<script language=javascript>alert('请把信息填写完整')</script>")end if end functionif request("id")="" thenresponse.Write("对不起，您不是管理员！")end ifset rs1=server.CreateObject("adodb.recordset")sql1="select * from huiyi where id="&request("id")rs1.open sql1,conn,1,1%>会议发布所涉及到的程序代码如下：<%call case2if request("post")="true" and (ps("huiyi")=1 or ps("chaoji")=1) then '判断用户是否有权限发布会议call wriend if function wriif request("title")<>"" and request("content")<>"" then '接收的会议标题、会议内容不允许为空set rs=server.CreateObject("adodb.recordset")sql="select * from huiyi"rs.open sql,conn,1,3rs.AddNewrs("title")=request("title") '接收发布会议的标题rs("content")=request("content") '接收发布会议的内容rs("name")=session("admin_name")rs("time")=now() '获取当前系统日期和时间rs.updaters.closeresponse.Redirect("chenggong.htm")elseresponse.Write("<script language=javascript>alert('请把信息填写完整')</script>")end if end function%>6.5 个人办公管理模块设计个人办公管理模块主要包括个人活动登记管理、个人活动管理、个人邮件管理、名片夹管理4部分。q 个人活动登记管理模块个人活动登记管理模块主要用于添加个人活动记录。个人活动登记管理页面的设计效果如图13所示。图13 个人活动登记管理页面的设计效果个人活动登记管理页面所涉及的相关的程序代码如下：<%if request("post")=2 then '判断是否接收到表单的值call wrt1end if function wrt1if request("title")="" or r