OA系统开发的用户注册问题用lotus作软件,用户注册这一功能如
1、用户登录: 你用模板库(domcfg5.ntf)来生成一个库(domcfg.nsf), 然后修改中的一个表单($$LoginUserForm)。
2、新用户注册代码供你参考: ' 定义在代理中将要用到的对象 Dim session As New NotesSession ' 定义服务器Session变量,一个用户一个线程 Dim db As NotesDatabase ' 定义一个Notes数据库对象 Dim dbn As notesdatabase Dim acl As NotesACL ' 定义一个Notes数据库的存取控制列表对象 Dim entry As NotesACLEntry ' 定义一个Notes数据库的存取控制列表内的条目对象 Dim view As NotesView ' 定义一个Notes数据库内的视图对象 Dim doc As NotesDocument ' 定义一个Notes数据库内的文档对象 '邮件信息 Dim MailDb As NotesDatabase Dim CopyMailDB As Notesdatabase Dim template As NotesDatabase Dim MailACL As NotesACL Dim MailEntry As NotesACLEntry Dim fileName As String Dim cgi As NotesDocument Set cgi = session.DocumentContext ' 如果帐号为空,则提示 If (cgi.LastName(0)="") Then Msgbox cgi.referer(0) Print "用户帐号录入了空值,不能注册" Print "" Print "点击这里返回" Exit Sub Else Dim letterCode As Long Dim ln As String Dim l As Long ln =cgi.lastName(0) l =Len(cgi.lastName(0)) For i = 1 To l letterCode =Asc(Lcase(Mid(ln,i,1))) If letterCodeAsc("z")) Then If letterCodeAsc("9") Then Print "用户帐号包含非法字符" Print "" Print "点击这里返回" Exit Sub End If End If Next End If ' 如果用户密码为空,则提示 If (cgi.HTTPPassword(0)="") Then Print "您的密码没有得到确认,不能注册" Print "" Print "点击这里返回" Exit Sub End If ' 如果确认密码为空,则提示 If (cgi.Password(0)="") Then Print "确认密码录入了空值,不能注册" Print "" Print "点击这里返回" Exit Sub End If ' 如果真实姓名为空,则提示 If (cgi.PeopleName(0)="") Then Print "真实姓名录入了空值,不能注册" Print "" Print "点击这里返回" Exit Sub End If Set db = session.GetDatabase("", "names.nsf") ' 把db指向Domino目录 Set view = db.GetView("People") ' 取Domino目录的People视图 Set doc = view.GetDocumentByKey(cgi.LastName(0), True) ' 得到帐号名为LastName域值的用户文档 If Not(doc Is Nothing) Then ' 如果已经有相同的帐号存在,那么提示 Print "用户帐号为: " cgi.LastName(0) " 的用户已经存在了,不能注册" Print "" Print "点击这里返回" Exit Sub End If If (cgi.user(0)="webadmini") Or (cgi.user(0)="KMHWAdmin") Or (cgi.user(0)="developer") Then Set doc = db.CreateDocument() ' 在Domino目录内创建一个新文档doc doc.Form = "Person" ' 填写doc的域 Form (一个隐藏域) doc.Type = "Person" ' 填写doc的域 Type doc.LastName = cgi.LastName(0) ' 填写doc的域 FullName doc.FullName = cgi.LastName(0) ' 填写doc的域 LastName doc.HTTPPassword = cgi.HTTPPassword(0) ' 填写doc的域 HTTPPassord doc.Password = cgi.Password(0) ' 填写doc的域 Passord doc.PeopleName = cgi.PeopleName(0) ' 填写doc的域 PeopleN ame doc.MailSystem = "6" doc.MailServer = session.userName doc.MailFile = Trim("mail/" cgi.lastName(0)) doc.MailDomain = cgi.doMain(0) Call doc.Save(True, False) ' 保存 doc Set acl = db.ACL ' 提取Domino目录的存取控制列表 Set entry = acl.CreateACLEntry(cgi.LastName(0), ACLLEVEL_MANAGER) ' 添加注册用户到存取控制列表里面,并设置其为管理员] entry.CanDeleteDocuments = False '不能删除文档 Call acl.Save() ' 保存修改结果到Domino目录 Set db = session.CurrentDatabase ' 将db指向当前数据库 Set acl = db.ACL ' 提取当前数据库的存取控制列表 Set entry = acl.CreateACLEntry(cgi.LastName(0), ACLLEVEL_MANAGER) ' 添加条目到当前数据库的存取控制列表之中 entry.CanDeleteDocuments = False Call acl.Save() ' 保存结果 '创建邮件数据库 Set mailDb = New notesDatabase("","mail.nsf")'邮件系统模板 fileName = Trim("mail" cgi.lastName(0) ".nsf")'目标邮件数据库文件名 Set CopyMailDB = MailDB.CreateCopy("",fileName)'邮件数据库(个人) CopyMailDB.Title =cgi.PeopleName(0) "个人邮箱"'邮件数据库标题 Set MailACL = CopyMailDB.ACL Set MailEntry =MailACL.CreateACLEntry(cgi.lastName(0),ACLLEVEL_MANAGER) Call MailACL.save 'Set MailEntry =MailACL.CreateACLEntry(cgi.user(0),ACLLEVEL_MANAGER) 'Call MailACL.save Print "用户帐号" cgi.LastName(0) " 已经注册成功了" Print "且已经创建" cgi.peopleName(0) "个人邮箱(" copyMailDB.FileName ")" Print "" Print "点击这里返回" Else Print "您不是系统管理员,不能注册" Print "" Print "点击这里返回" End If
怎样快速学会办公自动化软件?
金蝶EAS6.0系统办公OA软件没有下载过。
你可以搜索伟峰OA去他们官网下载一下他们的来用用。
挺不错的,功能强,性价比高。
伟峰OA的特点: 1. 可扩展性:通过与我公司提供的项目PM、ERP、CRM相结合,达到多维管理效果,屏蔽信息孤岛,为领导决策提供足够的依据。
2. 互动性:采用通知公告、知会点评等多种信息交流渠道,使用户之间围绕任何一个事件都能互动交流,以降低沟通协作的成本。
3. 保密性:既能在单位内部实现最优信息资源共享,又能严格细分信息的阅读权限,确保了信息的保密性。
4. 备忘性:通过工作流日程等手段的结合,使备忘机制更加有效且降低成本。
oa系统办公软件下载
我们公司用的是金和OA 觉得蛮不错的,来晒下哈 金和为您带来: 组织实现信息、知识的共享,建立“企业大学”。
实现资源整合,降低运营成本,建立节约型组织。
实现随时随地办公,提高工作效率和质量。
领导与员工零距离,增加团队协作沟通能力。
提供各种决策参考和依据,帮助领导“做正确的事”; 协助领导监控管理,促进管理的规范化、信息化、和谐化。
良好的办公手段,员工做到“高效地做事、把事做好”,繁杂工作轻松处理。
形成健康、积极的文化氛围,增强组织的凝聚力,员工快乐工作。
金和产品体验中心 觉得不错,大家可以去看看
谁有免费的oa办公软件下载地址?免费的下载地址,其他的就别推荐了...
现在有一种较普遍的偏见:认为OA仅仅是诸如公文流转、收发文管理、档案管理、会议安排、文献检索、电子表格、电子邮件等等这些非结构化数据的处理和交换过程,面向的用户群也只是机关办公室或企业的职能部门、文秘部门。
其实,今天看来,OA应有更丰富的内容和层面,更广泛的用户群。
以下是笔者对OA在功能上以及所涉及的技术范畴的肤浅理解,愿与同行商榷。
OA面向不同层次的使用者,便有不同的功能表现: 对于企业高层领导而言,OA是决策支持系统(DSS)。
OA运用科学的数学模型,结合企业内部/外部的信息为条件,为企业领导提供决策参考和依据; 对于中层管理者而言:OA是信息管理系统(IMS),OA利用业务各环节提供的基础“数据”,提炼出有用的管理“信息”,把握业务进程,降低经营风险,提高经营效率; 对于普通员工而言:OA是事务/业务处理系统。
OA为办公室人员提供良好的办公手段和环境,使之准确、高效,愉快地工作。
今天,在中国推行OA尤有其重要性和必要性: 1、OA对于面向二十一世纪的中国企业的经营和管理比以往任何时候更显重要。
信息社会中,竞争取胜的法宝是信息,而OA所收集、处理、分析的对象正是“信息”。
中国企业在管理手段与管理思想方面已经落后于发达国家企业,迫切需要通过推行OA来改善经营管理手段,提高管理水平,增强企业竞争力。
2、推行OA,能给中国企业的经营者和管理者在行为方式和思维方式上带来革命性进步。
在企业中做IT工作都深受一个共同的难题长期困扰:企业经营和管理方式太不规范、太不严谨,缺乏全局观和系统观,人为因素太多,而且变化不定。
这不仅为企业的经营和管理带来盲目性,而且为推进信息管理设置了障碍。
推行OA,不仅是管理手段的改善,更重要的是带来管理思想的进步。
3、企业办公日益从过去的文秘型向自我服务型转变。
OA为用户提供的正是自我服务的支持,这正说明了OA已成为一种潮流,一种趋势、一种更好的企业办公方式。
4、很多中国企业早在80年代初就着手建立企业的管理信息系统(MIS)。
近20年过去了,我们没有看到中国企业管理水平质的飞跃,其中,除了技术能力局限的原因外,还有观念、认识方面的原因。
过去做MIS,更多地注重了对规范的、结构化的数据的管理,而且走入了用先进的技术手段模拟手工操作的误区。
模拟手工操作只有界面的友好程度、模拟的逼真程度的差别,不会有管理水平的提高。
而OA所面向的对象是企业经营过程中所有可能产生的数据:结构化与非结构化的、多媒体的等等;OA所直指的目标是物化科学的管理思想。
所以今天所谈的OA较过去的MIS有更广泛、更深刻的意义。
当然,过去的MIS也为我们今天的OA打下一个良好的基础,也就是说OA的确很重要,同时实现OA也并非遥不可及。
如何实现OA 正面回答“如何实现OA”,笔者自认力不能及。
正如前文所述,OA是一个过程和境界,是一个不断发展变化的概念。
我们的工作是努力接近OA的目标。
笔者在公司从事了多年OA工作,公司的OA应用也初具规模,实施方式并非标准模式,OA的框架也并非标准样板,因此,本文无意赘述公司的OA建设过程和框架,仅谈谈工作体会和经验。
————————————————————————————————————横线以下为原文,如不满意,请酌情修改 多年来,OA尚无一个确切的定义,人们对OA的看法和理解各有不同。
笔者认为:OA本身就不是一个有确定界定的概念,它是一个过程、一种境界。
它随技术的发展而发展,随人们办公方式和习惯以及管理思想的变化而变化。
在技术发展过程中的每一个阶段,人们给OA赋予了不同的内容和新的想象,技术与管理的进步给OA打下了每一步发展的历史烙印。
同时,不同行业、不同层次的人对OA的看法和理解也各有不同。
也许正是OA这种变化和发展的特点使之成为30多年来常新不衰的话题。
现在有一种较普遍的偏见:认为OA仅仅是诸如公文流转、收发文管理、档案管理、会议安排、文献检索、电子表格、电子邮件等等这些非结构化数据的处理和交换过程,面向的用户群也只是机关办公室或企业的职能部门、文秘部门。
其实,今天看来,OA应有更丰富的内容和层面,更广泛的用户群。
以下是笔者对OA在功能上以及所涉及的技术范畴的肤浅理解,愿与同行商榷。
功能方面:广义面言,OA应该是一个企业除了生产控制之外的一切信息处理与管理的集合。
它面向不同层次的使用者,便有不同的功能表现: 对于企业高层领导而言,OA是决策支持系统(DSS)。
OA运用科学的数学模型,结合企业内部/外部的信息为条件,为企业领导提供决策参考和依据; 对于中层管理者而言:OA是信息管理系统(IMS),OA利用业务各环节提供的基础“数据”,提炼出有用的管理“信息”,把握业务进程,降低经营风险,提高经营效率; 对于普通员工而言:OA是事务/业务处理系统。
OA为办公室人员提供良好的办公手段和环境,使之准确、高效,愉快地工作。
技术范畴:OA是计算机技术在办公业务中的合理应用。
计算机技术是OA的前提。
如果脱离计算机技术面...
转载请注明出处51数据库 » 怎么注册oa软件下载
正在加班中