VFP课程设计--飞机航班查询系统

1、课 程 设 计 报 告 课程名 VFP 数 据 库 题目 飞机航班查询系统 （院）系 数 理 系 专业 班级 学号 学生姓名 指导教师姓名 完成日期 目录1、课程设计目标.22、运行环境.3、系统功能.4、系统功能模块结构示意图.5、各文件对应文件名.6、数据库表设计结构.7、主要模块的设计说明和程序代码. 系统主程序. 欢迎使用界面. 登陆界面. 系统主界面. 密码修改. 航班信息查询记录. 航班信息添加记录. 航班信息修改及删除记录.8、测试情况.9、使用说明.10、心得体会. 一、课程设计目的数据库课程设计是集中实践性环节之一，是学习完数据库应用与基础课程后进行的一次全面的综合练习。其目

2、的在于加深对数据库基础理论和基本知识的理解，掌握使用数据库进行软件设计的基本方法，提高运用数据库解决实际问题的能力。2、 运行环境 开发工具：Visual FoxPro 6.0 运 行 环 境： VFP数据库管理系统。三、系统功能 登陆使用航班查询系统 航班信息的查询 航班信息的添加 航班信息修改及删除 登录密码的修改4、 系统功能模块结构示意图 5、 各文件对应文件名航班表（hbb）密码表（mmb）欢迎使用界面表单（hyjmbd）登录界面表单(dljmbd)主界面表单（zjmbd）航班信息查询表单(hbcxbd)航班信息增加表单(hbzjbd)航班信息修改及删除表单(hbxgbd)修改密码表

3、单（xgmm）6、 数据库表设计结构航班表如下航班表设计过程密码表如下（图略）密码表设计过程如下七、主要模块的设计说明和程序代码 系统主程序 set talk offset esca offset exac onset status offset safe offscreen.windowstate = 2set cent onopen database fjhbkdo form hyjmbdread eventsdo form dljmbdread eventsdo form zjmbdread eventsclear windowsclose databaseset symsmenu to

4、 defaultreturn 欢迎使用界面用户登录命令的click事件为：do form dljmbdthisform.release退出的click事件为：thisform.releaseQuit 登陆界面 确认按钮的click事件为：public xm1,mm1xm1=TRIM(Thisform.text1.Value)mm1=TRIM(Thisform.text2.Value)SET EXAC ONselect mmblocate for 姓名=xm1 .AND. 密码=mm1 if found() thisform.release clear events do form zjmbde

5、lse messagebox('密码与账号不符,请重新输入!',16+0+0,'提示：请核对密码！') thisform.release do form dljmbdendif 返回按钮的click事件为：Thisform.releasedo form hyjmbd 系统主界面 航班信息查询命令的click事件为：thisform.releasedo form hbcxbd航班信息增加命令的click事件为：thisform.releasedo form hbzjbd航班信息修改命令的click事件为：thisform.releasedo form hbxgbd

6、修改密码的click事件为：thisform.releasedo form xgmmbd退出系统的click事件为：thisform.releaseQuit 密码修改 确认修改命令的click事件为：sele mmblocate for alltr( mmb.姓名)=姓名 &&姓名是一个全局变量,系统登录时保存了当前用户名if alltr(mmb.密码)<>alltr(thisform.text1.value) messageb("原密码有误,请重新输入!") thisform.text1.value="" thisform.

7、text1.setfocus returnelse if alltr(thisform.text2.value)<>alltr(thisform.text3.value) messageb("新密码输入不一致，请重新输入!") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus return else replace mmb.密码 with alltr(thisform.text2.value) messageb("密码修

8、改成功 ,请您记好新密码!") thisform.release do form zjmbd endifendif以下所有返回主界面命令的click事件都为：thisform.releasedo form zjmbd 航班信息查询记录 确认命令的click事件为：set exact offdo case&&按始发地查找case thisform.optiongroup1.value=1sele hbblocate for alltr(hbb.始发地)=alltr(thisform.text1.value)if found()sele * from hbb order

9、by 始发地; where alltr(hbb.始发地)=alltr(thisform.text1.value) into cursor tempwith thisform.grdhbb .recordsourcetype=1 .recordsource="temp" .columncount=9 .column1.header1.caption="航班号" .column2.header1.caption="机型" .column3.header1.caption="始发地" .column4.header1.c

10、aption="目的地" .column5.header1.caption="起飞时间" .column6.header1.caption="降落时间" .column7.header1.caption="票价" .column8.header1.caption="舱位等级" .column9.header1.caption="航程类型" endwith thisform.refresh thisform.grdhbb.setfocuselse k=messagebox(&q

11、uot;该始发地无记录，请重新输入！",32+1+0,"提示") if k=1 thisform.text1.value="" thisform.text1.setfocus endif endif&&按目的地查找case thisform.optiongroup1.value=2sele hbblocate for alltr(hbb.目的地)=alltr(thisform.text1.value)if found()sele * from txb order by 目的地; where alltr(hbb.目的地)=allt

12、r(thisform.text1.value) into cursor temp1with thisform.grdhbb .recordsourcetype=1 .recordsource="temp1" .columncount=9 .column1.header1.caption="航班号" .column2.header1.caption="机型" .column3.header1.caption="始发地" .column4.header1.caption="目的地" .column5

13、.header1.caption="起飞时间" .column6.header1.caption="降落时间" .column7.header1.caption="票价" .column8.header1.caption="舱位等级" .column9.header1.caption="航程类型" endwith thisform.refresh thisform.grdhbb.setfocuselse k=messagebox("该目的地无记录，请重新输入！",32+1+0

14、,"提示") if k=1 thisform.text1.value="" thisform.text1.setfocus endif endif Endcase 航班信息添加记录 确定按钮的click事件为：if empty(alltrim(thisform.text1.value)messagebox("航班号不能为空",48,"错误")thisform.text1.setfocus &&如果未填写型号，则出现对话框提醒用户型号不能为空else*获取各输入值航班号=alltrim(thisfor

15、m.text1.value)航程类型=alltrim(thisform.text2.value)舱位等级=alltrim(thisform.text3.value)机型=val(alltrim(thisform.text4.value)始发地=alltrim(thisform.text5.value)目的地=alltrim(thisform.text6.value)起飞时间=ctod(alltrim(thisform.text7.value)降落时间=ctod(alltrim(thisform.text8.value)票价=alltrim(thisform.text9.value)备注=all

16、trim(thisform.text10.value)insert into hbb value(航班号,机型,始发地,目的地,起飞时间,降落时间,票价,舱位等级,航程类型,备注) messagebox("添加成功！",48,"信息")*添加完毕后清空各个文本框 thisform.text1.value='' thisform.text2.value='' thisform.text3.value='' thisform.text4.value='' thisform.text5.value='' thisform.text6.value='' thisform.text7.value='' thisform.text8.value='' thisform.text9.value='' thisform.text10.value=''Endif 航班信息修改及删除记录 删除命令的click事件为：nAnswer=messagebox("