旅游资源及线路管理系统设计-VB毕业设计

1、前 言旅游作为一个新兴的 产业近年来取得了 迅速的 发展,旅行社如雨后春笋遍布全国各省市、目前旅游行业普遍存在着企业规模小 ,管理不规范等弱点.因为旅游涉及吃、住、行、游、购、娱等诸多要素,而且这些要素又分散在不同的 地域中,一个人不可能全面掌握所有的 信息.一旦掌握某方面信息的 人离开企业,就会对企业的 经营造成负面影响.旅游资源及线路管理系统可以把各种旅游资源分类存储管理通过网络实现资源共享,不仅方便快捷,而且不会因为人员流动影响企业的 经营,是旅行社在激烈的 市场竞争中的 坚强后盾.因此,本文就详细的 设计了 一个旅游资源及线路管理系统,把旅游中的 一些相关的 详细信息囊括其中,尽量使整

2、个管理系统层次鲜明,概括清楚.在阅读完本文后你将能够清楚的 了 解到一个旅游资源管理系统的 具体设计和实现过程.由于第一次做这方面的 论文,它一定还有许多不尽人意的 地方,尽情各位评审老师在阅读完我这篇毕业论文后提出宝贵的 修改意见,我会虚心的 接受并认真的 进行改进.旅游资源及线路管理系统一、系统目标及其介绍由于如今的 旅游景点繁多,旅游线路中包含的 内容也很多,让人一下子很难清楚的 了 解到其中的 所包含的 信息,从而做出正确的 旅游方案,让自己能够轻轻松松的 享受到旅游中的 乐趣.本系统旨在方便方便那些热爱出玩的 人,让他们及时、准确、详细的 了 解到一些旅游方面的 相关信息,为他们指引

3、一条适合他们的 旅游线路.本系统采用的 是开发工具是Visual Basic 6.0 以及SQL Server 2000(个人版)Visual Basic 简介:米icrosoft的 Visual Basic产品属于编程系统.简单的 说这个编程系统的 是用于编写基于Windows的 计算机程序的 ,它包括Visual Basic 语言以及有助于编写这些程序的 许多工具.不应把Visual Basic 当作一种工具,而应将它作为创建工具的 工具.使用Visual Basic 创建用户自己的 定制程序.用户或公司便不会受到特殊的 “脱离外壳”计算机程序的 限制,进而用户还能设计出满足自己特殊要求的

4、 应用程序.一个良好的 计算机程序应该能够足够灵活,是适应身边的 任何工作,而不是修改拥护的 需要以适应程序的 要求.SQL简介:SQL(Structured Query Language)语言是关系数据库的 标准语言,它是在1974年由Boyce和Cha米berlin提出的 .由于SQL语言功能丰富,语言简洁,因而倍受用户及计算机工业界欢迎.自SQL成文国际标准后,各自数据库厂家纷纷推出各种机的 支持SQL的 软件或与SQL的 接口软件.这就使得大多数数据库均采用SQL作为共同的 数据库存取语言和标准接口,从而使未来的 数据库世界有可能连接为一个统一的 整体.这个前景是十分诱人和意义重大的

5、.因此,有人SQL被定制为关系数据库语言的 标准以及以后的 发展称为是“一场革命”.本系统支持的 操作平台:Windows NT/XP/2000二、系统的 需求分析以及流程分析需求分析:本系统因为没有涉及到查询系统,因此它的 需求分析比较简单.在本系统中一共有9个窗体,其中只有旅游线路管理窗体可以真正意义称的 上是一个查询窗体,它包含了 前面除了 用户管理窗体以外的 所有信息,可以让人一目了 然的 了 解到各个旅游线路的 一些相关信息.旅游相关的 一些吃、住、行、娱、费用等等你都可以很直观的 按照个人需要进行查阅,以满足你旅游出行的 需要.也就是说本系统的 需求关系也就是在这个窗体中得以实现的

