hand_dated1.ec

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

/*   dated_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;
double x;
long k,lnm,anm2=0;
unsigned char c;
char st[30];
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,amound,interes,maint_v,amound1;
$ short cred_type;
$ long cred_num,b_num;
move(0,29);
$ database saving;
printw("零  整  储  蓄  移  植");
s_num[0]=op.num&0x7f;
s_num[1]='\0';
pas=0;
amound1=0.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[1]='\0';
pf=fopen("/u/ebcsav/data/dated.txt","r");
while(1)
  {
    move(2,0);
    clrtobot();
    block(1,0,22,80);
    move(23,16);
    standout();
    mess((short)1);
    standend();
    fscanf(pf,"%ld %s %ld %lf %lf %s %ld %ld %ld %d %ld",&a_num,nam,&ti,&amoun,&amound,addres,&cr_num,&ope_date,&las_date,&lnm,&pas);
    if(feof(pf)) break;
    ter[0]=ti;
    l_num[0]=lnm;
    int_date=ope_date;
    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(14,10);
    addstr("存折行号: ");
              move(4,48);
              printw("%-8s",nam);
              move(4,48);
              printw("%d",pas);
              move(7,48);
              addspace(2);
              printw("%d个月",ter[0]);
              move(8,48);
              prt_dnum(amoun,16);
              move(9,48);
              prt_dnum(amound,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月",las_date/100,las_date%100);
              move(14,48);
              printw("%d",lnm);
              refresh();
              anm2++;
              amound1+=amound;
                  ope_num[0]=op_num;
                  ope_num[1]='\0';
                  cred_type=3;
                  s_type[0]=cred_type;
                  cred_num=cr_num;
                  p=0;
                  $ begin work;
                        move(20,20);
                        $ insert into r_dated
                          values
                         ($s_num,$a_num,$nam,$pas,$cu_type,$ter,$amoun,$amound,
                          $addres,$cr_num,$ope_date,$ope_date,$statu,$flg,
                          $ope_date,$maint_v,$interes,$las_date,$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,amound1);
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>