data_inkey.ec

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

/*   总帐输入   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void addspacef();
void addspace();
void mess();
char y_n();
char readdv();
char readst();
char readch();
long ac_num();
void prt_inum();
void prt_dnum();
void prtf_inum();
void prtf_dnum();
#include </u/ebcsav/include/begin>
short am1=0,f=0;
long k,j=0,i,n,ti,p=0;
unsigned char c;
char st[30];
double x;
$ char s_num[2],nam[9],cu_type[2];
$ long a_num,cr_num,ope_date,b_num,b_num2,l_date,pas;
$ double amounc,amound,amoun,t_bala;
$ long cred_num,i_date,o_date;
$ char ope_num[2],sav[2],sta[2],l_num[2],r_type[2],stat[2];
move(0,30);
$ database saving;
printw("总  帐  输  入");
ope_num[0]=op_num;
ope_num[1]='\0';
s_num[0]=op.num&0x7f;
s_num[1]='\0';
l_num[1]='\0';
r_type[0]=9;
r_type[1]='\0';
sav[1]='\0';
sta[1]='\0';
stat[1]='\0';
nam[0]='\0';
amound=0.0;
amounc=0.0;
cu_type[0]=((op.type&1)==1)?'R':'F';
cu_type[1]='\0';
move(23,16);
standout();
mess(1);
standend();
move(3,10);
addstr("币    种: ");
move(17,2);
if((op.type&1)==1) addstr("请选择: R-人民币");
move(18,2);
if((op.type&2)==2) printw("请选择: U-美元  J-日元  H-港元  M-德国马克  P-英镑  F-法国法郎  C-加拿大元");
move(3,20);
c=readch();
if(isprint(c)) cu_type[0]=c;
move(17,2);
addspace(40);
move(18,2);
addspace(76);
move(3,20);
addspace(6);
move(3,40);
switch(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(5,10);
addstr("类    别: ");
move(17,2);
if(cu_type[0]=='R') addstr("请选择: 有奖储蓄-102 国库券-103 债券-104 ");
move(18,2);
addstr("请选择: 业务备用金-105 暂收款-106 暂付款-107 应付利息-108");
move(19,2);
addstr("        往来收支-109   营业收支-110 ");
move(5,20);
c=readdv(&x,3);
if(c==10) sav[0]=x;
move(17,2);
addspace(40);
move(18,2);
addspace(60);
move(19,2);
addspace(60);
move(5,20);
addspace(10);
move(5,40);
switch(sav[0])
              {
                case 102:
                    addstr("有奖储蓄");
                    break;
                case 103:
                    addstr("国库券");
                    break;
                case 104:
                    addstr("债券");
                    break;
                case 105:
                    addstr("业务备用金");
                    break;
                case 106:
                    addstr("暂收款");
                    break;
                case 107:
                    addstr("暂付款");
                    break;
                case 108:
                    addstr("应付利息");
                    break;
                case 109:
                    addstr("往来收支");
                    break;
                case 110:
                    addstr("营业收支");
                    break;
               }
move(7,10);
addstr("借方金额: ");
move(7,20);
c=readdv(&x,13);
if(c==10) amound=x;
move(7,20);
addspace(22);
move(7,40);
prt_dnum(amound,13);
move(9,10);
addstr("贷方金额: ");
move(9,20);
c=readdv(&x,13);
if(c==10) amounc=x;
move(9,20);
addspace(22);
move(9,40);
prt_dnum(amounc,13);
move(20,20);
mess(5);
c=y_n('Y','N','N');
move(20,20);
addspace(42);
if(c=='N')
{$close database;
 endwin();
 return;}
if(cu_type[0]=='R')
{
  $ select yest_bala into $t_bala from r_dai where sav_type=$sav;
}
else
{
  $ select yest_bala into $t_bala from f_dai
       where sav_type=$sav and cur_type=$cu_type;
}
t_bala=t_bala+amounc-amound;
$ begin work;
if(cu_type[0]=='R')
{
  $ update r_dai set debi_amoun=$amound,cred_amoun=$amounc,
           today_bala=$t_bala where sav_type=$sav;
}
else
{
  $ update f_dai set debi_amoun=$amound,cred_amoun=$amounc,
           today_bala=$t_bala
       where sav_type=$sav and cur_type=$cu_type;
}
if(sqlca.sqlerrd[2]!=1)
  {
    move(20,20);
    addstr("写总帐文件错");
    printw("(%d), ",sqlca.sqlerrd[2]);
    getch();
    $ rollback work;
   }
$ commit work;
$ close database;
#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/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>
#include </u/ebcsav/include/ac_num>