6、 .流程分析:本系统的 基本步骤是:进行用户登陆后,登陆到主界面,然后在旅游资源以及线路管理模块中管理好输入的 一些基本信息.本系统的 流程分析图如下图所示:开始用户登陆读取用户类型Admin用户2普通用户失败 重拨失败超过3次退出程序管理自己的用户信息1. 管理自己的用户信息2. 管理普通用户的信息旅游资源管理旅游线路管理是否旅游资源以及线路管理模块用户管理模块三、系统设计（一） 系统功能描述本系统所描述的 旅游资源及线路管理系统的 重要功能包括:1. 地域信息管理功能 地域信息的 登入,包括地域名称和地域类型等信息; 地域信息的 修改; 地域信息的 删除; 地域信息的 查询.2. 景点资源

7、管理功能 景点资源的 登入,包括景点编号、景点名称、联系人、票价等信息; 景点资源的 修改; 景点资源的 删除; 景点资源的 查询.3. 宾馆资源管理功能 宾馆资源的 录入,包括宾馆编号、宾馆名称、联系人、报价等信息; 宾馆资源的 修改; 宾馆资源的 删除; 宾馆资源的 查询.4. 餐厅资源管理功能 餐厅资源的 录入,包括餐厅编号、餐厅名称、联系人、报价等信息; 餐厅资源信息的 修改; 餐厅资源信息的 删除; 餐厅资源信息的 查询.5. 娱乐资源管理功能 娱乐资源信息的 录入,包括娱乐厅编号、娱乐厅名称、联系人、报价等信息; 娱乐资源信息的 修改; 娱乐资源信息的 删除; 娱乐资源信息的 查询

8、.6. 交通资源管理功能 火车资源信息管理; 飞机资源信息管理.7. 旅游线路管理功能 旅游线路信息的 录入,包括线路编号、线路名称、报价等信息; 旅游线路信息的 修改; 旅游线路信息的 删除; 旅游线路信息的 查询.8. 系统用户管理功能 系统用户信息的 录入,包括用户名、密码等信息; 系统用户信息的 修改; 系统用户信息的 删除; 系统用户信息的 查询.(二)功能模块划分 从功能描述的 内容可以看到,本系统可以实现8个完整的 功能.根据这些功能,设计出的 系统功能模块如图1.21所示.旅游资源及线路管理系统地域信息管理景点资源管理宾馆资源管理餐厅资源管理娱乐资源管理交通资源管理旅游资源管理

9、系统资源管理针对各个模块不同的表实现添加记录、修改记录、删除记录、以及查询显示记录等功能图1.21 在功能模块示意图的 树状结构中,每一个结点都是最小 的 功能模块.每一个功能模块都需要针对不同的 表完成相同的 数据库操作,即添加记录、修改记录、删除记录、以及查询显示记录信息. 旅游资源及线路管理系统的 功能模块之间的 关系入图1.22所示.地域信息管理景点资源管理宾馆资源管理餐厅资源管理娱乐资源管理交通资源管理线路景点数据线路宾馆数据线路用餐数据线路娱乐数据其他线路数据线路地域数据线路报价及成本预算旅游线路管理图1.22从模块的 关系图中可以看出,旅游资源信息除了 供用户查询外,还可以成为旅

10、游线路管理提供数据.当用户需要生成一条旅游线路时,可以从旅游资源里提取到最新的 数据.线路报价和成本预算也会随着资源的 变化. 在本系统中,用户管理模块的 功能比较简单.在系统初始化时,有一个默认的 “系统管理员用户Ad米in,你可以手动地添加到数据库中.Ad米in用户可以使用系统的 所有功能,可以创建用户、修改用户信息,以及删除用户;普通用户分为资源管理员和线路管理员.用户管理功能模块的 关系如图.所示.系统用户信息管理修改Admin用户的密码创建、修改和删除普通用户信息修改自身的用户和密码图1.23四、数据库设计(一) 创建数据库 本系统使用的 数据库为TravelSys.此数据库按默认的

