pt_repl.ec

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

/*   pt_repl   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void addspace();
void addspacef();
void prtf_inum();
void prtf_dnum();
void mess();
#include </u/ebcsav/include/begin>
struct operator opt;
short i,l,count,pa;
char c;
char s[7],st[21],sn[7];
$ char s_num[2],s_type[2],nam[9],ope_num[2];
$ long a_num,cr_num1,cr_num2;
$ double balanc;
FILE *pf;
move(0,27);
$ database saving;
printw("打  印  换  折  登  记  簿");
pf=fopen("/u/ebcsav/data/sav_sect.dat","r");
fseek(pf,((op.num&0x7f)-1)*34+24,0);
fread(st,10,1,pf);
fclose(pf);
st[10]='\0';
for(i=0;i<7;i++)
  if(op.name[i]!='\0')s[i]=op.name[i]^0xff;
  else s[i]='\0';
$ declare read_subs scroll cursor for select * into $s_num,$s_type,
  $a_num,$nam,$cr_num1,$cr_num2,$balanc,$ope_num from subs_cred;
if(sqlca.sqlcode!=0)
  {
    move(20,20);
    addstr("申请");
    mess((short)39);
    printw("(%d), ",sqlca.sqlcode);
    mess((short)3);
    getch();
    return;
  }
$ open read_subs;
if(sqlca.sqlcode!=0)
  {
    move(20,20);
    addstr("打开");
    mess((short)39);
    printw("(%d), ",sqlca.sqlcode);
    mess((short)3);
    getch();
    return;
  }
move(10,20);
mess((short)60);
mess((short)4);
getch();
printf("%c%c%c%c%c%c%c%c%c%c%c%c%c\n\n\n\n",27,'[','5','i',27,'%','9',1,15,
  28,'p',27,'[');
count=0;
pa=1;
l=1;
while(1)
  {
    $ fetch read_subs;
    if(sqlca.sqlcode!=0) break;
    if(l==1)
      {
        if(pa>1) printf("%c",12);
        addspacef(53);
        printf("换 折 登 记 簿%c%c%c%c\n",28,'q',27,']');
        addspacef(47);
        printf("──────────────────\n\n");
        addspacef(18);
        printf("营业部门: %-10s",st);
        addspacef(20);
        printf("%4d年%2d月%2d日",year,month,day);
        addspacef(20);
        printf("操作员: %-6s\n\n",s);
        addspacef(14);
        printf("┏━━━━━━┯━━━━┯━━━━┯━━━┯━━━━┯━━━━┯━━━━━━━┯━━━┯━━━━━━┓\n");
        addspacef(14);
        printf("┃            │        │        │      │        │        │              │      │            ┃\n");
        addspacef(14);
        printf("┃  帐    号  │ 姓  名 │ 储  种 │ 币种 │原凭证号│新凭证号│    余  额    │操作员│  备    注  ┃\n");
        addspacef(14);
        printf("┃            │        │        │      │        │        │              │      │            ┃\n");
      }
    addspacef(14);
    printf("┠──────┼────┼────┼───┼────┼────┼───────┼───┼──────┨\n");
    addspacef(14);
    printf("┃");
    prtf_inum((long)s_num[0],2);
    printf("-");
    prtf_inum(a_num,9);
    printf("│%-8s│",nam);
    switch(s_type[0]%10)
      {
        case 1:
          printf("整存整取");
          break;
        case 2:
          printf(" 活  期 ");
          break;
        case 3:
          printf("零存整取");
          break;
        case 4:
          printf("存本取息");
          break;
        case 5:
          printf("定活两便");
          break;
        case 6:
          printf(" 大  额 ");
          break;
        case 7:
          printf("通知存款");
      }
    printf("│");
    if(s_type[0]/10==0) printf("人民币");
    else printf("外  币");
    printf("│");
    prtf_inum(cr_num1,8);
    printf("│");
    prtf_inum(cr_num2,8);
    printf("│");
    prtf_dnum(balanc,14);
    pf=fopen("/u/ebcsav/data/sav_op.dat","r");
    fseek(pf,(ope_num[0]-1)*17,0);
    fread(&opt,17,1,pf);
    fclose(pf);
    for(i=0;i<7;i++)
      if(opt.name[i]!='\0')sn[i]=opt.name[i]^0xff;
      else sn[i]='\0';
    printf("│%-6s│            ┃\n",sn);
    l++;
    if(l>25)
      {
        addspacef(14);
        printf("┗━━━━━━┷━━━━┷━━━━┷━━━┷━━━━┷━━━━┷━━━━━━━┷━━━┷━━━━━━┛\n");
        addspacef(80);
        printf("操作员:\n");
        addspacef(60);
        printf("第%2d页\n",pa);
        l=1;
        pa++;
      }
  }
if(l>1)
  {
    addspacef(14);
    printf("┗━━━━━━┷━━━━┷━━━━┷━━━┷━━━━┷━━━━┷━━━━━━━┷━━━┷━━━━━━┛\n");
    addspacef(80);
    printf("操作员:\n");
    addspacef(60);
    printf("第%2d页\n",pa);
  }
printf("%c%c%c%c%c%c%c%c%c%c\n\n\n\n",12,27,'%','9',1,20,27,'[','4','i');
$ close read_subs;
$ close database;
endwin();

#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/addspacef>
#include </u/ebcsav/include/prtf_inum>
#include </u/ebcsav/include/prtf_dnum>