powerbuilder的游标这样写

最新推荐文章于 2025-02-21 08:43:38 发布

weiryang2009

最新推荐文章于 2025-02-21 08:43:38 发布

阅读量707

点赞数

CC 4.0 BY-SA版权

文章标签： powerbuilder date string

本文链接：https://blog.youkuaiyun.com/weiryang2009/article/details/5983914

本文介绍了一种通过SQL查询来实现机场禁航限制检查的方法。该查询能够根据提供的航班日期、时间等信息筛选出受禁航限制影响的机场。通过游标遍历查询结果，并进一步获取受影响机场的名称及详细限制情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;