sa_in.ec

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

            case 51:
              printf("      \n日元定期利息:");
              s_type[0]=101;
              cu_type[0]='J';
              ter[0]=1;
              break;
            case 52:
              printf("      \n日元活期利息:");
              s_type[0]=101;
              cu_type[0]='J';
              ter[0]=4;
              break;
            case 53:
              printf("      \n日元利息合计:");
              s_type[0]=101;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 54:
              printf("      \n日元买入:");
              s_type[0]=102;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 55:
              printf("      \n买入日元支付人民币:");
              s_type[0]=103;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 56:
              printf("      \n日元总计:");
              s_type[0]=120;
              cu_type[0]='J';
              ter[0]=100;
              break;
            case 57:
              printf("      \n德国马克整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=1;
              break;
            case 58:
              printf("      \n德国马克整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=3;
              break;
            case 59:
              printf("      \n德国马克整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=6;
              break;
            case 60:
              printf("      \n德国马克整存整取一年:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=12;
              break;
            case 61:
              printf("      \n德国马克整存整取两年:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=24;
              break;
            case 62:
              printf("      \n德国马克整存整取小计:");
              s_type[0]=11;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 63:
              printf("      \n德国马克活期:");
              s_type[0]=12;
              cu_type[0]='M';
              ter[0]=0;
              break;
            case 64:
              printf("      \n德国马克合计:");
              s_type[0]=100;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 65:
              printf("      \n德国马克定期利息:");
              s_type[0]=101;
              cu_type[0]='M';
              ter[0]=1;
              break;
            case 66:
              printf("      \n德国马克活期利息:");
              s_type[0]=101;
              cu_type[0]='M';
              ter[0]=4;
              break;
            case 67:
              printf("      \n德国马克利息合计:");
              s_type[0]=101;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 68:
              printf("      \n德国马克买入:");
              s_type[0]=102;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 69:
              printf("      \n买入德国马克支付人民币:");
              s_type[0]=103;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 70:
              printf("      \n德国马克总计:");
              s_type[0]=120;
              cu_type[0]='M';
              ter[0]=100;
              break;
            case 71:
              printf("      \n英镑整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=1;
              break;
            case 72:
              printf("      \n英镑整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=3;
              break;
            case 73:
              printf("      \n英镑整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=6;
              break;
            case 74:
              printf("      \n英镑整存整取一年:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=12;
              break;
            case 75:
              printf("      \n英镑整存整取两年:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=24;
              break;
            case 76:
              printf("      \n英镑整存整取小计:");
              s_type[0]=11;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 77:
              printf("      \n英镑活期:");
              s_type[0]=12;
              cu_type[0]='P';
              ter[0]=0;
              break;
            case 78:
              printf("      \n英镑合计:");
              s_type[0]=100;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 79:
              printf("      \n英镑定期利息:");
              s_type[0]=101;
              cu_type[0]='P';
              ter[0]=1;
              break;
            case 80:
              printf("      \n英镑活期利息:");
              s_type[0]=101;
              cu_type[0]='P';
              ter[0]=4;
              break;
            case 81:
              printf("      \n英镑利息合计:");
              s_type[0]=101;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 82:
              printf("      \n英镑买入:");
              s_type[0]=102;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 83:
              printf("      \n买入英镑支付人民币:");
              s_type[0]=103;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 84:
              printf("      \n英镑总计:");
              s_type[0]=120;
              cu_type[0]='P';
              ter[0]=100;
              break;
            case 85:
              printf("      \n美元整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=1;
              break;
            case 86:
              printf("      \n美元整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=3;
              break;
            case 87:
              printf("      \n美元整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=6;
              break;
            case 88:
              printf("      \n美元整存整取一年:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=12;
              break;
            case 89:
              printf("      \n美元整存整取两年:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=24;
              break;
            case 90:
              printf("      \n美元整存整取小计:");
              s_type[0]=11;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 91:
              printf("      \n美元活期:");
              s_type[0]=12;
              cu_type[0]='U';
              ter[0]=0;
              break;
            case 92:
              printf("      \n美元合计:");
              s_type[0]=100;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 93:
              printf("      \n美元定期利息:");
              s_type[0]=101;
              cu_type[0]='U';
              ter[0]=1;
              break;
            case 94:
              printf("      \n美元活期利息:");
              s_type[0]=101;
              cu_type[0]='U';
              ter[0]=4;
              break;
            case 95:
              printf("      \n美元利息合计:");
              s_type[0]=101;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 96:
              printf("      \n美元买入:");
              s_type[0]=102;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 97:
              printf("      \n买入美元支付人民币:");
              s_type[0]=103;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 98:
              printf("      \n美元总计:");
              s_type[0]=120;
              cu_type[0]='U';
              ter[0]=100;
              break;
            case 99:
              printf("      \n买入外汇支付人民币合计:");
              s_type[0]=110;
              cu_type[0]='R';
              ter[0]=100;
          }
/*
        printf("        \n余额:  ");
        scanf("%lf",&yes_bala);
        printf("        \n户数:  ");
        scanf("%ld",&yes_user);
        printf("        \n挂失数:  ");
        scanf("%hd",&yes_hang);
        printf("        \n冻结数:  ");
        scanf("%hd",&yes_free);
        printf("        \n修改数:  ");
        scanf("%hd",&yes_chan);
*/
        $insert into f_dai
          values
          ($s_type,$cu_type,$ter,$yes_bala,$deb_amoun,$cre_amoun,$toda_bala,
          $yes_user,$ope_user,$can_user,$toda_user,$deb_vouch,$cre_vouch,
          $yes_hang,$han_up,$lif_hang,$toda_hang,$yes_free,$freez,$unfreez,
          $toda_free,$yes_chan,$chang,$toda_chan);
        if(sqlca.sqlcode!=0)
          {
            printf("** 错误 %d :写日报表出错 **",sqlca.sqlcode);
            return;
          }
      }
    printf("=== 请输入外币上月额 ===\n");
    for(i=1;i<=99;i++)
      {
        switch(i)
          {
            case 1:
              printf("      \n加拿大元整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=1;
              break;
            case 2:
              printf("      \n加拿大元整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=3;
              break;
            case 3:
              printf("      \n加拿大元整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=6;
              break;
            case 4:
              printf("      \n加拿大元整存整取一年:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=12;
              break;
            case 5:
              printf("      \n加拿大元整存整取两年:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=24;
              break;
            case 6:
              printf("      \n加拿大元整存整取小计:");
              s_type[0]=11;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 7:
              printf("      \n加拿大元活期:");
              s_type[0]=12;
              cu_type[0]='C';
              ter[0]=0;
              break;
            case 8:
              printf("      \n加拿大元合计:");
              s_type[0]=100;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 9:
              printf("      \n加拿大元定期利息:");
              s_type[0]=101;
              cu_type[0]='C';
              ter[0]=1;
              break;
            case 10:
              printf("      \n加拿大元活期利息:");
              s_type[0]=101;
              cu_type[0]='C';
              ter[0]=4;
              break;
            case 11:
              printf("      \n加拿大元利息合计:");
              s_type[0]=101;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 12:
              printf("      \n加拿大元买入:");
              s_type[0]=102;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 13:
              printf("      \n买入加拿大元支付人民币:");
              s_type[0]=103;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 14:
              printf("      \n加拿大元总计:");
              s_type[0]=120;
              cu_type[0]='C';
              ter[0]=100;
              break;
            case 15:
              printf("      \n法国法郎整存整取一个月:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=1;
              break;
            case 16:
              printf("      \n法国法郎整存整取三个月:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=3;
              break;
            case 17:
              printf("      \n法国法郎整存整取六个月:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=6;
              break;
            case 18:
              printf("      \n法国法郎整存整取一年:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=12;
              break;
            case 19:
              printf("      \n法国法郎整存整取两年:");
              s_type[0]=11;
              cu_type[0]='F';
              ter[0]=24;
              break;
            case 20:
              printf("      \n法国法郎整存整取小计:");