op_add.ec

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

/*   add_op   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void type_op();
char edit_op();
void addspace();
char y_n();
void mess();
char readch();
char readdv();
char readst();
#include </u/ebcsav/include/begin>
FILE *pf;
struct operator opt;
short i;
$ short opt_num,cred_type,cred_count;
$ char ope_num[2];
char c;
char s[7];
move(0,27);
$ database saving;
printw("增  加  新  的  操  作  员");
pf=fopen("/u/ebcsav/data/sav_op.dat","r+");
i=0;
while(1)
  {
    fread(&opt,17,1,pf);
    if(feof(pf)) break;
    i++;
  }
while(1)
  {
    move(3,10);
    mess(7);
    printw("( ≤%2d , 0 返回)              ",i+1);
    scanw("%d",&opt_num);
    move(20,30);
    if(opt_num<1)
      {
        fclose(pf);
        endwin();
        return;
      }
    if(opt_num>i+1)
      {
        printw("代号太大, ");
        mess(2);
      }
    else if(opt_num<=i)
      {
        fseek(pf,(opt_num-1)*17,0);
        fread(&opt,17,1,pf);
        if(opt.name[0]!='\0')
          {
            printw("该操作员已存在, ");
            mess(2);
          }
        else break;
      }
    else break;
  }
addspace(28);
opt.name[0]='\0';
opt.pass[0]='\0';
opt.num=1;
opt.type=1;
opt.priv=0;
type_op(&opt);
c=edit_op(&opt,opt_num);
if(c=='Y')
  {
    fseek(pf,(opt_num-1)*17,0);
    fwrite(&opt,17,1,pf);
    cred_count=0;
    ope_num[0]=opt_num;
    ope_num[1]='\0';
    for(i=1;i<=20;i++)
      {
        cred_type=i;
        $ insert into cred_count
          values
          ($ope_num,$cred_type,$cred_count);
        if(sqlca.sqlcode!=0)
          {
            move(20,22);
            addstr("写");
            mess(10);
            printw("(%d), ",sqlca.sqlcode);
            mess(3);
            getch();
            return;
          }
      }
  }
fclose(pf);

#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/type_op>
#include </u/ebcsav/include/edit_op>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/y_n>
#include </u/ebcsav/include/readch>
#include </u/ebcsav/include/readdv>
#include </u/ebcsav/include/readst>