【vfp开源代码栏目提醒】:网学会员为广大网友收集整理了,CHEXIAO.PRG,希望对大家有所帮助!
set talk off
set safety off
set exclusive off
set color to 0/7
public MNAME,DDES_CITY,SEP_CITY,MDATE
clear
@2,2 to 23,79
@3,4 to 22,77
@5,24 say '民航订票登记表'
@6,20 say '----------------------'
@15,9 to 21,72
@16,15 say '北京 上海 天津'
@17,15 say '广州 厦门 香港'
@18,15 say '桂林 杭州 大连'
@19,15 say '青岛 昆明 西安'
@8,9 to 14,72
@9,13 say '顾客'
@10,13 say '到达城市'
@10,40 say '出发城市'
@11,13 say '预定的班机'
@12,13 say '键入(?)返回主菜单'
store space(4) to DES_CITY,DEP_CITY
store space(8) to MDATE
MNAME=space(25)
select 1
use customer index customer
do while DES_CITY=space(4)
@9,31 get MNAME pict 'XXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@10,31 get DES_CITY pict '!!!'
@10,50 get DEP_CITY pict '!!!'
read
@14,13 say ' '
if MNAME='?'
close DATABASE
return
endif
key=DES_CITY+MNAME
if key=' '
@14,13 say '查找不到顾客预订的信息!'
DES_CITY=space(4)
loop
endif
return
find &key
if EOF()
@14,13 say '查找不到顾客预订的信息!'
DES_CITY=space(4)
loop
endif
MDATE=DTOC(CFLT_DATE)
DEP_CITY=CDEP_CITY
MFLT_NO=CFLT_NO
@10,58 say CDEP_CITY
@11,31 say MDATE
@15,9 clear
@15,9 to 21,71
@2,2 to 23,79
@3,4 to 22,77
select 2
use hangban index hangban_no,hangban1
find &MFLT_NO
if EOF()
@14,13 say '查找不到航班信息,按(SPACE)键继续'
set console off
wait
set console on
close DATABASE
return
endif
@16,13 say '离站时间:'+ADEP_TIME
@16,40 say '到达时间:'+AARR_TIME
@17,13 say '等级:'+ACLASS
@18,13 say '已预订的座位数:'+str(customer_>CNO_SEATS,2)
action=space(1)
do while action=' '
@19,10 say '键入(C)则对座位数进行删减:(A)则放弃.';
get action pict '!'
read
if upper(action)='A'
close DATABASE
return
endif
MSEATS=0
if upper(action)='C'
action=space(1)
loop
endif
@19,10 say ' '
@19,13 say '要删减的座位数:' get MSEATS pict '99'
read
return
set color to
set talk on