dem_canc.ec

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

/*   活期销户   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void addspace();
void addspacef();
void mess();
char y_n();
char fv_date();
char readdv();
char readst();
char readch();
long ac_num();
short num_time();
double get_inte();
double get_rmb();
void prt_inum();
void prt_dnum();
void prtf_inum();
void prtf_dnum();
void delay();
#include </u/ebcsav/include/begin>
double y,x,aal=0.0;
double amoun1;
long k,ti,inte1;
short n,i,j=0,p=0;
unsigned char c,yn;
char st[30],ss[11];
FILE *pf;
$ char s_num[2],nam[9],cu_type[2],addres[25],l_num[2],te[2];
$ long a_num,pas,pas1,cr_num,ope_date,b_num,b_num2;
$ double amoun,inte,bal,amo,balan;
$ short cred_type;
$ long cred_num,o_date,i_date,l_date;
$ char ope_num[2],s_type[2],sta[2],r_type[2],stat[2];
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';
s_type[1]='\0';
r_type[0]=8;
r_type[1]='\0';
sta[1]='\0';
stat[1]='\0';
te[0]=0;
te[1]='\0';
nam[0]='\0';
cu_type[0]=((op.type&1)==1)?'R':'U';
cu_type[1]='\0';
amoun=0.0;
bal=0.0;
addres[0]='\0';
pas=0;
pf=fopen("/u/ebcsav/data/sav_sect.dat","r");
fseek(pf,(op.num&0x7f)*34-10,0);
fread(ss,10,1,pf);
fclose(pf);
ss[10]='\0';
$ declare blot scroll cursor for select blot_num from r_blot;
$ declare blot1 scroll cursor for select blot_num from f_blot;
move(23,16);
standout();
mess(1);
standend();
move(3,10);
addstr("帐    号: ");
move(3,20);
prt_inum(s_num[0],2);
addstr("－");
move(5,10);
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);
      move(5,22);
      c=readdv(&x,7);
      if(c==10) pas=x;
      move(5,20);
      addspace(40);
      if((op.type&3)==1)cred_type=2;
      else if((op.type&3)==2)cred_type=12;
      else 
       {
         move(7,10);
         addstr("人民币/外币:(R/F)");
         move(7,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(7,10);
         addspace(40);
        }
      s_type[0]=cred_type;
      if(cred_type==2)
      $ select name,pass,cur_type,amount,address,cre_num,open_date,inte_date,
       status,last_date,interest,line_num into $nam,$pas1,$cu_type,$amoun,
       $addres,$cr_num,$o_date,$i_date,$sta,$l_date,$inte,$l_num
       from r_demand where sec_num=$s_num and acc_num=$a_num;
      else
      $ select name,pass,cur_type,amount,address,cre_num,open_date,inte_date,
       status,last_date,interest,line_num into $nam,$pas1,$cu_type,$amoun,
       $addres,$cr_num,$o_date,$i_date,$sta,$l_date,$inte,$l_num
       from f_demand where sec_num=$s_num and acc_num=$a_num;
      move(20,20);
         if(sqlca.sqlcode!=0)
           {
              mess(19);
              p=1;
              break;
            }
         else if(pas!=pas1)
           {
              mess(20);
              p=1;
              break;
            }
       k=0;
       k+=((toupper(cu_type[0])-64)*10000+cred_type*100);
       inte=inte+get_inte(k,i_date,amoun,&amoun1);
       inte1=inte;
       inte=inte1+(long)((inte-inte1)*100+0.500000001)/100.0;
       if(toupper(cu_type[0])=='J') inte=(long)inte;
       move(7,10);
       addstr("姓    名: ");
       move(9,10);
       addstr("币    种: ");
       move(11,10);
       addstr("金    额: ");
       move(13,10);
       addstr("利    息: ");
       move(15,10);
       addstr("地    址: ");
       move(17,10);
       addstr("凭 证 号: ");
       move(7,20);
       printw("%-8s",nam);
       move(9,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(11,20);
           prt_dnum(amoun,13);
           move(13,20);
           prt_dnum(inte,13);
           move(15,20);
           printw("%-24s",addres);
           move(17,20);
           prt_inum(cr_num,7);
           l_num[0]++;
              if(cred_type==2)
               {
                $ declare alot scroll cursor for select pres_date,blot_num,
                  amount,balance,status into $l_date,
                  $b_num2,$amo,$balan,$stat from r_dem_sch 
                  where sec_num=$s_num and acc_num=$a_num;
                  $ open alot;
               }
              else
               {
                  $ declare alot1 scroll cursor for select pres_date,blot_num,
                    amount,balance,status into $l_date,
                    $b_num2,$amo,$balan,$stat from f_dem_sch 
                    where sec_num=$s_num and acc_num=$a_num;
                  $ open alot1;
               }
              if(sqlca.sqlcode==0)
              {
                stat[0]=1;
                while(((stat[0]&0x4)!=4)&&(sqlca.sqlcode==0))
                if(cred_type==2) 
                  $ fetch alot;
                else 
                  $ fetch alot1;
                if(sqlca.sqlcode==0)
                  {
                   move(20,20);
                   addstr("该户有未登折信息,请先登折");
                   p=1;
                   break;
                  }
              }
/*更新记录开始*/
           move(20,20);
           ope_date=year*10000+month*100+day;
           if(ope_date==o_date)
            {
              mess(21);
              p=1;
              break;
            }
           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;
                      }
               }
            else
              {
                   mess(22);
                   p=1;
                   break;
              }
           move(20,20);
           mess(5);
           c=y_n('Y','N','C');
           move(19,20);
           addspace(42);
           move(20,20);
           addspace(42);
           move(20,20);
           if(c=='N')break;
           else if(c=='Y')
             {
              for(n=0;n<7;n++)
              if(op.name[n]!='\0')st[n]=op.name[n]^0xff;
              else st[n]='\0';
              ti=num_time();
              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,$te,$cr_num,"E",$amoun,0,$inte);
                else
                      $ insert into f_blot
                        values
                        (0,$ope_num,$s_num,$a_num,$nam,$s_type,
                        $cu_type,$te,$cr_num,"E",$amoun,0,$inte);
                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;
                      break;
                    }
              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,0,$inte,$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,0,$inte,$r_type);
                   }
              if(sqlca.sqlcode!=0)
                    {
                      addstr("写");
                      mess(18);
                      printw("(%d), ",sqlca.sqlcode);
                      p=1;
                      break;
                    }
              if(cred_type==2)
                 $ update r_demand
                        set amount=0,interest=$inte,last_date=$ope_date,
                            status='E'
                        where sec_num=$s_num and acc_num=$a_num;
              else
                  $ update f_demand
                    set amount=0,interest=$inte,last_date=$ope_date,
                        status='E'
                    where sec_num=$s_num and acc_num=$a_num;
              if(sqlca.sqlerrd[2]!=1)
                {
                  addstr("写");
                  mess(14);
                  printw("(%d), ",sqlca.sqlcode);
                  p=1;
                  break;
                }
              move(20,20); 
              mess(42);
              mess(4);
              getch();