pt_balance.ec

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

              {
               case 11:
                    switch(te[0])
                       {
                        case 1 :
                          ba3[0]=amoun;
                          ur3[0]=usr;
                          break;
                        case 3 :
                          ba3[1]=amoun;
                          ur3[1]=usr;
                          break;
                        case 6 :
                          ba3[2]=amoun;
                          ur3[2]=usr;
                          break;
                        case 12 :
                          ba3[3]=amoun;
                          ur3[3]=usr;
                          break;
                        case 24 :
                          ba3[4]=amoun;
                          ur3[4]=usr;
                          break;
                        case 100 :
                          ba3[5]=amoun;
                          ur3[5]=usr;
                          break;
                       }
                    break;
               case 12:
                          ba3[6]=amoun;
                          ur3[6]=usr;
                          break;
               case 100:
                          ba3[7]=amoun;
                          ur3[7]=usr;
                          break;
              }
          break;
    case 'P':
          switch(sav[0])
              {
               case 11:
                    switch(te[0])
                       {
                        case 1 :
                          ba4[0]=amoun;
                          ur4[0]=usr;
                          break;
                        case 3 :
                          ba4[1]=amoun;
                          ur4[1]=usr;
                          break;
                        case 6 :
                          ba4[2]=amoun;
                          ur4[2]=usr;
                          break;
                        case 12 :
                          ba4[3]=amoun;
                          ur4[3]=usr;
                          break;
                        case 24 :
                          ba4[4]=amoun;
                          ur4[4]=usr;
                          break;
                        case 100 :
                          ba4[5]=amoun;
                          ur4[5]=usr;
                          break;
                       }
                    break;
               case 12:
                          ba4[6]=amoun;
                          ur4[6]=usr;
                          break;
               case 100:
                          ba4[7]=amoun;
                          ur4[7]=usr;
                          break;
              }
          break;
    case 'M':
          switch(sav[0])
              {
               case 11:
                    switch(te[0])
                       {
                        case 1 :
                          ba5[0]=amoun;
                          ur5[0]=usr;
                          break;
                        case 3 :
                          ba5[1]=amoun;
                          ur5[1]=usr;
                          break;
                        case 6 :
                          ba5[2]=amoun;
                          ur5[2]=usr;
                          break;
                        case 12 :
                          ba5[3]=amoun;
                          ur5[3]=usr;
                          break;
                        case 24 :
                          ba5[4]=amoun;
                          ur5[4]=usr;
                          break;
                        case 100 :
                          ba5[5]=amoun;
                          ur5[5]=usr;
                          break;
                       }
                    break;
               case 12:
                          ba5[6]=amoun;
                          ur5[6]=usr;
                          break;
               case 100:
                          ba5[7]=amoun;
                          ur5[7]=usr;
                          break;
              }
          break;
    case 'F':
          switch(sav[0])
              {
               case 11:
                    switch(te[0])
                       {
                        case 1 :
                          ba6[0]=amoun;
                          ur6[0]=usr;
                          break;
                        case 3 :
                          ba6[1]=amoun;
                          ur6[1]=usr;
                          break;
                        case 6 :
                          ba6[2]=amoun;
                          ur6[2]=usr;
                          break;
                        case 12 :
                          ba6[3]=amoun;
                          ur6[3]=usr;
                          break;
                        case 24 :
                          ba6[4]=amoun;
                          ur6[4]=usr;
                          break;
                        case 100 :
                          ba6[5]=amoun;
                          ur6[5]=usr;
                          break;
                       }
                    break;
               case 12:
                          ba6[6]=amoun;
                          ur6[6]=usr;
                          break;
               case 100:
                          ba6[7]=amoun;
                          ur6[7]=usr;
                          break;
              }
          break;
    case 'C':
          switch(sav[0])
              {
               case 11:
                    switch(te[0])
                       {
                        case 1 :
                          ba7[0]=amoun;
                          ur7[0]=usr;
                          break;
                        case 3 :
                          ba7[1]=amoun;
                          ur7[1]=usr;
                          break;
                        case 6 :
                          ba7[2]=amoun;
                          ur7[2]=usr;
                          break;
                        case 12 :
                          ba7[3]=amoun;
                          ur7[3]=usr;
                          break;
                        case 24 :
                          ba7[4]=amoun;
                          ur7[4]=usr;
                          break;
                        case 100 :
                          ba7[5]=amoun;
                          ur7[5]=usr;
                          break;
                       }
                    break;
               case 12:
                          ba7[6]=amoun;
                          ur7[6]=usr;
                          break;
               case 100:
                          ba7[7]=amoun;
                          ur7[7]=usr;
                          break;
              }
          break;
   }
}
$close blot1;
move(12,12);
addspace(60);
move(12,12);
mess(63);
mess(64);
mess(4);
getch();
move(12,12);
addspace(60);
move(12,22);
mess(61);
refresh();
printf("%c9%c%c%c%c%c\n\n\n\n\n\n\n\n\n\n\n",'%',1,15,28,'$',10);
addspacef(47);
printf("%cp[外   币   余   额   表]%cq\n",28,28);
addspacef(38);
printf("──────────────────────────\n\n\n");
addspacef(9);
printf("%cp外  币%cq",28,28);
addspacef(16);
printf("营业部门 : %-11s",sec);
addspacef(16);
printf("%4d年%2d月%2d日",year,month,day);
addspacef(16);
printf("  操作员 : %-7s\n",st);
printf("┏━┯━┯━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┯━━━━━━━┓\n");
printf("┃储│存│币  │   美    元   │   日    元   │   港    币   │   英    镑   │   马    克   │   法    郎   │   加    元   ┃\n");
printf("┃种│期│  种│              │              │              │              │              │              │              ┃\n");
printf("┠─┼─┼──┼───────┼───────┼───────┼───────┼───────┼───────┼───────┨");
h=0;
for(i=0;i<8;i++)
{
   printf("\n┃%12s│%5d         │%5d         │%5d         │%5d         │%5d         │%5d         │%5d         ┃",titl[h],ur1[i],ur2[i],ur3[i],ur4[i],ur5[i],ur6[i],ur7[i]);
   if(i==6)
   printf("\n┃活  期├──┼───────┼───────┼───────┼───────┼───────┼───────┼───────┨");
   else if(i==7)
   printf("\n┃合  计├──┼───────┼───────┼───────┼───────┼───────┼───────┼───────┨");
   else
   printf("\n┃  │  ├──┼───────┼───────┼───────┼───────┼───────┼───────┼───────┨");
   h++;
   printf("\n┃%12s│",titl[h]);
   prtf_dnum(ba1[i],14);
   printf("│");
   prtf_dnum(ba2[i],14);
   printf("│");
   prtf_dnum(ba3[i],14);
   printf("│");
   prtf_dnum(ba4[i],14);
   printf("│");
   prtf_dnum(ba5[i],14);
   printf("│");
   prtf_dnum(ba6[i],14);
   printf("│");
   prtf_dnum(ba7[i],14);
   printf("┃");
   if(i!=7)
   if(i==5)
   printf("\n┠─┴─┼──┼───────┼───────┼───────┼───────┼───────┼───────┼───────┨");
   else if(i==6)
   printf("\n┠───┼──┼───────┼───────┼───────┼───────┼───────┼───────┼───────┨");
   else
   printf("\n┃  ├─┼──┼───────┼───────┼───────┼───────┼───────┼───────┼───────┨");
   h++;
 }
   printf("\n┗━━━┷━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┷━━━━━━━┛");
printf("           经  理 :                   事  后 :                     复  核 :                    制  表:");
printf("%c9%c%c%c%c%c\f",'%',1,20,28,'$',13);
} 
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/type_op>
#include </u/ebcsav/include/edit_op>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/addspacef>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/prtf_dnum>