change_acc.ec

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

        prt_dnum(balanc,13);
        move(18,10);
        addstr("利    率: ");
        move(18,48);
        printw("%15.4f",inte_rat);
        move(19,10);
        addstr("最后存款月份: ");
        move(19,48);
        printw("%2d年%2d月",las_month/100,las_month%100);
      }
    move(21,10);
    addstr("密    码: ");
    move(21,48);
    printw("%7d",pas);
    move(23,20);
    addstr("是否对储户的姓名、密码或地址做修改(Y/N)? ");
    c=y_n('Y','N','N');
    if(c=='N') continue;
    strcpy(nam2,nam);
    strcpy(addres2,addres);
    pas2=pas;
    while(1)
      {
        move(4,20);
        c=readst(st,8);
        if(c==10) strcpy(nam2,st);
        move(4,20);
        addspace(10);
        move(4,48);
        printw("%-8s",nam2);
        move(8,20);
        c=readst(st,24);
        if(c==10) strcpy(addres2,st);
        move(8,20);
        addspace(26);
        move(8,48);
        printw("%-24s",addres2);
        move(21,20);
        c=readdv(&x,7);
        if(c==10) pas2=x;
        move(21,20);
        addspace(10);
        move(21,48);
        printw("%7d",pas2);
        move(23,20);
        addspace(50);
        move(23,20);
        mess((short)5);
        c=y_n('Y','N','C');
        move(23,20);
        addspace(50);
        if(c=='C') continue;
        else break;
      }
    move(23,20);
    addspace(50);
    move(23,20);
    if(c=='N') continue;
    if(strcmp(nam,nam2)==0&&strcmp(addres,addres2)==0&&pas==pas2)
      {
        addstr("没发生修改. ");
        mess((short)3);
        getch();
        continue;
      }
    las_date=year*10000+month*100+day;
    $ begin work;
    flag=0;
    switch(num_c2)
      {
        case 1:
          if(num_c3==1)
            {
              $ update r_fix
                set name=$nam2,pass=$pas2,address=$addres2,last_date=$las_date
                where sec_num=$s_num and acc_num=$a_num;
            }
          else
            {
              $ update f_fix
                set name=$nam2,pass=$pas2,address=$addres2,last_date=$las_date
                where sec_num=$s_num and acc_num=$a_num;
            }
          break;
        case 2:
          if(num_c3==1)
            {
              $ update r_demand
                set name=$nam2,pass=$pas2,address=$addres2,last_date=$las_date
                where sec_num=$s_num and acc_num=$a_num;
            }
          else
            {
              $ update f_demand
                set name=$nam2,pass=$pas2,address=$addres2,last_date=$las_date
                where sec_num=$s_num and acc_num=$a_num;
            }
          break;
        case 3:
          $ update r_dated
            set name=$nam2,pass=$pas2,address=$addres2,last_date=$las_date
            where sec_num=$s_num and acc_num=$a_num;
          break;
        case 6:
          $ update l_fix
            set name=$nam2,pass=$pas2,address=$addres2,last_date=$las_date
            where sec_num=$s_num and acc_num=$a_num;
          break;
        case 7:
          $ update r_call
            set name=$nam2,pass=$pas2,address=$addres2,last_date=$las_date
            where sec_num=$s_num and acc_num=$a_num;
      }
    if(sqlca.sqlerrd[2]!=1)
      {
        addstr("写");
        mess((short)14);
        printw("(%d), ",sqlca.sqlerrd[2]);
      }
    else flag=1;
    if(flag==1)
      {
        s_type[0]=(num_c3-1)*10+num_c2;
        s_type[1]='\0';
        statu[0]=0;
        ope_num[0]=op_num;
        ope_num[1]='\0';
        if(strcmp(nam,nam2)!=0) statu[0]|=1;
        if(pas!=pas2) statu[0]|=2;
        if(strcmp(addres,addres2)!=0) statu[0]|=4;
        $ insert into change_acc
          values
          ($s_num,$s_type,$a_num,$nam,$nam2,$pas,$pas2,$addres,$addres2,
          $statu,$ope_num);
        if(sqlca.sqlcode!=0)
          {
            addstr("写");
            mess((short)69);
            printw("(%d), ",sqlca.sqlcode);
            flag=0;
          }
      }
    if(flag==1)
      {
        for(i=0;i<5;i++)
          {
            if(num_c3==1)
              {
                $ insert into r_blot
                  values
                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                  $cu_type,$ter,$cr_num,'N',0,$amoun,0);
              }
            else
              {
                $ insert into f_blot
                  values
                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                  $cu_type,$ter,$cr_num,'N',0,$amoun,0);
              }
            if(sqlca.sqlcode!=-271) break;
            printw("*");
            refresh();
            delay(5l);
          }
        if(sqlca.sqlcode==-271)
          {
            mess((short)73);
            flag=0;
          }
        else if(sqlca.sqlcode!=0)
          {
            addstr("写");
            mess((short)16);
            printw("(%d), ",sqlca.sqlcode);
            flag=0;
          }
      }
    if(flag==1)
      {
        ti=num_time();
        move(23,20);
        addspace(50);
        move(23,20);
        mess((short)42);
        mess((short)4);
        getch();
        printf("%c[5i%c%c9%c%c%c]%cq\n\n",27,27,'%',1,20,27,28);
        addspacef(38);
        printf("帐 户 信 息 修 改 通 知 单\n");
        addspacef(38);
        printf("==========================\n");
        addspacef(14);
        printf("%-10s",sts);
        addspacef(40);
        printf("%4d年%2d月%2d日 %2d时%2d分\n",year,month,day,ti/100,ti%100);
        printf("          ─────────────────────────────────────────\n");
        addspacef(14);
        printf("帐号: ");
        prtf_inum((long)s_num[0],2);
        printf("-");
        prtf_inum(a_num,9);
        addspacef(14);
        printf("户名: %-8s",nam);
        addspacef(12);
        printf("凭证号: ");
        prtf_inum(cr_num,7);
        printf("\n");
        addspacef(14);
        printf("储蓄种类: %-10s",&title2[num_c2][2]);
        addspacef(12);
        printf("币种: ");
        switch(toupper(cu_type[0]))
          {
            case 'C':
              printf("加拿大元");
              break;
            case 'F':
              printf("法国法郎");
              break;
            case 'H':
              printf("港元    ");
              break;
            case 'J':
              printf("日元    ");
              break;
            case 'M':
              printf("德国马克");
              break;
            case 'P':
              printf("英镑    ");
              break;
            case 'R':
              printf("人民币  ");
              break;
            case 'U':
              printf("美元    ");
          }
        addspacef(12);
        printf("期限: ");
        if(num_c2==1||num_c2==3||num_c2==6)
          {
            if(ter[0]<12) printf("%2d个月",ter[0]);
            else printf("%2d年",ter[0]/12);
          }
        printf("\n");
        if(strcmp(nam,nam2)!=0)
          {
            addspacef(14);
            printf("原户名:    %-8s",nam);
            addspacef(22);
            printf("改为: %-8s\n",nam2);
          }
        if(pas!=pas2)
          {
            addspacef(14);
            printf("原密码:    %-7d",pas);
            addspacef(23);
            printf("改为: %-7d\n",pas2);
          }
        if(strcmp(addres,addres2)!=0)
          {
            addspacef(14);
            printf("原地址:    %-24s",addres);
            addspacef(6);
            printf("改为: %-24s\n",addres2);
          }
        printf("\n");
        addspacef(14);
        printf("储户签名:\n\n");
        printf("          ─────────────────────────────────────────\n");
        printf("              负责人:              复核人:            经办人:            操作员:%s\n",stn);
        printf("%c%c[4i",12,27);
        move(23,20);
        addspace(50);
        move(23,20);
        addstr("修改操作已完成, ");
      }
    if(flag==1)
      {
        $ commit work;
      }
    else
      {
        $ rollback work;
      }
    mess((short)3);
    getch();
  }
$ 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/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>
#include </u/ebcsav/include/num_time>
#include </u/ebcsav/include/delay>