毕业论文旅行社信息系统(范例).doc

目 录1 小型旅行社信息管理系统开发的背景及其现实意义11.1 背景 11.2目前旅行社经营管理现状11.3开发小型旅行社信息管理系统的意义 12 开发工具选择及信息系统开发特点 12.1 开发工具选择 22.2 管理信息系统的开发的特点 22.2.1管理信息系统的开发过程22.2.2管理信息系统的开发策略33 系统设计分析43.1 应用需求分析 43.2 统功能模块划分 53.3 系统数据库设计 63.3.1数据库需求分析 63.3.2数据库概念设计 63.3.3数据库逻辑设计 63.3.4数据库的实现84 用Visual FoxPro 6.0进行程序设计84.1 文件设计84.2 数据库的设计 94.3 各功能模块的实现 94.3.1团队业务管理模块的实现94.3.2线路管理功能模块的实现 174.3.3客户管理模块和员工管理模块的实现194.3.4财务管理功能模块的实现 194.3.5系统维护模块功能的实现 214.4 主界面的设计234.5 主菜单的设计234.6 主程序的设计245 预计成果和发展前景26谢 辞27参考文献28摘 要旅行社信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备、易使用等特点。本人根据旅行社的操作流程、日常工作管理、财务管理的要求，结合信息系统开发的概念，结构及系统开发的基本原理和方法，开发了这套小型旅行社管理软件。主要完成旅行社管理系统的需求分析、功能模块划分、数据库设计和应用程序设计，逐步将系统开发出来，没有刻意追求专业性和商品化软件的华丽包装，而是本着简单的、实用的原则，即在功能上满足用户的求，又力求操作简便，使本系统容易掌握和使用。系统运行证明，本文所设计的旅行社管理系统能满足旅行社承包部门的经理、计调的需要关键词：信息管理系统；数据库；Microsoft Visual Foxpro6.0ABSTRACTThe system of managing travel agency information is a typical application of managing information system (known as MIS), which mainly includes building up and maintaining the database of back-end and developing the application interface of front-end. The former requires consistency and integrality and security of data, the later should be make the application powerful and easily used. According to the requirement of the travel agency of Operation Procedure, daily routine management and financial management, I developed the System of managing travel agency information, combining the conception and structure of information system developing and the basic principle and methods, which is developed to accomplish the customs requirement analyzed, function module block division, database building up and maintaining, and programming designed. The system is developed based on the simple and useful principle, but not sedulously to seek specialized and commercial package. That is, it can satisfy the need of the users and is easy to master and operate. The experience has proved that it can meet the need of the managers in small or medium companies.KEY WORD: MIS;database; Microsoft Visual Foxpro6.01 小型旅行社信息管理系统开发的背景及其现实意义2.1 背景随着旅游市场的蓬勃发展，我国已成为世界上最大的旅游市场，旅游公司的数量也越来越多，中国已经加入了WTO，中国的旅游业也将面临更加严酷的挑战，新型的涉及旅游业务的订房网站、大型的旅游企业不断并购、外资的旅行社也在看准时机进驻。面对种种压力，如何整合优势资源、提高业务效率，加强自身竞争能力正在成为旅游界人士谈论的话题。越来越多的旅行社总经理纷纷意识到：充分利用先进的信息网络技术进行旅行社的信息化建设，是提升企业自身参与国际竞争的能力的必要手段。1.2目前旅行社经营管理现状国内的旅游行业的现状是“小、散、乱、差”，旅行社下属的部门多为承包部门、夫妻店的情况很普遍，中国现有三千多家旅行社，除了国旅、中旅、青旅、康辉等为数不多的大旅行外，多数旅行社规模偏小，网点分散，管理混乱。这些小旅行社、社内的承包部门员工并不多，基本上都是采用老板式的管理，内部分工粗放，不是很详细明确，常常是一人多职，老板从上到下一手抓。1.3开发旅行社信息管理系统的意义利用旅行社信息管理系统会给旅行社的经营管理带来很大的方便，有效的提高工作效率。目前市面上也出了一些商品化的旅行社信息管理系统。但这些商品化的旅行社信息管理系统都是参照一些规模较大的旅游企业设计的，专业性强，功能分工较细，操作和使用比较复杂，难以掌握。对于一些小规模的旅行社、社内的承包部门来说，太庞大，太复杂，与他们自身经营模式有的功能没有或不合符他们的要求，应用效果并不是很好。价格也是中小部门难以接受的，所以就造成了在旅游行业中，做网站提高业务量的部门很多，但是用软件来提高业务效率的却不多。大多旅行社部门对于电脑的应用还只是停留在上网，打印名单、线路等简单应用方面。大多数旅行社的业务仍然停留在手工或文档资料处理阶段，传统的运作模式已无法适应当今市场的快速发展，要想锁定客户、开辟市场，只有通过加快内部信息化建设和外部的客户关系管理，才能提高工作效率，降低经营成本，留住客户，从而提高企业的竞争力。3 开发工具选择及信息系统开发特点2.1 开发工具选择 Visual FoxPro6.0是一种开发管理信息系统（MIS）的集成开发环境，它提供了Visual FoxPro语言和FoxPro数据库管理系统，利用它能够很方便地进行后台数据库设计和前台应用系统的开发。可以简化数据库管理，而且使应用程序开发流程更为合理。Visual FoxPro6.0是运行于Windows 95/98/NT/2000/xp平台的32位数据库开发系统，对系统的配置要求低，利用可视化程序设计工具，使组织数据、定义数据规则和建立应用程序等工作变得简单易行，用户可以在短期内迅速掌握、并较好地运用它。目前，是用收户集信息、查询数据、创建集成数据库系统、进行应用系统开发较为理想的工具软件。2.2 管理信息系统的开发的特点在进行应用开发之前，有必要先了解管理信息系统的开发的特点。2.2.1管理信息系统的开发过程在开发管理信息系统这初，首先面临的问题是如何划分开发阶段，并确定每个阶段的开发任务。这个问题的实质是：确定是选择生存周期法进行开发，还是选择原型进行开发。一、 生存周期法 生存周期法的特点生存周期法的特点是：开发人员在软件生存周期的每个阶段施行严格的定义。试图在每一个阶段结束后，通过严格的阶段性审查/确认，得到该阶段一致、完整、正确、无二义性的良好文档资料，以此作为本阶段的结束标志和下一开发阶段的依据，从而形成一个理想的线性开发序列。以每一步的正确性和完整性来把错误消灭在萌芽阶段，从而减少系统的修改量，保证最终产品质量。 生存周期法的开发阶段划分选择生存周期法开发管理信息系统，可将开发过程划分为6个阶段。 软件选择。在计划阶段，确定要开发软件的总目标，给出它的功能，性能、可靠性以及接口等方面的设想。研究完成该项软件任务的可行性分析，探讨解决问题的方案。开且对可供使用的资源、成本、可取得的效益和开发的进度做出估计，以及制定完成开发任务的实施计划。 需求分析。在需求分析阶段，对开发的软件进行详细的定义，这应由软件开发人员和用户共同讨论决定。要确定哪些需求是可以满足的，哪些需求是难以满足的，并分别加以确切描述，在这个阶段，还要写软件需求说明书以及初步的系统用户手册，提交管理机构评审。 软件设计。软件设计是管理信息系统工程的技术核心。在这个阶段，设计人员要把已确定了的各项需要转换成一个相应的体系结构，结构中每一组成部分是意义明确的模块，每个模块都和某些需求相对应，这就是概要设计。对每个模块要完成的工作进行具体的描述，为程序编写打下基础，这就是详细设计。所有设计中考虑的问题都应以设计说明书的形式加以详细描述，以供后继工作使用并提交审查。 编码。也就是编写程序。在这个阶段，要将软件设计转换成计算机可以接受的程序，即写成以某一程序设计语言表达的“源程序清单”。 测试。在这个阶段，要通过测试去检查软件的各个组成部分的正确性，这也是保证软件质量的重要手段。首先要进行单元测试，以发现模块在功能和结构方面的问题，其次将已测试过的模块组装起来进行组装测试。最后按所规定的要求，逐项进行有效性测试，决定已开发的软件是否合格，能否交付给用户使用。 维护。在软件投入正式使用后，便进入了维护阶段。软件在运行中可能由于多种原因，导致一些错误，需要对它及时进行修改。另外，由于外部环境的变化，也可能要对软件进行必要的更改。二、原型法 原型法的特点作为管理信息系统的一种开发方法，原型法从原理到流程都很简单。它有如下特点。 它的开发过程是一个循环往复的反馈过程。开始，用户和设计者对于所设计系统的要求和功能的认识不是完整的、粗浅。但在原型法的开发过程式中，通过建立原型、演示原型及修改原型的循环不定期程，使得管理信息系统逐步达到所期望的目标。 原型法在系统分析的初期就引入模拟的手段。首先根据软件人员对户要求的理解，模拟出一个系统原型，然后就这个模型展开讨论。这样用户很快就可以得到他们所要求的模型，接触和使用模型系统，从而缩短了用户与软件技术性的距离。 使用原型法的优点所有问题的讨论，都围绕某一个确定的模型进行，彼此之间联紧密。通过对型的接触和使用，能够启发开发人员去挖掘问题，从而不断地修正、完善原型，最终得到一个理想的系统。原型法的开发周期短、使用灵活、容易修改，这对于管理体制不够稳定的系统更加适合。 原型法的开发阶段划分 确定系统基本要求。用户和系统分析人员共同进行调查、分析、得出用户对系统的基本要求，如数据规范、屏幕式样、输出形式等。这只要求对系统有一个基本的了解，不必对系统进行详细分析，也不必写出详细说明。这样得到的功能需求是不完全的、有缺陷的。这样完全性在后续阶段将得以弥补。 构造初始原型。对所设计的系统工程有了初步了解以后，就要设计一个初步的模型原型。原型要求能满足基本的要求，它是初步的系统。 演示原型。有了初始的原型后，设计者就应用户演示这个原型，并在演示后征求用户对原型的评介及要求，这时面用户的仍然是末来系统和模型。 修改原型。通过演示模型后，从用户里得到反馈意见。假若用户对原型不尽满意，则必须对原型进行修改，然后演示，直至用户满意为止。 运行维护。初步构造的模型，经边演示评价后，进行必篱运行价，还可能暴露出一些问题，仍需不断的更正。2.2.2管理信息系统的开发策略管理信息系统开发是一项复杂的系统工作，需要花费大量的人力、物力及财力，而往往开发质量也不高，用户不满意，这通常是因为信息需求的不确定性造成的。因此，在开发之前，如何根据信息需求中的不确定因素，选择一个合适的开发策略便显得十分关键。在确定信息需求的过程中，之所以存在着不确定性，首先是因为用户本身提出的要求未能做到完全、精确；其次开发人员也难以透彻理解开发任务的全部含义；最后的也是最主要的原因是信息需求本身是动态的，会随着外部外环境的变更而发生变化。（1） 影响信息需求不确定性的因素影响信息需求不确定性的因素主要有以下几点。1、 项目大小。这里指项目功能的多少，以及项目数量的大小。项目所耗时的多少，项目花费成本的大小。项目越小，不确定性程度就越低。2、 结构化程序。这主要是指人工管理的结构化程序，具体包括决策过程的结构化程序、事物处理的规范化程序以及管理体制的确定性程序。结构化程序越高，不确定性的程序就越低。3、 对任务的理解程度。这又包括两个方面，首先是用户对用户对开发任务本身能否理解得透彻，其次是指开发人员对任务的目的能否完全理解。理解的越透彻，不确定性程度就越低。（2） 开发策略的选择根据信息需求不确定性因素，选取相应的开发策略。1、 接收式的开发策略。这种策略的含义是完全按照调研过程中确定的住处需求进行开发。只有当用户对信息需求的叙述完全准确、固定时，才可选取这种开发策略。2、 直线式的开发策略。这种开发策略的含义是：从需求定义到最后的开发，都是直线地进行下去。每完成一步后，采用一些步骤来核对，以保证与需求一致。当信息需求能较好地确定，在开发过程中很少或不修改的前提下，才可采用这种开发策略。3、 选代式的开发策略。当信息需求的确定性程度较低是，适宜采用这种策略。它的具体含义是：每当发现需求有错误或不适当时，要回到需求确定过程，与用户一起修改系统的说明书。4、 实验式的开发策略。这种策略的主要含义是：通过用户实际使用系统的经验来使需求的准确性得到保证。当信息需求的确定性很低时，适宜采用这种开发策略。5、 规则式的开发策略。规则式开发策略的含义是：在开发之前，要对系统作总体规划。这种开发策略是目前比较常用的。3 系统设计分析3.1 应用需求分析该系统的需求来自经理、计调、财务的需求，经理需要随时知道应收款和应付款的帐单；能统计出某段时间内，业务情况及利润情况；能管员工和客户；能及时了解旅行社的营业情况，及时催款。保证旅行社的正常运营和发展。计调需要管理线路及报价。财务需要应收款明细等帐单，工作能与旅行社营业情况紧密结合。系统主要完成以下工作。一、团队业务管理，包括团队基本资料管理、团队收入管理、开发票管理、签单业务管理、团队现付成本管理、导游借款管理，均有录入、修改、删除、查询功能。团队的基本资料管理，信息栏目有：团号、带团导游、小孩数、全陪人数、组团社、应收团费、抵达日期、离开日期、确认日期、团费说明、线路说明。团队收入管理，信息栏目有：团号、日期、付款单位、付款方式、收入类别、经手人、金额、备注。开发票管理，信息栏目有：团号、开票日期、交税率、开票金额、应交税金、经手人。签单业务管理，信息栏目有：团号、签单日期、签单类别、签单人、签单单位、签单金额、详细说明、预支日期、支付日期、支付人。团队现付成本管理，信息栏目有：团号、支出日期、支出金额、支出类别、经手人、备注。导游借款管理，信息栏目有：团号、借款日期、借款金额、经手人。二、线路管理：录入线路、修改线路、删除线路、查询线路、报价等功能。提供线路报价单编辑和打印。线路管理主要信息栏目有：线路大类、线路小类、行程天数，行程说明（每天的行程安排），服务标准（往返交通、住宿标准、用餐标准、保险、导游、景点门票等）、直客报价、同行报价、同行分列报价、线路成本等。三、客户管理：客户资料录入、修改、删除、查询功能。客户管理主要信息栏目有：单位名称、是否是国际旅行社、省份、城市、邮编、地址、电话、传真、单位网址、电子信箱、联系人、联系人电话等。四、员工管理：员工资料录入、修改、删除、查询功能。客户管理主要信息栏目有：姓名、性别、导游级别、从业时间、语种、身价证号、领队证号、出境编号、特长、电话等。五、财务管理：财务数据的统计和查询，包括团队收支明细、收支总表、收款情况、签单情况、税金冲帐、其它收支。六、系统维护：数据备份与恢复、系统初始化、系统修恢、系统基本资料设计等。3.2 统功能模块划分系统总体功能结构图如图3-1所示旅行社信息管理系统员工管理客户管理线路管理团队业务管理财务管理系统维护系 统帮助图3-1 系统功能结构图3.3 系统数据库设计3.3.1数据库需求分析团队业务信息数据流程图如图3-2所示组团社经理财务导 游团队业务管理团队消费部门团队收入团队支出借款、报帐业务信息查询查询结果收支明细、总表收款、签单情况图3-2 数据流程图3.3.2数据库概念设计旅行社操作团队业务概念模式如图33所示。团队对应团号团队所签单业务1团队现付成本团队所开票团队所有收入带团导游借报帐nn1nnnn图3-3实体之间关系E-R图 3.3.3数据库逻辑设计系统数据库中各表的设计如下的表格，每个表格表示数据库中的一个表。团队基本资料表Tour表3-1团队基本资料表字段名称数据类型宽度说明团号字符型10 团队编号组团社字符型40 组团单位名称导游字符型10 带团导游总人数数值型5 团队总人数客人数值型5 团队客人小孩数值型4 团队小孩人数全陪数值型3 团队全部人数抵达日期Date8 团队抵达日期离开日期Date8 团队离开日期确认日期Date8 团队确认日期应收团费数值型12 团队应收团款详细说明字符型254 应收团款详细说明线路说明字符型254 团队行程线路说明表3-2团队收入表字段名称数据类型宽度 说明团号字符型10 团队编号日期Date8 收款日期付款人字符型10 付款单位或人付款方式字符型10 付款的方式金额数值型12 收入金额收入类别字符型30 收入类别经手人字符型10 收款经办人备注字符型254 备注字段名称数据类型宽度 说明团号字符型10 日期Date8 支出类别字符型20 金额数值型12 经手人字符型10 备注字符型254 表3-3团队现付成本表表3-4签单表字段名类型宽度 说明 团号字符型10 日期Date8 类别字符型20 合作单位字符型40 金额数值型12 详细字符型254 签单人字符型10 预支付日Date8 支付日期Date8 支付人字符型10 支付否字符型6 表3-5导游借款报帐表字段名类型宽度说明团号字符型10 导游字符型10 日期Date8 借款额数值型12 已报帐数值型10 欠款数值型10 表3-6开票记录表字段名类型宽度说明团号字符型10日期Date8开票金额数值型12应交税金数值型12经手人字符型103.3.4数据库的实现 数据库的实现在下一章节中的4.2节。4 用Visual FoxPro 6.0进行程序设计4.1 文件设计本系统的所有文件均放在同一目录下，均放在E:trave下，该目录下有七个文件夹。E：travedate 数据库、数据表E：traveform 表单E：travefpr 报表E：traveprg 程序E：travemap 图片E：travetemp 临时文件E：travebat 备份文件在VFP开发环境中，设置默认目录为“E:trave”。4.2 数据库的设计（1）创建项目：在“文件”菜单中选择“新建”命令，在“新建”对话框中选择“项目”，然后单击“新建”按钮，系统弹出“创建”对话框，将这个项目取名为tourism,并以tourism.pix为项目文件名保存。建立好项目方件之后，接着就可以在项目管理器中来管理全部的项目文件。首先在项目管理器中新建数据库。（2）创建项目的数据库：在项目管理器中展开数据文件夹，鼠标选中数据库，单击右侧的“新建文件”按钮。然后存储为“tourism.dbc”。（3）创建数据库表：建立好数据库，就可以在数据库设计器环境下新建或添加表了。 在数据库设计器窗口上单击鼠标右键，选择“新建表”命令来建团队基本资料表,并以tour.dbf为文件名保存。表3-1列出tour.dbf的数据结构。按相同的操作方法，建立其它表。4.3 各功能模块的实现4.3.1团队业务管理模块的实现团队业务管理信息多，包括团队基本资料管理、团队收入管理、开发票管理、签单业务管理、团队现付成本管理、导游借款管理这六个方面的信息，为使用户操作方便，交互性好，在设计表单时把这些都放在一个表单里，使用面框控件来完成，团队业务六个信息分别放在不同页上。左边还设计了一个列表框，用来存团队编号，可以方便查询和修改团队业务信息，最顶部还设计了一个查询录入框。每面都有均有新增、修改、删除、返回功能按钮，为界面操作方便、界面美观，这些按钮都分别放在相同的位置，这就象只有一组“新增、修改、删除、返回”功能按钮一样。在这些信息中，录入日期项比较多，为录入上期方便使用了ActiveX控件中“日历控件9.0”。表单界面设计如图4-1。各页面上的“新增、修改、删除、返回”功能按钮里的程序代码写法基本上都一样，如下是团队基本资料页面上的各功能按钮单击时执行的代码，其它页面上的代码略。图4-1团队业务管理界面 “新增“单击事件代码：thome=thisform.pageframe1.page1IF thome.spbutom1.label1.caption=新增 thenthome.text1.Value=bo2.displayValue=bo1.displayValue=thome.text4.value=thome.text5.Value=thome.text3.Value=thome.text6.Value=DATE() thome.text7.Value=DATE()thome.text2.Value=DATE()thome.text8.Value=thome.edit1.Value=thome.edit2.Value=thome.spbutom1.label1.caption=保存新增thome.spbutom1.label2.caption=保存新增elseIF ALLTRIM(thome.text1.value)= then=messageBox(请输入团号,13,操作信息)ELSESELECT tourLOCATE for 团号=ALLTRIM(thome.text1.value)IF not EOF() then=MESSAGEBOX(此团号已录入,13,操作提示)elseSELECT tourAPPEND BLANK REPLACE 团号 with thome.text1.ValueREPLACE 导游 with bo2.displayValueREPLACE 组团社 with bo1.displayValueREPLACE 客人 with VAL(thome.text4.value)REPLACE 小孩 with VAL(thome.text5.Value)REPLACE 全陪 with VAL(thome.text3.Value) REPLACE 总人数 with 客人+小孩+全陪REPLACE 抵达日期 with thome.text6.Value REPLACE 离开日期 with thome.text7.ValueREPLACE 确认日期 with thome.text2.ValueREPLACE 应收团费 with VAL(thome.text8.Value)REPLACE 详细说明 with thome.edit1.ValueREPLACE 线路说明 with thome.edit2.Valuethisform.pageframe2.page1.list1.RowSource=tour.团号 thome.text1.Value=bo2.displayValue=bo1.displayValue=thome.text4.value=thome.text5.Value=thome.text3.Value=thome.text6.Value=DATE() thome.text7.Value=DATE()thome.text2.Value=DATE()thome.text8.Value=thome.edit1.Value=thome.edit2.Value=thisform.refreshENDIFENDIFEndif “修改“单击代码：phome=thisform.pageframe2.page1thome=thisform.pageframe1.page1IF ALLTRIM(thome.text1.value)= then=messageBox(请选择团号,13,操作信息)ELSEIF phome.list1.RowSource=tourcx.团号SELECT tour LOCATE for 团号=tourcx.团号 REPLACE 团号 with thome.text1.ValueREPLACE 导游 with bo2.displayValueREPLACE 组团社 with bo1.displayValueREPLACE 客人 with VAL(thome.text4.value)REPLACE 小孩 with VAL(thome.text5.Value)REPLACE 全陪 with VAL(thome.text3.Value) REPLACE 总人数 with 客人+小孩+全陪REPLACE 抵达日期 with thome.text6.Value REPLACE 离开日期 with thome.text7.ValueREPLACE 确认日期 with thome.text2.ValueREPLACE 应收团费 with VAL(thome.text8.Value)REPLACE 详细说明 with thome.edit1.ValueREPLACE 线路说明 with thome.edit2.ValueSELECT tourcxREPLACE 团号 with thome.text1.ValueREPLACE 导游 with bo2.displayValueREPLACE 组团社 with bo1.displayValueREPLACE 客人 with VAL(thome.text4.value)REPLACE 小孩 with VAL(thome.text5.Value)REPLACE 全陪 with VAL(thome.text3.Value) REPLACE 总人数 with 客人+小孩+全陪REPLACE 抵达日期 with thome.text6.Value REPLACE 离开日期 with thome.text7.ValueREPLACE 确认日期 with thome.text2.ValueREPLACE 应收团费 with VAL(thome.text8.Value)REPLACE 详细说明 with thome.edit1.ValueREPLACE 线路说明 with thome.edit2.ValueELSESELECT tour REPLACE 团号 with thome.text1.ValueREPLACE 导游 with bo2.displayValueREPLACE 组团社 with bo1.displayValueREPLACE 客人 with VAL(thome.text4.value)REPLACE 小孩 with VAL(thome.text5.Value)REPLACE 全陪 with VAL(thome.text3.Value)REPLACE 总人数 with 客人+小孩+全陪 REPLACE 抵达日期 with thome.text6.Value REPLACE 离开日期 with thome.text7.ValueREPLACE 确认日期 with thome.text2.ValueREPLACE 应收团费 with VAL(thome.text8.Value)REPLACE 详细说明 with thome.edit1.ValueREPLACE 线路说明 with thome.edit2.ValueENDIF thome.text1.Value=bo2.displayValue=bo1.displayValue=thome.text4.value=thome.text5.Value=thome.text3.Value=thome.text6.Value=DATE() thome.text7.Value=DATE()thome.text2.Value=DATE()thome.text8.Value=thome.edit1.Value=thome.edit2.Value=thome.spbutom1.label1.caption=保存新增thome.spbutom1.label2.caption=保存新增endif “删除”单击代码:thisform.pageframe1.page2.grid2.RecordSource=nullSELECT tourinAPPEND FROM tourincxSELECT tourincxZAPthisform.pageframe1.page2.grid2.RecordSource=tourincxthisform.pageframe1.page3.grid2.RecordSource=nullSELECT writepiaoAPPEND FROM writepiaocx SELECT writepiaocxzapthisform.pageframe1.page3.grid2.RecordSource=writepiaocxthisform.pageframe1.page4.grid2.RecordSource=nullSELECT tourwriteAPPEND FROM tourwritecxSELECT tourwritecxzapthisform.pageframe1.page4.grid2.RecordSource=tourwritecxthisform.pageframe1.page5.grid2.RecordSource=nullSELECT tourcostAPPEND FROM tourcostcxSELECT tourcostcxzapthisform.pageframe1.page5.grid2.RecordSource=tourcostcxthisform.pageframe1.page6.grid2.RecordSource=nullSELECT guideloanAPPEND FROM guideloancxSELECT guideloancxZAPthisform.pageframe1.page6.grid2.RecordSource=guideloancxthisform.Release “返回”单击代码：thisform.pageframe1.page2.grid2.RecordSource=nullSELECT tourinAPPEND FROM tourincxSELECT tourincxZAPthisform.pageframe1.page2.grid2.RecordSource=tourincxthisform.pageframe1.page3.grid2.RecordSource=nullSELECT writepiaoAPPEND FROM writepiaocx SELECT writepiaocxzapthisform.pageframe1.page3.grid2.RecordSource=writepiaocxthisform.pageframe1.page4.grid2.RecordSource=nullSELECT tourwriteAPPEND FROM tourwritecxSELECT tourwritecxzapthisform.pageframe1.page4.grid2.RecordSource=tourwritecxthisform.pageframe1.page5.grid2.RecordSource=nullSELECT tourcostAPPEND FROM tourcostcxSELECT tourcostcxzapthisform.pageframe1.page5.grid2.RecordSource=tourcostcxthisform.pageframe1.page6.grid2.RecordSource=nullSELECT guideloanAPPEND FROM guideloancxSELECT guideloancxZAPthisform.pageframe1.page6.grid2.RecordSource=guideloancxthisform.Release顶部查询框里输入查询回车执行查询，代码如下：IF nkeycode=13 thenthome=thisform.pageframe2.page1mm=ALLTRIM(thisform.text14.value)thome.list1.RowSource=nullSELECT * from tour where 团号 like %&mm% or 组团社 like %&mm% or 导游 like %&mm% order by 团号 into table tourcxSELECT tourcxGO topthome.list1.RowSource=tourcx.团号endif左边列表框里，单击团号便可查看该团的详细信息，主要代码如果：thome=thisform.pageframe1.page1phao=this.valueSELECT tourLOCATE for 团号=phaothome.text1.Value=团号bo2.displayValue=导游bo1.displayValue=组团社thome.text4.value=ALLTRIM(STR(客人)thome.text5.Value=ALLTRIM(STR(小孩)thome.text3.Value=ALLTRIM(STR(全陪)thome.text6.Value=抵达日期thome.text7.Value=离开日期thome.text2.Value=确认日期thome.text8.Value=ALLTRIM(STR(应收团费)thome.edit1.Value=详细说明thome.edit2.Value=线路说明bo2.DisplayValue=组团社thisform.pageframe1.page2.text3.Value=ALLTRIM(STR(应收团费)thisform.pageframe1.page3.text3.Value=ALLTRIM(STR(应收团费)bo4.displayValue=导游thisform.pageframe1.page2.grid2.RecordSource=nullSELECT tourinAPPEND FROM tourincxSELECT * from tourin where 团号=phao into table tourincxSELECT tourinDELETE ALL for 团号=phaopackthisform.pageframe1.page2.grid2.RecordSource=tourincxthisform.pageframe1.page3.grid2.RecordSource=nullSELECT writepiaoAPPEND FROM writepiaocx SELECT * from writepiao where 团号=phao into table writepiaocxSELECT writepiaoDELETE ALL for 团号=phaopackthisform.pageframe1.page3.grid2.RecordSource=writepiaocxthisform.pageframe1.page4.grid2.RecordSource=nullSELECT tourwriteAPPEND FROM tourwritecxSELECT * from tourwrite where 团号=phao into table tourwritecxS