rate_exch.ec

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

#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void mess();
void addspace();
void addspacef();
char y_n();
char readdv();
char readst();
char readch();
short menusel();
struct record2
  {
    unsigned short sy;
    double hl;
  }hjl[20];
$short sy;
$double hl; 
$int xx;
void hp_line(x)
int x;
{
 char *wwb[7]={"美      元"," 加拿大元 ","日      元","港      元"," 法国法朗 "," 德国马克 ","英      镑"};
 int wwb1[7]={21,3,10,8,6,13,16};
 unsigned short q,i;
 move(x,3);
 printw("                                                                      ");
q=10;
 for(i=0;i<7;i++) 
 {if(wwb1[i]==hjl[x-6].sy)
    q=i;
 }
 move(x,10);
 if(q==10)
 printw("                ");
 else 
 printw("%s",wwb[q]); 
 move(x,50);
 printw("%10.6f",hjl[x-6].hl); 
 return;
}
void hread_record(line,e)
 int line;
 int e;
{
     if(e!=0)
          {
          sy=0;
          hl=0;
          }
     hjl[line-6].sy=sy;
     hjl[line-6].hl=hl;  
     hp_line(line);
 return;
}
#include </u/ebcsav/include/begin>
 int i,j,s,ok,jj,l,k,bz,bz1;
 char c,c1,c2,c3;
 unsigned int ll_c1;
 $ char select_1[100];
 char *wb[7]={"美      元"," 加拿大元 ","日      元","港      元"," 法国法朗 "," 德国马克 ","英      镑"};
 short   wb_row[7], wb_col[7]={10,10,10,10,10,10,10};
 int wb1[7]={21,3,10,8,6,13,16};
 $ short sy2;
 $double hl2;
 int fl;
 $ database saving;
 fl=op.type&0x03;
 switch(fl)
          {
          case 0:
          case 1:return;
                 break;
          case 2:
          case 3:
                 strcpy(select_1, " select * from exch_rate"); 
                 break;
          }
        $ prepare hhb from  $select_1;
        $ declare hlb1 scroll cursor for hhb;
        move(19,20);
    if(sqlca.sqlcode!=0)
      {
        addstr("申请");
        mess((short)9);
        printw("(%d), ",sqlca.sqlcode);
        mess((short)3);
        getch();
        return;
      }
 $ open hlb1;
 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 hlb1 into $sy,$hl;          
bz=0;
bz1=0;
 if(sqlca.sqlcode !=0)
  { 
  bz+=1;
  bz1+=1;
   }
 for(i=6;i<18;i++)
{
hread_record(i,bz);
$fetch hlb1 into $sy,$hl;          
bz=0;
 if(sqlca.sqlcode !=0)
  { 
  bz+=1;
  bz1+=1;
   }
 }
/*xx=5+bz1-i;
$fetch relative $xx hlb1 into $sy,$hl;          
*/
$fetch first hlb1 into $sy,$hl;          
l=1;
j=6;
while(l!=0)
  {
    standout();
    hp_line(j);
    standend();
    noecho();
    c=readch(); 
    echo();
    hp_line(j);
    switch(c)
       {
        case 25: 
                if(j==17)
                         {
                          $ fetch relative 1 hlb1 into $sy,$hl;        
                          bz=0;
                          bz1=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          for(i=6;i<18;i++)
                         {
                         hread_record(i,bz);
                         $fetch relative 1 hlb1 into $sy,$hl;          
                          bz=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          }
                         xx=6+bz1-i;
                         $fetch relative $xx hlb1 into $sy,$hl;        
                          }
                else j+=1;
                break;
        case 24:
                   if(j==6)
                         {
                          $fetch relative -1 hlb1 into $sy,$hl;         
                          bz=0;
                          bz1=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            $fetch first hlb1 into $sy,$hl;         
                             }
                          for(i=6;i<18;i++)
                         {
                         hread_record(i,bz);
                         $fetch relative 1 hlb1 into $sy,$hl;         
                          bz=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          }
                         xx=6+bz1-i;
                         $fetch relative $xx hlb1 into $sy,$hl;         
                         }
                 else j-=1;
                 break;
        case 14:
                 k=1;
                 do{
                          $fetch relative -1 hlb1 into $sy,$hl;         
                          k=k+1;
                   }while(k<13&&sqlca.sqlcode==0);
                          bz=0;
                          bz1=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            $fetch first hlb1 into $sy,$hl;          
                             }
                          for(i=6;i<18;i++)
                         {
                         hread_record(i,bz);
                         $fetch relative 1 hlb1 into $sy,$hl;          
                          bz=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          }
                         xx=6+bz1-i;
                         $fetch relative $xx hlb1 into $sy,$hl;          
                 break; 
        case 15:
                 k=1;
                 do{
                          $fetch relative  1 hlb1 into $sy,$hl;          
                          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++)
                         {
                         hread_record(i,bz);
                         $fetch relative 1 hlb1 into $sy,$hl;          
                          bz=0;
                           if(sqlca.sqlcode !=0)
                            { 
                            bz+=1;
                            bz1+=1;
                             }
                          }
                         xx=6+bz1-i;
                         $fetch relative $xx hlb1 into $sy,$hl;          
                 break; 
        case  0:
                 standout();
                 move(21,10);
                 printw("F1  删  除");