tran_acc.ec

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

              if(j<1) break;
              move(20,28);
              if(j>i)
                {
                  printw("序号太大, ");
                  mess((short)2);
                  continue;
                }
              else if(j==i)
                {
                  i++;
                  s1[0]='\0';
                  d=0;
                }
              else
                if(num_c==10)
                {
                  fseek(pf,(j-1)*14,0);
                  fread(s1,10,1,pf);
                  fread(&d,4,1,pf);
                }
              addspace(20);
              move(11,10);
              addstr("编    号:");
              move(11,47);
              printw("%10s",s1);
              move(13,10);
              addstr("帐    号:");
              move(13,48);
              prt_inum(d,9);
              move(11,22);
              readst(s1,10);
              move(11,22);
              printw("                         %10s",s1);
              move(13,22);
              c=readdv(&sum,9);
              if(c==10) d=sum;
              move(13,22);
              addspace(14);
              move(13,48);
              prt_inum(d,9);
              fseek(pf,(j-1)*14,0);
              fwrite(s1,10,1,pf);
              fwrite(&d,4,1,pf);
            }
          fclose(pf);
          break;
        case 11:
          move(2,29);
          addstr("删 除 转 存 单 位 编 码 对 照 表");
          move(3,29);
          addstr("================================");
          pf=fopen("/u/ebcsav/data/tran_sec.dat","r+");
          while(1)
            {
              move(5,10);
              addstr("请输入单位编号( 0 返回)              ");
              scanw("%d",&sec_num);
              move(20,30);
              if(sec_num<1)
                {
                  fclose(pf);
                  break;
                }
              fseek(pf,(sec_num-1)*24,0);
              fread(s,24,1,pf);
              if(feof(pf)||s[0]=='\0')
                {
                  printw("该单位不存在, ");
                  mess(2);
                }
              else break;
            }
          if(sec_num==0) break;
          addspace(28);
          move(7,10);
          s[24]='\0';
          printw("单位名称:   %s",s);
          move(20,20);
          printw("是否删除 (Y/N)? ");
          c=y_n('Y','N','N');
          if(c=='Y')
            {
              strcpy(s,"rm /u/ebcsav/data/num_acc001.dat");
              s[25]=sec_num/100+48;
              s[26]=(sec_num%100)/10+48;
              s[27]=(sec_num%10)+48;
              system(s);
            }
          fclose(pf);
          break;
        case 12:
          move(2,19);
          addstr("转  存  单  位  编  码  对  照  表  目  录");
          move(3,19);
          addstr("==========================================");
          pf=fopen("/u/ebcsav/data/tran_sec.dat","r");
          while(1)
            {
              move(5,10);
              addstr("请输入单位编号( 0 返回)              ");
              scanw("%hd",&sec_num);
              move(20,30);
              if(sec_num<1) break;
              fseek(pf,(sec_num-1)*24,0);
              fread(s,24,1,pf);
              if(feof(pf)||s[0]=='\0')
                {
                  printw("该单位不存在, ");
                  mess(2);
                }
              else break;
            }
          fclose(pf);
          if(sec_num==0) break;
          move(7,10);
          addstr("请输入营业部门编号( 0 返回)          ");
          scanw("%hd",&i);
          s_num[0]=i;
          if(i<1) break;
          move(9,10);
          addstr("请输入储蓄类型( 0-返回, 1-人民币活期, 2-人民币零存整取): ");
          scanw("%hd",&t);
          if(t<1) break;
          move(4,0);
          clrtobot();
          block(1,0,22,80);
          move(4,15);
          s[24]='\0';
          printw("单位编号: %3d 单位名称: %s",sec_num,s);
          strcpy(s,"/u/ebcsav/data/num_acc001.dat");
          s[22]=sec_num/100+48;
          s[23]=(sec_num%100)/10+48;
          s[24]=(sec_num%10)+48; 
          if((pf=fopen(s,"r"))==NULL)break;
          i=0;
          l=6;
          j=2;
          move(5,2);
          printw("序号   编 号    户 名      帐  号     序号   编 号    户 名      帐  号  ");
          while(1)
            {
              fread(s1,10,1,pf);
              fread(&d,4,1,pf);
              if(feof(pf)) break;
              a_num=d;
              if(t==1)
                {
                  $ select name into $nam from r_demand
                    where sec_num=$s_num and acc_num=$a_num;
                }
              else
                {
                  $ select name into $nam from r_dated
                    where sec_num=$s_num and acc_num=$a_num;
                }
              if(sqlca.sqlcode!=0) strcpy(nam,"(不存在)");
              i++;
              move(l,j);
              printw("%3d  ",i);
              printw("%-10s",s1);
              printw(" %-8s ",nam);
              prt_inum(d,9);
              l++;
              if(j==2&&l==22)
                {
                  j=40;
                  l=6;
                }
              else if(j==40&&l==22)
                {
                  move(23,30);
                  addstr("暂停显示, ");
                  mess((short)4);
                  getch();
                  l=6;
                  j=2;
                  move(6,0);
                  clrtobot();
                  block(1,0,22,80);
               }
            }
          move(23,23);
          addstr("全部显示 ");
          mess((short)3);
          getch();
          fclose(pf);
          break;
        case 7:
          move(2,25);
          addstr("打  印  转  存  帐  户  目  录");
          move(3,25);
          addstr("==============================");
          pf=fopen("/u/ebcsav/data/tran_sec.dat","r");
          while(1)
            {
              move(5,10);
              addstr("请输入单位编号( 0 返回)              ");
              scanw("%d",&sec_num);
              move(20,30);
              if(sec_num<1) break;
              fseek(pf,(sec_num-1)*24,0);
              fread(s,24,1,pf);
              if(feof(pf)||s[0]=='\0')
                {
                  printw("该单位不存在, ");
                  mess(2);
                }
              else break;
            }
          fclose(pf);
          if(sec_num==0) break;
          move(7,10);
          addstr("请输入营业部门编号( 0 返回)          ");
          scanw("%hd",&i);
          s_num[0]=i;
          if(i<1) break;
          move(9,10);
          addstr("请输入储蓄类型( 0-返回, 1-人民币活期, 2-人民币零存整取): ");
          scanw("%hd",&t);
          if(t<1) break;
          move(4,0);
          clrtobot();
          block(1,0,22,80);
          move(4,15);
          s[24]='\0';
          strcpy(sn,"/u/ebcsav/data/tran001.dat");
          sn[19]=sec_num/100+48;
          sn[20]=(sec_num%100)/10+48;
          sn[21]=(sec_num%10)+48; 
          pf=fopen(sn,"r");
          fseek(pf,4,0);
          fread(&sum,8,1,pf);
          move(10,20);
          mess((short)60);
          mess((short)4);
          getch();
          printf("%c%c%c%c%c%c%c%c%c\n",27,'[','5','i',27,'%','9',1,20);
          pa=1;
          l=0;
          i=0;
          while(1)
            {
              fread(&d,4,1,pf);
              fread(&x,8,1,pf);
              if(feof(pf)) break;
              if(l==0)
                {
                  if(pa>1) printf("%c",12);
                  addspacef(34);
                  printf("%c%c%c%c转  存  帐  户  目  录%c%c%c%c\n",
                    28,'p',27,'[',28,'q',27,']');
                  addspacef(30);
                  printf("────────────────────\n");
                  addspacef(24);
                  printf("单位编号: %3d         单位名称: %s\n",sec_num,s);
                  addspacef(24);
                  printf("%4d年%2d月%2d日\n",year,month,day);
                  addspacef(20);
                  printf("┏━━━┯━━━━━━━┯━━━━━┯━━━━━━━━━┓\n");
                  addspacef(20);
                  printf("┃      │              │          │                  ┃\n");
                  addspacef(20);
                  printf("┃ 序号 │    帐  号    │   户 名  │     金    额     ┃\n");
                  addspacef(20);
                  printf("┃      │              │          │                  ┃\n");

                  addspacef(20);
                  printf("┠───┼───────┼─────┼─────────┨\n");
                }
              if((l%5)==0&&l!=0)
                {
                  addspacef(20);
                  printf("┃      │              │          │                  ┃\n");
                }
              a_num=d;
              if(t==1)
                {
                  $ select name into $nam from r_demand
                    where sec_num=$s_num and acc_num=$a_num;
                }
              else
                {
                  $ select name into $nam from r_dated
                    where sec_num=$s_num and acc_num=$a_num;
                }
              if(sqlca.sqlcode!=0) strcpy(nam,"(不存在)");
              addspacef(20);
              printf("┃ ");
              i++;
              printf("%4d │ ",i);
              prtf_inum((long)s_num[0],2);
              printf("-");
              prtf_inum(d,9);
              printf(" │ %-8s │  ",nam);
              prtf_dnum(x,14);
              printf("  ┃\n");
              l++;
              if(l>=40)
                {
                  addspacef(20);
                  printf("┗━━━┷━━━━━━━┷━━━━━┷━━━━━━━━━┛\n");
                  addspacef(50);
                  printf("第%2d页\n",pa);
                  l=0;
                  pa++;
                }
            }
          if(l>0)
            {
              addspacef(20);
              printf("┗━━━┷━━━━━━━┷━━━━━┷━━━━━━━━━┛\n");
              addspacef(50);
              printf("第%2d页\n",pa);
            }
          printf("\n");
          addspacef(28);
          printf("共%3d 页    合计: ",pa);
          prtf_dnum(sum,16);
          printf("元\n\n");
          addspacef(34);
          printf("中国光大银行黑龙江分行营业二部\n");
          printf("%c%c%c%c%c\n\n\n\n",12,27,'[','4','i');
          fclose(pf);
      }
  }

#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/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>