pt_balance.ec

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

/*  打印余额表  */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void type_op();
char edit_op();
void addspace();
void addspacef();
char y_n();
void mess();
char readch();
char readdv();
char readst();
void prtf_dnum();
#include </u/ebcsav/include/begin>
FILE *fp;
char sec[11],st[8];
double ba[25];
short ur[25],i,n,h,j,urh[25],urf[25],te1[25],sa1[25];
double ba1[8],ba2[8],ba3[8],ba4[8],ba5[8],ba6[8],ba7[8];
short ur1[8],ur2[8],ur3[8],ur4[8],ur5[8],ur6[8],ur7[8];
char *title[25]={"整│三个月","  │六个月","存│一  年","  │两  年",
               "整│三  年","  │五  年","取│小  计","  活  期  ",
               "零│一  年","存│三  年","整│五  年","取│小  计",
               "存│一  年","本│三  年","取│五  年","息│小  计",
               "定活两便  ",
               "  │一个月","大│三个月","额│六个月","存│九个月",
               "单│一  年","  │小  计","通知存款  ","合      计"};
char *titl[16]={"  │一│户数","  │月│余额","  │三│户数","定│月│余额",
                "  │六│户数","  │月│余额","  │一│户数","  │年│余额",
                "期│两│户数","  │年│余额","  │小│户数","  │计│余额",
                "      │户数","      │余额","      │户数","      │余额"};
