hang_off.ec

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

                    printf("US＄");
                    break;
                  case 'J':
                    printf("Jap￥");
                    break;
                  case 'H':
                    printf("HK＄");
                    break;
                  case 'M':
                    printf("DＭ");
                    break;
                  case 'P':
                    printf("￡");
                    break;
                  case 'F':
                    printf("FＦ");
                    break;
                  case 'C':
                    printf("Can＄");
                }
              printf("\n\n%c%c",27,'[');
              addspacef(32);
              prtf_upper(amoun,toupper(cu_type[0]));
              printf("%c%c\n\n\n",27,']');
              addspacef(70);
              prtf_dnum(amoun,13);
              printf("\n\n\n");
              addspacef(20);
              if(ter[0]<12) printf("%1d月",ter[0]);
              else printf("%1d年",ter[0]/12);
              if(pas!=0) printf("(密)");
              else addspacef(4);
              if(cu_type[0]>'Z') printf("(转)");
              else addspacef(4);
              addspacef(26);
              printf("%6.4f\n\n\n",interes*1.2);
              addspacef(23);
              printf("%4d-%2d-%2d\n",year1,month1,day);
              printf("%c%c%c%c%c%c%c%c%c%c",12,
                27,'%','9',1,20,27,'[','4','i');
            }
          break;
        case 2:
          move(20,20);
          addspace(60);
          move(20,20);
          mess((short)42);
          mess((short)4);
          getch();
          printf("");
          printf("      户  名: %-8s",nam);
          printf("\n      凭证号: ");
          prtf_inum(cr_num2,7);
          printf("\n    原凭证号: ");
          prtf_inum(cr_num1,7);
          addspacef(10);
          printf("%4d年%2d月%2d日%2d时%2d分\n\n\n",
            year,month,day,ti/100,ti%100);
          addspacef(14);
          prtf_inum(s_num[0],2);
          printf("-");
          prtf_inum(a_num,9);
          printf("       %4d年%2d月%2d日",year,month,day);
          printf("%4d年%2d月%2d日      ",ope_date/10000,
            (ope_date%10000)/100,ope_date%100);
          prtf_inum((long)(op.num&0x7f),2);
          printf("       %d     ",b_num);
          switch(toupper(cu_type[0]))
            {
              case 'R':
                printf("%-10s","人民币");
                break;
              case 'U':
                printf("%-10s","美元");
                break;
              case 'J':
                printf("%-10s","日元");
                break;
              case 'H':
                printf("%-10s","港元");
                break;
              case 'M':
                printf("%-10s","德国马克");
                break;
              case 'P':
                printf("%-10s","英镑");
                break;
              case 'F':
                printf("%-10s","法国法郎");
                break;
              case 'C':
                printf("%-10s","加拿大元");
                break;
            }
          printf("\n\n");
          if(pas!=0)printf("                 密");
          printf("            ");
          prtf_dnum(0.0l,14);
          printf("   ");
          prtf_dnum(amoun,14);
          printf("                   ");
          printf(" %-6s\n\n\n",stn);
          printf("ge         换     折fh\f");
          printf("");
          move(20,20);
          addspace(30);
          move(20,20);
          mess((short)43);
          mess((short)4);
          getch();
          printf("%c%c%c%c%c\n\n",27,'%','9',1,20);
          addspacef(10);
          prtf_inum(s_num[0],2);
          printf("-");
          prtf_inum(a_num,9);
          addspacef(24);
          printf("%-8s\n\n\n",nam);
          addspacef(46);
          printf("%c%c",28,'p');
          switch(toupper(cu_type[0]))
            {
              case 'R':
                printf("%-10s","人民币");
                break;
              case 'U':
                printf("%-10s","美元");
                break;
              case 'J':
                printf("%-10s","日元");
                break;
              case 'H':
                printf("%-10s","港元");
                break;
              case 'M':
                printf("%-10s","德国马克");
                break;
              case 'P':
                printf("%-10s","英镑");
                break;
              case 'F':
                printf("%-10s","法国法郎");
                break;
              case 'C':
                printf("%-10s","加拿大元");
                break;
            }
          printf("%c%c",28,'q');
          printf("\n\n\n\n\n\n\n         %4d年%2d月%2d日",
            ope_date/10000,(ope_date%10000)/100,ope_date%100);
          addspacef(33);
          if(pas!=0)printf("  密");
          printf("\n\n\n\n\n\n %2d%2d%2d 换",year%100,month,day);
          addspacef(27);
          prtf_dnum(amoun,15);
          printf(" %-6s\f\n",stn);
          printf("");
          break;
        case 3:
          move(20,20);
          addspace(60);
          move(20,20);
          mess((short)42);
          mess((short)4);
          getch();
          printf("");
          printf("户  名: %-8s",nam);
          printf("\n凭证号: ");
          prtf_inum(cr_num2,7);
          printf("\n原凭证号: ");
          prtf_inum(cr_num1,7);
          addspacef(14);
          printf("%4d年%2d月%2d日%2d时%2d分\n\n\n",
            year,month,day,ti/100,ti%100);
          addspacef(14);
          prtf_inum(s_num[0],2);
          printf("-");
          prtf_inum(a_num,9);
          printf("        %d年%2d月%2d日",year,month,day);
          printf(" %d年%2d月%2d日    ",ope_date/10000,
            (ope_date%10000)/100,ope_date%100);
          prtf_inum((long)(op.num&0x7f),2);
          printf("        %d      ",b_num);
          if((fla[0]&0x1)==1) printf("%-4s","集体");
          else printf("%-4s","个人");
          printf("\n\n");
          if(pas!=0)printf("                  密");
          addspacef(31);
          prtf_dnum(balanc,14);
          addspacef(9);
          switch(ter[0])
            {
              case 12:
                printf("%4s","一年");
                break;
              case 36:
                printf("%4s","三年");
                break;
              case 60:
                printf("%4s","五年");
            }
          addspacef(7);
          printf("%-6s\n\n\n",stn);
          printf("ge         换     折fh\f");
          printf("");
          move(20,20);
          addspace(30);
          move(20,20);
          mess((short)43);
          mess((short)4);
          getch();
          printf("\n\n\n\n\n\n");
          addspacef(10);
          prtf_inum(s_num[0],2);
          printf("-");
          prtf_inum(a_num,9);
          addspacef(19);
          printf("%-8s\n\n",nam);
          printf("%4d年%2d月%2d日",year,month,day);
          printf("%4d年%2d月%2d日",ope_date/10000,
            (ope_date%10000)/100,ope_date%100);
          if((fla[0]&0x1)==1) printf("%-4s","集体");
          else printf("%-4s","个人");
          if(pas!=0)printf(" 密  ");
          switch(ter[0])
            {
              case 12:
                printf("%4s","一年");
                break;
              case 36:
                printf("%4s","三年");
                break;
              case 60:
                printf("%4s","五年");
            }
          printf("%5.3f",int_rate*12/10);
          printf("%4d年%2d月%2d日",ope_date/10000+ter[0]/12,
            (ope_date%10000)/100,ope_date%100);
          printf("\n\n\n\n\n    额  度 : ");
          prtf_dnum(amoun1,13);
          printf("\n\n\n\n\n\n%2d%2d%2d  换             ",
            year%100,month,day);
          addspacef(15);
          prtf_dnum(balanc,15);
          printf(" %-6s\f\n",stn);
          printf("");
          break;
        case 6:
          year1=int_date/10000;
          month1=(int_date%10000)/100;
          day1=int_date%100;
          month1+=ter[0];
          year1+=((month1-1)/12);
          month1=((month1-1)%12)+1;
          move(20,20);
          addspace(60);
          move(20,20);
          mess((short)42);
          mess((short)4);
          getch();
          printf("%c%c%c%c%c%c%c%c%c%c%c%c%c",27,'[',
            '5','i',27,'%','9',1,15,28,'q',27,']');
          printf("        凭证号: %d",cr_num2);
          addspacef(30);
          printf("%c%c大    额%c%c\n\n\n",28,'p',28,'q');
          addspacef(40);
          printf("%4d年%2d月%2d日 %2d时%2d分\n\n\n\n",
            year,month,day,ti/100,ti%100);
          addspacef(20);
          prtf_inum((long)s_num[0],2);
          putchar('-');
          prtf_inum(a_num,9);
          printf("       %4d-%2d-%2d",year,month,day);
          printf("    %4d-%2d-%2d",int_date/10000,(int_date%10000)/100,
            int_date%100);
          addspacef(5);
          prtf_inum((long)(op.num&0x7f),2);
          printf("        %4d       ",b_num);
          printf("人民币\n\n");
          printf("                   %-8s  ",nam);
          if(ter[0]<12) printf("%1d月",ter[0]);
          else printf("%1d年",ter[0]/12);
          printf("      %4d-%2d-%2d   ",year1,month1,day1);
          if(pas!=0) printf("密");
          else addspacef(2);
          addspacef(2);
          if(ope_date!=int_date) printf("部提");
          else addspacef(4);
          printf("换存单: ");
          prtf_inum(cr_num1,7);
          prtf_dnum(amoun,14);
          printf("  %s\n\n\n",stn);
          printf("%c%c%c%c      换 存 单%c%c%c%c\n",27,'g',27,'e',27,
            'h',27,'f');
          printf("%c%c%c%c%c",12,27,'[','4','i');
          move(20,20);
          mess((short)43);
          mess((short)4);
          getch();
          printf("%c%c%c%c%c%c%c%c\n\n\n\n\n\n\n",
            27,'[','5','i',28,'q',27,']');
          addspacef(20);
          prtf_inum((long)s_num[0],2);
          putchar('-');
            prtf_inum(a_num,9);
          addspacef(16);
          printf("%c%c%s%c%c",28,'p',nam,28,'q');
          printf("          原存单号: ");
          prtf_inum(cr_num1,7);
          printf("\n\n");
          addspacef(32);
          printf("%c%c",27,'[');
          prtf_upper(amoun,toupper(cu_type[0]));
          printf("%c%c",27,']');
          addspacef(6);
          printf("￥");
          prtf_dnum(amoun,13);
          printf("\n\n");
          addspacef(20);
          printf("%4d   %2d       %2d",year,month,day);
          addspacef(16);
          if(ter[0]<12) printf("%1d月",ter[0]);
          else printf("%1d年",ter[0]/12);
          if(pas!=0) printf("   (密)");
          printf("\n\n");
          addspacef(20);
          printf("%4d   %2d       %2d",year1,month1,day1);
          addspacef(16);
          printf("%5.3f\n\n\n\n",interes*1.2);
          addspacef(25);
          prtf_dnum(amoun*interes*ter[0]*0.001,13);
          addspacef(16);
          prtf_dnum(amoun*interes*ter[0]*0.001+amoun,13);
          printf("\n");
          printf("%c%c%c%c%c%c%c%c%c%c",12,27,'%','9',1,20,27,'[','4','i');
          break;
        case 7:
          move(20,20);
          addspace(40);
          move(20,20);
          mess((short)42);
          mess("换折");
          mess((short)4);
          getch();
          printf("%c%c%c%c%c%c%c%c%c%c%c%c%c",
            27,'[','5','i',27,'%','9',1,20,28,'q',27,']');
          printf("        凭证号: %d\n\n\n",cr_num2);
          addspacef(40);
          printf("%4d年%2d月%2d日 %2d时%2d分\n\n\n\n",
            year,month,day,ti/100,ti%100);
          printf("%c%c%c%c      换    折%c%c%c%c\n",27,'g',27,'e',27,
            'h',27,'f');
          addspacef(10);
          printf("帐号: ");
          prtf_inum((long)s_num[0],2);
          putchar('-');
          prtf_inum(a_num,9);
          if(pas!=0) printf("  (密)");
          else addspacef(2);
          addspacef(6);
          printf("户名: %-8s",nam);
          addspacef(6);
          printf("流水号: %4d\n\n",b_num);
          addspacef(10);
          printf("存款余额: ￥");
          prtf_dnum(amoun,13);
          printf("元");
          addspacef(10);
          printf("原凭证号: ");
          prtf_inum(cr_num1,7);
          addspacef(10);
          printf("操作员: %s\n",stn);
          printf("%c%c%c%c%c",12,27,'[','4','i');
          move(20,20);
          addspace(40);
          move(20,20);
          mess((short)43);
          printw("(新存折), ");
          mess((short)4);
          getch();
          printf("%c%c%c%c%c%c%c%c%c%c%c%c%c\n\n",
            27,'[','5','i',27,'%','9',1,20,28,'q',27,']');
          addspacef(46);
          printf("%4d   %2d  %2d\n\n",year,month,day);
          printf("%c%c            %8s%c%c",27,'[',nam,27,']');
          addspacef(24);
          prtf_inum((long)s_num[0],2);
          putchar('-');
          prtf_inum(a_num,9);
          printf("\n\n\n%c%c",27,'[');
          addspacef(16);
          prtf_upper(amoun,toupper(cu_type[0]));
          printf("%c%c\n\n",27,']');
          addspacef(32);
          printf("￥");
          prtf_dnum(amoun,13);
          printf("元\n");
          addspacef(53);
          printf("%s\n",stn);
          addspacef(18);
          if(pas!=0) printf("(密)");
          printf("\n\n\n\n\n\n\n\n\n\n\n");
          printf("     %2d %2d %2d ",year%100,month,day);
          printf("%c%c%c",28,'$',10);
          printf(" (换折)    ");
          prtf_dnum1(amoun,11);
          printf("%c%c%c",28,'$',13);
          printf("\n");
          printf("%c%c%c%c%c",12,27,'[','4','i');
          move(20,20);
          addspace(50);
          move(20,20);
          mess((short)38);
      }
    move(20,20);
    addspace(50);
    move(20,20);
    mess((short)38);
    flag=1;
  }
                  }
              }
          }
        if(flag==1)
          {
            $ commit work;
          }
        else
          {
            $ rollback work;
          }
        mess((short)3);
        getch();
      }
  }

#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/prtf_dnum1>
#include </u/ebcsav/include/prtf_upper>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>
#include </u/ebcsav/include/num_time>
#include </u/ebcsav/include/delay>