dem_op.ec

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

                        ti=num_time();
                        if(cred_type==2)
                          {
                            $ insert into r_demand
                              values
                              ($s_num,$a_num,$nam,$pas,$cu_type,$amoun,
                              $addres,$cr_num,$ope_date,$int_date,$statu,
                              $las_date,0,$l_num);
                          }
                        else
                          {
                            $ insert into f_demand
                              values
                              ($s_num,$a_num,$nam,$pas,$cu_type,$amoun,
                              $addres,$cr_num,$ope_date,$int_date,$statu,
                              $las_date,0,$l_num);
                          }
                        if(sqlca.sqlcode!=0)
                          {
                            addstr("写");
                            mess(14);
                            printw("(%d), ",sqlca.sqlcode);
                            p=1;
                            n=10;
                          }
                        else
                          {
                           for(n=0;n<5;n++)
                           {
                            if(cred_type==2)
                              {
                                $ insert into r_blot
                                  values
                                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                                  $cu_type,0,$cr_num,"O",$amoun,$amoun,0);
                              }
                            else
                              {
                                $ insert into f_blot
                                  values
                                  (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                                  $cu_type,0,$cr_num,"O",$amoun,$amoun,0);
                              }
                            if(sqlca.sqlcode!=-271) break;
                            printw("*");
                            refresh();
                            delay(5l);
                          }
                          if(sqlca.sqlcode==-271)
                            { mess((short)73);
                              p=1;
                              break;
                            }
                          else if(sqlca.sqlcode!=0)
                              {
                                addstr("写");
                                mess(16);
                                printw("(%d), ",sqlca.sqlcode);
                                p=1;
                                n=10;
                              }
                            else
                              {
                                if(cred_type==2)
                                  {
                                    $ open blot;
                                    $ fetch last blot into $b_num;
                                    $ close blot;
                                    $ insert into r_dem_sch
                                      values
                                      ($s_num,$a_num,$ope_date,$b_num,
                                       $nam,$cu_type,$amoun,$amoun,0,$r_type);
                                  }
                                else
                                  {
                                    $ open blot1;
                                    $ fetch last blot1 into $b_num;
                                    $ close blot1;
                                    $ insert into f_dem_sch
                                      values
                                      ($s_num,$a_num,$ope_date,$b_num,
                                       $nam,$cu_type,$amoun,$amoun,0,$r_type);
                                  }
                               if(sqlca.sqlcode!=0)
                                 {
                                   addstr("写");
                                   mess(18);
                                   printw("(%d), ",sqlca.sqlcode);
                                   p=1;
                                   n=10;
                                  }
                               else
                                {
                                $ insert into open_acc
                                  values
                                  ($s_num,$s_type,$cu_type,"0",$a_num,$nam,
                                  $addres,$amoun,$ope_num);
                                if(sqlca.sqlcode!=0)
                                  {
                                    addstr("写");
                                    mess(17);
                                    printw("(%d), ",sqlca.sqlcode);
                                    p=1;
                                    n=10;
                                    break;
                                  }
                                   mess(42);
                                   mess(4);
                                   getch();
                                   printf("%c%c%c%c%c",27,'%','9',1,20);
                                   printf("      户  名: %-8s",nam);
                                   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);
                                   addspacef(14);
                                   prtf_inum(s_num[0],2);
                                   printf("-");
                                   prtf_inum(a_num,9);
                                   printf("       %d-%2d-%2d    ",year,month,day);
                                   printf("%d-%2d-%2d          ",year,month,
                                             day);
                                   prtf_inum(s_num[0],2);
                                   printf("       %d     ",b_num);
                                   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("\n");
                                   if(pas!=0)printf("                 密");
                                        else printf("                   ");
                                   printf("            ");
                                   prtf_dnum(amoun,14);
                                   printf("   ");
                                   prtf_dnum(amoun,14);
                                   printf("                   ");
                                   printf(" %-6s\f\n",st);
                                   printf("");
                                   move(20,20);
                                   addspace(30);
                                   move(20,20);
                                   mess(43);
                                   mess(4);
                                   getch();
                                 printf("%c%c%c%c%c\n\n",27,'%','9',1,20);
                                   addspacef(10);
                                   prtf_inum(s_num[0],2);
                                   printf("-");
                                   prtf_inum(a_num,9);
                                   addspacef(24);
                                   printf("%-8s\n\n\n",nam);
                                   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日",year,month,day);
                                   addspacef(33);
                                   if(pas!=0)printf("  密");
                                   printf("\n\n\n\n\n\n %2d%2d%2d 开             ",year%100,month,day);
                                   prtf_dnum(amoun,15);
                                   prtf_dnum(amoun,15);
                                   printf(" %-6s\f\n",st);
                                   printf("");
                                   move(20,20);
                                   addspace(30);
                                   move(20,20);
                                   mess(13);
                              }
                           }
                        }
                     }
                    n=10;
                }
              else n=10;
          }
        if(n==10) break;
      }
   if(p==1)
     {
      $ rollback work;
     }
   else
     {
      $ commit work;
     }
    move(20,46);
    mess(15);
    c=y_n('Y','N','N');
    if(c=='N') break;
    move(20,20);
    addspace(56);
    n=1;
  }
$ 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/delay>