pt_op_sett.ec

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

                        case 'R':
                              mc1[2]++;
                              amc1[2]+=amoun;
                              break;
                       }
                       break;
             case 'P' :
                       switch(sta[0])
                       {
                        case 'E':
                              me1[3]++;
                              in1[3]+=inte; 
                              md1[3]++;
                              amd1[3]+=amoun;
                              break;
                        case 'O':
                              mc1[3]++;
                              amc1[3]+=amoun;
                              break;
                        case 'P':
                              me1[3]++;
                              in1[3]+=inte;
                              md1[3]++;
                              amd1[3]+=amoun;
                              break;
                        case 'R':
                              mc1[3]++;
                              amc1[3]+=amoun;
                              break;
                       }
                       break;
             case 'M' :
                       switch(sta[0])
                       {
                        case 'E':
                              me1[4]++;
                              in1[4]+=inte; 
                              md1[4]++;
                              amd1[4]+=amoun;
                              break;
                        case 'O':
                              mc1[4]++;
                              amc1[4]+=amoun;
                              break;
                        case 'P':
                              me1[4]++;
                              in1[4]+=inte;
                              md1[4]++;
                              amd1[4]+=amoun;
                              break;
                        case 'R':
                              mc1[4]++;
                              amc1[4]+=amoun;
                              break;
                       }
                       break;
             case 'F' :
                       switch(sta[0])
                       {
                        case 'E':
                              me1[5]++;
                              in1[5]+=inte; 
                              md1[5]++;
                              amd1[5]+=amoun;
                              break;
                        case 'O':
                              mc1[5]++;
                              amc1[5]+=amoun;
                              break;
                        case 'P':
                              me1[5]++;
                              in1[5]+=inte;
                              md1[5]++;
                              amd1[5]+=amoun;
                              break;
                        case 'R':
                              mc1[5]++;
                              amc1[5]+=amoun;
                              break;
                       }
                       break;
             case 'C' :
                       switch(sta[0])
                       {
                        case 'E':
                              me1[6]++;
                              in1[6]+=inte; 
                              md1[6]++;
                              amd1[6]+=amoun;
                              break;
                        case 'O':
                              mc1[6]++;
                              amc1[6]+=amoun;
                              break;
                        case 'P':
                              me1[6]++;
                              in1[6]+=inte;
                              md1[6]++;
                              amd1[6]+=amoun;
                              break;
                        case 'R':
                              mc1[6]++;
                              amc1[6]+=amoun;
                              break;
                       }
                       break;
           }
           break;
   case 12 :
           switch(toupper(c_type[0]))
           {
             case 'U' :
                       switch(sta[0])
                       {
                        case 'C':
                                 mc1[7]++;
                                 amc1[7]+=amoun;
                                 break;
                        case 'D':
                                 md1[7]++;
                                 amd1[7]+=amoun;
                                 break;
                        case 'E':
                                 me1[7]++;
                                 in1[7]+=inte; 
                                 md1[7]++;
                                 amd1[7]+=amoun;
                                 break;
                        case 'I':
                                 mc1[7]++;
                                 amc1[7]+=amoun;
                                 break;
                        case 'O':
                                 mc1[7]++;
                                 amc1[7]+=amoun;
                                 break;
                       }
                       break;
             case 'J' :
                       switch(sta[0])
                       {
                        case 'C':
                                 mc1[8]++;
                                 amc1[8]+=amoun;
                                 break;
                        case 'D':
                                 md1[8]++;
                                 amd1[8]+=amoun;
                                 break;
                        case 'E':
                                 me1[8]++;
                                 in1[8]+=inte; 
                                 md1[8]++;
                                 amd1[8]+=amoun;
                                 break;
                        case 'I':
                                 mc1[8]++;
                                 amc1[8]+=amoun;
                                 break;
                        case 'O':
                                 mc1[8]++;
                                 amc1[8]+=amoun;
                                 break;
                       }
                       break;
             case 'H' :
                       switch(sta[0])
                       {
                        case 'C':
                                 mc1[9]++;
                                 amc1[9]+=amoun;
                                 break;
                        case 'D':
                                 md1[9]++;
                                 amd1[9]+=amoun;
                                 break;
                        case 'E':
                                 me1[9]++;
                                 in1[9]+=inte; 
                                 md1[9]++;
                                 amd1[9]+=amoun;
                                 break;
                        case 'I':
                                 mc1[9]++;
                                 amc1[9]+=amoun;
                                 break;
                        case 'O':
                                 mc1[9]++;
                                 amc1[9]+=amoun;
                                 break;
                       }
                       break;
             case 'P' :
                       switch(sta[0])
                       {
                        case 'C':
                                 mc1[10]++;
                                 amc1[10]+=amoun;
                                 break;
                        case 'D':
                                 md1[10]++;
                                 amd1[10]+=amoun;
                                 break;
                        case 'E':
                                 me1[10]++;
                                 in1[10]+=inte; 
                                 md1[10]++;
                                 amd1[10]+=amoun;
                                 break;
                        case 'I':
                                 mc1[10]++;
                                 amc1[10]+=amoun;
                                 break;
                        case 'O':
                                 mc1[10]++;
                                 amc1[10]+=amoun;
                                 break;
                       }
                       break;
             case 'M' :
                       switch(sta[0])
                       {
                        case 'C':
                                 mc1[11]++;
                                 amc1[11]+=amoun;
                                 break;
                        case 'D':
                                 md1[11]++;
                                 amd1[11]+=amoun;
                                 break;
                        case 'E':
                                 me1[11]++;
                                 in1[11]+=inte; 
                                 md1[11]++;
                                 amd1[11]+=amoun;
                                 break;
                        case 'I':
                                 mc1[11]++;
                                 amc1[11]+=amoun;
                                 break;
                        case 'O':
                                 mc1[11]++;
                                 amc1[11]+=amoun;
                                 break;
                       }
                       break;
             case 'F' :
                       switch(sta[0])
                       {
                        case 'C':
                                 mc1[12]++;
                                 amc1[12]+=amoun;
                                 break;
                        case 'D':
                                 md1[12]++;
                                 amd1[12]+=amoun;
                                 break;
                        case 'E':
                                 me1[12]++;
                                 in1[12]+=inte; 
                                 md1[12]++;
                                 amd1[12]+=amoun;
                                 break;
                        case 'I':
                                 mc1[12]++;
                                 amc1[12]+=amoun;
                                 break;
                        case 'O':
                                 mc1[12]++;
                                 amc1[12]+=amoun;
                                 break;
                       }
                       break;
             case 'C' :
                       switch(sta[0])
                       {
                        case 'C':
                                 mc1[13]++;
                                 amc1[13]+=amoun;
                                 break;
                        case 'D':
                                 md1[13]++;
                                 amd1[13]+=amoun;
                                 break;
                        case 'E':
                                 me1[13]++;
                                 in1[13]+=inte; 
                                 md1[13]++;
                                 amd1[13]+=amoun;
                                 break;
                        case 'I':
                                 mc1[13]++;
                                 amc1[13]+=amoun;
                                 break;
                        case 'O':
                                 mc1[13]++;
                                 amc1[13]+=amoun;
                                 break;
                       }
                       break;
           }
           break;
  }
}
$ close blot1;
for(i=0;i<7;i++)
{
 amd1[i+14]=amd1[i]+amd1[i+7];
 amc1[i+14]=amc1[i]+amc1[i+7];
 in1[i+14]=in1[i]+in1[i+7];
 md1[i+14]=md1[i]+md1[i+7];
 mc1[i+14]=mc1[i]+mc1[i+7];
 me1[i+14]=me1[i]+me1[i+7];
}
for(i=0;i<21;i++)
{
ba1[i]=amc1[i]-amd1[i]-in1[i];
}
fp=fopen("/u/ebcsav/data/sav_sect.dat","r");
fseek(fp,((op.num&0x7f)-1)*34+24,0);
fread(sec,10,1,fp);
fclose(fp);
for(n=0;n<7;n++)
if(op.name[n]!='\0')st[n]=op.name[n]^0xff;
else st[n]='\0';
move(8,29);
printw("操  作  员  轧  帐");
move(12,22);
mess(60);
mess(4);
getch();
printf("%c9%c%c%c%c%c\n\n\n\n",'%',1,15,28,'$',10);
addspacef(51);
printf("%cp[操  作  员  轧  帐  单]%cq\n",28,28);
addspacef(42);
printf("──────────────────────────\n\n\n");
addspacef(22);
printf("%cp外  币%cq",28,28);
addspacef(9);
printf("营业部门 : %-11s",sec);
addspacef(9);
printf("%4d年%2d月%2d日",year,month,day);
addspacef(9);
printf("  操作员 : %-7s\n",st);
addspacef(18);
printf("┏━━━━┯━━┯━━━━━━━━┯━━┯━━━━━━━━┯━━┯━━━━━━━━┯━━━━━━━━┓\n");
addspacef(18);
printf("┃        │借方│                │销户│                │贷方│                │                ┃\n");
addspacef(18);
printf("┃ 科  目 │    │ 借 方 发 生 额 │    │    利    息    │    │ 贷 方 发 生 额 │ 借  贷  差  额 ┃\n");
addspacef(18);
printf("┃        │户数│                │户数│                │户数│                │                ┃\n");
addspacef(18);
printf("┠─┬──┼──┼────────┼──┼────────┼──┼────────┼────────┨\n");
for(i=0;i<21;i++)
{
if(((i>0)&&(i<7))||((i>7)&&(i<14))||((i>14)&&(i<21)))
{
addspacef(18);
printf("┃  ├──┼──┼────────┼──┼────────┼──┼────────┼────────┨\n");
}
if((i==7)||(i==14))
{
addspacef(18);
printf("┠─┼──┼──┼────────┼──┼────────┼──┼────────┼────────┨\n");
}
addspacef(18);
printf("┃%8s│%4d│",titl[i],md1[i]);
prtf_dnum(amd1[i],16);
printf("│%4d│",me1[i]);
prtf_dnum(in1[i],16);
printf("│%4d│",mc1[i]);
prtf_dnum(amc1[i],16);
printf("│");
prtf_dnum(ba1[i],16);
printf("┃\n");
}
addspacef(18);
printf("┗━┷━━┷━━┷━━━━━━━━┷━━┷━━━━━━━━┷━━┷━━━━━━━━┷━━━━━━━━┛\n");
addspacef(18);
printf("    经  理 :            事  后 :              复  核 :             记  帐:");
printf("%c9%c%c%c%c%c\f",'%',1,20,28,'$',13);
}  
$ close database;
#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>