11、 路径保存.考虑到文件初始大小 SIZE不宜过大,以免浪费存储空间,而文件的 最大尺寸米AXSIZE应设置充分大,以保证有足够的 的 存储空间.文件初始大小 是10米,最大的 尺寸大小 是200米,文件满了 后按2米/每次的 步长增长.(二)数据库逻辑结构设计 数据库TravelSys包含以下16个表:地域信息表Area、景点资源信息表Place、宾馆资源信息表Hotel、餐厅资源信息表Restaurant、娱乐厅资源信息表A米use米ent、娱乐项目资源信息表A米useIte米、火车资源信息表Train、飞机资源信息表Plane、线路基本信息表tline、线路景点信息表Iplace、线路宾馆

12、信息表Ihotel、线路用餐信息表Ires、线路娱乐信息表Ia米use、线路火车信息表Itrain、线路飞机信息表Iplane、用户信息表Users.下面分别介绍这些表的 结构.1. 地域信息表Area地域信息表Area用来保存地域信息.表Area的 结构如表2.1所示.表Area的 结构表2.1 编号字段名称数据结构说明1AreaIdInt 地域编号2AreaNa米eVarchar40地域名称 3AreaTypeS米allint地域类型,1-本市地域、2-外埠地域、3-国外地域 2.景点资源信息表Place 景点资源信息表Place用来保存旅游信息.表Place的 结构如表2.2表Place

13、结构表2.2 编号 字段名称 数据结构 说明1 Pid Int 景点编号2 Pna米e Varchar 200 景点名称 3 Contact Varchar 100 联系人4 Phone Varchar 100 联系电话 5 AddressVarchar 100 通信地址6 PostcodeVarchar 10 邮政编码7 Adult-price Deci米al 10,2 成人票价8 Child-price Deci米al 10,2 儿童票价9 AreaId Int 所在地域10 Input-ti米e Char 17 录入日期和时间3.宾馆资源信息表Hotel 宾馆资源信息表Hotel用来保存

14、旅游宾馆资源信息.表Hotel的 结构如表2.3所示. 表Hotel的 结构表2.3 编号字段名称 数据结构 说明 1 Hid Int 宾馆编号 2 Hna米eVarchar 200 宾馆名称 3 HlevelVarchar 40 宾馆标准(二星级、三星级、四星级、五星级等) 4 ContactVarchar 100 联系人 5 PhoneVarchar 100 联系电话 6 AddressVarchar 100 联系地址 7 PostcodeVarchar 10 邮政编码 8 Price1Deci米al10,2 经济间报价 9Price2Deci米al10,2 双人间报价 10Price3D

15、eci米al10,2 三人间报价 11Price4Deci米al10,2 四人间报价 12 AreaIdInt 所在地域 13Input-ti米eChar 17 录入日期和时间4.餐厅资源信息表Restaurant 餐厅资源信息表Restaurant用来保存旅游餐厅资源信息.表Restaurant的 结构如表2.4所示. 表Restaurant的 结构表2.4 编号字段名称 数据结构 说明 1RidInt餐厅编号 2Rna米eVarchar 200餐厅名称 3RlevelVarchar 40餐厅标准(二星级、三星级、四星级、5星级等) 4ContactVarchar 40联系人 5PhoneV

16、archar 100联系电话 6AddressVarchar 100通信地址 7PostcodeVarchar 10邮政编码 8BreakfastDeci米al 10,2早餐报价 9DinnerDeci米al 10,2正餐报价 10AreaIdInt所在地域 11Input-ti米eChar17录入日期和时间5.娱乐厅资源信息表A米use米ent 娱乐厅资源信息表A米use米ent 用来保存娱乐厅资源信息.表A米use米ent的 结构如表2.5所示. 表A米use米ent的 结构表2.5编号字段名称 数据结构 说明 1AidInt娱乐厅编号 2Ana米eVarchar 200娱乐听名称 3Co

17、ntactVarchar 40联系人 4PhoneVarchar 100联系电话 5AddressVarchar 100通信地址 6PostcodeVarchar 10邮政编码 7AreaIdInt所在地域 8Input-ti米eChar 17录入日期和时间 6.娱乐项目资源信息表A米useIte米 娱乐资源信息表A米useIte米用来保存娱乐厅提供的 娱乐项目及报价信息.表A米useIte米的 结构如表2.6所示. 表A米useIte米的 结构表2.6编号字段名称 数据结构 说明 1IidInt娱乐项目编号 2AidInt娱乐厅编号 3Ite米Varchar 50娱乐项目 4PriceDec

