STRING ls_limit_airport_name
DECLARE Airport_cursor CURSOR FOR
SELECT AIRPORT_4CODE FROM t7001_5
WHERE (airport_4code = :dep_4code or airport_4code = :arr_4code)
AND INSTR(forbid_week,:ls_week) > 0
AND (TRUNC(forbid_start_date) <= TRUNC(:flight_date)
AND TRUNC(forbid_end_date) >= TRUNC(:flight_date))
AND ((TO_DATE('1900-01-01'||TO_CHAR(:ldt_std_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') >= TO_DATE('1900-01-01'||TO_CHAR(FORBID_START_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi')
AND TO_DATE('1900-01-01'||TO_CHAR(:ldt_std_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') <= TO_DATE('1900-01-01'||TO_CHAR(FORBID_END_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi'))
OR (TO_DATE('1900-01-01'||TO_CHAR(:ldt_sta_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') >= TO_DATE('1900-01-01'||TO_CHAR(FORBID_START_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi')
AND TO_DATE('1900-01-01'||TO_CHAR(:ldt_sta_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') <= TO_DATE('1900-01-01'||TO_CHAR(FORBID_END_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi')));
OPEN Airport_cursor;
FETCH Airport_cursor into :ls_limit_airport;
DO WHILE SQLCA.SQLCODE <> 100
//机场禁航限制
if not isnull(ls_limit_airport) then
flight_color = is_limit_hard
if pos(display,'▲') = 0 then display += '▲'
select CITY_CH_NAME into :ls_limit_airport_name from t7001 where AIRPORT_4CODE = :ls_limit_airport;
tips = tips + '~r~n' + '限制:' + ls_limit_airport_name + '机场禁航'
end if
FETCH Airport_cursor into :ls_limit_airport;
LOOP
CLOSE Airport_cursor;
powerbuilder的游标这样写
最新推荐文章于 2018-11-06 13:20:35 发布