cred_type.c

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

/*   type_cred   */
#include </u/ebcsav/include/sav.h>
void mess();
char y_n();
void addspace();
char readst();
#include </u/ebcsav/include/begin>
FILE *pf;
short i,j,k;
long base;
char c;
char st[20][21],stg[34];
move(0,17);
printw("凭  证  类  型  编  号  与  名  称  对  照  表");
pf=fopen("/u/ebcsav/data/sav_type.dat","r");
move(23,14);
standout();
mess(1);
standend();
for(i=0;i<20;i++)
  {
    fread(st[i],20,1,pf);
    st[i][20]='\0';
    move(2+i,17);
    printw("%2d                        %-20s",i+1,st[i]);
  }
fclose(pf);
i=0;
while(1)
  {
    move(i+2,21);
    c=readst(stg,20);
    if(c==10)
      {
        for(j=0;j<strlen(stg);j++) if(isspace(stg[j])==0) break;
        for(k=j;k<=strlen(stg);k++) st[i][k-j]=stg[k];
      }
    move(i+2,21);
    printw("                      %-20s",st[i]);
    if(c==10||c==13||c==25||c==5)
      {
        if(i<19&&c!=5) i++;
        else
          {
            move(23,14);
            addspace(48);
            move(23,16);
            mess(5);
            c=y_n('Y','N','C');
            if(c=='C')
              {
                move(23,14);
                standout();
                mess(1);
                standend();
                i=0;
              }
            else break;
          }
      }
    else if(c==24&&i>0) i--;
    else if(c==4)
      {
        c='N';
        break;
      }
  }
if(c=='Y')
  {
    pf=fopen("/u/ebcsav/data/sav_type.dat","w");
    for(i=0;i<20;i++) fwrite(st[i],20,1,pf);
    fclose(pf);
    move(2,0);
    clrtobot();
    block(1,0,22,80);
    strcpy(stg,"rm /u/ebcsav/data/acc_num01.dat");
    for(i=0;i<20;i++)
      {
        stg[25]=(i+1)/10+48;
        stg[26]=((i+1)%10)+48;
        if(st[i][0]=='\0')
          {
            if(access(&stg[3],0)==0) system(stg);
          }
        else if((access(&stg[3],0))==-1)
          {
            pf=fopen(&stg[3],"w");
            move(2+i,4);
            addstr("请输入");
            addstr(st[i]);
            addstr("编号基值:   ");
            scanw("%d",&base);
            fwrite(&base,4,1,pf);
            j=1000;
            fwrite(&j,2,1,pf);
            for(j=0;j<1000;j++) fwrite(&j,2,1,pf);
            fclose(pf);
          }
      }
  }

#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/readst>