/******头文件（.h）***********/
#include "stdio.h"    /*I/O函数*/
# include "bios.h"  /*ROM基本输入输出函数*/
#include "dos.h"    /*dos接口函数*/
#include "conio.h"   /*屏幕操作函数*/
#include "stdlib.h"   /*其它说明*/
#include "string.h"  /*字符串函数*/
#include "mem.h"  /*内存操作函数*/
#include "ctype.h" /*字符操作函数*/
#include "alloc.h"  /*动态地址分配函数*/
/****变量定义*******/
typedef struct z1    /*定义数据结构*/
{
   char no[11];     /*编号*/
   char name[15];  /*姓名*/
   float jbgz;     /*基本工资*/
   float koukuan; /*扣款*/
   float yfgz;  /*应发工资*/
   float shuijin;  /*税金*/
   float sfgz;   /*实发工资*/
   struct z1 *prior;/*前驱指针*/
   struct z1 *next;/*后继指针*/
}SALARY;     /*结构体类型名*/
struct z1 *First;   /*双链表头指针*/
struct z1 *Last;   /*双链表尾指针*/
/******函数原型*********/
void init();    /*初始化*/
void create();  /*创建链表*/
void calc();   /*计算应发工资*/
void delete(); /*删除*/
void search(); /*查找*/
void save();  /*保存文件*/
void load();  /*读取文件*/
void computer(); /*计算所需各种票面张数*/
void insert();  /*插入*/
void append(); /*追加*/
void copy(); /*复制文件*/
void sort();  /*排序*/
void index();  /*索引*/
void total();  /*分类合计*/
void list(); /*显示所有数据*/
void print(SALARY *p);  /*输出单条记录*/
void display();  /*随意逐条显示*/
float fax(float x);  /*计算税金*/
int menu_select();  /*主菜单*/
/*******主函数开始**********/
main()
{
   int i;
   clrscr();
   for(;;)
   {
      switch(menu_select())   /*调用菜单函数返回一个整数值*/
      {
         case 0:init();break;    /*初始化*/
         case 1:create();break; /*输入数据创建双链表*/
         case 2:list();break;  /*显示所有数据*/
         case 3:display();break;  /*单条显示*/
         case 4:calc();break;  /*计算实发工资*/
         case 5:search();break;  /*查找职工信息数据*/
         case 6:delete();break;  /*删除记录*/
         case 7:insert();break;  /*插入记录*/
         case 8:append();break;  /*追加记录*/
         case 9:save();break;  /*保存文件*/
         case 10:load(); break;  /*读取文件*/
         case 11:copy();break;  /*复制文件*/
         case 12:sort();break;  /*按实发工资升序排序*/
         case 13:computer();break; /*计算所需票面数*/
         case 14:index();break;  /*按职工号索引*/
         case 15:total();break;  /*按部门求合计*/
         case 16:exit(0);    /*退出*/
      }
   }
}
/*菜单函数，函数返回值为整型，代表所选的菜单项*/
menu_select()
{
   char *f[]= {     /*定义菜单字符串数组*/
   "**************MENU*************", /*菜单的标题行*/
   " 0. init list", /*初始化双链表*/
   " 1. Enter list", /*输入数据，创建双链表*/
   " 2. List all \n",  /*显示所有记录*/
   " 3. Display record by step", /*显示单条记录*/
   " 4. Calc the salary", /*计算实发工资*/
   " 5. Search record on name", /*查找记录*/
   " 6. Delete a record", /*删除记录*/
   " 7. Insert record to list", /*插入记录*/
   " 8. Append  record to file", /*追加记录*/
   " 9. Save data to the file",  /*保存文件*/
   " 10. Load data from the file",/*读取文件*/
   " 11. Copy the file to new file", /*复制文件*/
   " 12. Sort on sfgz",  /*排序*/
   " 13. Computer ticket number", /*计算所需票面数*/
   " 14. Index on number",  /*索引*/
   " 15. Total on number",  /*分类合计*/
   " 16. Quit" };  /*退出*/
   char s[80];
   int  i;
   int key=0; /*记录所压键值*/
   int c=0;
   gotoxy(1,25); /*移动光标*/
   printf("press any key enter menu......\n");/*压任意键进入主菜单*/
   getch();
   clrscr();  /*清屏*/
   textcolor(YELLOW); /*设置文本颜色为黄色*/
   textbackground(BLUE);  /*设置背景颜色为兰色*/
   gotoxy(10,2);
   putch(0xda); /*输出左上角边框┏*/
   for(i=1;i<44;i++)
   putch(0xc4); /*输出上边框水平线*/
   putch(0xbf);  /*输出右上角边框  ┓*/
   for(i=3;i<22;i++)/*输出左右两边的垂直线*/
   {
      gotoxy(10,i);putch(0xb3);
      gotoxy(54,i);putch(0xb3);
   }
   gotoxy(10,22);putch(0xc0); /*输出左上角边框┗*/
   for(i=1;i<44;i++)
      putch(0xc4);  /*输出下边框水平线*/
   putch(0xd9);  /*输出右下角边框┛*/
   window(11,3,53,21); /* 制作显示菜单的窗口，大小根据菜单条数设计*/
   clrscr();   /*清屏*/
   for(i=0;i<18;i++)
   {
      gotoxy(10,i+1);
      cprintf("%s",f[i]); /*输出菜单项数组*/
   }
   i=1;
   gotoxy(10,2);  /*设置默认选项在第一项*/
   textbackground(LIGHTGREEN);/*设置背景颜色为浅绿*/
   cprintf("%s",f[1]);  /*输出菜单项，表示选中*/
   gotoxy(10,2);  /*移动光标到菜单的第一项*/
   while(key!=13)   /*所压键不是回车键时*/
   {
      while(bioskey(1)==0);  /*查询是否压下了一个键*/
      key=bioskey(0);   /*返回下一个在键盘压下的键*/
      key=key&0xff?key&0xff:key>>8; /*对所压的键进行判断*/
      gotoxy(10,i+1);
      textbackground(BLUE);/*设置背景颜色为蓝色*/
      cprintf("%s",f[i]);  /*输出菜单项*/
      if(key==72) i=i==1?17:i-1; /*如压向上光标键↑，i减1，如已到第一行再上移，则到最后一行*/
      if(key==80)i=i==17?1:i+1; /*如压向下光标键↓，i加1，如已到最后一行再下移，则到第一行*/
      gotoxy(10,i+1); /*光标移动i的下一项*/
      textbackground(LIGHTGREEN); /*将背景颜色设为浅绿*/
      cprintf("%s",f[i]);  /*输出菜单项*/
      c=i-1;  /*给代表菜单选项的整数赋值*/
   }
   textbackground(BLACK);  /*设置背景颜色为黑色*/
   window(1,1,80,25);  /*恢复原窗口大小*/
   return c;  /*返回代表菜单选项的整数值*/
}
/*初始化函数*/
void init()
{
   First=NULL;
   Last=NULL;
}
/*输入数据，创建双链表*/
void create()
{
   int x; /*记录行坐标*/
   int i; /*记录输入记录数*/
   int flag=0; /*做结束标记*/
   float temp;   /*定义临时变量*/
   SALARY *info,*p; /*定义临时变量*/
   if(First!=NULL)
   init();/*如果头指针为空，调用初始化函数*/
   p=First; /*从头指针开始*/
   for(;;)
   {
      if(flag==1)
         break; /*如果flag=1，结束输入*/
      i=0;
      x=0;   /*确定移动的行坐标*/
      clrscr(); /*清屏*/
      gotoxy(1,3);
      printf("*************gongziguanli*************");/*输出标题*/
      gotoxy(1,4);
      printf("                      --Enter @ end--");/*提示输入@结束*/
      gotoxy(1,5);
      printf("|------------------------------------|");/*输出表格的起始线*/
      gotoxy(1,6);
      printf("|    no    |      name      |  jbgz  |");/*输出字段标题，注意空格数*/
      for(;;)
      {
         gotoxy(1,7+x);
         printf("|----------|----------------|--------|");/*输出表格的水平线*/
         info=(SALARY *)malloc(sizeof(SALARY));/*申请一个记录空间*/
         if(!info)
         {
            printf("\nout of memory");/*如没有得到空间，输出内存溢出信息*/
            exit(0);/*退出程序*/
         }
         info->next=NULL;/*新结点的后继为空*/
         info->prior=NULL;/*新结点的前驱为空*/
         gotoxy(1,8+x);printf("|"); /*输出数据间的分割线*/
         gotoxy(12,8+x);printf("|");
         gotoxy(29,8+x);printf("|");
         gotoxy(38,8+x);printf("|");
         gotoxy(2,8+x);/*光标到输入编号位置*/
         inputs(info->no,10);/*输入编号，并验证长度不超过10*/
         if(info->no[0]=='@')
         {
            flag=1;
            break;
         } /*编号首字符为@结束输入*/
         gotoxy(13,8+x);  /*光标到输入姓名位置*/
         inputs(info->name,14); /*输入姓名，并验证长度不超过14*/
         gotoxy(30,8+x); /*光标到输入基本工资位置*/
         scanf("%f",&temp); /*输入基本工资到临时变量*/
         info->jbgz=temp; /*基本工资赋值*/
         info->koukuan=0; /*初始扣款为0，待计算工资时输入*/
         info->sfgz=0; /*初始实发工资为0，待计算工资时计算*/
         info->shuijin=0; /*初始税金为0，待计算工资时计算*/
         info->yfgz=0; /*初始应发工资为0，待计算工资时计算*/
         if(p==NULL)/*如果p为空，说明输入的是第一个结点*/
         {
            First=Last=info;/*头指针和尾指针*/
            First->prior=NULL; /*头指针的前驱是空*/
            Last->next=NULL; /*尾指针的后继是空*/
         }
         else /*插入的结点不是第一结点，则插入在头结点之前*/
         {
            info->next=p;/*新结点的后继指向原来的头结点*/
            info->prior=p->prior;/*新结点的前驱指向原来的头结点的前驱*/
            p->prior=info;/*原来结点的前驱指向新结点*/
         }
         p=info;  /*新结点变为p结点，暂时的头结点*/
         First=info; /*新结点变为头结点*/
         x+=2;   /*因为水平线，将光标下移两行*/
         gotoxy(1,8+x);
         i++;   /*输入记录数加1*/
         if(i%9==0)
            break; /*输入9个记录，换一页输入*/
      }
      gotoxy(1,8+x);
   }
   printf("|----------|----------------|--------|");/*输出结尾水平线*/
}
/*字符串输入和验证函数*/
inputs(char *s, int count)
{
   char p[255];
   do{
      scanf("%s",p);/*输入字符串*/
      if(strlen(p)>count)printf("\n too long! \n");/*进行长度校验，超过count值重输入*/
   }while(strlen(p)>count);
   strcpy(s,p); /*将输入的字符串拷贝到字符串s中*/
}
/*显示链表*/
void list()
{
   int i=0,n;  /*记录输出行数*/
   SALARY *p; /*定义移动指针*/
   clrscr();  /*清屏*/
   p=First;  /*从头指针开始*/
   while(i%10==0&&p!=NULL)  /*外循环控制换页*/
   {
      i=0;       /*记录一页的输出行数*/
      clrscr();   /*清屏*/
      printf("\n\n\n"); /*换行三次*/
      printf("*************************************SALARY***********************************\n");   /*输出大标题*/
      printf("|nO        |      name     |   jbgz  | koukuan |   yfgz  | shuijin |   sfgz  |\n");  /*输出字段标题*/
      printf("|----------|---------------|---------|---------|---------|---------|---------|\n");  /*输出水平线*/
      while(p!=NULL)  /*当p不为空时*/
      {
         printf("|%-10s|%-15s|%9.2f|%9.2f|%9.2f|%9.2f|%9.2f|\n",
         p->no,p->name,p->jbgz,p->koukuan,p->yfgz,p->shuijin,p->sfgz);
         p=p->next;  /*指针后移*/
         i++;   /*输出行数加1 */
         if(i%10==0)
            break;  /*如果满10行，跳出内循环*/
      }
      printf("****************************************end***********************************\n");  /*输出本页的结束行*/
      printf("Press any key congtinue...\n");
      getch(); /*输出一页暂停一下，压任意键继续*/
   }  /*返回到外循环，准备下一页的输出*/
}
/*单条显示记录*/
void display()
{
   int ch;   /*菜单选项字符*/
   SALARY *p;  /*定义临时指针*/
   clrscr();  /*清屏*/
   p=First;  /*从头指针开始*/
   if(p==NULL)  /*指针为空，即链表为空，返回主函数*/
   {
      printf("record is empty!\n");
      return;
   }
   else
   {
      print(p);   /*调用输出函数显示头结点信息*/
      for(;;)  /*循环开始*/
      {
         printf("\n\n0. Quit 1. Prior      2.  Next      3.  First        4.Last \n\n");
/*菜单项Quit退出 Prior前驱 Next后继  First第一条 Last最后一条*/
         printf("\nplease select 0~4:"); /*提示输入菜单选项0~4*/
         scanf("%d",&ch); /*输入菜单选项0~4*/
         if(ch==0) break;  /*如果选项为0，退出*/
         switch(ch)   /*开关语句根据选项字符判断*/
         {
            case 1:p=p->prior;if(p==NULL)p=First;break;  /*指向前驱，没有前驱指向第一个*/
            case 2:p=p->next;if(p==NULL) p=Last;break; /*指向后继，没有后继指向最后一个*/
            case 3:p=First;break;  /*指向第一个结点*/
            case 4:p=Last;break; /*指向最后一个结点*/
         }
         print(p);  /*调用输出函数显示指针所指结点信息*/
      }
   }
}
/*输出指针所指结点信息*/
void print(SALARY *p)
{
   if(p)   /*如果指针不为空，则显示信息*/
   {
      clrscr();  /*清屏*/
      printf("\n\n\n");  /*换行*/
      printf("************************************SALARY************************************\n");  /*输出标题信息*/
      printf("|no        |      name     |   jbgz  | koukuan|   yfgz  | shuijin |   sfgz   |\n"); /*输出字段标题*/
      printf("|----------|---------------|---------|---------|---------|---------|---------|\n"); /*输出分割线*/
      printf("|%-10s|%-15s|%9.2f|%9.2f|%9.2f|%9.2f|%9.2f|\n", p->no,p->name,
      p->jbgz,p->koukuan,p->yfgz,p->shuijin,p->sfgz);/*输出结点信息*/
      printf("***************************************end***************************** *******\n");  /*输出结束标记*/
   }
}
/*计算实发工资*/
void calc()
{
   int x; /*行坐标*/
   int i=0; /*记录数*/
   float temp; /*临时变量扣款*/
   SALARY *p;  /*移动指针*/
   clrscr();   /*清屏*/
   p=First;  /*从头指针开始*/
   while(p!=NULL)  /*当p不为空时，也就是有记录时，外循环控制换页*/
   {
      x=0;
      clrscr();
      gotoxy(1,3);
      printf("***************************gongziguanli************************************");   /*输出标题*/
      gotoxy(1,5);
      printf("|--------------------------------------------------------------------------|");
      gotoxy(1,6);/*下面输出字段标题*/
      printf("|    no    |      name      |  jbgz  |  koukuan |  yfgz  |shuijin |  sfgz  |");
      while(p!=NULL) /*当p不为空时，也就是有记录时，内循环控制处理9条*/
      {
         gotoxy(1,7+x);
         printf("|----------|----------------|--------|----------|--------|--------|--------|");
         gotoxy(1,8+x);printf("|");
         gotoxy(12,8+x);printf("|");
         gotoxy(29,8+x);printf("|");
         gotoxy(38,8+x);printf("|");
         gotoxy(49,8+x);printf("|");
         gotoxy(58,8+x);printf("|");
         gotoxy(67,8+x);printf("|");
         gotoxy(76,8+x);printf("|");
         gotoxy(2,8+x);
         printf("%-10s",p->no); /*输出编号*/
         gotoxy(13,8+x);
         printf("%-15s",p->name); /*输出姓名*/
         gotoxy(30,8+x);
         printf("%.2f",p->jbgz);  /*输出基本工资*/
         gotoxy(39,8+x);
         scanf("%f",&temp);  /*输入扣款*/
         p->koukuan=temp; /*扣款字段赋值*/
         p->yfgz=p->jbgz-p->koukuan; /*计算应发工资=基本工资-扣款*/
         gotoxy(50,8+x);
         printf("%.2f",p->yfgz);  /*输出应发工资*/
         gotoxy(59,8+x);
         p->shuijin=(p->yfgz-1000)*fax(p->yfgz); /*否则按税率计算税金*/
         printf("%.2f",p->shuijin);  /*输出税金*/
         gotoxy(68,8+x);
         p->sfgz=p->yfgz-p->shuijin;  /*计算实发工资*/
         printf("%-8.2f",p->sfgz);  /*输出实发工资*/
         x+=2;   /*行坐标下移两行*/
         i++;   /*记录数加1*/
         if(i%9==0)break;  /*记录数超过9条，跳出内循环*/
         p=p->next;   /*指针后移，处理下一条*/
      }
      gotoxy(1,7+x);
      printf("|----------|----------------|--------|----------|--------|--------|--------|\n"); /*输出结束行*/
      printf("Press any key congtinue...\n");
      getch();
   }
}
/*根据应发工资，计算税率*/
float fax(float x)
{
   float f1;
   if(x<1000)
      return 0;   /*小于1000，返回0*/
   switch((int)(x/1000))
   {
      case 1:f1=0.05;break; /*1000~1999，返回0.05*/
      case 2:f1=0.1;break; /*2000~2999，返回0.1*/
      case 3:f1=0.15;break; /*3000~3999，返回0.15*/
      case 4:f1=0.2;break; /*4000~4999，返回0.2*/
      default:f1=0.3;break; /*5000以上，返回0.3*/
   }
   return f1;
}
/*计算票面张数*/
void computer()
{
   SALARY *p;
   int i=0,a[7]={0},t100,t50,t20,t10,t5,t2,t1;/*设置数组和临时变量保存票面张数*/
   float t;   /*过渡变量，保存当前剩余工资*/
   p=First;  /*移动指针从头指针开始*/
   while(p!=NULL)  /*当p不为空时*/
   {
      t100=(int)p->sfgz/100;  /*计算100元张数*/
      a[0]=a[0]+t100;   /*累加保存*/
      t=p->sfgz-t100*100; /*剩余工资*/
      t50=(int)(t/50); /*计算50元张数*/
      a[1]=a[1]+t50; /*累加保存*/
      t=t-t50*50; /*剩余工资*/
      t20=(int)(t/20);   /*计算20元张数*/
      a[2]=a[2]+t20; /*累加保存*/
      t=t-t20*20; /*剩余工资*/
      t10=(int)(t/10); /*计算10元张数*/
      a[3]=a[3]+t10; /*累加保存*/
      t=t-t10*10; /*剩余工资*/
      t5=(int)(t/5); /*计算5元张数*/
      a[4]=a[4]+t5; /*累加保存*/
      t=t-t5*5; /*剩余工资*/
      t2=(int)(t/2); /*计算2元张数*/
      a[5]=a[5]+t2; /*累加保存*/
      t=t-t2*2; /*剩余工资*/
      t1=(int)(t); /*计算1元张数*/
      a[6]=a[6]+t1; /*累加保存*/
      p=p->next;  /*指针后移，处理下一条记录*/
   }
   clrscr();  /*清屏*/
   printf("\n\n\n***********ticket number***************\n"); /*输出标题*/
   printf("--100-----50------20-----10-----5------2------1------\n");
     /*输出张数标题*/
   for(i=0;i<7;i++)
      printf("%5d  ",a[i]);/*输出所需的张数*/
   printf("\n");/*换行*/
}
/*按编号查找记录*/
SALARY *find(char *no)
{
   SALARY *p; /*定义移动指针*/
   p=First;  /*从头指针开始*/
   while(p) /*当p不为空时*/
   {
      if(!strcmp(no,p->no))
         return p; /*比较相等，查找成功，返回指针*/
      p=p->next; /*不相等指针后移*/
   }
   printf("not found\n");  /*没有找到*/
   return NULL; /*返回为空指针*/
}
/*删除结点*/
void delete()
{
   SALARY *p; /*定义临时变量，p指向要删除的结点p*/
   char s[11]; /*要删除结点的编号*/
   clrscr();  /*清屏*/
   printf("please deleted no\n"); /*提示输入信息*/
   scanf("%s",s);   /*输入要删除的职工编号*/
   if((p=find(s))!=NULL) /*调用查找函数，如果找到做下面的处理*/
   {
      if(First==p)    /*如果是第一个结点*/
      {
         First=p->next;  /*将头指针指向其后继结点*/
         if(First)    /*如头指针不为空*/
            First->prior=NULL;  /*将头结点的前驱设为空*/
         else
            Last=NULL;   /*否则头为空，尾也为空*/
      }
      else   /*删除的不是第一个结点*/
      {
         p->prior->next=p->next;  /*p的前驱的后继指向p原来的后继*/
         if(p!=Last)   /*如果p不是最后个结点*/
            p->next->prior=p->prior;  /*p后继的前驱指向p原来的前驱*/
         else
            Last=p->prior;/*如p是最后一个结点，修改尾指针为p的前驱*/
      }
      free(p);  /*删除结点后，不要忘记释放空间*/
      printf("\n have deleted %s SALARY\n",s);
      printf("Don't forget save\n");
   }
}
/*按姓名查找结点*/
void search()
{
   SALARY *p;  /*移动指针*/
   char s[15];  /*保存姓名*/
   clrscr(); /*清屏*/
   printf("please enter name for search\n"); /*提示输入*/
   scanf("%s",s);  /*输入要查找人的姓名*/
   p=First;  /*移动指针从头指针开始*/
   while(strcmp(p->name,s)&&p!=NULL) /*做比较判断*/
      p=p->next;   /*没找到，指针后移继续查找*/
   if(p==NULL)  /*指针为空，说明没有找到*/
      printf("\nlist no %s SALARY\n",s); /*显示没找到信息*/
   else
   {
      printf("\n\n"); /*换行*/
      print(p);  /*查找成功，调用输出函数输出指针p所指记录*/
   }
}
/*插入结点*/
void insert()
{
   SALARY *p,*info; /* info为新结点，p为新结点的后继*/
   char s[11];  /*保存查找的姓名*/
   float temp; /*临时变量*/
   clrscr(); /*清屏*/
   printf("please enter location  before the no\n"); /*提示输入在哪个结点之前插入*/
   scanf("%s",s);  /*输入指定结点的编号*/
   printf("\nplease new record\n");  /*提示输入记录*/
   clrscr();/*清屏*/
   gotoxy(1,3); /*定位光标，按表格形式输入新结点信息*/
   printf("**************gongziguanli************");
   gotoxy(1,5);
   printf("|------------------------------------|");
   gotoxy(1,6);
   printf("|    no    |      name      |  jbgz  | ");
   gotoxy(1,7);
   printf("|----------|----------------|--------|");
   info=(SALARY *)malloc(sizeof(SALARY)); /*申请空间*/
   if(!info)
   {
      printf("\nout of memory"); /*如没有得到空间，内存溢出*/
      exit(0);  /*退出程序*/
   }
   info->next=NULL;  /*新结点的后继为空*/
   info->prior=NULL; /*新结点的前驱为空*/
   gotoxy(1,8);printf("|");
   gotoxy(12,8);printf("|");
   gotoxy(29,8);printf("|");
   gotoxy(38,8);printf("|");
   gotoxy(2,8);
   inputs(info->no,10);  /*输入新结点的编号，并校验*/
   gotoxy(13,8);
   inputs(info->name,14); /*输入新结点的姓名，并校验*/
   gotoxy(30,8);
   scanf("%f",&temp);   /*输入基本工资*/
   info->jbgz=temp;  /*给基本工资字段赋值*/
   info->koukuan=0; /*扣款初始为0*/
   info->yfgz=0;  /*应发工资初始为0*/
   info->shuijin=0; /*税金初始为0*/
   info->sfgz=0; /*实发工资初始为0*/
   printf("|----------|----------------|--------|");
   p=First;  /*移动指针从头指针开始*/
   while(strcmp(p->no,s)&&p!=NULL) /*查找结点确定插入位置*/
      p=p->next;  /*指针后移，继续查找*/
   if(p==NULL)  /*如p为空*/
      if(p==First) /*如p为头指针，说明链表为空*/
      {
         First=info;  /*新结点为头指针*/
         First->prior=NULL; /*头结点的前驱为空*/
         Last=First;  /*唯一结点，尾指针等于头指针*/
      }
      else  /*新结点插在尾部*/
      {
         Last->next=info;
         info->prior=Last;
         Last=info;  /*尾指针指向新结点*/
      }
   else
      if(p==First)  /*p不为空，但p为头指针，新结点插在第一个结点位置*/
      {
         info->prior=NULL; /*新结点的前驱为空*/
         info->next=p; /*新结点的后继为p*/
         p->prior=info; /*p的前驱是新结点*/
         First=info; /*修改头指针指向新结点*/
      }
      else /*新结点插入在中间某一个位置p之前*/
      {
         info->next=p; /*新结点的后继是p*/
         info->prior= p->prior; /*新结点的前驱是p的前驱*/
         p->prior->next=info; /*p的前驱的后继是新结点*/
         p->prior=info; /*p的前驱是新结点*/
      }
   printf("\n\n\n ----have inserted %s SALARY----\n",info->name);
   printf("\n---Don't forget save---\n"); /*提醒调用保存文件存盘*/
}
/*保存文件*/
void save()
{
   FILE *fp;  /*定义指向文件的指针*/
   SALARY *p; /*定义移动指针*/
   char outfile[10]; /*保存输出文件名*/
   clrscr();/*清屏*/
   printf("Enter outfile name,for example c:\\f1\\te.txt:\n");/*提示输入文件名格式信息*/
   scanf("%s",outfile);
   if((fp=fopen(outfile,"wb"))==NULL) /*为输出打开一个二进制文件*/
   {
      printf("can not open file\n");
      return; /*返回*/
   }
   printf("\nSaving file......\n");
   p=First; /*移动指针从头指针开始*/
   while(p!=NULL) /*如p不为空*/
   {
      fwrite(p,sizeof(SALARY),1,fp); /*写入一条记录*/
      p=p->next;  /*指针后移，处理下一条记录*/
   }
   fclose(fp); /*关闭文件*/
   printf("-----save success!!-----\n");/*显示保存成功*/
}
/*读文件*/
void load()
{
   SALARY *p,*q=NULL; /*定义记录指针变量*/
   FILE *fp; /* 定义指向文件的指针*/
   char infile[10]; /*保存文件名*/
   clrscr();/*清屏*/
   printf("Enter infile name,for example c:\\f1\\te.txt:\n");/*输入文件名格式*/
   scanf("%s",infile); /*输入文件名*/
   if((fp=fopen(infile,"rb"))==NULL) /*打开一个二进制文件，为读方式*/
   {
      printf("can not open file\n"); /*如不能打开，则结束程序*/
      return; /*返回*/
   }
   while(First) /*当表不为空时，清空链表*/
   {
      p=First; /*从头指针开始*/
      First=First->next; /*删除头结点*/
      free(p); /*释放空间*/
   }
   printf("\n -----Loading file!-----\n"); /*显示正在读文件*/
   First=(SALARY *)malloc(sizeof(SALARY)); /*为头指针申请空间*/
   if(!First) /*如果没有得到空间 显示内存溢出*/
   {
      printf("out of memory!\n");
      return;  /*返回*/
   }
   p=First; /*将头指针赋值给p*/
   while(!feof(fp)) /*当文件不空时*/
   {
      if(1!=fread(p,sizeof(SALARY),1,fp))break; /*将记录读到p所指的结点*/
      p->next=(SALARY *)malloc(sizeof(SALARY));/*为p的后继申请空间*/
      if(!p->next)  /*如果没有得到空间显示内存溢出*/
      {
         printf("out of memory!\n");
         return; /*返回*/
      }
      p->prior=q; /*得到空间，则链接指针关系p的前驱为q*/
      q=p;  /*保存p做为新的p结点的前驱*/
      p=p->next;  /*p指针后移*/
   }
   q->next=NULL; /*q的后继为空*/
   Last=q;  /*尾指针为q*/
   First->prior=NULL; /*头指针的前驱为空*/
   fclose(fp); /*关闭文件*/
   printf("---You have success read data from file!!!---\n"); /*显示成功读入记录*/
}
/*追加记录*/
void append()
{
   FILE *fp;   /*定义指向文件的指针*/
   SALARY *info; /*指向追加信息的指针*/
   char infile[10]; /*保存文件名*/
   float temp; /*临时变量*/
   clrscr(); /*清屏*/
   gotoxy(1,3);
   printf("**************gongziguanli************");
   gotoxy(1,5);
   printf("|------------------------------------|");
   gotoxy(1,6);
   printf("|    no    |      name      |  jbgz  | ");
   gotoxy(1,7);
   printf("|----------|----------------|--------|");
   info=(SALARY *)malloc(sizeof(SALARY)); /*申请追加信息的空间*/
   if(!info)
   {
      printf("\nout of memory"); /*没有空间，内存溢出*/
      exit(0);  /*结束程序*/
   }
   info->next=NULL;  /*新信息的后继为空*/
   info->prior=NULL; /*新信息的前驱为空*/
   gotoxy(1,8);printf("|");
   gotoxy(12,8);printf("|");
   gotoxy(29,8);printf("|");
   gotoxy(38,8);printf("|");
   gotoxy(2,8);
   inputs(info->no,10); /*输入编号并校验*/
   gotoxy(13,8);
   inputs(info->name,14); /*输入姓名并校验*/
   gotoxy(30,8);
   scanf("%f",&temp); /*输入基本工资*/
   info->jbgz=temp;
   info->koukuan=0; /*扣款为0*/
   info->yfgz=0; /*应发工资为0*/
   info->shuijin=0; /*税金为0*/
   info->sfgz=0; /*实发工资为0*/
   printf("|----------|----------------|--------|");
   printf("\n\n\nEnter infile name,for example c:\\f1\\te.txt:\n"); /*提示输入文件名*/
   scanf("%s",infile);
   if((fp=fopen(infile,"ab"))==NULL) /*打开文件*/
   {
      printf("can not open file\n");
      return;  /*返回*/
   }
   printf("\n -----Appending record!-----\n");
   if(1!=fwrite(info,sizeof(SALARY),1,fp)) /*向文件中追加记录*/
   {
      printf("-----file write error!-----\n"); /*写函数返回值不为1，说明写入错误*/
      return;  /*返回*/
   }
   printf("-----append  sucess!!----\n");/*显示追加成功*/
   fclose(fp);/*关闭文件*/
}
/*文件复制*/
void copy()
{
   char outfile[10],infile[10];  /*保存源文件名和目标文件名*/
   FILE *sfp,*tfp;  /*定义指向源文件和目标文件的指针*/
   SALARY *p=NULL;  /*定义临时指针，暂存读出的记录*/
   clrscr();
   printf("Enter infile name,for example c:\\f1\\te.txt:\n");
   scanf("%s",infile); /*输入源文件名*/
   if((sfp=fopen(infile,"rb"))==NULL) /*二进制读方式打开源文件*/
   {
      printf("can not open input file\n"); /*显示不能打开文件信息*/
      return; /*返回*/
   }
   printf("Enter outfile name,for example c:\\f1\\te.txt:\n");  /*提示输入目标文件名*/
   scanf("%s",outfile); /*输入目标文件名*/
   if((tfp=fopen(outfile,"wb"))==NULL) /*二进制写方式打开目标文件*/
   {
      printf("can not open output file \n");
      return;
   }
   while(!feof(sfp)) /*读文件直到文件尾*/
   {
      if(1!=fread(p,sizeof(SALARY),1,sfp))
         break;/*块读*/
      fwrite(p,sizeof(SALARY),1,tfp); /*块写*/
   }
   fclose(sfp); /*关闭源文件*/
   fclose(tfp); /*关闭目标文件*/
   printf("you have success copy  file!!!\n");/*显示成功拷贝*/
}
/*排序*/
void sort()
{
   SALARY *p0,*p00,*p1,*p11,*p2; /*定义临时指针*/
   int i=1;  /*统计当前排第几个结点*/
   clrscr(); /*清屏*/
   printf("\n\n start sort....\n"); /*开始排序*/
   p1=p11=p2=First;
   while(p1!=NULL) /*当p1不为空时*/
   {
      p0=p1;    /*待比较结点从p1开始*/
      p2=p1;    /*p2从当前待排序位置开始*/
      while(p2->next!=NULL) /*p2的后继不为空时*/
      {
         if(p0->sfgz>p2->next->sfgz)  /*找当前最小结点*/
         {
            p00=p2;   /*找到当前最小结点记录其前驱指针*/
            p0=p2->next;  /*记录当前最小值结点的指针p0*/
         }
         p2=p2->next;  /*指针后移*/
      }
      Last=p0;  /*当前最小结点为尾结点*/
      if(p1!=p0)  /*判断最小结点是否是当前排序位置，不是则作指针修改*/
      {
         p00->next=p0->next;  /*将p00的后继指向p0的后继*/
         p0->next->prior=p00; /*p0的后继的前驱为p00*/
         p0->next=p1;  /*p0的后继指向下个排序位置p1*/
         p1->prior=p0; /*p1的前驱为p0*/
         if(i==1)
         {
            First=p0;   /*作头指针*/
            First->prior=NULL; /*头指针的前驱为空*/
         }
         else   /*不是第一个结点*/
         {
            p11->next=p0;   /*p11的后继指向p0*/
            p0->prior=p11; /*p0的前驱指向p11*/
         }
         p11=p1=p0; /*因p0是排好序的最后一个结点，p1是下一个将要排序的位置，所以将p0赋值给p1和p11*/
      }
      i++;  /*排好序的结点数加1*/
      p1=p1->next; /*p1后移指向下一个待排序位置*/
   }
   printf("sort sucess!!!\n");  /*输出排序成功*/
}
/*索引*/
void index()
{
   SALARY *p,*q,*t,*h1; /*定义临时指针*/
   clrscr();/*清屏*/
   printf("\n\n start index.....\n\n"); /*显示开始索引*/
   h1=First->next; /*将原表的头指针所指的下一个结点作头指针*/
   First->next=NULL; /*第一个结点为新表的头结点*/
   Last=First; /*尾指针等于头指针*/
   while(h1!=NULL) /*当原表不为空时，进行排序*/
   {
      t=h1; /*取原表的头结点*/
      h1=h1->next; /*原表头结点指针后移*/
      p=First; /*设定移动指针p，从头指针开始*/
      q=First; /*设定移动指针q做为p的前驱，初值为头指针*/
      while(strcmp(t->no,p->no)>0&&p!=NULL) /*作编号比较*/
      {
         q=p; /*待排序点值大，应往后插，所以新表指针后移*/
         p=p->next;
      }
      if(p==q)  /*p==q，说明待排序点值小，应排在首位*/
      {
         t->next=p; /*待排序点的后继为p*/
         p->prior=t; /*p的前驱结点指向待排序结点*/
         First=t; /*新头结点为待排序点*/
         First->prior=NULL; /*头指针的前驱为空*/
      }
      else /*待排序点应插入在中间某个位置q和p之间，如p为空则是尾部*/
      {
         t->next=p; /*t的后继是p*/
         t->prior=q; /*t的前驱是q*/
         q->next=t; /*q的后继是t*/
         if(p==NULL) /*判p是否为空*/
            Last=t;   /*将t赋值为尾指针*/
         else
            p->prior=t; /*否则将t赋值给p的前驱*/
      }
   }
   printf("index sucess!!!\n");/*索引排序成功*/
}
/*分类合计*/
void total()
{
   struct t1  /*定义结构体保存合计数据*/
   {
      char u[7];  /*部门*/
      float s;   /*合计实发工资*/
   }unit[20];   /*定义一个单位部门数不超过20个*/
   SALARY *p,*q;  /*定义临时指针变量*/
   char sno[7],qno[7],*ptr; /*保存部门号*/
   float s1;  /*保存合计值*/
   int i,j;  /*控制变量*/
   p=First;  /*从指针开始*/
   i=0;  /*统计部门数*/
   clrscr();/*清屏*/
   while(p!=NULL) /*当p不为空时做下面的处理*/
   {
      memcpy(sno,p->no,6); /*从编号中取出部门号*/
      sno[6]='\0'; /*做字符串结束标记*/
      q=p->next; /*将指针指向待比较的记录*/
      s1=p->sfgz;  /*当前部门的实发工资初值作为该部门合计值的初值*/
      while(q!=NULL) /*内循环开始*/
      {
         memcpy(qno,q->no,6); /*读部门号*/
         qno[6]='\0'; /*做字符串结束标记*/
         if(strcmp(qno,sno)==0) /*比较部门号*/
         {
            s1+=q->sfgz; /*累加实发工资*/
            q=q->next; /*指针指向下一条记录*/
         }
         else
            break; /*不是一个部门的结束本次内循环*/
      }
      strcpy(unit[i].u,sno); /*将部门号写入部门结构体数组中*/
      unit[i].s=s1;    /*将实发工资写入部门结构体数组中*/
      i++;       /*部门数累加*/
      if(q==NULL)  /*如果q为空，跳出循环*/
         break;
      else
         p=q;   /*否则，将q赋值给p*/
   }
   printf("\n\n**************Total table**************\n");/*输出合计标题*/
   printf("\n--no-------unit------------total---------\n"); /*输出序号、部门、合计字段标题*/
   for(j=0;j<i;j++)
      printf("   %d        %s             %10.2f\n",j,unit[j].u,unit[j].s); /*输出合计值*/
   printf("----------------------------------------\n");
}

评论