pt_acc.ec

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

                $las_date,$interes,$maint_v from l_fix
                where sec_num=$s_num and acc_num>=$a_num1 and 
                term=$ter and status="E";
              $ open read_261;
              break;
            case 7:
              $ declare read_271 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 acc_num>=$a_num1 and 
                status="E";
              $ open read_271;
          }
      }
    if(sqlca.sqlcode!=0)
      {
        move(20,26);
        addstr("打开");
        mess(14);
        printw("(%d), ",sqlca.sqlcode);
        mess((short)3);
        getch();
        continue;
      }
    pa=pab;
    l=0;
    if((pf_l=fopen("/dev/lp0","w"))==NULL)
      {
        addstr("打印机不能使用, ");
        mess((short)3);
        getch();
        continue;
      }
    move(20,20);
    addstr("请将系统打印机准备好, 装好打印纸, ");
    mess((short)4);
    refresh();
    getch();
    while(1)
      {
        if(num_c1==1)
          {
            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;
              }
          }
        else
          {
            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;
              }
          }
        if(sqlca.sqlcode!=0) break;
        if(l==0)
          {
            addspacef(73);
            fprintf(pf_l,"帐  户  表\n");
            addspacef(73);
            fprintf(pf_l,"==========\n");
            addspacef(10);
            fprintf(pf_l,"储种: %-10s",&title2[num_c2][2]);
            addspacef(10);
            fprintf(pf_l,"    币种: ");
            switch(cu_type1[0])
              {
                case 'R':
                  fprintf(pf_l,"人民币  ");
                  break;
                case 'U':
                  fprintf(pf_l,"美元    ");
                  break;
                case 'J':
                  fprintf(pf_l,"日元    ");
                  break;
                case 'H':
                  fprintf(pf_l,"港元    ");
                  break;
                case 'M':
                  fprintf(pf_l,"德国马克");
                  break;
                case 'P':
                  fprintf(pf_l,"英镑    ");
                  break;
                case 'F':
                  fprintf(pf_l,"法国法郎");
                  break;
                case 'C':
                  fprintf(pf_l,"加拿大元");
              }
            if(num_c2==1||num_c2==3||num_c2==6)
              {
                fprintf(pf_l,"    存期: ");
                if(ter[0]<12) fprintf(pf_l,"%2d个月",ter[0]);
                else fprintf(pf_l,"%2d年  ",ter[0]/12);
              }
            else addspacef(6);
            addspacef(64);
            fprintf(pf_l,"%4d年%2d月%2d日\n",year,month,day);
            fprintf(pf_l,"┏━━━━━━┯━━━━┯━━━━━━━━━━━━┯━━━━┯━━━━━┯━━━━━┯━━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┯━━━━┓\n");
            fprintf(pf_l,"┃            │        │                        │        │          │          │  最  后  │              │              │              │        ┃\n");
            fprintf(pf_l,"┃   帐  号   │  户名  │        地    址        │ 凭证号 │ 开户日期 │ 起息日期 │ 重要修改 │");
            if(num_c2==1||num_c2==6)
              {
                if(num_c1==1)fprintf(pf_l,"    金  额    │              │   利    率   │  状态  ┃\n");
                else fprintf(pf_l,"    金  额    │  保  值  额  │   利    息   │  状态  ┃\n");
              }
            else if(num_c2==2||num_c2==7)
              fprintf(pf_l,"    余  额    │              │   累计利息   │  状态  ┃\n");
            else if(num_c2==3)
              fprintf(pf_l,"    定  额    │    余  额    │   累计利息   │  状态  ┃\n");
            fprintf(pf_l,"┃            │        │                        │        │          │          │  日  期  │              │              │              │        ┃\n");
            fprintf(pf_l,"┠──────┼────┼────────────┼────┼─────┼─────┼─────┼───────┼───────┼───────┼────┨\n");
          }
        if((l%5)==0&&l!=0)
          fprintf(pf_l,"┃            │        │                        │        │          │          │          │              │              │              │        ┃\n");
        fprintf(pf_l,"┃");
        prtf_inum((long)s_num[0],2);
        fprintf(pf_l,"-");
        prtf_inum(a_num,9);
        fprintf(pf_l,"│%-8s│%-24s│ ",nam,addres);
        prtf_inum(cr_num,7);
        fprintf(pf_l,"│%4d.%2d.%2d",ope_date/10000,(ope_date%10000)/100,
          ope_date%100);
        fprintf(pf_l,"│%4d.%2d.%2d",int_date/10000,(int_date%10000)/100,
          int_date%100);
        fprintf(pf_l,"│%4d.%2d.%2d│",las_date/10000,(las_date%10000)/100,
          las_date%100);
        prtf_dnum(amoun,14);
        fprintf(pf_l,"│");
        if(num_c2==1||num_c2==6)
          {
            if(num_c1==1) fprintf(pf_l,"              │%14.4f",interes);
            else
              {
                prtf_dnum(maint_v,14);
                fprintf(pf_l,"│");
                prtf_dnum(interes,14);
              }
          }
        else if(num_c2==2||num_c2==7)
          {
            fprintf(pf_l,"              │");
            prtf_dnum(interes,14);
          }
        else if(num_c2==3)
          {
            prtf_dnum(balanc,14);
            fprintf(pf_l,"│");
            prtf_dnum(interes,14);
          }
        fprintf(pf_l,"│");
        switch(toupper(statu[0]))
          {
            case 'A':
              fprintf(pf_l," 可存取 ");
              break;
            case 'E':
              fprintf(pf_l," 销  户 ");
              break;
            case 'F':
              fprintf(pf_l," 冻  结 ");
              break;
            case 'H':
              fprintf(pf_l," 挂  失 ");
              break;
            case 'V':
              fprintf(pf_l,"口头挂失");
              break;
            default:
              addspacef(8);
          }
        fprintf(pf_l,"┃\n");
        l++;
        if(l>=40)
          {
            fprintf(pf_l,"┗━━━━━━┷━━━━┷━━━━━━━━━━━━┷━━━━┷━━━━━┷━━━━━┷━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━┛\n");
            addspacef(76);
            fprintf(pf_l,"第%2d页\n\n\n\n\n\n\n\n\n\n",pa);
            l=0;
            pa++;
            if(pa>=pab+pac) break;
          }
      }
    if(l>0)
      {
        fprintf(pf_l,"┗━━━━━━┷━━━━┷━━━━━━━━━━━━┷━━━━┷━━━━━┷━━━━━┷━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━┛\n");
        addspacef(76);
        fprintf(pf_l,"第%2d页\n\n\n\n\n\n\n\n\n\n",pa);
      }
    fclose(pf_l);
    if(num_c1==1)
      {
        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;
          }
      }
    else
      {
        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;
          }
      }
  }
$ close database;
endwin();

#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/faddspacef>
#include </u/ebcsav/include/prt_inum>
#include </u/ebcsav/include/fprtf_inum>
#include </u/ebcsav/include/fprtf_dnum>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>