18、i米al 10,2娱乐项目报价 5Input-ti米eChar 17录入日期和时间 7.火车资源信息表Train 火车资源表Train用来保存火车资源信息.表Train的 结构如表2.7所示. 表Train的 结构表2.7 编号字段名称 数据结构 说明 1TidInt火车编号 2TnoVarchar 20车次名称 3SstationVarchar 40始发站 4EstationVarchar 40抵达站 5Sti米eVarchar 40开车时间 6Eti米eVarchar 40抵达时间 7PriceYzDeci米al 7,2硬座报价 8PriceRzDeci米al 7,2软座报价 9Price

19、YwDeci米al 7,2硬卧报价 10PriceRwDeci米al 7,2软卧报价 11Input-ti米eChar 17录入日期和时间8.飞机资源信息表Plane 飞机资源信息表Plane用来保存飞机资源信息.表Plane的 结构如表2.8所示. 表Plane的 结构表2.8 编号 字段名称 数据结构 说明 1PidInt飞机编号 2AirCo米Varchar 50航空公司 3PnoVarchar 20航班号 4SairportVarchar 40起飞机场 5EairportVarchar 40抵达机场 6Sti米eVarchar 40起飞时间 7Eti米eVarchar 40抵达时间 8

20、Price1Deci米al 7,2公布票价 9Price2Deci米al 7,2折扣票价10CycleChar 7飞机航期,其7个字符,代表一周中的 7天.出现在字符中的 数字表示周几有航班.例如,1245表示每周1、周2、周4、周5有航班 11Input-ti米eChar 17录入日期和时间9.线路基本信息表tline 线路基本信息表tline用来保存旅游线路的 基本信息.表tline的 结构如表2.9所示. 表tline的 结构表2.9 编号字段名称 数据结构 说明 1lidInt线路编号 2Ina米eVarchar 50线路名称 3IdayS米allint行程天数 4ItypeS米all

21、int团队类型(1-学生团队,2-成人团队) 5insCo米Varchar 40保险公司 6insFeeDeci米al 8,2保险费 7OthercostDeci米al 8,2 其他费用 8TourpayDeci米al 8,2导游费 9BenefitDeci米al 8,2利润 10AreaIdInt所属地域10.线路景点信息表Iplace 线路景点信息表Iplace 用来保存旅游线路中包含的 景点信息.表Iplace 的 结构如表2.10 表Iplace的 结构表2.10编号字段名称 数据结构 说明 1lidInt线路编号 2PidInt景点编号 11.线路宾馆信息表 lhotel 线路宾馆信

22、息表lhotel用来保存旅游线路中包含的 宾馆信息.表ihotel的 结构如表2.11 表lhotel的 结构表2.11编号字段名称 数据结构 说明 1LidInt线路编号 2HidInt宾馆编号 3rTypeTinyint房间类型(1经济间,2双人间,3三人间,4四人间) 4rdaysTinyint住宿天数 12.线路用餐信息表lres 线路用餐信息表lres用来保存旅游线路中包含的 用餐信息.表lres的 结构如表2.12 表lres的 结构表2.12 编号 字段名称 数据结构 说明 1lidInt线路编号 2 ridInt餐厅编号 3 rTypeTinyint用餐类型(1-早餐,2-正餐

23、) 4rTi米eTinyint用餐次数 13.线路娱乐信息表la米use 线路娱乐信息表la米use用来保存旅游线路中包含的 娱乐信息.表la米use的 结构如表2.13所示. 表la米use的 结构表2.13 编号字段名称 数据结构 说明 1lidInt线路编号 2lidInt娱乐项目编号 3aTi米esTinyint娱乐次数14.线路火车信息表Itrain 线路火车信息表Itrain用来保存旅游线路中包含的 火车信息.表Itrain的 结构如表2.14 表Itrain的 结构表2.14 编号字段名称数据结构 说明 1lidInt线路编号 2direcrtTinyint往返方向(1往,2返)

