1、皖能集团 Internet-Intranet 应用系统皖能集团 Internet/Intranet 应用系统摘要：通过皖能集团的 Internet/Intranet 系统的实际案例，介绍了在基于 Lotus Notes/Domino 系统中最为关键的几项技术：全流程定义技术、关系数据库的接口、Microsoft Word 接口和电子刊物的完美显示。关键词：群件平台 流程定义 接口技术 随着“政府上网”工程的全面启动、工业信息化的进一步发展和电子商务的需求增强，建立一整套计算机综合应用网络系统对企业集团是一种迫切需求。根据当前计算机技术发展趋势，我们采用Internet/Intranet 体系模
2、式构造皖能集团的计算机综合应用网络系统，实现对外信息发布和内部的全面办公和业务管理功能，这对实施有效监控、加强信息沟通、提高运行效率和优化产业、资本结构，发挥公司整体效益起到十分重要的作用。一、网络系统结构根据皖能集团 Internet/Intranet 系统的应用需求，从网络系统应用和安全的角度出发，内网至少布置 2 台 Windos NT 服务器，作为应用服务器、邮件服务器和备份服务器，提供内部办公自动化和业务数据处理的应用。外网布置 2 台 Windos NT 服务器，其中一台图 1 皖能集团 Internet/Intranet 网络体系结构配置Domino R5 服务器，作为外部 We
3、b 服务器，建立皖能和邮件系统如何自动引入标准流程，通过 Postopen 事件调用引入标准流程的函数：Sub SetDefault 标准流程的修改,将分解为插入步骤、删除步骤。如果理解了插入步骤，就容易实现删除步骤。插入步骤的函数是：Sub Click+ 1doc.StepNum=LastNodoc.StepNumC= Cstr 流程的控制是最复杂的，通过一系列函数实现，在这里介绍其主函数，让读者可以了解其实现的思路。Sub Click Set uidoc = orkspace.CurrentDocumentSet doc=uidoc.Document取流程信息Call Initialize
4、StepInfo=2 Then Exit SubElse If Messagebox=2 Then Exit SubEnd IfCall DeleteMailDoc删除通知邮件 Call AdjustWorkFlo调整办理人、办理步骤等 Call SendDocLink给下一办理人发送通知邮件 Call doc.ComputeWithForm备份批示意见doc.NotionBak=doc.GetItemValueThendoc.Form=“Subscribe“ End IfCall doc.Save=2 Then Exit SubCall DeleteMailDoc在文件库中创建该文件的拷贝 End Ifdoc.SaveOptions = “0“Call uidoc.CloseTheni=1Set qry.Connection = condatatab=“SELECT * FROM “+datatab+“ here Bmbh = “+DepartNo+“Messagebox “Conne
