pt_sched.ec

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

                      printf("──────────────────\n");
                      addspacef(14);
                      printf("营业部门: %-10s",st);
                      addspacef(18);
                      printf("%4d年%2d月%2d日",year,month,day);
                      addspacef(24);
                      printf("操作员: %-6s\n\n",s);
                      addspacef(14);
                      printf("储蓄种类: %-10s",&title2[num_c2][2]);
                      printf("币种: ");
                      switch(toupper(cu_type[0]))
                        {
                          case 'C':
                            printf("加拿大元");
                            break;
                          case 'F':
                            printf("法国法郎");
                            break;
                          case 'H':
                            printf("港元    ");
                            break;
                          case 'J':
                            printf("日元    ");
                            break;
                          case 'M':
                            printf("德国马克");
                            break;
                          case 'P':
                            printf("英镑    ");
                            break;
                          case 'R':
                            printf("人民币  ");
                            break;
                          case 'U':
                            printf("美元    ");
                        }
                      printf("      帐号: ");
                      prtf_inum((long)s_num[0],2);
                      printf("－");
                      prtf_inum(a_num,9);
                      printf("        户名: %-8s",nam);
                      if(f==1) printf(" (已销)");
                      printf("\n");
                      addspacef(10);
                      printf("┏━━┯━━━━━━━┯━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┓\n");
                      addspacef(10);
                      printf("┃流水│    日  期    │ 摘  要 │  借方(支出)  │  贷方(存入)  │    余  额    │    利  息    ┃\n");
                      addspacef(10);
                      printf("┠──┼───────┼────┼───────┼───────┼───────┼───────┨\n");
                    }
                  if((l%5)==0&&l!=0)
                    {
                      addspacef(10);
                      printf("┃    │              │        │              │              │              │              ┃\n");
                    }
                  addspacef(10);
                  printf("┃%4d│%4d年%2d月%2d日│",b_num,pre_date/10000,
                    (pre_date%10000)/100, pre_date%100);
                  if((statu[0]&16)!=0) printf("冲销");
                  else addspacef(4);
                  switch(statu[0]&3)
                    {
                      case 0:
                        printf("支取");
                        break;
                      case 1:
                        printf("存入");
                        break;
                      case 2:
                        printf("计息");
                        break;
                      case 3:
                        printf("转存");
                    }
                  printf("│");
                  if((statu[0]&3)!=0)
                    {
                      addspacef(14);
                      printf("│");
                    }
                  prtf_dnum(amoun,14);
                  printf("│");
                  if((statu[0]&3)==0)
                    {
                      addspacef(14);
                      printf("│");
                    }
                  prtf_dnum(balanc,14);
                  printf("│");
                  prtf_dnum(interes,14);
                  printf("┃\n");
                  l++;
                  if(l>=40)
                    {
                      addspacef(10);
                      printf("┗━━┷━━━━━━━┷━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┛\n");
                      l=0;
                      pa++;
                      l1-=40;
                      if(l1<40 && f==0) break;
                    }
                }
              if(l>0)
                {
                  addspacef(10);
                  printf("┗━━┷━━━━━━━┷━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┛\n");
                }
              printf("%c%c%c%c%c",12,27,'[','4','i');
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ close read_221;
                      }
                    else
                      {
                        $ close read_222;
                      }
                    break;
                  case 2:
                    $ close read_231;
                    break;
                  case 5:
                    $ close read_271;
                }
              move(20,20);
              addspace(40);
              move(20,20);
              if(num_c4==1)
                {
                  mess((short)15);
                  c=y_n('Y','N');
                  if(c=='N') break;
                  else
                    {
                      move(20,20);
                      addspace(40);
                    }
                }
              else
                {
                  mess((short)3);
                  getch();
                  break;
                }
            }
          if(num_c4==1)
            {
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ close read_21;
                      }
                    else
                      {
                        $ close read_22;
                      }
                    break;
                  case 2:
                    $ close read_31;
                    break;
                  case 5:
                    $ close read_71;
                }
            }
          break;
        case 3:
          move(16,6);
          addstr("起始日期:        年    月    日");
          move(16,17);
          readdv(&x,4);
          b_date=x*10000;
          move(16,26);
          readdv(&x,2);
          b_date+=x*100;
          move(16,32);
          readdv(&x,2);
          b_date+=x;
          move(18,6);
          addstr("结束日期:        年    月    日");
          move(18,17);
          readdv(&x,4);
          e_date=x*10000;
          move(18,26);
          readdv(&x,2);
          e_date+=x*100;
          move(18,32);
          readdv(&x,2);
          e_date+=x;
          switch(num_c2)
            {
              case 1:
                if(num_c3==1)
                  {
                    $ declare read_321 scroll cursor for 
                      select * into $s_num,$a_num,$pre_date,$b_num,$nam,
                      $cu_type,$amoun,$balanc,$interes,$statu
                      from r_dem_sch where sec_num=$s_num and acc_num=$a_num
                      and pres_date>=$b_date and pres_date<=$e_date;
                    $ open read_321;
                  }
                else
                  {
                    $ declare read_322 scroll cursor for 
                      select * into $s_num,$a_num,$pre_date,$b_num,$nam,
                      $cu_type,$amoun,$balanc,$interes,$statu
                      from f_dem_sch where sec_num=$s_num and acc_num=$a_num
                      and pres_date>=$b_date and pres_date<=$e_date;
                    $ open read_322;
                  }
                break;
              case 2:
                $ declare read_331 scroll cursor for 
                  select * into $s_num,$a_num,$pre_date,$b_num,$nam,$cu_type,
                  $amoun,$balanc,$interes,$statu from r_dated_sch
                  where sec_num=$s_num and acc_num=$a_num and
                  pres_date>=$b_date and pres_date<=$e_date;
                $ open read_331;
                break;
              case 5:
                $ declare read_371 scroll cursor for 
                  select * into $s_num,$a_num,$pre_date,$b_num,$nam,$cu_type,
                  $amoun,$balanc,$interes,$statu from r_cal_sch
                  where sec_num=$s_num and acc_num=$a_num and
                  pres_date>=$b_date and pres_date<=$e_date;
                $ open read_371;
            }
          if(sqlca.sqlcode!=0)
            {
              move(20,26);
              addstr("打开");
              mess((short)18);
              printw("(%d), ",sqlca.sqlcode);
              mess((short)3);
              getch();
              break;
            }
          move(20,20);
          mess((short)60);
          mess((short)4);
          getch();
          printf("%c%c%c%c%c%c%c%c%c\n\n\n\n",27,'[','5','i',
            27,'%','9',1,20);
          pa=1;
          l=0;
          while(1)
            {
              switch(num_c2)
                {
                  case 1:
                    if(num_c3==1)
                      {
                        $ fetch read_321;
                      }
                    else
                      {
                        $ fetch read_322;
                      }
                    break;
                  case 2:
                    $ fetch read_331;
                    break;
                  case 5:
                    $ fetch read_371;
                }
              if(sqlca.sqlcode!=0) break;
              if(l==0)
                {
                  if(pa>1) printf("%c",12);
                  addspacef(44);
                  printf("%c%c%c%c帐 户 明 细 信 息%c%c%c%c\n",
                    28,'p',27,'[',28,'q',27,']');
                  addspacef(40);
                  printf("──────────────────\n");
                  addspacef(14);
                  printf("营业部门: %-10s",st);
                  addspacef(18);
                  printf("%4d年%2d月%2d日",year,month,day);
                  addspacef(24);
                  printf("操作员: %-6s\n\n",s);
                  addspacef(14);
                  printf("储蓄种类: %-10s",&title2[num_c2][2]);
                  printf("币种: ");
                  switch(toupper(cu_type[0]))
                    {
                      case 'C':
                        printf("加拿大元");
                        break;
                      case 'F':
                        printf("法国法郎");
                        break;
                      case 'H':
                        printf("港元    ");
                        break;
                      case 'J':
                        printf("日元    ");
                        break;
                      case 'M':
                        printf("德国马克");
                        break;
                      case 'P':
                        printf("英镑    ");
                        break;
                      case 'R':
                        printf("人民币  ");
                        break;
                      case 'U':
                        printf("美元    ");
                    }
                  printf("      帐号: ");
                  prtf_inum((long)s_num[0],2);
                  printf("－");
                  prtf_inum(a_num,9);
                  printf("        户名: %-8s\n",nam);
                  addspacef(10);
                  printf("┏━━┯━━━━━━━┯━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┓\n");
                  addspacef(10);
                  printf("┃流水│    日  期    │ 摘  要 │  借方(支出)  │  贷方(存入)  │    余  额    │    利  息    ┃\n");
                  addspacef(10);
                  printf("┠──┼───────┼────┼───────┼───────┼───────┼───────┨\n");
                }
              if((l%5)==0&&l!=0)
                {
                  addspacef(10);
                  printf("┃    │              │        │              │              │              │              ┃\n");
                }
              addspacef(10);
              printf("┃%4d│%4d年%2d月%2d日│",b_num,pre_date/10000,
                (pre_date%10000)/100, pre_date%100);
              if((statu[0]&16)!=0) printf("冲销");
              else addspacef(4);
              switch(statu[0]&3)
                {
                  case 0:
                    printf("支取");
                    break;
                  case 1:
                    printf("存入");
                    break;
                  case 2:
                    printf("计息");
                    break;
                  case 3:
                    printf("转存");
                }
              printf("│");
              if((statu[0]&3)!=0)
                {
                  addspacef(14);
                  printf("│");
                }
              prtf_dnum(amoun,14);
              printf("│");
              if((statu[0]&3)==0)
                {
                  addspacef(14);
                  printf("│");
                }
              prtf_dnum(balanc,14);
              printf("│");
              prtf_dnum(interes,14);
              printf("┃\n");
              l++;
              if(l>=40)
                {
                  addspacef(10);
                  printf("┗━━┷━━━━━━━┷━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┛\n");
                  l=0;
                  pa++;
                }
            }
          if(l>0)
            {
                  addspacef(10);
                  printf("┗━━┷━━━━━━━┷━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┛\n");
            }
          printf("%c%c%c%c%c",12,27,'[','4','i');
          switch(num_c2)
            {
              case 1:
                if(num_c3==1)
                  {
                    $ close read_321;
                  }
                else
                  {
                    $ close read_322;
                  }
                break;
              case 2:
                $ close read_331;
                break;
              case 5:
                $ close read_371;
            }
      }
    break;
  }
$ close database;
endwin();

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