dem_repl.ec

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

/*   活期换折   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void addspace();
void addspacef();
void mess();
char y_n();
char readdv();
char readst();
char readch();
char fv_date();
long ac_num();
short num_time();
void prt_inum();
void prt_dnum();
void prtf_inum();
void prtf_dnum();
#include </u/ebcsav/include/begin>
double x,aal=0.0,amm;
long ti,k,n,i,j=0,p=0;
unsigned char c;
char st[30],yn;
$ char s_num[2],nam[9],cu_type[2];
$ long a_num,cr_num,ope_date,cr_num1,pas;
$ double amoun,inte,amou,amo,balan;
$ short cred_type;
$ long cred_num,i_date,l_date,b_num,b_num1,o_date,s_date;
$ char ope_num[2],s_type[2],sta[2],l_num[2],stat[2];
$ declare blot scroll cursor for select blot_num from r_blot;
$ declare blot1 scroll cursor for select blot_num from f_blot;
move(0,25);
$ database saving;
printw("活  期  储  蓄  换  折");
ope_num[0]=op_num;
ope_num[1]='\0';
s_num[0]=op.num&0x7f;
s_num[1]='\0';
stat[1]='\0';
l_num[0]=1;
l_num[1]='\0';
s_type[1]='\0';
nam[0]='\0';
cu_type[0]=((op.type&1)==1)?'R':'U';
cu_type[1]='\0';
amoun=0.0;
amou=0.0;
move(23,16);
standout();
mess(1);
standend();
move(3,10);
addstr("帐    号: ");
move(3,20);
prt_inum(s_num[0],2);
addstr("－");
while(1)
  {
    $ begin work;
    p=0;
    while(1)
     {
      move(3,24);
      c=readdv(&x,9);
      if(c==10) a_num=x;
      move(3,24);
      prt_inum(a_num,9);
      if((op.type&3)==1)cred_type=2;
      else if((op.type&3)==2)cred_type=12;
      else 
       {
         move(5,10);
         addstr("人民币/外币:(R/F)");
         move(5,30);
         c=y_n('R','R','F');
         if(isprint(c)) cu_type[0]=c;
         if(toupper(cu_type[0])=='R')cred_type=2;
         else cred_type=12;
         move(5,10);
         addspace(40);
        }
      s_type[0]=cred_type;
      if(cred_type==2)
      $ select name,pass,cur_type,amount,cre_num,open_date,inte_date,status,
               last_date,interest into $nam,$pas,$cu_type,$amoun,$cr_num,
               $o_date,$i_date,$sta,$l_date,$inte
               from r_demand where sec_num=$s_num and acc_num=$a_num;
      else
      $ select name,pass,cur_type,amount,cre_num,open_date,inte_date,status,
               last_date,interest into $nam,$pas,$cu_type,$amoun,$cr_num,
               $o_date,$i_date,$sta,$l_date,$inte
               from f_demand where sec_num=$s_num and acc_num=$a_num;
         if(sqlca.sqlcode!=0)
           {
              move(20,20);
              mess(19);
              p=1;
              break;
            }
      ope_date=year*10000+month*100+day;
      if(ope_date!=i_date)
        {
           k=0;
           k=((toupper(cu_type[0])-64)*10000+cred_type*100);
         }
      if(sta[0]!='A')
        if(sta[0]=='a')
          {
            beep();
            move(19,20);
            standout();
            mess(26);
            standend();
           }
        else
         if(toupper(sta[0])=='F'||toupper(sta[0])=='V')
           {
             yn=fv_date(l_date,toupper(sta[0]));
             if(yn!='Y') break;
             else
               {
                move(20,20);
                mess(68);
                p=1;
                break;
               }
/*              if(toupper(sta[0])==sta[0])sta[0]='A';
              else sta[0]='a';*/
            }
          else
           {
             move(20,20);
             mess(57);
             p=1;
             break;
            }
       move(5,10);
       addstr("姓    名: ");
       move(7,10);
       addstr("币    种: ");
       move(9,10);
       addstr("余    额: ");
       move(11,10);
       addstr("凭 证 号: ");
       move(13,10);
       addstr("新 凭 证: ");
       move(5,20);
       printw("%-8s",nam);
       move(7,20);
       switch(toupper(cu_type[0]))
              {
                   case 'R':
                    printw("%-10s","人民币");
                     break;
                   case 'U':
                    printw("%-10s","美元");
                     break;
                   case 'J':
                     printw("%-10s","日元");
                     break;
                   case 'H':
                     printw("%-10s","港元");
                     break;
                   case 'M':
                     printw("%-10s","德国马克");
                     break;
                   case 'P':
                     printw("%-10s","英镑");
                     break;
                   case 'F':
                     printw("%-10s","法国法郎");
                     break;
                   case 'C':
                     printw("%-10s","加拿大元");
               }
      move(9,20);
      prt_dnum(amoun,13);
      move(11,20);
      prt_inum(cr_num,7);
      move(13,20);
      c=readdv(&x,7);
      if(c==10) cr_num1=x;
      move(13,20);
      prt_inum(cr_num1,7);
      move(19,20);
      addspace(30);
/*更新记录开始*/
           move(20,20);
           mess(5);
           c=y_n('Y','N','C');
           move(20,20);
           addspace(42);
           if(c=='N')break;
           else if(c=='Y')
             {
                  move(20,20);
                  for(n=0;n<7;n++)
                  if(op.name[n]!='\0')st[n]=op.name[n]^0xff;
                  else st[n]='\0';
                  ti=num_time();
                  cred_num=cr_num1;
                  $ select cre_num from credential
                    where op_num=$ope_num and cre_type=$cred_type
                    and cre_num=$cr_num1;
                    if(sqlca.sqlcode!=0)
                      {
                        mess(11);
                        p=1;
                        break;
                      }
                    cred_num+=200000000;
                    $ update credential
                      set cre_num=$cred_num
                      where op_num=$ope_num and cre_type=
                      $cred_type and cre_num=$cr_num1;
                    if(sqlca.sqlerrd[2]!=1)
                      {
                        addstr("写");
                        mess(10);
                        printw("(%d), ",sqlca.sqlcode);
                        p=1;
                      }
                    else
                    {