data_copy.ec

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

#include </u/ebcsav/include/sav.h>
$include sqlca;
$include sqlda;
void mess();
void addspace();
short menu();
short menusel();
#include </u/ebcsav/include/begin>
FILE *pf;
short num_c1,num_c2,dv0,dv;
char c;
char s[38];
static char *title[3]={"0. 退      出  ","1.  数据转出   ","2.  外设选择    "};
static char *remind[3]={"  退出本程序  ",
  "  将数据写入磁带或软盘转给事后监督  ","  选择数据转出所使用的驱动器  "};
static short menu_row[3]={3,3,3},menu_col[3]={10,25,40};
static char *title1[9]={"0:0号盘 360K","1:1号盘 360K","2:0号盘 1.2M",
  "3:1号盘 1.2M","4:0号盘 720K","5:1号盘 720K","6:0号盘1.44M",
  "7:1号盘1.44M","8:  磁  带  "};
static char *remind1[9]={"  存取数据使用 5英寸 360KB 可引导软盘驱动器 ",
  "  存取数据使用 5英寸 360KB 非引导软盘驱动器  ",
  "  存取数据使用 5英寸 1.2MB 可引导软盘驱动器  ",
  "  存取数据使用 5英寸 1.2MB 非引导软盘驱动器  ",
  "  存取数据使用 3英寸 720KB 可引导软盘驱动器  ",
  "  存取数据使用 3英寸 720KB 非引导软盘驱动器  ",
  "  存取数据使用 3英寸 1.44MB 可引导软盘驱动器 ",
  "  存取数据使用 3英寸 1.44MB 非引导软盘驱动器  ",
  "  存取数据使用磁带驱动器  "};
static short menu_row1[9]={6,7,8,9,10,11,12,13,14},
  menu_col1[9]={55,55,55,55,55,55,55,55,55};
move(0,23);
printw("数  据  写  入  软  盘  或  磁  带");
if((pf=fopen("/u/ebcsav/data/dv_setup","r"))==NULL)
  {
    pf=fopen("/u/ebcsav/data/dv_setup","w");
    dv0=68;
    fwrite(&dv0,2,1,pf);
  }
else fread(&dv0,2,1,pf);
fclose(pf);
dv=dv0/10;
num_c1=num_c2=0;
while(1)
  {
    move(2,0);
    clrtobot();
    block(1,0,22,80);
    block(2,3,3,60);
    num_c1=menu(title,remind,menu_row,menu_col,2,num_c1);
    num_c1=menusel(title,remind,menu_row,menu_col,2,num_c1,0);
    switch(num_c1)
      {
        case 0:
          endwin();
          return;
        case 1:
          system("rm /u/ebcsav/tmp/*");
          if((system("isql -s saving -qr /u/ebcsav/include/copy.sql"))==0)
           {
            clear();
            move(7,27);
            addstr("数据库信息转入文件成功.");
           }
          else
            {
              clear();
              move(7,27);
              addstr("数据库信息转入文件失败, ");
              mess((short)3);
              getch();
              break;
            } 
          strcpy(s,"tar c8 tmp");
          s[5]=dv+48;
          move(9,10);
          printw("请将介质(%s)插入指定的驱动器, ",title1[dv]+2);
          mess((short)4);
          move(10,10);
          printw("注意: 介质上原有的信息将被清除!");
          getch();
          move(11,10);
          printw("正在拷盘,请稍等...");
          refresh();
          move(12,10);
          if((system(s))==0) addstr("文件写入介质成功. ");
          else addstr("文件写入介质失败! ");
          mess((short)3);
          getch();
          break;
        case 2:
          block(5,53,11,16);
          num_c2=menu(title1,remind1,menu_row1,menu_col1,8,dv);
          num_c2=menusel(title1,remind1,menu_row1,menu_col1,8,num_c2,0);
          pf=fopen("/u/ebcsav/data/dv_setup","w");
          dv=num_c2;
          dv0=(dv0%10)+(num_c2*10);
          fwrite(&dv0,2,1,pf);
          fclose(pf);
      }
  }

#include </u/ebcsav/include/end>
#include </u/ebcsav/include/mess>
#include </u/ebcsav/include/addspace>
#include </u/ebcsav/include/menu>
#include </u/ebcsav/include/menusel>