收藏 分销(赏)

旅游资源及线路管理系统.doc

上传人:pc****0 文档编号:7147758 上传时间:2024-12-27 格式:DOC 页数:20 大小:244KB 下载积分:10 金币
下载 相关 举报
旅游资源及线路管理系统.doc_第1页
第1页 / 共20页
旅游资源及线路管理系统.doc_第2页
第2页 / 共20页


点击查看更多>>
资源描述
旅游资源及线路管理系统 需求分析<BR>2.1 软件的需求分析<BR>软件需求分析是指用户对目标系统在功能、性能、行为、设计约束等方面的期望。<BR>需求分析的任务是确定系统必须完成哪些工作,也就是对目标系统提出完整、准确、清晰、具体的要求。需求分析的结果是系统开发的基础,关系到工程的成败和软件产品的质量。<BR>2.2 需求分析阶段对系统的综合要求有四个方面:<BR>(1) 系统功能要求<BR>应该划分出系统必须完成的所以功能。<BR>(2) 系统性能要求<BR>系统需要的存储容量以及后援存储,重新启动和安全性等方面的考虑都属于性能要求。<BR>(3) 运行要求<BR>这类要求集中表现为对运行时所处环境的要求。<BR>(4) 将来可能提出的要求<BR>应该明确地列出那些虽然不属于当前系统开发范畴,但是据分析将来很可能会提出来的要求。这样做的目的是在设计过程中对系统将来可能的扩充和修改预做,以便一旦需要时能比较容易地进行这种扩充和修改。<BR>通过这些需求分析来确定整个系统的功能模块设计和界面的设置和安排。需求分析在整个软件开发设计中起着十分重要的作用。因此,在实际的工程中,应该接触产品的最终用户或者最终用户代表。缺乏这样的接触,对于许多需求问题,就无法得到可靠的回答。如果缺乏可靠的需求信息,就无法生产出高质量的产品。实际上,使用不可靠的需求信息,产品无疑是不能使用的,而且常常不是用户所想要的。<BR>3.方案论证<BR>3.1 技术可行性<BR>旅游资源及线路管理系统的实现技术有多种,可以采用传统的客户机/服务器(C/S)型的MIS型架构。另外一种采用Web 技术实现。Web技术超越了传统的“客户机/服务器”两层结构,采用三层体系结构:用户界面层/事务层/数据库层。因此Web结构有着更好的安全性。在用户机上不需要安装任何应用程序,应用程序可以安装在事务层所在的计算机上,数据内容存放在数据库服务器上。<BR>C/S模式是一种分布式的处理模式,用Server进行数据处理,用Client运行前端应用软件,具有如下特点:<BR>(1)、系统的可靠性好,可以在网上方便地增加Client或Server,通常增加一个Client ,并不需要增加多少Server的开销。<BR>(2)、C/S模式支持开放的Client接口和开放的Server接口,往往不依赖于硬件及操作系统平台,便于应用程序的移植。<BR>(3)、由于C/S模式采用数据集中,处理分散的模式,主机模式下的DBMS数据完整性得以保留。<BR>(4)、由于充当Client 的PC机,具有良好的图形界面和丰富的应用软件,使得它的表现能力强,访问数据十分容易。<BR>从而,使C/S模式成为信息平台的发展趋势。<BR>3.2 开发工具及开发平台的选择<BR>本系统采用C/S模式(即客户机-服务器模式),用VB 作为应用程序的前端开发工具,与后端的SQL Server2000数据库相结合的方式来完成。再加上VB作为一种面向对象的可视化编程工具,具有简单易学,灵活方便和易于扩充的特点。VB通过配置ODBC数据库连接到SQL Server 2000数据库,再通过ADO、RDO和DAO对这些数据进行访问和操作,这更有便于数据的管理和安全。<BR>3.3 采用SQL Server 2000 数据库的优点<BR>SQL可用于所有用户的DB活动模型,包括系统管理员、数据库管理员、应用程序员、决策支持系统人员及许多其它类型的终端用户。基本的SQL命令只需很少时间就能学会,最高级的命令在几天内便可掌握。<BR>SQL为许多任务提供了命令,其中包括:<BR>● 查询数据<BR>● 在表中插入、修改和删除记录<BR>● 建立、修改和删除数据对象<BR>● 控制对数据和数据对象的存取<BR>● 保证数据库一致性和完整性<BR>以前的数据库管理系统为上述各类操作提供单独的语言,而SQL将全部任务统一在一种语言中。<BR>系统总体设计规划<BR>在通过以上的需求分析、方案论证、开发工具及开发平台的选择、服务器与客户端配置,一切开发前的就绪工作做好以后,我们就可以进入系统的总体开发和设计了。下面主要介绍系统的总体设计和规划。<BR>5.1 系统功能描述<BR>本系统所描述的旅游资源及线路管理的主要功能包括:<BR>(1) 地域信息管理功能<BR>◆&nbsp; 地域信息的录入,包括地域名称和地域类型等信息; <BR>◆&nbsp; 地域信息的修改; <BR>◆&nbsp; 地域信息的删除;<BR>&nbsp; ◆&nbsp; 地域信息的查询。<BR>(2) 景点资源管理功能<BR>&nbsp; ◆&nbsp; 景点资源的录入,包括景点编号、景点名称、联系人、票价等信息;<BR>&nbsp; ◆&nbsp; 景点资源的修改;&nbsp; <BR>&nbsp; ◆&nbsp; 景点资源的删除;<BR>&nbsp; ◆&nbsp; 景点资源的查询。<BR>(3) 宾馆资源管理功能<BR>&nbsp; ◆&nbsp; 宾馆资源的录入,包括宾馆编号、宾馆名称、联系人、报价等信息;<BR>&nbsp; ◆&nbsp; 宾馆资源的修改;<BR>&nbsp; ◆&nbsp; 宾馆资源的删除;<BR>&nbsp; ◆&nbsp; 宾馆资源的查询。<BR>(4) 餐厅资源管理功能<BR>&nbsp; ◆&nbsp; 餐厅资源的录入,包括餐厅编号、餐厅名称、联系人、报价等信息;<BR>&nbsp; ◆&nbsp; 餐厅资源信息的修改;<BR>◆&nbsp;餐厅资源信息的删除;<BR>&nbsp; ◆&nbsp; 餐厅资源信息的查询。<BR>(5) 娱乐资源管理功能<BR>&nbsp; ◆&nbsp; 娱乐资源信息的录入,包括娱乐厅编号、娱乐厅名称、联系人、报价等信息;<BR>&nbsp; ◆&nbsp; 娱乐资源信息的修改;<BR>&nbsp; ◆&nbsp; 娱乐资源信息的删除;<BR>&nbsp; ◆&nbsp; 娱乐资源信息的查询。<BR>(6) 交通资源管理功能<BR>&nbsp; ◆&nbsp; 火车资源信息管理;<BR>&nbsp; ◆&nbsp; 飞机资源信息公里。<BR>(7) 旅游线路管理功能<BR>&nbsp; ◆&nbsp; 旅游线路信息的录入,包括线路编号、线路名称、报价等信息;<BR>&nbsp; ◆&nbsp; 旅游线路信息的修改;<BR>&nbsp; ◆&nbsp; 旅游线路信息的删除;<BR>&nbsp; ◆&nbsp; 旅游线路信息的查询。<BR>(8) 系统用户管理功能<BR>&nbsp; ◆&nbsp; 系统用户信息的录入,包括用户名、密码等信息;<BR>◆&nbsp; 系统用户信息的修改;<BR>◆&nbsp; 系统用户信息的删除;<BR>◆&nbsp; 系统用户信息的查询。<BR> </p> 编者按:从中共中央、国务院公布《关于深化教育革新片面推进素质教育的决议》,明白提出“在高中阶段的学校和有条件的初中、小学普及计算机操作和信息技术教育”之时算起,信息技术教育曾经走过了整整十年历程。十年光阴,足以让一个踉跄学步的孩子生长为步履稳健的少年。关于信息技术教育而言,这十年亦是见证生长的十年。正是这十年,国度层面的许多重要决策推进着信息技术教育从起步到开展壮大,披荆斩棘、不时前行。为此,在本期筹划的开篇,我们特殊 清点了信息技术教育十年的十大事情,带着大家回忆十年历程中的十个要害 时辰。<br>  “筚路蓝缕,以启山林。”任何新事业的开创都要阅历一段艰辛的历程。信息技术教育的开展也不例外。勤勤恳恳的一线信息技术教员正是这段历程最主要的开创者。作为信息技术教育十年开展的亲历者和见证人,关于信息技术教育十年的开展变迁,他们也是最有感受的。为此,我们经过网上征稿、约稿等方式,面向广阔一线教员每年征集了一个有代表性的故事,试图再现当年信息技术教员在教育教学实际中的各种真实阅历和逼真感受。这十个故事也许是伟大的,却凝聚 着他们对信息技术教育的深沉情感和对信息技术教育倾注的心血。置信当您读到这些故事的时分,总有一个可以引发您的共鸣。<br>  应该说,经过十年的开展,信息技术教育的教学实际和学科树立正日益走向成熟。但当我们注视信息技术教育的状况时,依然会发现许多不得不深思和亟待处置的效果。为此,本刊编辑部的四位编辑区分从教学、教材、研训和评价四个层面梳理了信息技术教育开展的状况,试图勾勒以后信息技术教育所面临的效果,竭力追求信息技术教育的开展之道。<br>  走过十年,目前的路途依然不够平整,前方的征途依然迂回、艰辛,但我们会锲而不舍,继续努力去探求和跟随!<br>  <br> </p> 本文出自: 计算机毕业设计 转载请注明出处 <p> </p> 本文出自: 计算机毕业设计 转载请注明出处 <p> </p> 学生治理 信息治理 系统作为学校教育治理 信息治理 系统的一个重要组成局部,对学校应用信息技术提高学校治理 绩效和水平起着要害 的作用。<br>  一、学生治理 信息治理 系统的主要功用模块剖析<br>  经过网络搜索以及文献研讨,我们重点选取了8个具有代表性并可以经过互联网进入的中小学学生治理 信息治理 系统。这8个系统曾经被普遍运用于中小学校的学生治理 中。国际很多教育行政部门和学校将学生治理 信息治理 系统作为学校教育治理 信息治理 系统的一个组成局部,因此我们只对触及学生信息的相关模块停止剖析(见下表)。<br>  学生治理 信息治理 系统的基本信息<br>  <br>  经过上表我们可以看出,这8个学生治理 信息治理 系统绝大局部都失掉了普遍的运用。在美国Power- school系统的用户最多,到达1万多所,而国际运用最普遍的是中小学综合治理 系统和ZDSoft校校通软件平台。<br>  经过综合比拟剖析,我们总结出学生治理 信息治理 系统主要涵盖以下功用模块。 <br>  1.学生学籍治理 和教务治理 <br>  学生治理 信息治理 系统最基本的功用是对学生的学籍信息停止电子化治理 和教务治理 。<br>  学籍治理 主要包括三大类。第一类是学生档案治理 ,主要是对学生基本状况、联络方式、学生家庭状况、学生受奖惩状况、学生安康信息、学生学习简历等信息停止治理 ;第二类是学生日常治理 ,主要是对学校学生报到注册、转学、退学、转入、转出等信息停止治理 ;第三类是毕业生信息治理 ,主要是可以对毕业生的效果、档案等信息停止查询。<br>  教务治理 主要包括四大类。第一类是学校设置,主要包括学校基本信息、学期设置、课程设置、毕业要求设置等;第二类是班级治理 ,主要包括分配班级、治理 班级成员;第三类是课表治理 ,主要包括治理 教员课表、学生课表等;第四类是教职工治理 ,主要包括教职工基本状况、教职工家庭状况、教职工团体简历、教职工任课状况、教职工职位分配、教职工奖惩状况等。教务治理 也是学生治理 信息治理 系统中不可联系的一局部。这些功用可以让学校教务治理 人员和教员更好地治理 各种教务信息,从而为相关部门提供决策支持。<br>  2.作业效果与考勤治理 <br>  作业效果和考勤治理 是学生治理 信息治理 系统中十分重要的组成局部。经过作业、效果治理 和考勤系统,可以大大提高教员的任务效率,让学校治理 人员、教员、家长、学生方便地查询作业效果和出勤记载,让教员、家长共同参与到学生的学习中来。作业治理 功用主要包括教员可以在线布置作业,设置作业分数、上交时间、作业要求等相关属性,家长和学生可以在线检查班级作业。效果治理 功用主要包括教员可以在线治理 学生各次检验和作业的效果,学生和家长可以检查检验和作业的效果,自动生成学生的效果报告单,可以导出多种效果报表,如学生效果报告单、统计班级的平均分等,可以满足学生、家长和学校各级行政部门的需求。考勤治理 功用主要包括学生日常考勤记载和考勤报表治理 。对学生的日常考勤,一种是学校购置相应的考勤设备,学生只需经过IC卡即可记载学生的考勤;另一种是教员或许学校相关人员经过在线考勤治理 系统,按天或许按某节课记载学生的考勤。<br>  国外的学生治理 信息治理 系统普通都有作业治理 、效果治理 、考勤治理 的功用,而国际的学生治理 信息治理 系统主要关注学生的效果治理 功用。国外的学生治理 信息治理 系统更强调对学生日常作业的治理 ,更强调对学生停止进程性评价,而国际的学生治理 信息治理 系统更侧重总结性评价。<br>  3.办公自动化与交流协作<br>  在学生治理 信息治理 系统中,为了便于学校内部成员之间的沟通以及学校与外界的沟通,越来越多的学生治理 信息治理 系统参与了办公自动化与交流协作的功用。<br>  办公自动化功用包括文件传输和信息发布功用。文件传输主要是方便学校、教员、学生之间文件的传递,而信息发布主要是便于学校向外界发布各种信息。<br>  交流协作功用包括两大类。第一类是同步交流,包括短音讯效劳和在线聊天室。短音讯效劳的功用是指系统可以向教员、家长、学生发送信息,他们可以经过手机等通讯设备接纳短信息。用户还可以同时登录网络上的某个地址(如聊天室),停止实时的基于文字的、语音的或许视频的在线聊天。第二类是异步交流,包括系统内部邮件传输和网上讨论区。异步交流打破了时空隔离的限制,可以很好地促进学校、学生、家长之间的交流与沟通。<br>  4.系统治理 与角色治理 <br>  随着学生相关信息的不时添加,人们对学生治理 信息治理 系统提出了更高的要求。首先,学生治理 信息治理 系统需求具有较好的系统治理 功用。系统治理 包括平安治理 和权限治理 。平安治理 主要是从技术上保证系统中相关信息的平安,而权限治理 使得系统具有很好的拓展性,可以满足实践的业务需求。其次,学生治理 信息治理 系统需求有灵敏的角色治理 机制。角色治理 功用包括学生角色治理 、教员角色治理 、家长角色治理 和其他角色治理 。灵敏的角色治理 功用可以保证系统具有较好的扩展性。<br>  大局部的学生治理 信息治理 系统都具有平安治理 的功用,这说明系统的平安性曾经不得人心。在角色治理 功用中,国外的学生治理 信息治理 系统都有学生角色和家长角色,国际的系统只要安脉学生信息治理 系统中设定学生角色和家长角色。这说明国外更为注重应用信息技术手腕让学生、家长都参与到学生的学习生活中,国际则侧重于应用信息技术手腕增强学校、教员对学生的治理 。这种差异能够与美国等兴旺国度信息技术开展水平有关,也能够与不同国度教学治理 理念的悬殊有关。<br>  二、运用案例剖析<br>  Powerschool是美国Pearson公司设计和开发的基于Web的学生信息治理 系统,超越800万的学生在运用该系统,它为学校治理 者、教员、学生、家长发明了一个协作的环境。Powerschool基于网络的处置方案为治理 人员、教员、学生和家长提供学生各项表现的实时信息,包括学生效果、作业和考勤等信息。<br>  普罗克特公立学校是一个拥有1900多名学生的学校。该校以为现代学校教育应该鼓舞学生应对未来的应战,并要注重家长的参与和教员间的协作,这些都能够对学生的学业表现发生重要的影响。由此观念动身,他们提出需求一个基于Web的学生信息治理 系统,可以让最终用户方便运用,具有运转流利的界面、可定制的灵敏功用等。普罗克特校方以为,他们需求的学生信息治理 系统应该可以让家长、教员、学生和治理 人员一同任务,以提高学生效果,并经过家长参与到学生的学习进程中来鼓舞学生的学习。<br>  Powerschool学生信息治理 系统提供了从学校治理 、各种报表到学生效果考勤等诸方面的处置方案。Powerschool易于运用的界面和可定制的功用,让学校行政治理 人员耳目一新。基于Web的处置方案也让教员在课堂上更轻易记载学生考勤。经过平台的实施,教员与家长之间的交流愈加迅捷——教员经过平台给学生布置作业、发布效果、发布考勤信息;家长经过平台可以随时随地了解自己的孩子在学校的各项表现状况。<br>  平台运用后,91%的家长经过Powerschool了解到自己孩子的信息,他们为与教员有如此便捷的交流方式而感到兴奋无比。“我们曾经从平台中收到家长的许多反应意见,很多家长以为平台对学生的学习发生了重要的影响。”校方行政技术总监如是说。<br>  三、学生治理 信息治理 系统的开展趋向<br>  1.学生治理 信息治理 系统的开发必需遵照一定的规范,同时具有一定的灵敏性<br>  设定规范的目的是便于信息在不同系统之间的交流。在美国,学生治理 信息治理 系统主要遵照《SIF(学校互操作性框架)执行规范》,国际学生治理 信息治理 系统主要遵照教育部公布的《教育治理 信息化规范》以及《教育治理 信息治理 系统互操作性规范》。随着教育信息化的开展,教育机构的需求能够发作变化。这就要求系统愈加具有较好的灵敏性,可以满足不同窗校的多种要求。<br>  2.学生治理 信息治理 系统将日趋多媒体化,功用将越来越弱小<br>  多媒体化是当今计算机网络开展的趋向,计算机多媒体以其超大容量、信息的丰厚而遭到人们的喜爱。多媒体化的学生治理 信息治理 系统可以治理 多种信息,如视频、照片、语音等。<br>  3.学生治理 信息治理 系统的参与面将越来越广<br>  以往,在学生治理 信息治理 系统的设计与开发中,只关注学校相关部门和教员对学生信息的治理 ,而很少关注学生和家长的实践需求。如今,随着网络的普及,学生和家长上网获取信息越来越方便,学生和家长应该可以经过系统查询到所需求的信息。同时,鼓舞家长和社区都参与到学生的学习和治理 中来,从而更大水平地促进学生的开展。<br>  4.学生治理 信息治理 系统中的交流与协作功用将日趋增强<br>  从笔者调研的状况来看,很多学生治理 信息治理 系统的交流与协作功用比拟完善,有的没有交流与协作的平台,有的只限于邮件效劳。随着计算机网络和通讯技术的开展,更多的新技术将运用于学生治理 信息治理 系统中,以增强交流与协作,从而方便成员之间的沟通。<br>  5.学生治理 信息治理 系统将越来越注重决策支持功用<br>  决策支持功用为决策者提供决策所需求的数据、信息和背景资料,协助明白决策目的,停止效果识别,树立或修正决策模型,提供各种能够方案,为正确决策提供必要支持。决策支持系统在学生治理 信息治理 系统中的运用,可以为学校相关部门的决策提供依据和协助,是学生治理 信息治理 系统未来开展的肯定趋向。<br>   </p> <p> </p> <p> </p> <P>中文摘要</P> <P>书店辅助进书管理系统为书店辅助进书管理者提供图书管理,学生管理以及借阅管理,查询报表的一系列日常功能提供方便快捷的实现平台.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0软件及其提供的各种面向对象的开发工具,建立完整性强、安全性好的数据库,开发出功能完备,易使用的应用程序。经过调试、编译与实现,该程序界面友好、程序设计风格朴素,使用起来美观大方、方便易用。尤其是系统的“借阅管理”的功能极大的减轻工作人员的工作量,并以快速、准确等优点取代人工操作,提高了书店辅助进书管理工作效率。</P> <P><BR>关键词 : DELPHI 6.0&nbsp; 信息管理系统&nbsp;&nbsp; 数据库&nbsp; 模块&nbsp;&nbsp; 书店辅助进书管理系统</P> <P>引&nbsp; 言&nbsp;1<BR>1&nbsp; Delphi语言概述&nbsp;2<BR>1.1&nbsp; Delphi简介&nbsp;2<BR>1.2&nbsp; 数据库系统简介&nbsp;2<BR>1.3&nbsp; 本应用软件的基本介绍&nbsp;3<BR>2&nbsp; 本应用程序的构成和开发步骤&nbsp;4<BR>2.1 可行性研究&nbsp;4<BR>2.1.1&nbsp; 经济可行性&nbsp;4<BR>2.1.2&nbsp; 时间可行性&nbsp;4<BR>2.1.3&nbsp; 技术可行性&nbsp;4<BR>2.1.4&nbsp; 社会可行性&nbsp;5<BR>2.2&nbsp; 数据库的建立和连接&nbsp;5<BR>2.3&nbsp; 系统的总体设计&nbsp;5<BR>2.4&nbsp; 系统的详细设计&nbsp;7<BR>3&nbsp;&nbsp; 本程序的技术实现及具体功能&nbsp;17<BR>3.1&nbsp; 登录的界面与程序设计实现&nbsp;19<BR>3.2&nbsp; 学生管理界面与代码设计实现24<BR>3.3&nbsp; 图书管理界面与代码设计实现29<BR>3.4&nbsp; 借阅管理界面与代码设计36<BR>3.5&nbsp; 报表查询界面设计与代码设计&nbsp;41<BR>结&nbsp; 论&nbsp;42<BR>致&nbsp; 谢43<BR>参 考 文 献&nbsp;45<BR>2.3&nbsp; 系统的总体设计</P> <P>这个管理系统从4月1日开始着手设计开发,经过一段时间的分析,并根据对影音店光盘管理的具体要求及需要本软件实现的功能,将本软件分为4个大的模块,分别是:第一部分:图书管理;第二部分:学生管理;第三部分:借阅管理; 第四部分:报表查询。<BR>程序流程图如下:</P> <P>&nbsp;</P> <P>&nbsp;</P> <P>&nbsp;</P> <P><BR>2.4&nbsp;系统的详细设计<BR>进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象,根据本课题的需要,在这里选择一个空的数据库,命名建立了一个数据库名称为“tushuguan”,书店辅助进书管理系统。并在此数据库下创建了四个表,用于存放原始数据。它只是存放数据,对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下:</P> <P>1.books信息表<BR>&nbsp;<BR>2.bore信息表<BR>&nbsp;</P> <P>&nbsp;</P> <P><BR>3.用户权限信息表:<BR>&nbsp;<BR>4.学生信息表<BR>&nbsp;</P> <P>3&nbsp;&nbsp; 本程序的技术实现及具体功能</P> <P>3.1&nbsp;登录的界面与程序设计实现<BR>&nbsp;<BR>代码设计:<BR>var pass:boolean;<BR>procedure TForm1.N1Click(Sender: TObject);<BR>begin<BR>&nbsp;&nbsp; if pass=true then&nbsp; tushuguanli.show<BR>&nbsp;&nbsp;&nbsp;&nbsp; else showmessage('请先输入用户名和密码!');<BR>end;</P> <P>procedure TForm1.N2Click(Sender: TObject);<BR>begin<BR>&nbsp;&nbsp; if pass=true then&nbsp;&nbsp; xueshengguanli.show<BR>&nbsp;&nbsp;&nbsp; else showmessage('请先输入用户名和密码!');<BR>end;</P> <P>procedure TForm1.N3Click(Sender: TObject);<BR>begin<BR>&nbsp;&nbsp; if pass=true then&nbsp;&nbsp; jieyueguanli.show<BR>&nbsp;&nbsp;&nbsp;&nbsp; else showmessage('请先输入用户名和密码!');<BR>end;</P> <P>procedure TForm1.N4Click(Sender: TObject);<BR>begin<BR>&nbsp;&nbsp; if pass=true then&nbsp;&nbsp; chacunbaobiao.show<BR>&nbsp;&nbsp;&nbsp;&nbsp; else showmessage('请先输入用户名和密码!');<BR>end;</P> <P>procedure TForm1.N5Click(Sender: TObject);<BR>begin<BR>&nbsp;&nbsp; about.show;<BR>end;</P> <P>procedure TForm1.BitBtn1Click(Sender: TObject);</P> <P>begin<BR>with form1.Panel2 do<BR>&nbsp;begin<BR>&nbsp;&nbsp; adotable1.Active:=true;<BR>&nbsp;&nbsp; if edit1.text='' then showmessage('请输入ID')else</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if edit2.Text='' then showmessage('请输入密码')<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else&nbsp;&nbsp; //方法一 密码+用户名=1000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {&nbsp; val(edit1.Text,i,code1);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; val(edit2.Text,j,code2);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ((code1&lt;&gt;0) or (code2&lt;&gt;0)) then showmessage('用户名和密码的格式错误')<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if strtoint(edit1.Text)+strtoint(edit2.Text)=10000&nbsp; then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; form1.show;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; showmessage('欢迎使用!');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pass:=true;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; form1.Panel2.Visible:=false;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else&nbsp; begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; showmessage('密码错误!推出系统');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; form1.Close;</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //方法2 密码表<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if not adotable1.Locate('name',edit1.Text,[]) then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; showmessage('没有这个用户,登陆失败');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pass:=false;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if adotable1.FieldValues['password']=edit2.Text<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; then begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; showmessage('登陆成功');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb
展开阅读全文

开通  VIP会员、SVIP会员  优惠大
下载10份以上建议开通VIP会员
下载20份以上建议开通SVIP会员


开通VIP      成为共赢上传

当前位置:首页 > 包罗万象 > 大杂烩

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        抽奖活动

©2010-2026 宁波自信网络信息技术有限公司  版权所有

客服电话:0574-28810668  投诉电话:18658249818

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :微信公众号    抖音    微博    LOFTER 

客服