endstation,
takeofftime,
landingtime,
price1,
no1,
memo
)
VALUES( :flightnumber,
:airlinecompany,
:startstation,
:middlestation,
:endstation,
:takeofftime,
:landingtime,
:price1,
:no1,
:memo
)
USING SQLCA;
if sqlca.sqlcode<>0 then
messagebox("",sqlca.sqlerrtext)
//else
// messagebox("已经成功添加航班信息！~n")
// return
end if
//disconnect using SQLCA;
18.旅客订票信息界面查询按钮 clicked()
string filterStr
string name
integer rc
name=sle_buyername.text
filterStr="buyername='"+name+"'"
dw_6.SetTransobject(sqlca)
dw_6.setFilter(filterStr)
dw_6.Filter()
dw_6.Retrieve()
rc=dw_6.getrow()
if rc<=0 then
messagebox("提示：","没有此顾客订购机票信息!")
return 1
end if
