航空管理系统课程设计实验报告_源代码.docVIP

实验名称：航空客运定票系统 实验内容描述：航空客运订票的业务活动包括：查询航线、客票预定和办理退票等。试设计一个航空客运定票系统，以使上述业务可以借助计算机来完成。 程序设计指导思想：本系统是利用VB6.0作为开发语言，Microsoft access作为后台数据库的航空预订票系统。主要掌握VB与数据库的连接，从而来完成系统。 四、程序设计 1、系统软件总体设计 （1）数据库表设计 系统数据库中有航班信息表、乘客信息表。 A. 航班预定信息表（book） 字段名称 数据类型 说明 fdate 文本 航班日期 fline 文本 航班号 fname 文本 姓名 password 文本 身份证号 B. 航班查询信息表（find） 字段名称 数据类型 说明 fdate 文本 航班日期 fline 文本 航班号 seatleft 文本 剩余座位 fplace 文本 出发地 fdes 文本 目的地 （2）软件结构设计 系统软件设计遵循模块化程序设计的思想。系统程序由订票管理模块、退票管理模块和退出系统模块组成。 （3）功能结构图 2、程序框图及必要的说明 3、程序总体设计： (1)、新建工程 根据需要添加窗体： 在界面添加各类控件 特别地，添加用来连接数据库的控件 1、首先，在“工程”中“部件”中添加Adodc控件和Datagrid控件 2、将控件放入窗体设计界面中 3、进行Adodc控件主要属性设置 点击“下一步”则：选择数据库 测试连接 记录源设置： 3、进行Datagrid控件主要属性设置:将它的DataSource设置为如图示 对相关控件进行属性设置 (2)、数据库的建立 (3)、程序编写 五、设计过程（界面） 登录系统界面： 首页： 查询界面： 订票界面： 退票界面： 六、主要程序代码 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 Sub Command2_Click() Me.Hide End Sub 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.查询： 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 = Trim(Combo1(0).Text) and fdes = Trim(Combo1(1).Text) 查询语句 Adodc1.RecordSource = sQSql 显示查询结果 Adodc1.Refresh DataGrid1.ReBind End If End Sub Private Sub Cmdout_Click(