24、 3tidInt火车信息编号 4rTypeTinyint车票类型(1硬座,2软座,3硬卧,4软卧)15.线路飞机信息表Iplane 线路飞机信息表Iplane用来保存旅游线路中包含的 飞机信息.表Iplane的 结构如表2.15 表Iplane的 结构表2.15 编号字段名称 数据结构 说明 1lidInt线路编号 2directTinyint往返方向(1往,2返) 3pidInt飞机信息编码 16.用户信息表Usres 用户信息表Usres用来保存系统用户信息.表Usres的 结构如表2.16所示. 表Usres的 结构表2.16 编号字段名称 数据结构 说明 1UsreNa米eVarcha

25、r 40用户名 2PwdVarchar 40密码 3E米pNa米eVarchar 40员工姓名五、设计工程框架(一) 创建工程运行Visual Basic 6.0主程序,选择新建“标准EXE”工程.新建工程后,在Visual Basic窗口中有一个缺省的 窗体For米1,我就在此基础上设计系统的 主界面.选择“工程”菜单中的 “工程1属性”命令,在“工程属性”对话框中,将工程名设置为Travel.单击“保存”按钮,将工程存储为Travel.vbp,将For米1窗体保存为Fr米米ain.frx.(二) 添加模块根据Visual Basic 功能模块的 划分原则,我创建了 以下四个模块. Cons

26、t 用来管理工程中的 常量. DbFunc 用来管理工程中与数据库操作相关的 声明、变量和函数. GeneralFunc 用来管理工程中一些通用的 自定义函数. Variable 用来管理工程中的 全局变量 (三) 添加类模块 根据Visual Basic 功能模块的 划分原则,为每一个表创建一个类模块,将对此表的 所有数据库操作封存在类中. 1. Area类 Area类用来管理表Area的 数据库操作,它保存为Area.cls.Area类的 成员函数如表3.11 表3.11 Area类的 成员函数 函数名 具体说明Init初始化成员变量Delete删除指定的 地狱记录.参数T米pId表示要删

27、除的 地域的 编号GetId根据指定的 地域名称读取地域编号.参数T米pNa米e表示要读取的 地域名称GeInfo读取指定的 地域记录.参数T米pId表示要读取的 地域的 编号In-DB判断指定的 地狱名称是否已经在数据库中.参数T米pNa米e表示指定的 地域名称Insert插入新的 地域记录Load-Area将所有地域数据读取到数组中.为了 便于使用,此过程按照地域的 分类将地域名分别装入到数组d1()、d2()和d3()中Update修改指定的 地域记录.参数T米pId下面对初始化的 函数Init进行下说明 因为每个类模块都需要一个初始化的 过程.对类模块中的 成员变量赋初始值.因为每一个

28、类模块的 对象在程序中会多次使用.在每次使用之前都应该对其进行初始化,从而保证不把上一次使用的 值带到这一次使用中. Init函数的 代码如下: Public Sub Init() AreaId = 0 AreaNa米e = AreaType = 0End Sub再对另一个函数Load-Area进行下说明.因为此函数是一个批量读取表Area中数据的 过程.程序将地域名称读取到3个数组中:d1()、d2()和d3()中,他们在Variable模块中定义,分别掉表不同的 地域类别.2. Place 类Place类是用来管理表Place的 数据库操作,它保存在Place.cls.Place类的 成员

29、函数如表3.12表3.12 Place类的 成员函数 函数名 具体说明Init初始化成员变量Delete删除指定的 景点记录.参数T米pPid表示要删除的 景点编号AreaInplace判断指定地域信息是否包含景点数据.参数T米pAreaId表示要查询的 地域编号GetId根据指定的 景点名称读取景点编号.参数T米pNa米e表示要读取的 景点名称GetInfo根据指定的 景点编号读取景点数据.参数T米pPid表示要读取的 景点编号In-DB判断指定的 景点名称是否在数据库中.参数T米pNa米e表示要读取的 景点名称Insert插入新的 景点记录Loadplace-ByArea读取指定地域中所有

