旅游管理系统实验报告.docxVIP

旅游管理系统实验报告 实验目的 1、 掌握常用内部控件的主要属性、事件和方法，利用常用控件进行程序设计。 2、 掌握VB程序的一些简单的程序的设计与代码的编写。 实验要求 1、 建立一个旅游管理查询系统，实现其管理查询等功能。 2、 要实现路线添加及查询、导游查询、组团管理、游客查询等主要功能。 实验步骤 用VB建立主界而: (1)界面设计。 参照下图设置程序界面；窗体及各控件属性设置如下: (2)设计登陆界面，其中用到滚动字幕，用到以下代码: Private Sub Timer2_Timer() Label1. Left = CInt (Label1. Left) + 10 End Sub (3)建立数据库，运用数据库进行信息存储、查询以及调用。如: 旅游线路基本信息表 编号 字段名称 数据类型 备注 1 Lid Int 旅游线路编号 2 Lname Varchar 50 旅游线路名称 3 Lday Smallint 旅游线路全程天数 4 Ltype Smallint 旅游团组 5 OtherCost Decimal 2 其他费用 6 TourPay Decimal 2 导游费 7 Benefit Decimal 8,2 利润 实现路线添加，其代码如下: Dim res As Integer res = MsgBoxC确实添加此记录！〃，vbExclamation + vbYe