VB稿件投递管理系统的设计与开发毕业论文.doc_第1页
VB稿件投递管理系统的设计与开发毕业论文.doc_第2页
VB稿件投递管理系统的设计与开发毕业论文.doc_第3页
VB稿件投递管理系统的设计与开发毕业论文.doc_第4页
VB稿件投递管理系统的设计与开发毕业论文.doc_第5页
已阅读5页,还剩27页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

湖南文理学院芙蓉学院本科生毕业论文(设计)题 目: 稿件投递管理系统设计 与开发 目 录摘要1第1章 绪论21.1 研究背景21.2 研究现状及发展趋势21.3 论文的组织结构3第2章 系统开发工具与关键技术介绍42.1 Visual Basic 6.0的简介42.2 ACCSEE简介4第3章 系统分析53.1系统可行性分析53.1.1技术可行性53.1.2经济可行性53.1.3操作可行性63.2系统描述63.2.1功能模块和结构图63.2.2功能概述63.3系统数据流图7第4章 概要设计94.1 各模块功能描述94.2数据库设计104.2.1概念结构设计114.3.2逻辑结构设计12第5章 详细设计与系统实现145.1系统界面设计与实现145.1.1系统登录注册界面设计145.1.2稿件管理界面设计145.1.3查询界面设计15第六章 主要界面16第七章 结论27致谢28参考文献28稿件投递管理系统设计与开发电子信息科学与技术专业学生:郭超指导教师:张大磊摘要:稿件投递管理系统分为三个主体模块:系统管理、稿件管理和查询管理几个模块。用户分定权限为:管理员、作者和专家登陆。避除了传统邮寄方式投递时间长,反馈时间更长,并有投递错误、半路遗失的可能。基于VB的稿件投递管理系统,在时效性和安全性上都迈进了一大步,但同时也存在着许多不足,如受限与邮箱容量的大小、易受网络病毒的破坏影响等。关键词:稿件处理,VB,ACCESSDesign and Development Of Manuscript Submission Management SystemElectronics and Information Science and Technology Candidate: Guo ChaoAdvisor:Zhang DaleiAbstract: The manuscripts delivery management system is divided into three main modules: system management, contributions management, and query management module etc. The uses is sub-set the permissions as the follows:administrators, authors and experts landed.It can avoid mailling delivery long , feedback longer,and delivery errors,lost in halfway like traditionals.The manuscript delivery management system based on VB takes a big step on timeliness and security.Butit also has many disadvantages,such as the size of the limited mailbox capacity,easily be damaged by the network virus and so on.Keywords:Manuscript Handling,VB,ACCESS第1章 绪论1.1 研究背景传统的投稿方式有邮寄和电子邮件两种。邮寄方式投递时间长,反馈时间更长,并有投递错误、半路遗失的可能,既慢又不保险。E - mail 方式基于网络环境下,利用广大Internet 服务提供商提供的电子邮件服务投递邮件,比起传统的邮寄,这种方式在时效性和安全性上都迈进了一大步,但同时也存在着许多不足,如作者本人邮箱容量的限制、主编邮箱的承载量的限制等。建立基于VB 的投稿处理系统后,其前台的用户可以在线投递并能在第一时间内收到用稿通知;后台管理员则可在线阅读、审批来稿,从而实现投稿- 采编- 发布一体化。提高工作效率、加强信息资源共享1。1.2 研究现状及发展趋势根据调查得知,以前主编部对稿件管理的主要方式是基于文本、表格等纸介质的手工处理,数据处理手工操作,工作量大,出错率高,出错后不易更改。主编部征稿、刊登稿件信息发表不便;投稿主要通过邮寄的形式,交通不便、地理、路途事故等多种原因,到达主编部的可能性较低。后来,借助Internet,主编部借助网络来推广,作者也可以通过E-mail来投稿,此种方式给双方带来了不少便利;但有很多缺点,数据繁多,容易丢失和出错,且不易查找。总的来说,缺乏系统、规范的信息管理手段,没有完全发挥计算机的效力,资源闲置比较突出。期刊的稿件处理效率直接影响着期刊的发展,利用网络技术可以提高工作效率已是不争的事实。推广使用基于网络的稿件远程处理模式,以加快稿件的处理速度, 提高稿件处理过程的透明度, 增强稿件作者与审稿专家、期刊主编间的互动交流, 这种模式在现有的技术条件下也是完全可以实现的。通过互联网搜索引擎发现,国内已有数十种杂志基本实现了稿件的远程处理, 比如中科院数学院的期刊、无机化学学报、计算机工程与应用,新闻出版行业(如人民日报)、国内核心期刊(如北京大学中文核心期刊)、国际重要会议(如中国学术会议),学报社(电脑学报、自然科技学报等)等大型杂志社和主编部逐步使用办公自动化管理自身工作流程,开发出各类功能强大、使用便捷、符合自身特点的信息化管理软件系统,如中华医学会杂志社稿件处理系统、科技期刊(学报)编务处理系统,大大优化了工作流程,提高工作质量和效率。但国内大部分期刊还没有付诸实施。国外的学术期刊在这方面则相对好得多,达70%以上, 目前具备稿件远程处理功能的教育技术专业期刊大部分集中于美国, 虽然总体水平也并不高, 使用面也不广,但毕竟在期刊出版信息化、数字化方面开始了探索与实践, 值得国内教育技术期刊借鉴。对于自身人力物力相对缺乏的中小型期刊,紧跟信息化趋势是一个新课题。可以预见的是,随着网络信息化进一步发展,办公自动化会更多地应用于科技期刊的工作管理,也会对现代科技期刊的发展产生积极的推动作用2。1.3 论文的组织结构本论文分为七章,具体的内容组织如下:第1章绪论给出课题的研究背景、研究现状及发展趋势。第2章系统开发工具与关键技术介绍首先介绍了系统主要开发工具Microsoft Visual Basic 6.0和ACCESS数据库,然后介绍了系统客户服务器的体系结构和系统。第3章系统分析通过对业务处理流程的调查,首先了解系统需求,总结出任务概述和可行性分析。在业务调查中,给出业务流程图以及数据流图。第4章概要设计本章主要是对功能模块和数据库的设计,给出了系统的功能模块图、E-R图以及数据库表结构。第5章 详细设计与系统实现本章主要给出了各模块界面设计以及主要模块算法设计。第6章 主要界面对系统主要模块图解。最后,总结开发此系统的过程和遇到的问题,提供参考文献、致谢。并附录上外文翻译。第2章 系统开发工具与关键技术介绍2.1 Visual Basic 6.0的简介Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。VB6.0是与WIN98配合于1998年推出的,进一步加强了数据库、Internet和创建控件方面的功能。VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序,以及可调整的服务器端部件。VB中提供大量的控件,这些控件可帮助我们设计界面和实现功能,减少了编程人员的很多麻烦,提高了编程的效率和可靠性。所以我选择Visual Basic 6.0作为我这套系统的开发环境3。面向对象的程序设计(Object-Oriented Programming,简记为OOP)是Visual Basic6.0诞生的基础。OOP立意于创建软件重用代码,具备更好地模拟现实世界环境的能力,这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句,把函数“封装”进Windows编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是一场革命,不是对对象本身而言,而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容,只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的,否则对象产生的好处还没有带来的麻烦多。而Visual Basic6.0是完全面向对象的,这就使得Visual Basic6.0成为一种触手可及的促进软件重用的开发工具,从而具有强大的吸引力4。2.2 ACCSEE简介Access是Office办公套件中一个极为重要的组成部分。现在它已经成为Office办公套件中不可缺少的部件了。Microsoft 公司在Access 95 的基础上陆续推出了 Access 97、Access 2000,成为世界上最流行的桌面数据库管理系统之一。Access是一种关系型数据库管理系统,不但能存储和管理数据,还能编写数据库管理软件,用户可以通过Access提供的开发环境及工具方便地构建数据库应用程序,大部分是直观的可视化的操作,无需编写程序代码,是一种使用方便、功能较强的数据库开发工具。第3章 系统分析 3.1系统可行性分析可行性分析也称为可行性研究,是在系统调查的基础上,针对新系统的开发是否具备必要性和可能性,对新系统的开发从技术、经济、社会的方面进行分析和研究,以避免投资失误,保证新系统的开发成功 。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决,因此该系统的可行性分析包括以下几个方面的内容。3.1.1技术可行性(1) 硬件设备及操作系统:服务器:Pentium4以上配置的高性能PC机,内存应在256M以上,硬盘在40G以上。确认该计算机已经安装数据库软件Microsoft Visual Basic 6.0软件。操作系统:Windows 9x/Me、Windows 2000、Windows XP、Windows NT,分辨率:1024*768。客户端:Pentium233(或与此相当的CPU)以上配置的PC机,内存应在32M以上,硬盘在1G以上。Windows 9x以上操作系统。确认已安装BDE。(2) 开发平台前台开发工具:Microsoft Visual Basic 6.0:前台开发工具:Microsoft Visual Basic 6.0后台数据库:Access 20003.1.2经济可行性(1)在社会效益方面:传统的稿件处理和管理系统大多是由人手工完成的。浪费了大量的人力、物力,且不利于工作效率的提高和管理水平的提升。随着网络的发展,逐渐兴起了网络书稿的热潮。这样可以实现从投稿,审稿,主编,发行等全过程的网络化,比传统模式更加灵活方便。(2)在经济效益方面:在软件技术方面是以大型数据库等成熟的应用软件作为支撑建立起来的调度管理信息系统,实现了调度业务的现代化管理模式。整个系统的开发所需的费用主要是在软件开发和维护上面,这相对于传统的人工审稿和稿件管理维护来说,大大减轻工作人员的劳动强度,极大地提高了工作效率,可节约大量的人力、财力和物力。3.1.3操作可行性界面设计时充分考虑管理人员的习惯,使得操作简单;数据录入迅速、规范、可靠;统计准确;制表灵活;适应力强;容易扩充。具有易用性、灵活性、开放性与可视性。3.2系统描述随着计算机在办公中的普遍应用,越来越多的杂志社或主编部采用计算机软件对稿件进行管理。为此开发稿件处理系统,使其可以减轻主编人员的重复劳动,可以全方位整合资源,提高工作效率,缩短稿件发表周期,提高竞争能力。它还可以帮助主编部管理作者、专家信息,帮助主编部与他们的联系,实现投稿、审稿的网络化,扩大工作的范围和影响力,提高稿件质量。3.2.1功能模块和结构图基于VB在线投稿和稿件处理系统分两种角色用户,分别是作者和专家。两种用户都是通过输入正确的用户名和密码登录系统。作者可实现的操作有投稿、稿件管理、修改个人信息;专家可实现的操作有审稿、修改个人信息。稿系统功能模块图如下图3-1所示。基于VB的稿件投递管理系统作者专家投稿稿件管理修改个人信息稿件管理稿件审核修改个人信息图3-1功能模块图3.2.2功能概述(1) 作者投稿:作者可以直接投稿,以及确认稿件的处理情况l 作者登录。l 个人稿件管理。l 个人信息管理。(2) 专家审稿:专家对稿件进行批阅,给出评语以及判定结果l 专家登陆:作为稿件处理的审稿者,必须在登陆以后方可进入其管理界面。l 作品审查:对稿件进行审批,给出意见。l 个人管理:修改个人信息。(3) 安全维护:对系统相关权限人员进行管理l 增加删除专家。l 增加删除管理员。l 增加删除作者。3.3系统数据流图数据流图简称DFD,是SA方法中用于表示系统逻辑模型的一种工具。它以图形的方式描述数据在系统中流动和处理的过程,由于它只反映系统必须完成的逻辑功能,所以它是一种功能模型。下面给出系统的数据流图。(1) 系统管理数据流图管理员用户输入用户名和密码登录系统,通过核对用户信息,进入系统进行系统管理。系统管理包括管理员信息管理、专家信息表管理和稿件信息管理。系统管理员对稿件的管理是对稿件进行查询、删除和采纳操作,数据流程图如下图3-2所示。用户登陆核对管理员信息系统管理管理员信息专家信息表管理员管理专家管理文章信息稿件删除稿件查询稿件采用图3-2系统管理数据流图(2) 作者在线处理稿件数据流图作者输入用户名和密码登录系统,新用户可以在线注册再登录系统。作者可以通过系统查看和修改个人信息;可以在线上传、查看和删除稿件,从而作者用户数据库信息会得到相应修改,数据流程图如下图3-3所示。用户登陆核对作者信息信息管理作者信息专家信息表查看修改文章信息查看编写稿件删除图3-3作者在线稿件处理数据流图(3) 专家审稿数据流图专家输入用户名和密码登录系统,信息管理包括专家个人信息修改和稿件信息查看,数据流程图如下图3-4所示。用户登陆核对专家信息信息管理作者信息修改文章信息查看图3-4专家审稿数据流图第4章 概要设计4.1 各模块功能描述(1) 首页模块功能首页是各个登录页面的入口链接了系统管理界面。(2) 系统管理模块功能可以添加管理员,专家和主编用户。(3) 用户登录模块功能用户只有登录后才可以进行投稿和进入自己的控制面板进行自己的投稿管理。如没有登录系统提示错误并返回登录页面。(4) 稿件模块功能注册了的用户可以登陆后可以通过连接进入投稿页面主编自己的稿件相关信息。(5) 查看待审的稿件和已审稿件模块功能用户登录后进入自己控制面板可以查看自己投稿的处理情况。(6) 作者管理模块功能用户可以登录后修改自己的信息。(7) 稿件修改模块功能用户可以从稿件信息页面在线修改稿件信息。(8) 管理员登录模块功能从该页面登录才可以进行刮泥操作。(9) 管理员添加模块功能基于VB的投稿与稿件处理系统会有一个初始账号,其他管理员要由管理员添加才能加入管理员行列。(10) 稿费管理模块功能作者可以再在里面看到看到基本的稿费设置和作者自己的缴费情况浏览。(11) 审核管理模块功能管理员可以设置管理类型,由专家对稿件进行审批。4.2数据库设计数据库的规划和设计在整个软件工程中占有非常重要的地位,它在整个系统中不但起着存储各种信息,供统计、查询、分析等使用的作用,而且协调各个子系统之间的数据接口。数据库设计应具有合理性、规范性以及适应性,数据库之间的关系及设置直接关系到系统的优劣。设计数据库系统时应首先需要充分了解用户各个方面的需求,包括现有的以及将来可能增加的需求。为了提高系统开发的质量和效率,基础数据管理和查询维护子系统的数据库设计遵循以下原则5:(1) 层次分明,布局合理。数据库系统必须层次分明,合理布局,数据信息进行浓缩、归纳、合并,减少冗余,提高数据共享程度。(2) 保证数据结构化、规范化、编码标准化。这是建立数据库系统和进行业务部门内、外信息交换的基础。在每一个数据库设计之前都有一个充分的、详细的数据分析、数据格式及较为统一的编码,为减少数据的冗余量,应尽量避免数据库结构的重复,并保证整个数据库设计的完整性。(3) 数据的独立性和可扩展性。做到数据库的数据具有独立性,独立于应用程序,使数据库的设计及其结构的变化不影响程序,反之亦然。此外,由于业务也是在不断变化的,所以数据库设计需考虑其扩展接口,使系统增加新的应用或新的需求时,不会引起整个数据库系统的重新改写6。(4) 共享数据的完整性、正确性和一致性。应充分考虑数据资源的共享,合理建立公共数据库。采用数据库分层管理,使不同层次的信息数据共享。另外,由于共享数据是面向多个程序或多个使用者的,多个用户存取共享数据时,必须保证数据的正确性和一致性。(5) 减少不必要的冗余。建立数据系统后,应避免不必要的数据重复和冗余。(6) 保证数据的安全可靠。数据库是整个信息系统的核心,它的设计要保证其可靠性和安全性,不能因某一数据库的故障导致整个系统的瘫痪。做好对数据库访问的授权设计,对数据的非法访问,病毒侵扰和软、硬盘故障破坏,采取相应的保密措施7。4.2.1概念结构设计概念结构设计是将分析得到的用户需求抽象为概念模型的过程,即在需求分析的基础上,设计出能够满足用户需求的各种实体以及它们之间的相互关系的模型。概念结构的主要特点是能真实、充分地反映现实世界,易于理解,易于更改,易于向关系、网状、层次等各种数据模型转换。描述概念模型的有力工具是E-R模型。(1) 基于VB的投稿与稿件处理系统的E-R图如图4-1所示。图4-1系统E-R图作者投稿,相关栏目的专家评审,评审通过后再决定是否采纳稿件。整个过程由主编修改稿件状态。(2) 系统的部分实体属性E-R图如图4-2、4-3所示。图4-2稿件属性E-R图稿件E-R图包括稿件编号、所属栏目类型、名称、内容、发表日期、作者名、修改、审查、采用。图4-3审查记录属性E-R图审查记录E-R图包括审查编号、文章编号、专家名、评语、审查日期。4.3.2逻辑结构设计逻辑结构设计的任务就是把概念结构设计阶段设计好的基本E-R图转换为与所支持的数据模型相符合的逻辑结构。基于VB的投稿与稿件处理系统采用的是将E-R图向关系数据模型转换。数据库表结构如表4-14-4所示。表4-1作者信息表 字段名类型允许空作者编号文本作者姓名文本性别文本生日时间/日期电话号码数字住址文本表4-2 稿件管理信息表字段名类型允许空稿件编号文本稿件类型文本季度文本审批状态文本专家意见文本稿件题目文本稿件相关文本作者文本表4-3 专家信息表字段名类型允许空专家编号文本专家姓名文本职称文本null电话号码数字备注文本表4-4管理员信息表字段名类型允许空用户名文本登陆密码文本用户权限文本表4-5 稿件信息表字段名类型允许空作者投稿编号文本作者编号文本稿件编号文本专家编号文本稿件时间时间/日期投稿年份文本第5章 详细设计与系统实现5.1系统界面设计与实现5.1.1系统登录注册界面设计 在系统菜单下设置五个下拉菜单:用户注册,注销,退出,重新登陆和用户管理。用户注册:可以注册新的用户账号和密码。重新登录:可以使用用户账号和密码进行重新登录。 用户管理:在用户登录成功后可以对自己的密码进行修改的操作。5.1.2稿件管理界面设计在稿件管理菜单下设置五个下拉菜单:作者信息管理、作者稿件投递、专家信息管理、稿件审批管理和专家稿件类型选择。作者信息管理:可以添加、浏览和查询作者的基本信息。以使得新的作者的信息得以管理。作者稿件投递:作者可以选择自己稿件所投递的稿件类型来进行投递。 专家信息管理:可以添加、浏览和查询专家的基本信息。以使得新的专家的信息得以管理。稿件审批管理:可以添加、浏览和查询稿件的基本信息。专家从中选取稿件来进行审批。专家稿件类型选择:专家可以选择自己所善于的稿件类型来进行审批管理。(1)添加作者和专家点击“新增”按妞。填写相应的信息,其中作者编号,不允许重复,系统将判断,重复有提示。(2)修改信息请先选择您要修改的作者、专家信息,(选择可以通过“上一条”“下一条”或者打开列表框,在列表框中选择)点击“修改”按妞,这是所有现都变成可写,您可以做相应的修改,与新增类似。修改完后,请确定。如果你当中不想修改了,请“退出”。(3)删除选择要删除的作者或专家后,点击“删除”系统提示确认,点击“确认”数据删除,注意数据不可恢复。(4)选择 作者和专家可以选择自己善于的稿件类型投递或进行审批,点击选择按钮可以看见自己所选择的稿件类型。而且可以进行删除或者修改。5.1.3查询界面设计在查询菜单下设置两个下拉菜单:作者稿件类型查询和专家稿件类型查询,如图5.1所示。图5-1用户查询目录第六章 主要界面主要通过ADO数据库与Data Grid的连接,实现了保存在数据库中各个会员用户的相应信息全部显示在Data Grid 上,以便于管理员浏览及其他相应操作8。用户登录界面:图6-1用户登录主要代码如下:Static error_count As IntegerIf txtUserName.Text = And txtPassword.Text = Then MsgBox 请输入用户名和密码, vbExclamation + vbOKOnly, 登陆提示 txtUserName.SetFocusElse Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from pwd where 用户名= & txtUserName.Text & Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox 用户名不正确,请您确认后重新输入, vbExclamation + vbOKOnly, 登陆提示 txtUserName.Text = txtUserName.SetFocus Else Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from pwd where 用户名= & txtUserName.Text & and 密码= & txtPassword.Text & Adodc1.Refresh If Adodc1.Recordset.EOF = True Then error_count = error_count + 1 If error_count = 3 Then MsgBox 您是非法用户,系统即将关闭, vbCritical + vbOKOnly, 登陆提示 Unload Me Else MsgBox 密码不正确,请您确认后重新输入, vbExclamation + vbOKOnly, 登陆提示 txtPassword.Text = txtPassword.SetFocus End If Else If Adodc1.Recordset!权限 = 作者 Then qx = 作者 UserName = txtUserName.Text MsgBox 欢迎作者登陆! & vbCrLf & vbCrLf & 你只有作者的权限!, vbInformation + vbOKOnly, 登陆提示 MDIForm1.sys.Enabled = False Login_frm.Hide MDIForm1.Show MDIForm1.Enabled = False txtUserName.Text = txtPassword.Text = MDIForm1.student.Enabled = True MDIForm1.s_choice.Enabled = True MDIForm1.stchquery.Enabled = True MDIForm1.User.Enabled = True MDIForm1.Command1.Enabled = True MDIForm1.denglu.Enabled = False MDIForm1.teacher.Enabled = False MDIForm1.course.Enabled = False MDIForm1.t_choice.Enabled = False MDIForm1.tequery.Enabled = False MDIForm1.Command2.Enabled = False MDIForm1.Command3.Enabled = False MDIForm1.user_manage.Enabled = False ElseIf Adodc1.Recordset!权限 = 专家 Then qx = 专家 UserName = txtUserName.Text MsgBox 欢迎专家登陆! & vbCrLf & vbCrLf & 你只有专家的权限!, vbInformation + vbOKOnly, 登陆提示 MDIForm1.sys.Enabled = False Login_frm.Hide MDIForm1.Show MDIForm1.Enabled = False txtUserName.Text = txtPassword.Text = MDIForm1.teacher.Enabled = True MDIForm1.course.Enabled = True MDIForm1.t_choice.Enabled = True MDIForm1.tequery.Enabled = True MDIForm1.User.Enabled = True MDIForm1.Command2.Enabled = True MDIForm1.Command3.Enabled = True MDIForm1.denglu.Enabled = False MDIForm1.student.Enabled = False MDIForm1.s_choice.Enabled = False MDIForm1.stchquery.Enabled = False MDIForm1.Command1.Enabled = False MDIForm1.user_manage.Enabled = False ElseIf Adodc1.Recordset!权限 = 管理员 Then qx = 管理员 UserName = txtUserName.Text MsgBox 欢迎管理员登陆! & vbCrLf & vbCrLf & 你有所有的权限!, vbInformation + vbOKOnly, 登陆提示 Login_frm.Hide MDIForm1.Show MDIForm1.Enabled = False txtUserName.Text = txtPassword.Text = End If End If End IfEnd If用户注册界面:图6-2注册用户主要代码如下:If newuser And newpwd1 And newpwd2 Then Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(0) = newuser.Text Then MsgBox 用户已存在! newuser = newpwd1 = newpwd2 = newuser.SetFocus Exit Do ElseIf newpwd1 newpwd2 Then MsgBox 两次输入密码不一致!请重新输入! newpwd1 = newpwd2 = newpwd1.SetFocus Exit Do Else Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveNext Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = newuser.Text Adodc1.Recordset.Fields(1) = newpwd1.Text MsgBox 注册成功! Adodc1.Recordset.Update Adodc1.Recordset.Close Unload Me Exit Do Adodc1.Recordset.MoveNext End If Loop Else MsgBox 密码或用户名不能为空! Exit SubEnd If稿件信息管理界面:图6-3稿件信息管理主要代码如下:If Option1.Value = True Then qn = cno txt = Text1.Text End If If Option2.Value = True Then qn = cname txt = Text2.Text End If If Option3.Value = True Then qn = credit txt = Text3.Text End If Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from course where & qn & = & txt & Adodc1.Refresh No = Adodc1.Recordset.Fields(0) Dim myrs As New ADODB.Recordset Dim query1 As String query1 = SELECT * FROM choice WHERE course = & Trim(No) & myrs.Open query1, con, adOpenForwardOnly, adLockReadOnly Set DataGrid1.DataSource = Nothing If Not (myrs.EOF And myrs.BOF) Then myrs.MoveFirst myrs.MoveLast End If If myrs.RecordCount 0 Then MsgBox 不能删除、与其他表有相关数据联系!, vbInformation + vbOKOnly, 删除提示 Else MsgBox 能删除、与其他表没有相关数据联系!, vbInformation + vbOKOnly, 删除提示 Adodc1.Recordset.DeleteEnd If作者信息管理界面:图6-4作者信息管理主要代码如下: Dim myrs As New ADODB.Recordset myrs.Open SELECT * FROM studentinfo, con, adOpenDynamic, adLockOptimistic, adCmdText myrs.AddNew If Text1.Text = Empty Then MsgBox 作者编号不能为空! Text1.SetFocus Exit Sub End If If Text2.Text = Empty Then MsgBox 姓名不能为空! Text2.SetFocus Exit Sub End If If Combo1.Text 2300 And Combo1.Text 12 Then MsgBox 月份不能大于12,小朋友! Exit Sub Else Select Case Combo2.Text Case 1, 3, 5, 7, 8, 10, 12 If Combo3.Text 31 Then MsgBox Combo2.Text & 月不能多于31天! Exit Sub End If Case 4, 6, 9, 11 If Combo3.Text 30 Then MsgBox Combo2.Text & 月不能多于30天! Exit Sub End If Case 2 If Val(Combo1.Text) 400 = Val(Combo1.Text) / 400 _ Or Val(Combo1.Text) 4 = Val(Combo1.Text) / 4 Then If Combo3.Text 28 Then MsgBox 闰年2月不能多于28天! Exit Sub End If Else If Combo3.Text 29 Then MsgBox 平年2月不能多于29天! Exit Sub End If End If End Select End If myrs.Fields(0) = Text1.Text myrs.Fields(1) = Text2.Text myrs.Fields(2) = Combo4.Text myrs.Fields(3) = Combo1.Text & - & Combo2.Text & - & Combo3.Text myrs.Fields(4) = Text3.Text myrs.Fields(5) = Text4.Text myrs.Fields(6) = RichTextBox1.Text myrs.Update 调用Recordset对象Update方法保存数据 Set DataGrid2.DataSource = myrs Text1.Text = Empty Text2.Text = Empty Text3.Text = Empty Text4.Text = Empty RichTextBox1.Text = Empty MsgBox 添加成功!专家信息管理界面:图6-5专家信息管理主要代码如下:Private Sub Command1_Click()Dim query1 As StringIf Option1.Value = True Then qn = tno query1 = SELECT * FROM teacherinfo WHERE & qn & = & Text1 & End IfIf Option2.Value = True Then qn = tname query1 = SELECT * FROM teacherinfo WHERE & qn & = & Text2 & End IfIf Option3.Value = True Then qn = title query1 = SELECT * FROM teacherinfo WHERE & qn & = & Text3 & End IfDim rs As New ADODB.Recordset rs.Open query1,

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论