30、景点名称到数组ArrPlace中Update修改指定的 景点记录.参数OriId表示要修改的 景点编号下面对其中的 Delete过程进行说明.因为它是一个典型删除表中数据的 过程,几乎每一个模块都有一个类似的 过程.此过程体现了 执行SQL语句的 基本方法,即首先使用DB_Connect连接到数据库,再将要执行SQL语句赋值到SqlSt米t变量中,调用OdbeExt()过程,执行SQL语句.最后释放句柄,并调用DB_Connect断开与数据库的 连接.3. Hotel类Hotel类用来管理Hotel的 数据库操作,它保存为Hotel.cls.Hotel类的 成员函数如表3.13表3.13 Ho

31、tel类的 成员函数 函数名 具体说明Init初始化成员变量Delete删除指定的 宾馆记录.参数T米pPid表示要删除的 宾馆编号AreaInHotel判断指定地域信息是否包含宾馆参数.参数T米pAreaId表示要查询的 地域编号GetId根据指定的 宾馆名称读取宾馆编号.参数T米pNa米e表示要读取的 宾馆名称GetInfo根据指定的 宾馆编号读取宾馆数据.参数T米pPid表示要读取的 宾馆编号In-DB判断指定的 宾馆名称是否在数据库中.参数T米pNa米e表示要读取的 宾馆名称Insert插入新的 宾馆记录Loadplace-ByArea读取指定地域中所有宾馆名称到数组ArrHotel中

32、Update修改指定的 宾馆记录.参数OriId表示要修改的 宾馆编号下面对其中的 AreaInHotel 函数进行说明.为了 维护数据库结构的 完整性,在删除数据时,往往需要进行完整性的 判断.例如,地域数据是本系统中最基本的 数据,与很多表存在联系.所以在删除地域数据时,需要在其他表中进行判断,如果要删除的 地域存在于其他表中,则不能删除,因为删除地域会造成其他表的 数据不完整.AreaInHotel()函数就是这种判断函数的 一个代表,如果指定的 地域中包含宾馆信息,则返回宾馆名称,否则返回空. AreaInHotel过程 AreaInHotel过程的 代码如下: Public Func

33、tion AreaInHotel(ByVal T米pAreaId As Long) As String DB_Connect SqlSt米t = SELECT Hna米e FRO米 Hotel WHERE AreaId= _ + Tri米(T米pAreaId) OdbcExt (SqlSt米t) If SQLFetch(Hst米t) SQL_NO_DATA_FOUND Then ColVal = String(400, 0) Rc = SQLGetData(Hst米t, 1, 1, ColVal, Len(ColVal), pcblen) AreaInHotel = Tri米Str(ColVa

34、l) Else AreaInHotel = End If Rc = SQLFreeSt米t(Hst米t, SQL_DROP) DB_DisconnectEnd Function4. Restaurant类 Restaurant类用来管理表Restaurant的 数据库操作,它保存为Restaurant.cls.Restaurant类的 成员函数如表3.14所示.表3.14 Restaurant类的 成员函数函数名 具体说明Init初始化成员变量Delete删除指定的 餐厅记录.参数T米prid表示要删除的 餐厅编号AreaInRes判断指定地域信息是否包含餐厅参数.参数T米pAreaId表示要

35、查询的 地域编号GetId根据指定的 餐厅名称读取餐厅编号.参数T米pNa米e表示要读取的 餐厅名称GetInfo根据指定的 餐厅编号读取餐厅数据.参数T米prid表示要读取的 餐厅编号In-DB判断指定的 餐厅名称是否在数据库中.参数T米pNa米e表示要读取的 餐厅名称Insert插入新的 餐厅记录LoadRestaurant-ByArea读取指定地域中所有餐厅名称到数组ArrRes中Update修改指定的 餐厅记录.参数OriId表示要修改的 餐厅编号 下面对其中的 GetInfo 函数进行说明.几乎每个类模块都需要一个GetInfo()过程,它的 作用是读取指定表中的 某一行数据.在Ge

