query_blot.ec

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

                      $ close read_401;
                    }
                  else
                    {
                      $ close read_402;
                    }
                  break;
                case 5:
                  if(num_c3==1)
                    {
                      $ close read_501;
                    }
                  else
                    {
                      $ close read_502;
                    }
              }
            getch();
            break;
          }
        move(2,0);
        clrtobot();
        block(1,0,22,80);
        move(2,10);
        addstr("流 水 号: ");
        move(2,48);
        printw("%d",b_num);
        move(3,10);
        addstr("操作员号: ");
        move(3,48);
        prt_inum((long)ope_num[0],2);
        move(4,10);
        addstr("帐    号: ");
        move(4,48);
        prt_inum((long)s_num[0],2);
        addstr("－");
        prt_inum(a_num,9);
        move(5,10);
        addstr("姓    名: ");
        move(5,48);
        addstr(nam);
        move(6,10);
        addstr("储蓄种类: ");
        move(6,48);
        switch(s_type[0])
          {
            case 1:
            case 11:
              addstr("整存整取");
              break;
            case 2:
            case 12:
              addstr("活期");
              break;
            case 3:
            case 13:
              addstr("零存整取");
              break;
            case 6:
            case 16:
              addstr("大额");
              break;
            case 7:
            case 17:
              addstr("通知存款");
          }
        move(7,10);
        addstr("币    种: ");
        move(7,48);
        switch(toupper(cu_type[0]))
          {
            case 'C':
              addstr("加拿大元");
              break;
            case 'F':
              addstr("法国法郎");
              break;
            case 'H':
              addstr("港元");
              break;
            case 'J':
              addstr("日元");
              break;
            case 'M':
              addstr("德国马克");
              break;
            case 'P':
              addstr("英镑");
              break;
            case 'R':
              addstr("人民币");
              break;
            case 'U':
              addstr("美元");
          }
        if(cu_type[0]>'Z') addstr("  (自动转存)");
        if(s_type[0]==1||s_type[0]==3||s_type[0]==6||s_type[0]==11)
          {
            move(8,10);
            addstr("期    限: ");
            move(8,48);
            if(ter[0]<12) printw("%2d个月",ter[0]);
            else printw("%2d年",ter[0]/12);
          }
        if(cr_num>0)
          {
            move(9,10);
            addstr("凭 证 号: ");
            move(9,48);
            prt_inum(cr_num,7);
          }
        else
          {
            move(9,6);
            addstr("*** 冲    销:  (流 水 号) ***");
            move(9,48);
            prt_inum(-cr_num,7);
          }
        move(10,10);
        addstr("状    态: ");
        move(10,48);
        switch(toupper(statu[0]))
          {
            case 'A':
              addstr("调息");
              break;
            case 'B':
              addstr("作废");
              break;
            case 'C':
              addstr("续存");
              break;
            case 'D':
              addstr("支出");
              break;
            case 'E':
              addstr("销户");
              break;
            case 'F':
              addstr("冻结");
              break;
            case 'G':
              break;
            case 'H':
              addstr("挂失");
              break;
            case 'I':
              addstr("计息");
              break;
            case 'J':
              break;
            case 'K':
              addstr("登折");
              break;
            case 'L':
              addstr("解挂");
              break;
            case 'M':
              addstr("保值");
              break;
            case 'N':
              addstr("帐户信息修改");
              break;
            case 'O':
              addstr("开户");
              break;
            case 'P':
              addstr("部份提前支取");
              break;
            case 'Q':
              break;
            case 'R':
              addstr("重新开户");
              break;
            case 'S':
              addstr("换折");
              break;
            case 'T':
              addstr("转帐");
              break;
            case 'U':
              addstr("解冻");
              break;
            case 'V':
              addstr("口头挂失");
              break;
            case 'W':
              break;
            case 'X':
              addstr("外汇买入");
              break;
            case 'Y':
              break;
            case 'Z':
              ;
          }
        move(11,10);
        addstr("发 生 额: ");
        move(11,48);
        prt_dnum(amoun,13);
        move(12,10);
        addstr("余    额: ");
        move(12,48);
        prt_dnum(balanc,13);
        move(13,10);
        addstr("利    息: ");
        move(13,48);
        printw("%15.4f",interes);
        move(23,25);
        mess(6);
        c=y_n('Y','N','N');
        if(c=='N')
          {
            switch(num_c1)
              {
                case 1:
                  if(num_c3==1)
                    {
                      $ close read_101;
                    }
                  else
                    {
                      $ close read_102;
                    }
                  break;
                case 2:
                  if(num_c3==1)
                    {
                      $ close read_201;
                    }
                  else
                    {
                      $ close read_202;
                    }
                  break;
                case 3:
                  if(num_c3==1)
                    {
                      $ close read_301;
                    }
                  else
                    {
                      $ close read_302;
                    }
                  break;
                case 4:
                  if(num_c3==1)
                    {
                      $ close read_401;
                    }
                  else
                    {
                      $ close read_402;
                    }
                  break;
                case 5:
                  if(num_c3==1)
                    {
                      $ close read_501;
                    }
                  else
                    {
                      $ close read_502;
                    }
              }
            break;
          }
      }
  }
$ close database;
endwin();

#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/prt_inum>
#include </u/ebcsav/include/prt_dnum>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>