dem_repl.ec

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

                     if(cred_type==2)
                            $ update r_demand
                              set cre_num=$cr_num1,line_num=$l_num
                              where sec_num=$s_num and acc_num=$a_num;
                        else
                            $ update f_demand
                              set cre_num=$cr_num1,line_num=$l_num
                              where sec_num=$s_num and acc_num=$a_num;
                        if(sqlca.sqlerrd[2]!=1)
                          {
                            addstr("写");
                            mess(14);
                            printw("(%d), ",sqlca.sqlcode);
                            p=1;
                          }
                        else
                          {
                            if(cred_type==2)
                                $ insert into r_blot
                                  values
                                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                                  $cu_type,0,$cr_num1,"S",0,$amoun,$inte);
                            else
                                $ insert into f_blot
                                  values
                                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                                  $cu_type,0,$cr_num1,"S",0,$amoun,$inte);
                            if(sqlca.sqlcode!=0)
                              {
                                addstr("写");
                                mess(16);
                                printw("(%d), ",sqlca.sqlcode);
                                p=1;
                              }
                            else
                              {
                                if(cred_type==2)
                                  {
                                    $ open blot;
                                    $ fetch last blot into $b_num;
                                    $ close blot;
                                   }
                                else
                                  {
                                    $ open blot1;
                                    $ fetch last blot1 into $b_num;
                                    $ close blot1;
                                   }
                                $ insert into subs_cred
                                  values
                                  ($s_num,$s_type,$a_num,$nam,$cr_num,$cr_num1,
                                  $amoun,$ope_num);
                                if(sqlca.sqlcode!=0)
                                  {
                                    addstr("写");
                                    mess(39);
                                    printw("(%d), ",sqlca.sqlcode);
                                    p=1;
                                    break;
                                  }
                                mess(42);
                                mess(4);
                                getch();


                                printf("%c%c%c%c%c",27,'%','9',1,20);
                                printf("      凭证号: ");
                                prtf_inum(cr_num1,7);
                                printf("\n    原凭证号: ");
                                prtf_inum(cr_num,7);
                                printf("\n");
                                   addspacef(30);
                                   printf("%4d      %2d      %2d      %2d时%2d分\n\n\n",
                                           year,month,day,ti/100,ti%100);
                                printf("ge         换     折fh\n\n\n\n\n");
                                   addspacef(11);
                                   printf("%-8s    ",nam);
                                   prtf_inum(s_num[0],2);
                                   printf("-");
                                   prtf_inum(a_num,9);
                                   printf("     ");
                                   prtf_dnum(aal,14);
                                   printf("    ");
                                   prtf_dnum(amoun,14);
                                   if(pas!=0)printf("   密");
                                        else printf("     ");
                                   printf("\n\n");
                                   addspacef(19);
                                   printf("%d-%2d-%2d            ",year,month,day);
                                   printf("%d-%2d-%2d          ", o_date/10000,
                                       (o_date%10000)/100,o_date%100);
                                   printf("       %d            ",b_num);
                                   printf(" %-6s\f\n",st);
                                printf("\n");
                                move(20,20);
                                addspace(30);
             if(cred_type==2)
              {
               $ declare blo scroll cursor for select pres_date,
            amount,balance,status into $s_date,$amo,$balan,$stat from r_dem_sch 
                 where sec_num=$s_num and acc_num=$a_num;
               $ open blo;
              }
             else
              {
               $ declare blo1 scroll cursor for select pres_date,
            amount,balance,status into $s_date,$amo,$balan,$stat from f_dem_sch 
                 where sec_num=$s_num and acc_num=$a_num;
               $ open blo1;
              }
             stat[0]=1;
             if(cred_type==2)
                while(((stat[0]&0x4)!=4)&&(sqlca.sqlcode==0))
                $ fetch blo;
             else
                while(((stat[0]&0x4)!=4)&&(sqlca.sqlcode==0))
                $ fetch blo1;
             if(sqlca.sqlcode==0) amoun=balan-amo;
             else s_date=ope_date;
             if(cred_type==2)
                $ close blo;
             else
                $ close blo1;
                                move(20,20);
                                mess(43);
                                mess(4);
                                getch();
                                 printf("%c%c%c%c%c\n\n",27,'%','9',1,20);
                                   addspacef(10);
                                   printf("%-8s",nam);
                                   addspacef(24);
                                   prtf_inum(s_num[0],2);
                                   printf("-");
                                   prtf_inum(a_num,9);
                                   printf("\n\n");
                                   addspacef(46);
                                   printf("%c%c",28,'p');
                                   switch(toupper(cu_type[0]))
                                     {
                                       case 'R':
                                         printf("%-10s","人民币");
                                         break;
                                       case 'U':
                                         printf("%-10s","美元");
                                         break;
                                       case 'J':
                                         printf("%-10s","日元");
                                         break;
                                       case 'H':
                                         printf("%-10s","港元");
                                         break;
                                       case 'M':
                                         printf("%-10s","德国马克");
                                         break;
                                       case 'P':
                                         printf("%-10s","英镑");
                                         break;
                                       case 'F':
                                         printf("%-10s","法国法郎");
                                         break;
                                       case 'C':
                                         printf("%-10s","加拿大元");
                                         break;
                                     }
                                   printf("%c%c",28,'q');
                           printf("\n\n\n\n\n\n\n         %d年%2d月%2d日",
                           o_date/10000,(o_date%10000)/100,o_date%100);
                                   addspacef(33);
                                   if(pas!=0)printf("  密");
                                   printf("\n\n\n\n\n\n%4d.%2d.%2d   换折",
                                 (s_date/10000)%100,(s_date%10000)/100,
                                 s_date%100);
                                addspacef(18);
                                   prtf_dnum(amoun,15);
                                   printf(" %-6s\f\n",st);
                                   printf("");
                                move(20,20);
                                addspace(30);
                                move(20,20);
                                mess(38);
                           }
                          break;
                         }
                        break;
                       }
                      break;
                     }
/*更新记录结束*/
      }
   if(p==1)
     {
      $ rollback work;
     }
   else
     {
      $ commit work;
     }
    p=0;
    move(20,50);
    mess(15);
    c=y_n('Y','N','N');
    if(c=='N') break;
    move(20,10);
    addspace(62);
    move(3,24);
    addspace(40);
  }
$ close database;
#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/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/ac_num>
#include </u/ebcsav/include/num_time>
#include </u/ebcsav/include/fv_date>