rate_main.ec

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

                 move(21,25);
                 printw("F2  插  入");
                 standend();
                  s=0;
                  ok=0;
                  jj=1;
                  while(s==0)
                     {
                      switch(jj)
                              {
                              case 1:do{ move(18,4);
                                     c3=readdv(&y1,4);
                                     y=y1;
                                       }while(y>2100&&c3!=68&&c3!=67&&c3!=80||y<1990&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=9;
                                      if(c3==16)jj=2;
                                      if(c3==3)s=1; 
                                      break;
                              case 2:do{ move(18,12);
                                         c3=readdv(&m1,2);
                                         m=m1;
                                       }while(m<=0&&c3!=68&&c3!=67&&c3!=80||m>=13&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=1;
                                      if(c3==16)jj=3;
                                      if(c3==3)s=1; 
                                      break;
                              case 3:
                                       move(18, 18);
                                      c3=readdv(&bl,14);
                                      jj=4;
                                      if(c3==17)jj=2;
                                      if(c3==16)jj=4;
                                      if(c3==3) s=1;
                                       break;
                              case 4:do{ move(18,31);
                                    c3=readdv(&sy1,4);
                                     sy=sy1;
                                       }while(sy>2100&&c3!=68&&c3!=67&&c3!=80||sy<1990&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=3;
                                      if(c3==16)jj=5;
                                      if(c3==3)s=1; 
                                      break;
                              case 5:do{ move(18,37);
                                         c3=readdv(&sm1,2);
                                         sm=sm1;
                                       }while(sm<=0&&c3!=68&&c3!=67&&c3!=80||sm>=13&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=4;
                                      if(c3==16)jj=6;
                                      if(c3==3)s=1; 
                                      break;
                              case 6:do{ move(18,42);
                                         c3=readdv(&sd1,2);
                                         sd=sd1;
                                       }while(sd<=0&&c3!=68&&c3!=67&&c3!=80||sd>=32&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=5;
                                      if(c3==16)jj=7;
                                      if(c3==3)s=1; 
                                      break;
                              case 7:do{ move(18,51);
                                    c3=readdv(&wy1,4);
                                     wy=wy1;
                                       }while(wy>2100&&c3!=68&&c3!=67&&c3!=80||wy<1990&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=6;
                                      if(c3==16)jj=8;
                                      if(c3==3)s=1; 
                                      break;
                              case 8:do{ move(18,57);
                                         c3=readdv(&wm1,2);
                                         wm=wm1;
                                       }while(wm<=0&&c3!=68&&c3!=67&&c3!=80||wm>=13&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=7;
                                      if(c3==16)jj=9;
                                      if(c3==3)s=1; 
                                      break;
                              case 9:do{ move(18,62);
                                         c3=readdv(&wd1,2);
                                         wd=wd1;
                                       }while(wd<=0&&c3!=68&&c3!=67&&c3!=80||wd>=32&&c3!=68&&c3!=67&&c3!=80);
                                      jj=1;
                                      if(c3==17)jj=8;
                                      if(c3==16)jj=1;
                                      if(c3==3)s=1; 
                                      break;
                              }
                        }
                 standout();
                 move(21,57);
                 printw("F4  退  出");
                 standend();
                 move(19,20);
                 standout();
                 printw("是否确认增加该保值率?(y,n)");
                 standend();
                 move(19,47);
                 c2=toupper(getch());
                 move(19,20);
                 printw("                                  ");
                 if(c2=='Y') ok=1;
                  move(21,57);
                  printw("F4  退  出");
                 if(ok==1)
                      {
                         $close blb1;
                         $begin work;
                             $insert into maint_rate
                              values
                              ($ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd);
                              if(sqlca.sqlcode !=0)
                               { 
                                move(19,20);
                                standout();
                                printw("** %d 错误:插入保值率表出错 **",sqlca.sqlcode);
                                standend();
                                getch();
                                move(19,20);
                                printw("                                         ");
                                 }
                         $commit work;
                         $open blb1;
                     $fetch first blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                     j=6;
                          bz=0;
                          bz1=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          for(i=6;i<18;i++)
                         {
                         bread_record(i,bz);
                         $fetch relative 1 blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                          bz=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          }
                         xx=6+bz1-i;
                         $fetch relative $xx blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                       }
                 move(18,3);
                 printw("                                                                      ");
                 move(21,25);
                 printw("F2  插  入");
                 break; 
         case  2:
                 standout();
                 move(21,41);
                 printw("F3  修  改");
                 standend();
                  s=0;
                  ok=0;
                  jj=1;
                  while(s==0)
                     {
                      switch(jj)
                              {
                              case 1:do{ move(j,4);
                                     c3=readdv(&y1,4);
                                     y=y1;
                                       }while(y>2100&&c3!=68&&c3!=67&&c3!=80||y<1990&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=9;
                                      if(c3==16)jj=2;
                                      if(c3==3)s=1; 
                                      break;
                              case 2:do{ move(j,12);
                                         c3=readdv(&m1,2);
                                         m=m1;
                                       }while(m<=0&&c3!=68&&c3!=67&&c3!=80||m>=13&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=1;
                                      if(c3==16)jj=3;
                                      if(c3==3)s=1; 
                                      break;
                              case 3:
                                       move(j, 18);
                                      c3=readdv(&bl,14);
                                      jj=4;
                                      if(c3==17)jj=2;
                                      if(c3==16)jj=4;
                                      if(c3==3) s=1;
                                       break;
                              case 4:do{ move(j,31);
                                    c3=readdv(&sy1,4);
                                     sy=sy1;
                                       }while(sy>2100&&c3!=68&&c3!=67&&c3!=80||sy<1990&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=3;
                                      if(c3==16)jj=5;
                                      if(c3==3)s=1; 
                                      break;
                              case 5:do{ move(j,37);
                                         c3=readdv(&sm1,2);
                                         sm=sm1;
                                       }while(sm<=0&&c3!=68&&c3!=67&&c3!=80||sm>=13&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=4;
                                      if(c3==16)jj=6;
                                      if(c3==3)s=1; 
                                      break;
                              case 6:do{ move(j,42);
                                         c3=readdv(&sd1,2);
                                         sd=sd1;
                                       }while(sd<=0&&c3!=68&&c3!=67&&c3!=80||sd>=32&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=5;
                                      if(c3==16)jj=7;
                                      if(c3==3)s=1; 
                                      break;
                              case 7:do{ move(j,51);
                                    c3=readdv(&wy1,4);
                                     wy=wy1;
                                       }while(wy>2100&&c3!=68&&c3!=67&&c3!=80||wy<1990&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=6;
                                      if(c3==16)jj=8;
                                      if(c3==3)s=1; 
                                      break;
                              case 8:do{ move(j,57);
                                         c3=readdv(&wm1,2);
                                         wm=wm1;
                                       }while(wm<=0&&c3!=68&&c3!=67&&c3!=80||wm>=13&&c3!=68&&c3!=67&&c3!=80);
                                      jj++;
                                      if(c3==17)jj=7;
                                      if(c3==16)jj=9;
                                      if(c3==3)s=1; 
                                      break;
                              case 9:do{ move(j,62);
                                         c3=readdv(&wd1,2);
                                         wd=wd1;
                                       }while(wd<=0&&c3!=68&&c3!=67&&c3!=80||wd>=32&&c3!=68&&c3!=67&&c3!=80);
                                      jj=1;
                                      if(c3==17)jj=8;
                                      if(c3==16)jj=1;
                                      if(c3==3)s=1; 
                                      break;
                              }
                           }
                 standout();
                 move(21,57);
                 printw("F4  退  出");
                 standend();
                 move(19,20);
                 standout();
                 printw("是否确认修改该保值率?(y,n)");
                 standend();
                 move(19,47);
                 c2=toupper(getch());
                 move(19,20);
                 printw("                                  ");
                 if(c2=='Y') ok=1;
                 move(21,57);
                 printw("F4  退  出");
                 move(j,3);
                 printw("                                                                      ");
                 if(ok==1)
                      {
                 y2=bjl[j-6].y;
                 m2=bjl[j-6].m;
                bl2=bjl[j-6].bl;
                sy2=bjl[j-6].sy;
                sm2=bjl[j-6].sm;
                sd2=bjl[j-6].sd;
                wy2=bjl[j-6].wy;
                wm2=bjl[j-6].wm;
                wd2=bjl[j-6].wd;
                         $close blb1;
                         $begin work;
                             $update maint_rate set (y,m,bl,sy,sm,sd,wy,wm,wd)=
                              ($ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd)     
                               where y=$y2 and bl=$bl2 and m=$m2 and sy=$sy2 and sm=$sm2 and sd=$sd2 and wy=$wy2 and wm=$wm2 and wd=$wd2;
                               if(sqlca.sqlerrd[2] !=1)
                                { 
                                 move(19,20);
                                 standout();
                                 printw("** %d 错误: 修改保值率表出错 **",
                                   sqlca.sqlerrd[2]);
                                 standend();
                                 getch();
                                 move(19,20);
                                 printw("                                 ");
                                 }
                         $commit work;
                         $open blb1;
                     $fetch first blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                     j=6;
                          bz=0;
                          bz1=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          for(i=6;i<18;i++)
                         {
                         bread_record(i,bz);
                         $fetch relative 1 blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                          bz=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          }
                         xx=6+bz1-i;
                         $fetch relative $xx blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                       }
                 move(21,41);
                 printw("F3  修  改");
                 break; 
        case  3: l=0;
                 break;
                     }
  }
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/menusel>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/addspacef>
#include </u/ebcsav/include/y_n>