pt_change.ec

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

/*   pt_change   */
#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],nam2[9],addres[25],addres2[25],
  statu[2],ope_num[2];
$ long a_num,pas,pas2;
FILE *pf;
move(0,24);
$ 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_chan scroll cursor for select * into $s_num,$s_type,$a_num,
  $nam,$nam2,$pas,$pas2,$addres,$addres2,$statu,$ope_num from change_acc;
if(sqlca.sqlcode!=0)
  {
    move(20,20);
    addstr("申请");
    mess((short)69);
    printw("(%d), ",sqlca.sqlcode);
    mess((short)3);
    getch();
    return;
  }
$ open read_chan;
if(sqlca.sqlcode!=0)
  {
    move(20,20);
    addstr("打开");
    mess((short)69);
    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\n\n\n\n",27,'[','5','i',27,'%','9',1,15);
count=0;
pa=1;
l=1;
while(1)
  {
    $ fetch read_chan;
    if(sqlca.sqlcode!=0) break;
    if(l==1)
      {
        if(pa>1) printf("%c",12);
        addspacef(44);
        printf("%c%c%c%c帐 户 信 息 修 改 登 记 簿%c%c%c%c\n",
          28,'p',27,'[',28,'q',27,']');
        addspacef(41);
        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("┃            │        │      │");
    printf("%-8s│",nam);
    if((statu[0]&2)!=0) printf("%8d│",pas);
    else printf("        │");
    if((statu[0]&4)!=0) printf("%-24s",addres);
    else addspacef(24);
    printf("│      │            ┃\n");
    addspacef(14);
    printf("┃");
    prtf_inum((long)s_num[0],2);
    printf("-");
    prtf_inum(a_num,9);
    printf("│");
    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("├────┼────┼────────────┤");
    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);
    addspacef(14);
    printf("┃            │        │      │");
    if((statu[0]&1)!=0) printf("%-8s│",nam2);
    else printf("        │");
    if((statu[0]&2)!=0) printf("%8d│",pas2);
    else printf("        │");
    if((statu[0]&4)!=0) printf("%-24s",addres2);
    else addspacef(24);
    printf("│      │            ┃\n");
    l++;
    if(l>15)
      {
        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_chan;
$ 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>