query_acc.ec

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

                    {
                      case 1:
                        if(num_c3==1)
                          {
                            $ close read_511;
                          }
                        else
                          {
                            $ close read_512;
                          }
                        break;
                      case 2:
                        if(num_c3==1)
                          {
                            $ close read_521;
                          }
                        else
                          {
                            $ close read_522;
                          }
                        break;
                      case 3:
                        $ close read_531;
                        break;
                      case 6:
                        $ close read_561;
                        break;
                      case 7:
                        $ close read_571;
                    }
              }
            getch();
            break;
          }
        move(2,0);
        clrtobot();
        block(1,0,22,80);
        move(2,10);
        addstr("储蓄种类: ");
        move(2,48);
        addstr(&title2[num_c2][2]);
        move(3,10);
        addstr("帐    号: ");
        move(3,48);
        prt_inum((long)s_num[0],2);
        addstr("－");
        prt_inum(a_num,9);
        move(4,10);
        addstr("姓    名: ");
        move(4,48);
        addstr(nam);
        if(num_c2==3)
          {
            if((fla[0]&1)==0) addstr("  (个人户)");
            else addstr("  (集体户)");
          }
        move(5,10);
        addstr("币    种: ");
        move(5,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(num_c2==1||num_c2==3||num_c2==6)
          {
            move(6,10);
            addstr("期    限: ");
            move(6,48);
            if(ter[0]<12) printw("%2d个月",ter[0]);
            else printw("%2d年",ter[0]/12);
          }
        move(7,10);
        if(num_c2==3) addstr("定    额: ");
        else addstr("金    额: ");
        move(7,48);
        prt_dnum(amoun,13);
        move(8,10);
        addstr("地    址: ");
        move(8,48);
        addstr(addres);
        move(9,10);
        addstr("凭 证 号: ");
        move(9,48);
        prt_inum(cr_num,7);
        move(10,10);
        addstr("开户日期: ");
        move(10,48);
        printw("%4d年%2d月%2d日",ope_date/10000,(ope_date%10000)/100,
          ope_date%100);
        move(11,10);
        addstr("起息日期: ");
        move(11,48);
        printw("%4d年%2d月%2d日",int_date/10000,(int_date%10000)/100,
          int_date%100);
        move(12,10);
        addstr("状    态: ");
        move(12,48);
        switch(toupper(statu[0]))
          {
            case 'A':
              addstr("可存取");
              break;
            case 'B':
              addstr("作废");
              break;
            case 'E':
              addstr("销户");
              break;
            case 'F':
              addstr("冻结");
              break;
            case 'H':
              addstr("挂失");
              break;
            case 'V':
              addstr("口头挂失");
          }
        if(statu[0]>'Z') addstr("  (曾经丢失过凭整)");
        if(num_c2==3)
          {
            move(13,40);
            if((fla[0]&2)!=0) addstr("办过补存 ");
            if((fla[0]&4)!=0) addstr("办过增加定额 ");
            if((fla[0]&8)!=0) addstr("办过减少定额 ");
          }
        move(14,10);
        addstr("最后改变状态日期: ");
        move(14,48);
        printw("%4d年%2d月%2d日",las_date/10000,(las_date%10000)/100,
          las_date%100);
        move(15,10);
        if((num_c2==1||num_c2==6)&&toupper(statu[0])!='E') addstr("利    率: ");
        else addstr("累计利息: ");
        move(15,48);
        printw("%15.4f",interes);
        if(num_c2==1)
          {
            move(16,10);
            addstr("保    值: ");
            move(16,48);
            prt_dnum(maint_v,13);
          }
        else if(num_c2==2||num_c2==3||num_c2==7)
          {
            move(16,10);
            addstr("存折行号: ");
            move(16,48);
            prt_inum((long)lin_num[0],2);
          }
        if(num_c2==3)
          {
            move(17,10);
            addstr("余    额: ");
            move(17,48);
            prt_dnum(balanc,13);
            move(18,10);
            addstr("利    率: ");
            move(18,48);
            printw("%15.4f",inte_rat);
            move(19,10);
            addstr("最后存款月份: ");
            move(19,48);
            printw("%2d年%2d月",las_month/100,las_month%100);
          }
        if(num_c1==6)
          {
            move(21,10);
            addstr("密    码: ");
            move(21,48);
            printw("%7d",pas);
          }
        move(23,25);
        mess(6);
        c=y_n('Y','N','N');
        if(c=='N')
          {
            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)
                    {
                      case 1:
                        if(num_c3==1)
                          {
                            $ close read_511;
                          }
                        else
                          {
                            $ close read_512;
                          }
                        break;
                      case 2:
                        if(num_c3==1)
                          {
                            $ close read_521;
                          }
                        else
                          {
                            $ close read_522;
                          }
                        break;
                      case 3:
                        $ close read_531;
                        break;
                      case 6:
                        $ close read_561;
                        break;
                      case 7:
                        $ close read_571;
                    }
              }
            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>