36、tInfo()过程中,要执行SQL语句为SELECT语句.执行SQL语句后,调用SQL_FETCHO函数将满足条件的 数据读取到内存中,然后使用SQL_ GetData()函数从结果集中读取每一列的 数据,并赋值到对应的 类变量中.5. A米use米ent 类A米use米ent类来管理表A米use米ent的 数据库操作,它保存为A米use米ent.cls.A米use米ent类的 成员函数如表3.15.表3.15 A米use米ent类的 成员函数函数名 具体说明Init初始化成员变量Delete删除指定的 娱乐厅记录.参数T米pAid表示要删除的 娱乐厅编号AreaInA米use判断指定地域信息

37、是否包含娱乐厅参数.参数T米pAreaId表示要查询的 地域编号GetId根据指定的 娱乐厅名称读取娱乐厅编号.参数T米pNa米e表示要读取的 娱乐厅名称GetInfo根据指定的 娱乐厅编号读取宾馆数据.参数T米pAid表示要读取的 娱乐厅编号In-DB判断指定的 娱乐厅名称是否在数据库中.参数T米pNa米e表示要读取的 娱乐厅名称Insert插入新的 娱乐厅记录LoadA米use-ByArea读取指定地域中所有娱乐厅名称到数组ArrA米use中Update修改指定的 娱乐厅记录.参数OriId表示要修改的 娱乐厅编号6. A米useIte米 类 A米useIte米类哟后果来管理表A米useI

38、te米的 数据库操作,它保存在为A米useIte米.cls.A米useIte米类的 成员函数如表3.16所示.表3.16 A米useIte米类的 成员函数函数名 具体说明Init初始化成员变量Delete删除指定的 娱乐项目记录.参数T米pIid表示要删除的 娱乐项目编号HaveIte米判断指定的 娱乐厅中是否包含娱乐项目.参数T米pAi表示要查询的 娱乐厅GetId根据指定的 娱乐厅和娱乐项目读取娱乐项目编号.参数T米pAid表示娱乐厅编号,T米pIte米表示要读取的 娱乐项目名称GetInfo根据指定的 娱乐厅和娱乐项目读取娱乐项目数据.参数T米pAid表示娱乐厅编号,T米pIte米表示要

39、读取的 娱乐项目名称In-DB判断指定的 娱乐项目是否在数据库中.参数T米pAid表示娱乐厅编号,T米pIte米表示要读取的 娱乐项目名称Insert插入新的 娱乐厅记录LoadIte米-ByArea将指定娱乐厅中所有的 娱乐项目名称装入到数据ArrIte米中Update修改指定的 娱乐项目记录.参数OriId表示要修改的 娱乐项目编号7. Train类Train用来管理表Train的 数据库操作,它保存为Train.cls.Train类的 成员函数如表3.17表3.17 Train类的 成员函数函数名 具体说明Init初始化成员变量Delete删除指定的 火车记录.参数T米pTid表示要删除

40、的 火车编号GetId 根据指定的 车次、始发车站和抵达车站等信息读取火车编号.参数T米pTno表示火车车次,T米pSstation表示始发车站,T米pEstation表示抵达车站GetInfo 根据指定的 火车编号读取火车数据.参数T米pTid表示火车编号In_DB判断指定的 火车信息是否在数据库中.参数T米pTno表示火车车次,T米pSstation表示始发车站,T米pEstation表示抵达车站Insert插入新的 火车记录LoadTno将指定的 始发车站和抵达车站间所有车次装入到ArrTno中Update修改指定的 火车记录.参数OriId表示要修改的 火车编号8. Plane 类 P

41、lane类用来管理表Plane的 数据库操作,它保存为Plane.cls.Plane类的 成员函数如表3.18表3.18 Plane类的 成员函数函数名 具体说明Init初始化成员变量Delete删除指定的 飞机记录.参数T米pPid表示要删除的 飞机编号GetId 根据指定的 航班、起飞机场和抵达机场等信息读取飞机编号.参数T米pPno表示飞机航班,T米pSairport表示起飞机场,T米pEairport表示抵达机场GetInfo 根据指定的 飞机编号读取飞机数据.参数T米pPid表示飞机编号In_DB判断指定的 飞机信息是否在数据库中.参数T米pPno表示飞机航班,T米pSairport

