op_change.c

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

/*   change_op   */
#include </u/ebcsav/include/sav.h>
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 opt_num,i;
char c;
char s[7];
move(0,25);
printw("修  改  操  作  员  的  信  息");
pf=fopen("/u/ebcsav/data/sav_op.dat","r+");
while(1)
  {
    move(4,10);
    mess(7);
    printw("( 0 返回)            ");
    scanw("%d",&opt_num);
    if(opt_num<1)
      {
        fclose(pf);
        endwin();
        return;
      }
    fseek(pf,(opt_num-1)*17,0);
    fread(&opt,17,1,pf);
    move(20,30);
    if(feof(pf)||opt.name[0]=='\0')
      {
        mess(8);
        mess(2);
      }
    else break;
  }
addspace(28);
type_op(&opt);
c=edit_op(&opt,opt_num);
if(c=='Y')
  {
    fseek(pf,(opt_num-1)*17,0);
    fwrite(&opt,17,1,pf);
  }
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>