rate_main.ec

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

#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void mess();
char readdv();
char readst();
void addspace();
void addspacef();
char y_n();
char readch();
short menusel();
struct record1
  {
    unsigned short y;
    unsigned short m;
    double bl;
    unsigned short sy;
    unsigned short sm;
    unsigned short sd;
    unsigned short wy;
    unsigned short wm;
    unsigned short wd;
  }bjl[20];
$short y,m,sy,sm,sd,wy,wm,wd;
$double bl;
$int xx;
void bp_line(x)
int x;
{
 move(x,3);
 printw("                                                                      ");
 move(x,4);
 printw("%d",bjl[x-6].y); 
 move(x,12);
 printw("%d",bjl[x-6].m); 
 move(x,18);
 printw("%7.3f",bjl[x-6].bl); 
 move(x,31);
 printw("%d",bjl[x-6].sy); 
 move(x,37);
 printw("%d",bjl[x-6].sm); 
 move(x,42);
 printw("%d",bjl[x-6].sd); 
 move(x,51);
 printw("%d",bjl[x-6].wy); 
 move(x,57);
 printw("%d",bjl[x-6].wm); 
 move(x,62);
 printw("%d",bjl[x-6].wd); 
 return;
}
void bread_record(line,e)
 int line;
 int e;
{
     if(e!=0)
          {
          y=0;
          bl=0;
          m=0; 
          sy=0;
          sm=0;
          sd=0; 
          wy=0;
          wm=0;
          wd=0; 
          }
     bjl[line-6].y=y;
     bjl[line-6].bl=bl;  
     bjl[line-6].m=m;  
     bjl[line-6].sy=sy;
     bjl[line-6].sm=sm;  
     bjl[line-6].sd=sd;  
     bjl[line-6].wy=wy;
     bjl[line-6].wm=wm;  
     bjl[line-6].wd=wd;  
     bp_line(line);
 return;
}
#include </u/ebcsav/include/begin>
 int i,j,s,ok,jj,l,k,bz,bz1;
 char c,c1,c2,c3;
 $ int dat1,dat2;
 $ char select_1[100];
 $ short y2,m2,sy2,wy2,sm2,wm2,sd2,wd2;
 $double bl2,m1=0,y1=0,sy1=0,wy1=0,sm1=0,wm1=0,sd1=0,wd1=0;
 int fl;
 $database saving;
 fl=op.type&0x03;
 switch(fl)
          {
          case 0:
          case 2:return;
                 break;
          case 1:
          case 3:
                 strcpy(select_1, " select * from maint_rate"); 
                 break;
          }
        $ prepare bhb from  $select_1;
        $ declare blb1 scroll cursor for bhb;
        move(19,20);
    if(sqlca.sqlcode!=0)
      {
        addstr("申请");
        mess((short)9);
        printw("(%d), ",sqlca.sqlcode);
        mess((short)3);
        getch();
        return;
      }
 $ open blb1;
 if(sqlca.sqlcode !=0)
  { 
   printw("** %d 错误: 打开保值率表出错 **",sqlca.sqlcode);
   getch();
   return;
   }
move(0,30);
    standout();
printw(" 保  值  率  管  理 ");
    standend();
move(20,10);
printw("↑上移 ↓下移 →右移 ←左移 pageup 翻上页 pagedown 翻下页");
move(21,10);
printw("F1  删  除     F2  插  入      F3  修  改      F4  退  出");
move(4,3);
    standout();
printw("      年   月   日保值率    三年期保值起息日    五年期保值起息日      ");
    standend();
$fetch first blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
bz=0;
bz1=0;
 if(sqlca.sqlcode !=0)
  { 
  bz+=1;
  bz1+=1;
   }
 for(i=6;i<18;i++)
{
bread_record(i,bz);
$fetch blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
bz=0;
 if(sqlca.sqlcode !=0)
  { 
  bz+=1;
  bz1+=1;
   }
 }
/*xx=5+bz1-i;
$fetch relative $xx blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
*/
$fetch first blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
l=1;
j=6;
while(l!=0)
  {
    standout();
    bp_line(j);
    standend();
    noecho();
    c=readch(); 
    echo();
    bp_line(j);
    switch(c)
       {
        case 25: 
                if(j==17)
                         {
                          $ fetch relative 1 blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                          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;
                          }
                else j+=1;
                break;
        case 24:
                   if(j==6)
                         {
                          $fetch relative -1 blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                          bz=0;
                          bz1=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            $fetch first blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                             }
                          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;
                         }
                 else j-=1;
                 break;
        case 14:
                 k=1;
                 do{
                          $fetch relative -1 blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                          k=k+1;
                   }while(k<13&&sqlca.sqlcode==0);
                          bz=0;
                          bz1=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            $fetch first blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                             }
                          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;
                 break; 
        case 15:
                 k=1;
                 do{
                          $fetch relative  1 blb1 into $ y, $ m, $bl,$sy,$sm,$sd,$wy,$wm,$wd;
                          k=k+1;
                   }while(k<13&&sqlca.sqlcode==0);
                          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;
                 break; 
        case  0:
                 standout();
                 move(21,10);
                 printw("F1  删  除");
                 standend();
                 move(19,20);
                 standout();
                 printw("是否确认删除该保值率?(y,n)");
                 standend();
                 move(19,47);
                 c1=toupper(getch());
                 move(19,20);
                 printw("                                   ");
                 if(c1!='Y')
                 {
                 move(21,10);
                 printw("F1  删  除");
                  break;
                  }
                 y=bjl[j-6].y;
                 m=bjl[j-6].m;
                 bl=bjl[j-6].bl;
                 sy=bjl[j-6].sy;
                 sm=bjl[j-6].sm;
                 sd=bjl[j-6].sd;
                 wy=bjl[j-6].wy;
                 wm=bjl[j-6].wm;
                 wd=bjl[j-6].wd;
                 $close blb1;
                 $begin work;
                     $delete from maint_rate where y=$y and m=$m and bl=$bl and sy=$sy and sm=$sm and sd=$sd and wy=$wy and wm=$wm and wd=$wd;
                     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; 
                          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,10);
                         printw("F1  删  除");
                 break; 
         case  1:
                 standout();