op_delete.ec

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

/*   delete_op   */
#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void type_op();
void addspace();
char y_n();
void mess();
#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;
move(0,31);
$ database saving;
printw("删  除  操  作  员");
pf=fopen("/u/ebcsav/data/sav_op.dat","r+");
while(1)
  {
    move(4,10);
    mess(7);
    printw("( 0 返回)            ");
    scanw("%d",&opt_num);
    move(20,30);
    if(opt_num<1)
      {
        fclose(pf);
        endwin();
        return;
      }
    else if(opt_num==1)
      {
        printw("不允许删除管理员, ");
        mess(2);
        continue;
      }
    fseek(pf,(opt_num-1)*17,0);
    fread(&opt,17,1,pf);
    if(feof(pf)||opt.name[0]=='\0')
      {
        mess(8);
        mess(2);
      }
    else
      {
        ope_num[0]=opt_num;
        ope_num[1]='\0';
        for(i=1;i<=20;i++)
          {
            cred_type=i;
            $ select cre_count into $cred_count from cred_count
              where op_num=$ope_num and cre_type=$cred_type;
            if(sqlca.sqlcode!=0)
              {
                move(21,20);
                addstr("读");
                mess(10);
                printw("(%d),",sqlca.sqlcode);
                mess(3);
                getch();
                endwin();
                return;
              }
            if(cred_count!=0)
              {
                move(20,20);
                printw("还有未收回的凭证, 不能删除, ");
                mess(3);
                getch();
                return;
              }
          }
        break;
      }
  }
addspace(28);
type_op(&opt);
move(21,20);
printw("是否删除 (Y/N)? ");
c=y_n('Y','N','N');
if(c=='Y')
  {
    opt.name[0]='\0';
    fseek(pf,(opt_num-1)*17,0);
    fwrite(&opt,17,1,pf);
    for(i=1;i<=20;i++)
      {
        cred_type=i;
        $ delete from cred_count
          where op_num=$ope_num and cre_type=$cred_type;
          if(sqlca.sqlcode!=0)
            {
              move(21,20);
              addstr("删除");
              mess(10);
              printw("(%d),",sqlca.sqlcode);
              mess(4);
              getch();
            }
      }
  }
fclose(pf);

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