hand_dem2.ec

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

/*   demand_hand   */
#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();
long ac_num();
double get_rate();
void prt_inum();
void prt_dnum();
void prtf_inum();
void prtf_dnum();
void prtf_upper();
short num_time();
#include </u/ebcsav/include/begin>
short n=1,ti,year1,month1,p,lnm;
double x;
long k,a_num1=0,anm2=0,yy1,yy2;
unsigned char c;
char st[30],fg1;
FILE *pf;
$ char s_num[2],nam[9],ter[2],cu_type[2],addres[25],statu[2],
  s_type[2],ope_num[2],flg[2],l_num[2];
$ long a_num,pas,cr_num,ope_date,int_date,las_date;
$ double amoun,amoun1,amound,interes,maint_v;
$ short cred_type;
$ long cred_num,b_num;
move(0,29);
$ database saving;
printw("活  期  储  蓄  移  植");
amound=0.0;
s_num[0]=op.num&0x7f;
s_num[1]='\0';
pas=0;
nam[0]='\0';
flg[1]='\0';
l_num[0]=0;
l_num[1]='\0';
flg[0]=1;
s_type[1]='\0';
cu_type[0]='R';
cu_type[1]='\0';
amoun=0.0;
addres[0]='\0';
statu[0]='A';
statu[1]='\0';
pas=0;
maint_v=0.0;
interes=0.0;
ter[0]=0;
ter[1]='\0';
addres[0]='\0';
pf=fopen("/u/ebcsav/data/dem1.txt","r");
while(1)
  {
    move(2,0);
    clrtobot();
    block(1,0,22,80);
    move(23,16);
    standout();
    mess((short)1);
    standend();
    fscanf(pf,"%7ld %c %8ld %12lf %14lf %8s %7ld %2hd %7ld %s",
    &a_num,&fg1,&yy1,&amoun,&amoun1,nam,&pas,&lnm,&cr_num,addres);
    if(feof(pf)) break;
    l_num[0]=lnm;
    amoun1=amoun1*1.1-(long)amoun*358*0.55/10000;
    interes=amoun1;
    if(interes<0.005)interes=0.0;
    ope_date=yy1;
    las_date=19970703;
    int_date=19970703;
    statu[0]=fg1;
    move(3,10);
    addstr("帐    号: ");
    move(3,48);
    prt_inum((long)(op.num&0x7f),2);
    addstr("－");
    move(3,52);
    prt_inum(a_num,9);
    move(4,10);
    addstr("姓    名: ");
    move(5,10);
    addstr("密    码: ");
    move(6,10);
    addstr("币    种: ");
    move(6,48);
    addstr("人民币");
    move(7,10);
    addstr("行  号: ");
    move(8,10);
    addstr("余    额: ");
    move(9,10);
    addstr("利    息: ");
    move(10,10);
    addstr("地    址: ");
    move(11,10);
    addstr("凭 证 号: ");
    move(12,10);
    addstr("开户日期: ");
    move(13,10);
    addstr("最后日期: ");
              move(4,48);
              printw("%-8s",nam);
              move(05,48);
              printw("%d",pas);
              move(07,48);
              printw("%d",l_num[0]);
              move(8,48);
              prt_dnum(amoun,16);
              move(9,48);
              prt_dnum(interes,16);
              move(10,48);
              printw("%-25s",addres);
              move(11,48);
              prt_inum(cr_num,7);
              move(12,48);
              printw("%4d年%2d月%2d日",ope_date/10000,ope_date%10000/100,
                      ope_date%100);
              move(13,48);
              printw("%4d年%2d月%2d日",las_date/10000,las_date%10000/100,
                      las_date%100);
              refresh();
              if(a_num<1)getch();
              anm2++;
              amound+=amoun;
                  ope_num[0]=op_num;
                  ope_num[1]='\0';
                  cred_type=2;
                  s_type[0]=cred_type;
                  cred_num=cr_num;
                  p=0;
                  $ begin work;
                        move(20,20);
                        $ insert into r_demand
                          values
                         ($s_num,$a_num,$nam,$pas,$cu_type,$amoun,$addres,
                          $cr_num,$ope_date,$int_date,$statu,$las_date,
                          $interes,$l_num);
                        if(sqlca.sqlcode!=0)
                          {
                            addstr("写");
                            mess((short)14);
                            printw("(%d), ",sqlca.sqlcode);
                            getch();
                          }
                        else
                          {
                            move(20,20);
                            addspace(40);
                            move(20,20);
                            mess((short)13);
                            p=1;
                          }
                    if(p==1)
                      {
                        $ commit work;
                      }
                    else
                      {
                        $ rollback work;
                      }
  }
fclose(pf);
$ close database;
printw("\n     总户数=%d 总金额=%13.2f",anm2,amound);
getch();
#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/addspacef>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/prt_inum>
#include </u/ebcsav/include/prt_dnum>
#include </u/ebcsav/include/prtf_inum>
#include </u/ebcsav/include/prtf_dnum>
#include </u/ebcsav/include/prtf_upper>
#include </u/ebcsav/include/num_time>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/ac_num>