change_dem.ec

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

                printw("%-10s","加拿大元");
                flag=1;
            }
        }
      move(17,2);
      addspace(76);
      break;
    case 8:
      move(13,20);
      readdv(&x,11);
      interes1=x;
      move(13,20);
      addspace(11);
      move(13,48);
      printw("%16.4f",interes1);
  }
move(20,33);
mess((short)33);
c=y_n('Y','N','N');
move(20,20);
addspace(60);
if(c=='Y')
  {
    flag=0;
    $ begin work;
    if(cred_type==2)
      {
        $ update r_demand
          set cur_type=$cu_type1,amount=$amoun1,
          open_date=$ope_date1,inte_date=$int_date1,last_date=$las_date1,
          interest=$interes1
          where sec_num=$s_num and acc_num=$a_num;
      }
    else
      {
        $ update f_demand
          set cur_type=$cu_type1,amount=$amoun1,
          open_date=$ope_date1,inte_date=$int_date1,last_date=$las_date1,
          interest=$interes1
          where sec_num=$s_num and acc_num=$a_num;
      }
    move(20,33);
    if(sqlca.sqlerrd[2]!=1)
      {
        addstr("写");
        mess((short)14);
        printw("(%d), ",sqlca.sqlerrd[2]);
        flag=1;
      }
    if(flag==0)
      {
        s_type[0]=cred_type;
        for(i=0;i<5;i++)
          {
            if(cred_type==2)
              {
                $ insert into r_blot
                  values
                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                  $cu_type,$ter,$cr_num,"E",$amoun,0.0,0.0);
              }
            else
              {
                $ insert into f_blot
                  values
                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                  $cu_type,$ter,$cr_num,"E",$amoun,0.0,0.0);
              }
            if(sqlca.sqlcode!=-271) break;
            printw("*");
            refresh();
            delay(5l);
          }
        if(sqlca.sqlcode==-271)
          {
            mess((short)73);
            flag=1;
          }
        else if(sqlca.sqlcode!=0)
          {
            addstr("写");
            mess(16);
            printw("(%d), ",sqlca.sqlcode);
            flag=1;
          }
      }
    if(flag==0)
      {
        for(i=0;i<5;i++)
          {
            if(cred_type==2)
              {
                $ insert into r_blot
                  values
                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                  $cu_type1,$ter,$cr_num,"O",$amoun1,$amoun1,0.0);
              }
            else
              {
                $ insert into f_blot
                  values
                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                  $cu_type1,$ter,$cr_num,"O",$amoun1,$amoun1,0.0);
              }
            if(sqlca.sqlcode!=-271) break;
            printw("*");
            refresh();
            delay(5l);
          }
        if(sqlca.sqlcode==-271)
          {
            mess((short)73);
            flag=1;
          }
        else if(sqlca.sqlcode!=0)
          {
            addstr("写");
            mess(16);
            printw("(%d), ",sqlca.sqlcode);
            flag=1;
          }
      }
    if(flag==0)
      {
        move(20,20);
        addspace(50);
        move(20,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",ss);
        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("币种: ");
        switch(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("美元    ");
          }
        printf("\n\n\n");
        addspacef(14);
        switch(n)
          {
            case 2:
              printf("原余额:    ");
              prtf_dnum(amoun,13);
              addspacef(10);
              printf("改为: ");
              prtf_dnum(amoun1,13);
              printf("\n");
              break;
            case 3:
              printf("原开户日期:");
              printf("%4d年%2d月%2d日",ope_date/10000,(ope_date%10000)/100,
                ope_date%100);
              addspacef(10);
              printf("改为: ");
              printf("%4d年%2d月%2d日\n",ope_date1/10000,(ope_date1%10000)/100,
                ope_date1%100);
              break;
            case 4:
              printf("原起息日期:");
              printf("%4d年%2d月%2d日",int_date/10000,(int_date%10000)/100,
                int_date%100);
              addspacef(10);
              printf("改为: ");
              printf("%4d年%2d月%2d日\n",int_date1/10000,(int_date1%10000)/100,
                int_date1%100);
              break;
            case 5:
              printf("原最后日期:");
              printf("%4d年%2d月%2d日",las_date/10000,(las_date%10000)/100,
                las_date%100);
              addspacef(10);
              printf("改为: ");
              printf("%4d年%2d月%2d日\n",las_date1/10000,(las_date1%10000)/100,
                las_date1%100);
              break;
            case 6:
              printf("原币种:    ");
              switch(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(10);
              printf("改为: ");
              switch(cu_type1[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("美元    ");
                }
              printf("\n");
            case 8:
              printf("原累计利息:    ");
              printf("%16.4f",interes);
              addspacef(10);
              printf("改为: ");
              printf("%16.4f",interes1);
              printf("\n");
              break;
          }
        printf("          ─────────────────────────────────────────\n");
        printf("              负责人:              复核人:            经办人:            操作员:%s\n",stn);
        printf("%c%c[4i",12,27);
        move(23,20);
        addspace(50);
        move(23,20);
        addstr("修改操作已完成, ");
      }
    if(flag==0)
      {
        $ 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/readch>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/num_time>
#include </u/ebcsav/include/delay>