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

课 程 设 计 报 告 课程名 VFP 数 据 库 题目 飞机航班查询系统 （院）系 数 理 系 专业 班级 学号 学生姓名 指导教师姓名 完成日期 目录1、课程设计目标.22、运行环境.3、系统功能.4、系统功能模块结构示意图.5、各文件对应文件名.6、数据库表设计结构.7、主要模块的设计说明和程序代码. 系统主程序. 欢迎使用界面. 登陆界面. 系统主界面. 密码修改. 航班信息查询记录. 航班信息添加记录. 航班信息修改及删除记录.8、测试情况.9、使用说明.10、心得体会. 一、课程设计目的数据库课程设计是集中实践性环节之一，是学习完数据库应用与基础课程后进行的一次全面的综合练习。其目的在于加深对数据库基础理论和基本知识的理解，掌握使用数据库进行软件设计的基本方法，提高运用数据库解决实际问题的能力。2、 运行环境 开发工具：Visual FoxPro 6.0 运 行 环 境： VFP数据库管理系统。三、系统功能 登陆使用航班查询系统 航班信息的查询 航班信息的添加 航班信息修改及删除 登录密码的修改4、 系统功能模块结构示意图 5、 各文件对应文件名航班表（hbb）密码表（mmb）欢迎使用界面表单（hyjmbd）登录界面表单(dljmbd)主界面表单（zjmbd）航班信息查询表单(hbcxbd)航班信息增加表单(hbzjbd)航班信息修改及删除表单(hbxgbd)修改密码表单（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 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 zjmbdelse 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修改密码的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.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(密码修改成功 ,请您记好新密码!) 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 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.caption=目的地 .column5.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,提示) 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.目的地)=alltr(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.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,提示) 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(thisform.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)备注=alltrim(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=mess