short s1a[25]={1,1,1,1,1,1,1,2,3,3,3,3,4,4,4,4,5,6,6,6,6,6,6,7,100};
short t1e[25]={3,6,12,24,36,60,100,0,12,36,60,100,12,36,60,100,0,1,3,6,9,12,100,0,100};
$ char cu[7]={'U','J','H','M','P','F','C'};
$ char opa[2],se[2],sta[2],sav[2],te[2],c_type[2];
$ double amoun;
$ short urh1,urf1,usr;
$ database saving;
sec[10]='\0';
opa[0]=op_num;
opa[1]='\0';
se[0]=op.num&0x7f;
se[1]='\0';
sta[1]='\0';
sa1[1]='\0';
sav[1]='\0';
te[1]='\0';
c_type[1]='\0';
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';
n=op.type;
/*人民币余额表*/
if((op.type&0x1)==1)
{
for(i=0;i<25;i++)
{
 ba[i]=0.0;
 ur[i]=urh[i]=urf[i]=0;
}
for(i=0;i<25;i++)
 {
 sav[0]=s1a[i];
 te[0]=t1e[i];
 if(sav[0]==2||sav[0]==5||sav[0]==7)
  {
  $ select sav_type,term,today_user,today_bala,
    today_hang,today_free into $sav,$te,$usr,$amoun,$urh1,$urf1
    from r_dai where sav_type=$sav;
  }
 else
  {
  $ select sav_type,term,today_user,today_bala,
    today_hang,today_free into $sav,$te,$usr,$amoun,$urh1,$urf1
    from r_dai where sav_type=$sav and term=$te;
  }
  ur[i]=usr;
  ba[i]=amoun;
  te1[i]=te[0];
  sa1[i]=sav[0];
  urh[i]=urh1;
  urf[i]=urf1;
 }
/*$ declare blot scroll cursor for select sav_type,term,today_user,today_bala,
  today_hang,today_free from r_dai;
$ open blot;
for(i=0;i<25;i++)
{
  $ fetch blot into $sav,$te,$usr,$amoun,$urh1,$urf1;
  if(sqlca.sqlcode!=0)
    { move(20,20);
      printw("fetch error");
      getch();
      break;
    }
  ur[i]=usr;
  ba[i]=amoun;
  te1[i]=te[0];
  sa1[i]=sav[0];
  urh[i]=urh1;
  urf[i]=urf1;
}
$ close blot;*/
move(12,22);
mess(60);
mess(4);
getch();
move(12,22);
addspace(40);
move(12,22);
mess(61);
refresh();
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(23);
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(22);
printf("┏━━━━━┯━━━━━━━━┯━━━━━━━━━━━━┯━━━━━━━━┯━━━━━━━━┓\n");
addspacef(22);
printf("┃  科  目  │  总   户   数  │       余       额      │   挂  失  户   │   冻  结  户   ┃\n");
addspacef(22);
printf("┠─┬───┼────────┼────────────┼────────┼────────┨\n");
for(i=0;i<25;i++)
{
addspacef(22);
printf("┃%10s│%14d  │   ",title[i],ur[i]);
prtf_dnum(ba[i],18);
printf("   │%14d  │%14d  ",urh[i],urf[i]);
printf("┃\n");
if(sa1[i]!=100)
if((te1[i]==100)||(sa1[i]==2)||(sa1[i]==5)||(sa1[i]==7))
  switch(sa1[i])
  {
   case 1:
          addspacef(22);
          printf("┠─┴───┼────────┼────────────┼────────┼────────┨\n");
          break;
   case 2:
          addspacef(22);
          printf("┠─┬───┼────────┼────────────┼────────┼────────┨\n");
          break;
   case 3:
   addspacef(22);
          printf("┠─┼───┼────────┼────────────┼────────┼────────┨\n");
          break;
   case 4:
          addspacef(22);
          printf("┠─┴───┼────────┼────────────┼────────┼────────┨\n");
          break;
   case 5:
   addspacef(22);
          printf("┠─┬───┼────────┼────────────┼────────┼────────┨\n");
          break;
   case 6:
          addspacef(22);
          printf("┠─┴───┼────────┼────────────┼────────┼────────┨\n");
          break;
   case 7:
          addspacef(22);
          printf("┠─────┼────────┼────────────┼────────┼────────┨\n");
          break;
  }
else
 {
          addspacef(22);
          printf("┃  ├───┼────────┼────────────┼────────┼────────┨\n");
 }
}
addspacef(22);
printf("┗━━━━━┷━━━━━━━━┷━━━━━━━━━━━━┷━━━━━━━━┷━━━━━━━━┛\n");
addspacef(22);
printf("    经  理 :            事  后 :              复  核 :             制  表:");
printf("%c9%c%c%c%c%c\f",'%',1,20,28,'$',13);
}
/*打印外币余额表*/
if((op.type&0x2)==2)
{
for(i=0;i<8;i++)
{
 ba1[i]=ba2[i]=ba3[i]=ba4[i]=ba5[i]=ba6[i]=ba7[i]=0.0;
 ur1[i]=ur2[i]=ur3[i]=ur4[i]=ur5[i]=ur6[i]=ur7[i]=0;
}
$ declare blot1 scroll cursor for select cur_type,sav_type,term,today_user,
  today_bala from f_dai;
$ open blot1;
while(1)
{
  $ fetch blot1 into $c_type,$sav,$te,$usr,$amoun;
  if(sqlca.sqlcode!=0) break;
  switch(c_type[0])
   {
    case 'U':
          switch(sav[0])
              {
               case 11:
                    switch(te[0])
                       {
                        case 1 :
                          ba1[0]=amoun;
                          ur1[0]=usr;
                          break;
                        case 3 :
                          ba1[1]=amoun;
                          ur1[1]=usr;
                          break;
                        case 6 :
                          ba1[2]=amoun;
                          ur1[2]=usr;
                          break;
                        case 12 :
                          ba1[3]=amoun;
                          ur1[3]=usr;
                          break;
                        case 24 :
                          ba1[4]=amoun;
                          ur1[4]=usr;
                          break;
                        case 100 :
                          ba1[5]=amoun;
                          ur1[5]=usr;
                          break;
                       }
                    break;
               case 12:
                          ba1[6]=amoun;
                          ur1[6]=usr;
                          break;
               case 100:
                          ba1[7]=amoun;
                          ur1[7]=usr;
                          break;
              }
          break;
    case 'J':
          switch(sav[0])
              {
               case 11:
                    switch(te[0])
                       {
                        case 1 :
                          ba2[0]=amoun;
                          ur2[0]=usr;
                          break;
                        case 3 :
                          ba2[1]=amoun;
                          ur2[1]=usr;
                          break;
                        case 6 :
                          ba2[2]=amoun;
                          ur2[2]=usr;
                          break;
                        case 12 :
                          ba2[3]=amoun;
                          ur2[3]=usr;
                          break;
                        case 24 :
                          ba2[4]=amoun;
                          ur2[4]=usr;
                          break;
                        case 100 :
                          ba2[5]=amoun;
                          ur2[5]=usr;
                          break;
                       }
                    break;
               case 12:
                          ba2[6]=amoun;
                          ur2[6]=usr;
                          break;
               case 100:
                          ba2[7]=amoun;
                          ur2[7]=usr;
                          break;
              }
          break;
    case 'H':
          switch(sav[0])