query_acc.ec

这是一个使用 informix esql/c 技术开发的银行程序的部分代码。

              case 1:
                if(num_c3==1)
                  {
                    $ declare read_511 scroll cursor for 
                      select * into $s_num,$a_num,$nam,$pas,$cu_type,$ter,
                      $amoun,$addres,$cr_num,$ope_date,$int_date,$statu,
                      $las_date,$interes,$maint_v from r_fix
                      where sec_num=$s_num and address like $s;
                    $ open read_511;
                  }
                else
                  {
                    $ declare read_512 scroll cursor for 
                      select * into $s_num,$a_num,$nam,$pas,$cu_type,$ter,
                      $amoun,$addres,$cr_num,$ope_date,$int_date,$statu,
                      $las_date,$interes,$maint_v from f_fix
                      where sec_num=$s_num and address like $s;
                    $ open read_512;
                  }
                break;
              case 2:
                if(num_c3==1)
                  {
                    $ declare read_521 scroll cursor for 
                      select * into $s_num,$a_num,$nam,$pas,$cu_type,
                      $amoun,$addres,$cr_num,$ope_date,$int_date,$statu,
                      $las_date,$interes,$lin_num from r_demand
                      where sec_num=$s_num and address like $s;
                    $ open read_521;
                  }
                else
                  {
                    $ declare read_522 scroll cursor for 
                      select * into $s_num,$a_num,$nam,$pas,$cu_type,
                      $amoun,$addres,$cr_num,$ope_date,$int_date,$statu,
                      $las_date,$interes,$lin_num from f_demand
                      where sec_num=$s_num and address like $s;
                    $ open read_522;
                  }
                break;
              case 3:
                $ declare read_531 scroll cursor for 
                  select * into $s_num,$a_num,$nam,$pas,$cu_type,$ter,$amoun,
                  $balanc,$addres,$cr_num,$ope_date,$int_date,$statu,$fla,
                  $las_date,$inte_rat,$interes,$las_month,$lin_num
                  from r_dated
                  where sec_num=$s_num and address like $s;
                $ open read_531;
                break;
              case 6:
                $ declare read_561 scroll cursor for 
                  select * into $s_num,$a_num,$nam,$pas,$cu_type,$ter,
                  $amoun,$addres,$cr_num,$ope_date,$int_date,$statu,
                  $las_date,$interes,$maint_v from l_fix
                  where sec_num=$s_num and address like $s;
                $ open read_561;
                break;
              case 7:
                $ declare read_571 scroll cursor for 
                  select * into $s_num,$a_num,$nam,$pas,$cu_type,
                  $amoun,$addres,$cr_num,$ope_date,$int_date,$statu,
                  $las_date,$interes,$lin_num from r_call
                  where sec_num=$s_num and address like $s;
                $ open read_571;
            }
      }
    if(sqlca.sqlcode!=0)
      {
        move(20,26);
        addstr("打开");
        mess(14);
        printw("(%d), ",sqlca.sqlcode);
        mess(3);
        getch();
        continue;
      }
    while(1)
      {
        switch(num_c1)
          {
            case 1:
            case 6:
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ fetch read_111;
                      }
                    else
                      {
                        $ fetch read_112;
                      }
                    break;
                  case 2:
                    if(num_c3==1)
                      {
                        $ fetch read_121;
                      }
                    else
                      {
                        $ fetch read_122;
                      }
                    break;
                  case 3:
                    $ fetch read_131;
                    break;
                  case 6:
                    $ fetch read_161;
                    break;
                  case 7:
                    $ fetch read_171;
                }
              break;
            case 2:
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ fetch read_211;
                      }
                    else
                      {
                        $ fetch read_212;
                      }
                    break;
                  case 2:
                    if(num_c3==1)
                      {
                        $ fetch read_221;
                      }
                    else
                      {
                        $ fetch read_222;
                      }
                    break;
                  case 3:
                    $ fetch read_231;
                    break;
                  case 6:
                    $ fetch read_261;
                    break;
                  case 7:
                    $ fetch read_271;
                }
              break;
            case 3:
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ fetch read_311;
                      }
                    else
                      {
                        $ fetch read_312;
                      }
                    break;
                  case 2:
                    if(num_c3==1)
                      {
                        $ fetch read_321;
                      }
                    else
                      {
                        $ fetch read_322;
                      }
                    break;
                  case 3:
                    $ fetch read_331;
                    break;
                  case 6:
                    $ fetch read_361;
                    break;
                  case 7:
                    $ fetch read_371;
                }
              break;
            case 4:
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ fetch read_411;
                      }
                    else
                      {
                        $ fetch read_412;
                      }
                    break;
                  case 2:
                    if(num_c3==1)
                      {
                        $ fetch read_421;
                      }
                    else
                      {
                        $ fetch read_422;
                      }
                    break;
                  case 3:
                    $ fetch read_431;
                    break;
                  case 6:
                    $ fetch read_461;
                    break;
                  case 7:
                    $ fetch read_471;
                }
              break;
            case 5:
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ fetch read_511;
                      }
                    else
                      {
                        $ fetch read_512;
                      }
                    break;
                  case 2:
                    if(num_c3==1)
                      {
                        $ fetch read_521;
                      }
                    else
                      {
                        $ fetch read_522;
                      }
                    break;
                  case 3:
                    $ fetch read_531;
                    break;
                  case 6:
                    $ fetch read_561;
                    break;
                  case 7:
                    $ fetch read_571;
                }
          }
        if(sqlca.sqlcode!=0)
          {
            move(23,20);
            addstr("没有其他符合查询条件的帐户, ");
            mess(3);
            switch(num_c1)
              {
                case 1:
                case 6:
                  switch(num_c2)
                    {
                      case 1:
                        if(num_c3==1)
                          {
                            $ close read_111;
                          }
                        else
                          {
                            $ close read_112;
                          }
                        break;
                      case 2:
                        if(num_c3==1)
                          {
                            $ close read_121;
                          }
                        else
                          {
                            $ close read_122;
                          }
                        break;
                      case 3:
                        $ close read_131;
                        break;
                      case 6:
                        $ close read_161;
                        break;
                      case 7:
                        $ close read_171;
                    }
                  break;
                case 2:
                  switch(num_c2)
                    {
                      case 1:
                        if(num_c3==1)
                          {
                            $ close read_211;
                          }
                        else
                          {
                            $ close read_212;
                          }
                        break;
                      case 2:
                        if(num_c3==1)
                          {
                            $ close read_221;
                          }
                        else
                          {
                            $ close read_222;
                          }
                        break;
                      case 3:
                        $ close read_231;
                        break;
                      case 6:
                        $ close read_261;
                        break;
                      case 7:
                        $ close read_271;
                    }
                  break;
                case 3:
                  switch(num_c2)
                    {
                      case 1:
                        if(num_c3==1)
                          {
                            $ close read_311;
                          }
                        else
                          {
                            $ close read_312;
                          }
                        break;
                      case 2:
                        if(num_c3==1)
                          {
                            $ close read_321;
                          }
                        else
                          {
                            $ close read_322;
                          }
                        break;
                      case 3:
                        $ close read_331;
                        break;
                      case 6:
                        $ close read_361;
                        break;
                      case 7:
                        $ close read_371;
                    }
                  break;
                case 4:
                  switch(num_c2)
                    {
                      case 1:
                        if(num_c3==1)
                          {
                            $ close read_411;
                          }
                        else
                          {
                            $ close read_412;
                          }
                        break;
                      case 2:
                        if(num_c3==1)
                          {
                            $ close read_421;
                          }
                        else
                          {
                            $ close read_422;
                          }
                        break;
                      case 3:
                        $ close read_431;
                        break;
                      case 6:
                        $ close read_461;
                        break;
                      case 7:
                        $ close read_471;
                    }
                  break;
                case 5:
                  switch(num_c2)