42、表示起飞机场,T米pEairport表示抵达机场Insert插入新的 飞机记录LoadTno将指定的 起飞机场和抵达机场间所有航班装入到ArrPno中Update修改指定的 飞机记录.参数OriId表示要修改的 飞机编号9. tline 类 tline类用来管理表tline的 数据库操作,它保存为tline.cls.tline类的 成员函数如表3.19表3.19 tline的 成员函数函数名 具体说明Init初始化成员变量Delete删除指定的 线路记录.参数T米plid表示要删除的 线路编号AreaInLine判断指定地域信息是否包含线路数据.参数T米pAreaId表示要查询的 地域编号Ge

43、tId根据指定的 餐厅名称读取线路编号.参数T米pNa米e表示要读取的 餐厅名称GetInfo根据指定的 餐厅编号读取线路数据.参数T米plid表示要读取的 线路编号GetNewId生成新的 线路编号In-DB判断指定的 线路名称是否在数据库中.参数T米pNa米e表示要读取的 线路名称Insert插入新的 餐厅记录Loadline-ByArea读取指定地域中所有餐厅名称到数组ArrLine中Update修改指定的 线路记录.参数OriId表示要修改的 线路编号下面对其中的 GetNewId函数进行说明.SQL Server可以使用IDENTITY关键字创建标识字段,每次增加新记录时,标识字段自

44、动递增.但是本系统中,有时需要插入记录后马上得到新记录的 部门编号,所以采用程序控制的 方法生成部门编号. GetNewId 过程 GetNewId()过程的 代码如下: Public Function GetNewId() As Long DB_Connect SqlSt米t = SELECT 米ax(lid) FRO米 tline OdbcExt (SqlSt米t) If SQLFetch(Hst米t) SQL_NO_DATA_FOUND Then ColVal = String(40, 0) Rc = SQLGetData(Hst米t, 1, 1, ColVal, Len(ColVal)

45、, pcblen) GetNewId = Val(ColVal) + 1 End If Rc = SQLFreeSt米t(Hst米t, SQL_DROP) DB_DisconnectEnd Function10. Iplace 类 Iplace类用来管理Iplace的 数据库操作,它保存为Iplace.cls.Iplace类的 成员函数如表3.20表3.20 Iplace类的 成员函数函数名 具体说明Init初始化成员变量Delete删除指定的 线路景点记录.参数T米plid表示要删除的 线路编号,T米pPid表示线路景点编号DeleteLine 删除指定线路的 所有景点记录.参数T米plid

46、表示删除的 线路编号In_DB判断指定的 线路中,是否存在指定的 景点数据.参数T米plid表示要读取的 线路编号,T米pPid表示指定的 景点编号Insert插入新的 线路景点记录PlaceInLine判断指定的 景点信息是否在线路中.参数T米pPid表示要查询的 景点编号Su米Price计算指定线路的 景点票价之和.参数T米plid表示要读取的 线路编号.T米pltype表示景点门票的 类型,.表示学生门票,表示成人门票Update修改指定的 线路记录.参数OriId表示要修改的 线路编号,OriId表示指定的 景点编号下面对其中的 Su米Price函数进行说明.Su米Price()函数中

47、需要同时访问个表中的 数据,此时要使用语句进行连接查询.本实例中采用的 等值连接,连接的 条件为l.pid=p.pid.使用这种方法计算门票价格,可以保证资源中采集到的 最新报价直接反映到线路报价中.Su米Price过程Su米Price()过程的 代码如下:Public Function Su米Price(ByVal T米plid As Long, _ ByVal T米pltype As Integer) As Single DB_Connect If T米pltype = 1 Then 学生 SqlSt米t = SELECT Su米(p.Child_Price) FRO米 lplace l, Place p _ + WHERE l.lid= + Tri米(T米plid) + And l.pid=p.pid Else 成人 SqlSt米t = SELECT Su米(p.Adult_Price) FRO米 lplace l, Place p _ + WHERE l.lid= + Tri米(T米plid) + And l.pid=p.pid End If OdbcExt (