1、一、一、 实验名称实验名称：航空客运定票系统 二、二、 实验内容描述：实验内容描述：航空客运订票的业务活动包括：查询航线、客票预定和办 理退票等。试设计一个航空客运定票系统，以使上述业务可以借助计算机 来完成。 三、三、 程序设计指导思想：程序设计指导思想：本系统是利用 VB6.0 作为开发语言，Microsoft acces s 作为后台数据库的航空预订票系统。主要掌握 VB 与数据库的连接，从 而来完成系统。 四四、程序设计、程序设计 1、系统软件总体设计 （1）数据库表设计 系统数据库中有航班信息表、乘客信息表。 A. 航班预定信息表（book） 字段名称 数据类型 说明 fdate 文
2、本 航班日期 fline 文本 航班号 fname 文本 姓名 password 文本 身份证号 B. 航班查询信息表（find） （2）软件结构设计 系统软件设计遵循模块化程序设计的思想。系统程序由订票管理模块、退票 管理模块和退出系统模块组成。 字段名称 数据类型 说明 fdate 文本 航班日期 fline 文本 航班号 seatleft 文本 剩余座位 fplace 文本 出发地 fdes 文本 目的地 （3）功能结构图 航空预订票系统 订 票 管 理 退 出 系 统 退 票 管 理 查 询 退 票 退 出 订 票 2、程序框图及必要的说明 开始 订票管理 查询航班信息 N 订票成功
3、Y 退票管理 退票 输入查询信息 输入退票信息 Y 退票成功 退出 3、程序总体设计： (1)、新建工程 根据需要添加窗体： 在界面添加各类控件 特别地，添加用来连接数据库的控件 1、首先，在“工程”中“部件”中添加 Adodc 控件和 Datagrid 控件 2、将控件放入窗体设计界面中 3、进行 Adodc 控件主要属性设置 点击“下一步”则：选择数据库 测试连接 记录源设置： 3、进行 Datagrid 控件主要属性设置:将它的 DataSource 设置为如图示 对相关控件进行属性设置 (2)、数据库的建立 (3)、程序编写 五五、设计过程、设计过程（界面）（界面） 登录系统登录系统界
4、面：界面： 首页首页： 查询界面：查询界面： 订票界面：订票界面： 退票界面：退票界面： 六六、主要主要程序代码程序代码 1 1登录系统：登录系统： Private Sub Command1_Click() If Text1.Text = 1 And Text2.Text = 123 Then 用户登录 system.Show 调用首页 Else 输入不成功时重新清空 MsgBox “用户名或密码错误!请重新输入!“, , “提示“ Text1.Text = “ Text2.Text = “ Text1.SetFocus End If Me.Hide 隐藏窗体 End Sub Private
5、Sub Command2_Click() Me.Hide End Sub 2.2.首页：首页： Private Sub mnuback_Click() 调用退票窗体 back.Show Me.Hide End Sub Private Sub mnubookfind_Click() 调用查询窗体 find.Show Me.Hide End Sub Private Sub mnudingpiao_Click() 调用订票窗体 book.Show Me.Hide End Sub Private Sub mnuoutme_Click() 退出系统 Unload Me End Sub 3.3.查询查询：
6、 Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub Calendar1_Click() 日历 txt_date.Text = Me.Calendar1.Value End Sub Private Sub cmdfind_Click() 查询程序 Dim sQSql As String If (Trim(Combo1(0) = “) Or (Trim(Combo1(1) = “) Then MsgBox “请设置查询条件！“, vbOKOnly + vbExclamation, “警告“ Exit Sub 根据出发地和目的地查询 Else sQSql = “select * from find where fplace = “ Data Source=D:数据库.mdb;Persist Security Info=False“ If InStr(“I
