使用C语言怎么实现一个病例管理系统

#include"stdio.h"
#include"stdlib.h"
#include"string.h"
typedef struct hospital_info{
 char dise_num[10];  /*病历编号*/
 char ke[10];    /*门诊科别*/
 char date[11];   /*门诊时间*/
 char symptom[60];  /*症状*/
 char diagnosis[60];  /*诊断*/
 char treatment[60];  /*治疗意见*/
 char doctor[10];   /*医师姓名*/
 struct hospital_info *next;
}hospitals;
typedef struct disease_info{
 char dise_num[10];   /*病历编号*/
 char employee[10];   /*姓名*/
 char sex;     /*性别*/
 char unit[30];    /*工作单位*/
 char date[11];    /*出生日期*/
 char drug_allergy[30];  /*药物过敏史*/ 
 char phone[12];    /*联系电话*/
 char addr[30];    /*住址*/
 hospitals *head_hosp;
 struct disease_info *next;
}diseases;
typedef struct unit_info{ 
 char unit_num[10];    /*单位编号*/
 char unit[30];     /*单位名称*/
 char manager[20];    /*负责人*/
 char phone[12];    /*联系电话*/
 int total;
 diseases *head_disease;
 struct unit_info *next;
}units;
void create_cross_list(units**head);
void save_cross_list(units*head);
void traverse_cross_list(units*head); 
void load_cross_list(units **head);
void Revise_unit(units *head);
void Revise_dise(units *head);
void Revise_hosp(units *head);
void Insert_unit(units *head);
void Insert_dise(units *head);
void Insert_hosp(units *head);
void Delete_unit(units *head);
void Delete_dise(units *head);
void Delete_hosp(units *head);
void Search_unit(units *head);
void Search_dise(units *head);
void Search_hosp(units *head);
void Display_no_hosp(units *head);
void Sortmonth(units *head);
void SortTotal(units *head);
void Sortpeople(units *head);
void main(void)
{
 units *head=NULL;
 short choice;
 printf("-----the unit information manage system!------\n");
 printf("<  1----------create the cross list   >\n");
 printf("<  2----------save the cross list   >\n");
 printf("<  3----------traverse the cross list  >\n");
 printf("<  4----------load the cross list   >\n");
 printf("<  5-----------Revise information   >\n");
 printf("<  6-----------Insert information   >\n");
 printf("<  7-----------Delete information   >\n");
 printf("<  8-----------Search information   >\n");
 printf("<  9--------------- tong ji     >\n");
 printf("<  10---------------退出     >\n");
 printf("--------------------------------------------->\n");
f: while(1){
 printf("请选择要进行的操作:(1-10)");
  scanf("%hd",&choice);
 getchar();   /*用于吸收换行符*/
  switch(choice)
 {
 case 1:create_cross_list(&head);
   break;
 case 2:save_cross_list(head);break;
  case 3:traverse_cross_list(head);
   break;
 case 4:load_cross_list(&head);break;
 case 5:
 {
 printf(" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
 printf("  ---------修改函数菜单-----------\n");
    printf("  1----------------Revise_unit\n");
    printf("  2----------------Revise_dise\n");
    printf("  3----------------Revise_hosp\n");
 printf(" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
    while(1){
  printf("**请选择子菜单操作:(1-4)");
     scanf("%hd",&choice);
    getchar();   /*用于吸收换行符*/
     switch(choice)
  {
     case 1:Revise_unit(head);break;
    case 2:Revise_dise(head);break;
    case 3:Revise_hosp(head);break;
    case 4:goto f;
  }
 }
 }
 case 6:
 {
    printf(" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
 printf("  ---------插入函数菜单-----------\n"); 
    printf("  1----------------Insert_unit\n");
    printf("  2----------------Insert_dise\n");
    printf("  3----------------Insert_hosp\n");
    printf(" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
    while(1){
  printf("**请选择子菜单操作:(1-4)");
     scanf("%hd",&choice);
    getchar();   /*用于吸收换行符*/
     switch(choice)
  {
     case 1:Insert_unit(head);break;
     case 2:Insert_dise(head);break;
     case 3:Insert_hosp(head);break;
     case 4:goto f;
  }
 }
 }
  case 7:
 {
 printf(" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
 printf("  ---------删除函数菜单-----------\n"); 
    printf("  1---------------Delete_unit\n");
    printf("  2---------------Delete_dise\n");
    printf("  3---------------Delete_hosp\n");
 printf(" <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
    while(1){
  printf("**请选择子菜单操作(1-4):");
     scanf("%hd",&choice);
    getchar();   /*用于吸收换行符*/
     switch(choice)
  {
     case 1:Delete_unit(head);break;
     case 2:Delete_dise(head);break;
    case 3:Delete_hosp(head);break;
     case 4:goto f;
  }
 }
 }
  case 8:
 {
 printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
 printf("  ---------查询函数菜单-----------\n"); 
    printf("  1---------------Search_unit\n");
    printf("  2---------------Search_dise\n");
    printf("  3---------------Search_hosp\n");
 printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
    while(1){
  printf("**请选择子菜单操作(1-4):");
     scanf("%hd",&choice);
    getchar();   /*用于吸收换行符*/
     switch(choice)
  {
     case 1:Search_unit(head);break;
     case 2:Search_dise(head);break;
     case 3:Search_hosp(head);break;
    case 4:goto f;
  }
 }
 }
 case 9:
 {
 printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
 printf("  ---------统计函数菜单-----------\n"); 
    printf("  1---------------Display_no_hosp\n");
    printf("  2---------------Sortmonth\n");
    printf("  3---------------SortTotal\n");
    printf("  4---------------Sortpeople\n");
 printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
    while(1){
  printf("**请选择子菜单操作(1-5):");
     scanf("%hd",&choice);
    getchar();   /*用于吸收换行符*/
     switch(choice)
  {
     case 1:Display_no_hosp(head);break;              
     case 2:Sortmonth(head);break;
    case 3:SortTotal(head);break;
    case 4:Sortpeople(head);break;
     case 5:goto f;
  }
 }
 }
  case 10:goto down;
 }
 } 
down: ;
}
   
/*创建十字交叉链表,并录入信息*/
void create_cross_list(units **head)
{
 units *hp=NULL,*p;
 diseases *pcrs;
 hospitals *phs;
 char ch;
loop:
 p=(units *)malloc(sizeof(units)); /*创建单位信息结点*/
 printf("请输入单位的编号:");
 scanf("%s",p->unit_num);
 printf("请输入单位名称:");
 scanf("%s",p->unit);
 printf("请输入负责人:");
 scanf("%s",p->manager);
 printf("请输入联系电话:");
 scanf("%s",p->phone);/*输入各项数据*/
 getchar();    /*用于读scanf输入中的换行符*/
 p->head_disease=NULL;      
 p->next=hp;      
 hp=p;
 printf("继续输入%s下单位的病例基本信息(Y/N)?\n",p->unit);
 scanf("%c",&ch);   
 getchar();
 while(ch=='y'||ch=='Y')
 {     
 pcrs=(diseases *)malloc(sizeof(diseases)); 
 printf("请输入病例编号:");
 gets(pcrs->dise_num);
 printf("请输入病人姓名:");
 gets(pcrs->employee);
 printf("请输入性别:");
 scanf("%s",&pcrs->sex);
  getchar();
 printf("请输入出生日期:");
 gets(pcrs->date);
 printf("请输入药物过敏史:");
 gets(pcrs->drug_allergy); 
  printf("请输入联系电话:");
 gets(pcrs->phone); 
  printf("请输入住址:");
 gets(pcrs->addr); 
  /*输入各项数据*/
 strcpy(pcrs->unit,p->unit);     
 pcrs->head_hosp=NULL;     
  pcrs->next=p->head_disease;     /*头指针值赋给新结点的指针域*/
 p->head_disease=pcrs;      /*头指针指向新结点*/
  printf("继续输入%s的门诊信息(Y/N)?\n",pcrs->employee);
  ch=getchar();
 getchar();   
 while(ch=='y'||ch=='Y')
 {   /*是,循环创建信息链*/
  phs=(hospitals *)malloc(sizeof(hospitals)); 
  printf("请输入门诊科别:");
  scanf("%s",phs->ke);
 printf("请输入门诊时间:");
 scanf("%s",phs->date);
 printf("请输入症状:");
 scanf("%s",phs->symptom);
   printf("请输入诊断:");
 scanf("%s",phs->diagnosis);
   printf("请输入治疗意见:");
 scanf("%s",phs->treatment);
   printf("请输入医师姓名:");
 scanf("%s",phs->doctor);
   /*输入各项数据*/
 getchar();
 strcpy(phs->dise_num,pcrs->dise_num);   
   phs->next=pcrs->head_hosp;    /*头指针值赋给新结点的指针域*/
  pcrs->head_hosp=phs;      /*头指针指向新结点*/
  printf("继续输入%s的下一条病例信息(Y/N)?\n",pcrs->employee);
  ch=getchar();
 getchar(); /*是否继续创建下一个基本信息结点*/
 }
 printf("继续输入下一个病例的基本信息(Y/N)?\n");
  ch=getchar();
 getchar();  /*是否继续创建下一个基本信息结点*/
 }
 printf("继续输入下一个单位的信息(Y/N)?\n");
 ch=getchar();
 getchar();   
 if(ch=='y'||ch=='Y')
 goto loop;    
 (*head)=hp;   
 p=(*head);     
}

/*保存十字交叉链表数据到磁盘文件*/
void save_cross_list(units *head)
{
 FILE *out1,*out2,*out3;
 units *p=head;
 diseases *pcrs;
 hospitals *phs;
 if((out1=fopen("c:\\unit.dat","wb+"))==NULL)  
 /*以只写方式将单位基本信息文件创建在c盘下的unit.text文本文件，并使out1指向它*/
 exit(-1);
 if((out2=fopen("c:\\disease.dat","wb+"))==NULL) /*打开病历信息文件*/
 exit(-1);
 if((out3=fopen("c:\\hospital.dat","wb+"))==NULL) /*打开门诊信息文件*/
 exit(-1);
 while(p!=NULL)
 {
 fwrite(p,sizeof(units),1,out1);/*写单位基本信息记录*/
 pcrs=p->head_disease;     /*病历遍历指针指向病历链链头*/
 while(pcrs!=NULL)
 {      /*遍历病历信息链*/
 fwrite(pcrs,sizeof(diseases),1,out2); /*写病历记录*/
 phs=pcrs->head_hosp;      /*门诊遍历指针指向门诊链链头*/
 while(phs!=NULL)
 {
 fwrite(phs,sizeof(hospitals),1,out3);  /*写门诊链*/
 phs=phs->next;
 }
 pcrs=pcrs->next;       /*指向下一个病历链*/
 }
 p=p->next;   /*指向下一个单位基本信息结点*/
 }
 fclose(out1);   /*关闭基本信息文件*/
 fclose(out2);   /*关闭病历信息文件*/
 fclose(out3);   /*关闭门诊信息文件*/
 printf("记录已被保存.\n");
}

/*遍历十字交叉链表，输出各项基本信息*/
void traverse_cross_list(units *head)
{
 units *p=head;
 diseases *pcrs;
 hospitals *phs;
 printf("<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
 while(p!=NULL)
 {   /*遍历单位基本信息链*/
 printf("%s\t%s\t%s\t%s\n",p->unit_num,p->unit,p->manager,p->phone);
  pcrs=p->head_disease;
 while(pcrs!=NULL)
 {   /*遍历病历基本信息链与门诊信息链*/
  printf("%s\t%s\t%c\t%s\t%s\t%s\t%s\t%s\n",pcrs->dise_num,pcrs->employee,\
   pcrs->sex,pcrs->unit,pcrs->date,pcrs->drug_allergy,pcrs->phone,pcrs->addr);
  phs=pcrs->head_hosp;
  while(phs!=NULL)
  {
  printf("%s\t%s\t%s\t%s\t%s\t%s\t%s\n",phs->dise_num,phs->ke,phs->date,\
  phs->symptom,phs->diagnosis,phs->treatment,phs->doctor);
  phs=phs->next;
  }
  pcrs=pcrs->next;
 }
 p=p->next;
 }
 printf("<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
}
/*从磁盘文件中读取*/
void load_cross_list(units **head)        
{
 FILE *in1,*in2,*in3;
 units *hp=NULL,*p;
 diseases *pcrs;
 hospitals *phs;
 if((in1=fopen("c:\\unit.dat","rb"))==NULL)        
 exit(-1);
 if((in2=fopen("c:\\disease.dat","rb"))==NULL)
 exit(-1);
 if((in3=fopen("c:\\hospital.dat","rb"))==NULL)
 exit(-1);
 while(!feof(in1))
 { 
 p=(units *)malloc(sizeof(units));
 fread(p,sizeof(units),1,in1);
 if(!feof(in1))
 {           
 p->head_disease=NULL;
 p->next=hp;
 hp=p;
 }
 }
 (*head)=hp;
 while(!feof(in2))
 { 
 pcrs=(diseases *)malloc(sizeof(diseases));
 fread(pcrs,sizeof(diseases),1,in2);
  if(!feof(in2))
 {             
 p=(*head);
   pcrs->head_hosp=NULL;
 while(p!=NULL)
 {
 if(!strcmp(p->unit,pcrs->unit))
 {
  pcrs->next=p->head_disease;
  p->head_disease=pcrs;
  break;
 }
 else p=p->next;
 }
 }
 }
 (*head)=hp;
 while(!feof(in3))
 { 
 phs=(hospitals *)malloc(sizeof(hospitals));
 fread(phs,sizeof(hospitals),1,in3);
  if(!feof(in3))
 {
 p=(*head);
 while(p!=NULL)
 {             
 pcrs=p->head_disease;
 while(pcrs!=NULL)
 {
  if(!strcmp(phs->dise_num,pcrs->dise_num))
  {
  phs->next=pcrs->head_hosp;
  pcrs->head_hosp=phs;
  break;
  }
  else pcrs=pcrs->next;
 }
 p=p->next;
 }
 }
 }
 fclose(in1);
 fclose(in2);
 fclose(in3);
}

//修改一个单位基本信息             
void Revise_unit(units *head)
{
 units *p,*q;
 char num[10];
 char choice;
 char update[30];
 p=q=head;
 printf("please input 要修改的单位编号:");
 scanf("%s",num);
 getchar();
 while(strcmp(num,p->unit_num)!=0&&p->next!=0) /*查找需要修改信息的单位编号*/
 {
 q=p;
 p=p->next;
 }
 if(strcmp(num,p->unit_num)==0)
 { 
 printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
  printf("  ***a---------to revise unit_num\n");
   printf("  ***b---------to revise unit_name\n");
   printf("  ***c---------to revise unit_manager\n");
   printf("  ***d---------to revise unit_phone\n");
   printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
loop:
 printf("please input要选择的操作:(a-d)");
   choice=getchar();
  getchar(); 
   printf("please input更新后的信息:");
   switch(choice)
 {
   case 'a':
    scanf("%s",update);
    strncpy(p->unit_num,update,strlen(update)+1);
    goto loop;
   case 'b':
    scanf("%s",update);
    strncpy(p->unit,update,strlen(update)+1);
    goto loop;
   case 'c':
    scanf("%s",update);
    strncpy(p->manager,update,strlen(update)+1);
    goto loop;
   case 'd':
    scanf("%s",update);
    strncpy(p->phone,update,strlen(update)+1);
 goto loop;
   default:break;
 }
  printf("修改成功!\n");
 }
 else printf("not find!\n");
}

//修改一个病历基本信息
void Revise_dise(units *head)
{
 units *p;
 diseases *pcrs;
 char num[10];
 char update[30];
 char choice;
 p=head;
 printf("please input 要修改信息的员工编号:");
 scanf("%s",num);
 getchar();
 pcrs=p->head_disease;
 while(p!=NULL)
 {
   while(pcrs!=NULL)
   {
    if(strcmp(pcrs->dise_num,num)==0)
     goto loop1;
    pcrs=pcrs->next;
   }
   p=p->next;
   pcrs=p->head_disease->next; 
  }
  if(p==NULL)
 {
   printf("not find the unit");
 goto end;
 } 
loop1: 
 printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
  printf("  ***a--------to revise the dise num\n");
  printf("  ***b--------to revise the employee\n");
  printf("  ***c--------to revise the sex\n");
  printf("  ***d--------to revise the unit\n");
  printf("  ***e--------to revise the date\n");
  printf("  ***f---------to revise the drug_allergy\n");
  printf("  ***g---------to revise the phone\n");
  printf("  ***h---------to revise the addr\n");
  printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
loop2:
 printf("please input要选择的操作:(a-h)");
  choice=getchar();
  getchar();
  printf("请输入修改后的信息:");
  switch (choice)
  {
  case 'a':
   scanf("%s",update);
   strncpy(pcrs->dise_num,update,sizeof(update)+1);
   goto loop2;
  case 'b':
   scanf("%s",update);
   strncpy(pcrs->employee,update,sizeof(update)+1);
   goto loop2;
  case 'c':
   scanf("%c",&pcrs->sex);
   goto loop2;
  case 'd':
   scanf("%s",update);
   strncpy(pcrs->unit,update,strlen(update)+1);
   goto loop2;
  case 'e':
   scanf("%s",update);
   strncpy(pcrs->date,update,strlen(update)+1);
   goto loop2;
  case 'f':
   scanf("%s",update);
   strncpy(pcrs->drug_allergy,update,strlen(update)+1);
   goto loop2;
  case 'g':
   scanf("%s",update);
   strncpy(pcrs->phone,update,strlen(update)+1);
   goto loop2;
  case 'h':
   scanf("%s",update);
   strncpy(pcrs->addr,update,strlen(update)+1);
   goto loop2;
  default:break;
  }
 printf("修改成功!\n");
end: ;
}

/*修改一个门诊基本信息*/
void Revise_hosp(units *head)
{
 units *p;
 diseases *pcrs;
 hospitals *phs;
 char num[10],date[11];
 char choice;
 char update[30];
 p=head;
 printf("please input 要修改信息的病历编号:");
 scanf("%s",num);
 pcrs=p->head_disease;
 while(p!= NULL)
 {
  while(pcrs!= NULL)
  {
   if(strcmp(pcrs->dise_num,num)==0)
    goto loop1;
   pcrs=pcrs->next;
  }
  p=p->next;
  pcrs=p->head_disease->next; 
 }
 if(p==NULL)
 {
  printf("not find the unit");
 goto end;
 }
loop1:
 printf("please input 要修改信息的门诊时间:");
 scanf("%s",date);
 phs=pcrs->head_hosp;
 while(phs!= NULL)
 {
  if(strcmp(phs->date,date)==0)
   goto loop2;
  phs=phs->next;
 } 
 if(phs==NULL)
 {
  printf("not find ");
 goto end;
 }
loop2: 
 printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
  printf("  ***a---------revise the dise_num\n");
  printf("  ***b--------revise the ke\n");
  printf("  ***c--------revise the date\n");
  printf("  ***d--------revise the symptom\n");
  printf("  ***e--------revise the diagnosis\n");
  printf("  ***f--------revise the treatment\n");
  printf("  ***g--------revise the doctor\n");
  printf("  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n");
loop3:
 printf("please input要进行的操作:");
  choice=getchar();
  getchar();
  printf("please input the update information:");
  scanf("%s",update);
  switch(choice)
  {
  case 'a':
   strncpy(phs->dise_num,update,strlen(update)+1);
   goto loop3;
  case 'b':
   strncpy(phs->ke,update,strlen(update)+1);
   goto loop3;
  case 'c':
   strncpy(phs->date,update,strlen(update)+1);
   goto loop3;
  case 'd':
   strncpy(phs->symptom,update,strlen(update)+1);
   goto loop3;
  case 'e':
   strncpy(phs->diagnosis,update,strlen(update)+1);
   goto loop3;
  case 'f':
   strncpy(phs->treatment,update,strlen(update)+1);
   goto loop3;
  case 'g':
   strncpy(phs->doctor,update,strlen(update)+1);
   goto loop3;
  default:break;
  }
 printf("修改成功!\n");
end: ;
}


//按单位编号由小到大在链表中插入一个单位新结点         
void Insert_unit(units *head) 
{                   
 units *p1,*p2; 
 int state;
loop: 
  p1=head;
  p2=malloc(sizeof(units));
  p2->next=NULL;
  p2->head_disease=malloc(sizeof(diseases));
  p2->head_disease->next=NULL;
  printf("请输入单位编号:");
  scanf("%s",p2->unit_num); 
a: while(p1->next!=NULL)
  {
   p1=p1->next;
   if(strcmp(p1->unit_num,p2->unit_num)==0)
   {
    state = 1;
    break;
   }
   else
   {
    state=0;
    break;
   }
  }
  switch(state)
  {
   case 0:if(strcmp(p1->unit_num,p2->unit_num)>0)
   {
    if(p1==head->next)
    {
     head->next=p2;
     p2->next=p1;
    }
    else
    {
     p1->next=p2;
     p2->next=p1->next;
    }
 break;
   }
   else
    goto a;
   case 1:printf("the unit num already exit,pleae input another one\n");
     goto loop;
  } 
  printf("请输入单位名称:");
  scanf("%s",p2->unit);
  printf("请输入负责人:");
  scanf("%s",p2->manager);
  printf("请输入联系电话:");
  scanf("%s",p2->phone);
 printf("插入成功!\n");
}

//按病历编号由小到大插入一个员工病历信息结点
void Insert_dise(units *head)
{
 units *p;
 diseases *pcrs1,*pcrs2;
 int state;  
 char name[30];
 printf("请输入单位名称:");
 scanf("%s",name);
 p=head;
 while(p->next!= NULL)
 {
   p=p->next;
   if (strcmp(p->unit,name)==0)
    break;
 }
 if(p==NULL)
 {
  printf("not find the unit!");
 goto end;
 } 
 pcrs1=p->head_disease;
 pcrs2=malloc(sizeof(diseases));
 pcrs2->next = NULL;
 pcrs2->head_hosp= malloc(sizeof(hospitals));
 pcrs2->head_hosp->next=NULL;
 strcpy(pcrs2->unit,name);
loop: 
  printf("请输入病例编号:");
  scanf("%s",pcrs2->dise_num);
  if (pcrs1==NULL)
   p->head_disease->next = pcrs2;
  else
  {
a:  while (pcrs1 ->next != NULL)
   {
    pcrs1= pcrs1->next;
    if (strcmp(pcrs1->dise_num,pcrs2->dise_num)==0)
    {
     state = 1;
     break;
    }
    else
    {
     state=0;
     break;
    }
   }

   switch(state)
   {
    case 0:if(strcmp(pcrs1->dise_num,pcrs2->dise_num)>0)
    {
     if(pcrs1=p->head_disease->next)
    {
      p->head_disease->next=pcrs2;
      pcrs2->next=pcrs1;
    }
     else
    {
      pcrs1->next=pcrs2;
      pcrs2->next=pcrs1->next;
    }
  break;
 }
    else
     goto a;
    case 1:printf("the disease number already exit,please input another one\n");
      goto loop;
   }
  }
  printf("请输入姓名:");
  scanf("%s",pcrs2->employee);
  printf("请输入性别:");
  scanf("%c",pcrs2->sex);
  printf("请输入出生日期");
  scanf("%s",pcrs2->date);
  printf("请输入药物过敏史:");
 scanf("%s",pcrs2->drug_allergy);
 printf("请输入联系电话:");
  scanf("%s",pcrs2->phone);
  printf("请输入住址:");
  scanf("%s",pcrs2->addr);
 printf("插入成功!\n");
end: ;
} 
                  
//按门诊时间由小到大插入一个员工门诊信息结点
void Insert_hosp(units *head)
{
 units *p;
 diseases *pcrs;
 hospitals *phs1,*phs2;
 char number[10];
 printf("请输入单位编号:");
 scanf("%s",number);
 p=head;
 while(p->next!= NULL)
 {
   p=p->next;
   if(strcmp(p->unit_num,number)==0)
    break;
 }
 if(p==NULL)
 {
  printf("not find the unit\n");
 goto end;
 }
 pcrs=p->head_disease;
 printf("请输入病例编号:");
 scanf("%s",number);
 while(pcrs->next!=NULL)
 {
  pcrs=pcrs->next;
  if (strcmp(pcrs->dise_num,number)==0)
   break;
 }
 if (pcrs==NULL)
 {
  printf("not find the question \n");
 goto end;
 }
 phs1=pcrs->head_hosp->next;
 phs2=malloc(sizeof(hospitals));
 phs2->next=NULL;
 if(phs1==NULL)
  pcrs->head_hosp->next =phs2;
 else
 {
   while(phs1->next!=NULL)
    phs1=phs1->next;
   phs1->next=phs2;
 }
  strncpy(phs2->dise_num,number,strlen(number)+1);
  printf("请输入科别:");
  scanf("%s",phs2->ke);
  printf("请输入诊断时间:");
  scanf("%s",phs2->date);
  printf("请输入主诉:");
  scanf("%s",phs2->symptom);
  printf("请输入初步诊断:");
  scanf("%s",phs2->diagnosis);
  printf("请输入治疗意见:");
  scanf("%s",phs2->treatment);
  printf("请输入医师姓名:");
  scanf("%s",phs2->doctor);
  printf("插入成功!\n");
end: ;
}


/*删除一条单位信息记录*/                   
void Delete_unit(units *head)
{
 units *p,*q;
 char name[30];
 printf("please input 要删除的单位名称:");
 scanf("%s",name);getchar();
 p=q=head;
 while(strcmp(name,p->unit)!=0&&p->next!=0)/*p指的不是要找的结点,并且后面还有结点*/
 {
 q=p;
 p=p->next;
 }  /*p后移一个结点*/
 if(strcmp(name,p->unit)==0)
 { /*找要删除位置*/
 if(p==head) head=p->next; /*若p指向的是首结点,把第二个结点地址赋予head*/
 else q->next=p->next; /*否则将下一个结点地址赋给前一结点地址*/
 free(p);
  printf("删除成功!\n");
 }
 else printf("%s not been found!\n",name); /*找不到该结点*/
}

/*删除一条病历信息记录*/
void Delete_dise(units *head)
{
 units *p,*q;
 diseases *pcrs,*t;
 char name[10],employee[30];
 printf("please input 要删除信息的单位名称:");
 scanf("%s",name);
 getchar();
 p=q=head;
 while(strcmp(name,p->unit)!=0&&p->next!=0) /*p指的不是要找的结点,并且后面还有结点*/
 {
 q=p;
 p=p->next;
 }  /*p后移一个结点*/
 if(strcmp(name,p->unit)==0)
 {          
 printf("please input 要删除信息的员工姓名:");
  scanf("%s",employee);
 getchar();
 pcrs=t=p->head_disease;
  while(strcmp(employee,pcrs->employee)!=0&&pcrs->next!=0)
 {
 t=pcrs;
 pcrs=pcrs->next;
 }  /*pcrs后移一个结点*/
  if(strcmp(employee,pcrs->employee)==0)
 {
 if(pcrs==p->head_disease) p->head_disease=pcrs->next; /*若pcrs指向的是首结点,把第二个结点地址赋予head*/
  else t->next=pcrs->next; /*否则将下一个结点地址赋给前一结点地址*/
  free(pcrs);
   printf("删除成功!\n");
 }
 }                   
 else printf("%s not been found!\n",employee);
}

//删除一条门诊信息记录
void Delete_hosp(units *head)
{
 units *p,*q;
 diseases *pcrs,*t1; 
 hospitals *phs,*t2;
 char name[30],employee[10],date[11];
 printf("please input 要删除信息的单位名称:");
 scanf("%s",name);
 getchar();
 p=q=head;
 while(strcmp(name,p->unit)!=0&&p->next!=0)/*p指的不是要找的结点,并且后面还有结点*/
 {
 q=p;
 p=p->next;
 }  /*p后移一个结点*/
 if(strcmp(name,p->unit)==0)
 {
 printf("please input 要删除信息的员工姓名:");
  scanf("%s",employee);
 getchar();
 pcrs=t1=p->head_disease;
  while(strcmp(employee,pcrs->employee)!=0&&pcrs->next!=0)
 {
 t1=pcrs;
 pcrs=pcrs->next;
 }  /*pcrs后移一个结点*/
  if(strcmp(employee,pcrs->employee)==0)
 {
 printf("please input 要删除信息的病历时间:");
   scanf("%s",date);
 getchar();
  phs=t2=pcrs->head_hosp;
   while(strcmp(date,phs->date)!=0&&phs->next!=0)
 {
 t2=phs;
 phs=phs->next;
 } 
   if(strcmp(date,phs->date)==0)
 {         
 if(phs==pcrs->head_hosp) pcrs->head_hosp=phs->next; 
   else t2->next=phs->next; 
   free(phs);
    printf("删除成功!\n");
 }
 }
 }
  else printf("%s not been found!\n",date);
}

/*查询一条单位信息记录并输出信息*/              
void Search_unit(units *head)
{
 units *p,*q;
 char num[10];
 p=q=head;
 printf("please input 要查询的单位编号:");
 scanf("%s",num);
 getchar();
 while(strcmp(num,p->unit_num)!=0&&p->next!=0)/*p指的不是要查询的结点并且后面还有结点*/
 {
 q=p;
 p=p->next;
 } /*p后移一个结点*/
 if(strcmp(num,p->unit_num)==0)
 {/*找要查询的结点,输出各项基本信息*/
 printf("单位编号:%s\n",p->unit_num);
 printf("单位名称:%s\n",p->unit);
 printf("负责人:%s\n",p->manager);
 printf("联系电话:%s\n",p->phone);
 }
 else printf("%s not been found!\n",num); /*找不到要查询的结点*/
}

//查询一条病历信息链并输出信息
void Search_dise(units *head)
{
 units *p,*q;
 diseases *pcrs,*t;
 char name[10],num[10];
 p=q=head;
 printf("please input 要查询的单位名称:");
 scanf("%s",name);
 getchar();
 while(strcmp(name,p->unit)!=0&&p->next!=0)
 {
 q=p;
 p=p->next;
 } /*p后移一个结点*/
 if(strcmp(name,p->unit)==0) /*找要查询的结点*/
 {  
  pcrs=t=p->head_disease;
  printf("please input 要查询的病历编号:");
  scanf("%s",num);
 getchar();
  while(strcmp(num,pcrs->dise_num)!=0&&pcrs->next!=0)
 {
 t=pcrs;
 pcrs=pcrs->next;
 } /*p后移一个结点*/
 if(strcmp(num,pcrs->dise_num)==0) 
 {/*找要查询的结点*/
 printf("病历编号:%s\n",pcrs->dise_num);
   printf("姓名:%s\n",pcrs->employee);
   printf("性别:%c\n",pcrs->sex);
   printf("工作单位:%s\n",pcrs->unit);
 printf("出生日期:%s\n",pcrs->date);
 printf("药物过敏史:%s\n",pcrs->drug_allergy);
 printf("联系电话:%s\n",pcrs->phone);
 printf("住址:%s\n",pcrs->addr);
 }
 }
 else printf("not been found!\n"); /*找不到要查询的结点*/
}                     

//查询一条门诊信息链并输出信息
void Search_hosp(units *head)
{
 units *p,*q;
 diseases *pcrs,*t1;
 hospitals *phs,*t2;
 char name[10],num[10],date[11];
 p=q=head;
 printf("please input 要查询的单位名称:");
 scanf("%s",name);
 getchar();
 while(strcmp(name,p->unit)!=0&&p->next!=0)
 {
 q=p;
 p=p->next;
 } /*p后移一个结点*/
 if(strcmp(name,p->unit)==0) /*找要查询的结点*/
 {  
  pcrs=t1=p->head_disease;
  printf("please input 要查询的病历编号:");
  scanf("%s",num);
 getchar();
  while(strcmp(num,pcrs->dise_num)!=0&&pcrs->next!=0)
 {
 t1=pcrs;
 pcrs=pcrs->next;
 } /*p后移一个结点*/
 if(strcmp(num,pcrs->dise_num)==0) /*找要查询的结点*/
  {
   phs=t2=pcrs->head_hosp;
   printf("please input 要查询的门诊时间:");
   scanf("%s",date);
 getchar();
   while(strcmp(date,phs->date)!=0&&phs->next!=0)
 {
 t2=phs;
 phs=phs->next;
 } /*p后移一个结点*/
  if(strcmp(date,phs->date)==0)
 {
 printf("病历编号:%s\n",phs->dise_num);
    printf("诊断科别:%s\n",phs->ke);
 printf("门诊时间:%s\n",phs->date);
 printf("主诉:%s\n",phs->symptom);
 printf("初步诊断:%s\n",phs->diagnosis);
    printf("治疗意见:%s\n",phs->treatment);
 printf("医师姓名:%s\n",phs->doctor);
 }
 }
 }
 else printf("not been found!\n"); /*找不到要查询的结点*/
}

/*列出从未门诊的员工信息(单位.姓名.住址.电话)*/
void Display_no_hosp(units *head)            
{
 units *p=head;
 diseases *pcrs;
 hospitals *phs;
 while(p!=NULL)
 {
 printf("%s\n",p->unit);  //输出各个单位名称
  printf("员工姓名\t电话\t住址\n"); 
 pcrs=p->head_disease;
 while(pcrs!=NULL)
 {
 phs=pcrs->head_hosp;
 //如果phs是空链,则该员工从未门诊过
 if(phs==NULL)
 printf("%s\t%s\t%s\n",pcrs->employee,pcrs->phone,pcrs->addr);
 else ; //否则门诊过,执行空语句
 pcrs=pcrs->next;
 }
 p=p->next;
 }
}

/*统计一年中各月的门诊量并按降序排列后输出*/        
void Sortmonth(units *head)
{
 units *p=head;
 diseases *pcrs;
 hospitals *phs;
 int s[12],i,j,t,count;
 char year[10],month[10];
 for(i=0;i<12;i++) s[i]=0;
 printf("--请输入要统计的年份:"); //手动输入要统计的年份
 scanf("%s",year);
 getchar();
 printf("--请输入要统计的月份:");
 for(i=0;i<12;i++)
 {
 count=0;  //统计一年中各月的门诊量 
  scanf("%s",month);
  while(p!=NULL)
 {
 pcrs=p->head_disease;
   while(pcrs!=NULL)
 {
 phs=pcrs->head_hosp;
    while(phs!=NULL)
 {
  j=0;
    while(phs->date[j]==year[j]&&(j<4)) 
  j++;//判断是否为要统计的年份
    if(j==4)   //是，比较是否为在该月的门诊
     if(phs->date[j+1]==month[0]&&phs->date[j+2]==month[1]) 
   count++;
    else ; //不是，执行空语句
    phs=phs->next;
 }
    pcrs=pcrs->next;
 }
   p=p->next;
 }
  s[i]=count;
 }
 for(i=0;i<12;i++)   //输出各月的总门诊量
 printf("%d\t",s[i]);
 printf("\n");
 for(i=0;i<11;i++)   //降序排序
 for(j=0;j<11-i;j++)
 if(s[j]<s[j+1])
 t=s[j],s[j]=s[j+1];s[j+1]=t;
 printf("请输出按降序排列后的统计量:\n");
 for(i=0;i<12;i++)   //输出排列后的各月总门诊量
 printf("%d\t",s[i]);
 printf("\n");
}

/*统计各单位员工的总门诊量并按降序排列后输出*/        
void SortTotal(units *head)
{
 units *p=head,*q;
 diseases *pcrs;
 hospitals *phs;
 int count,i,j,t,len=0;
 while(p!=NULL)
 {  //计算各单位员工的总门诊量
 p->total=0;
 count=0;
 pcrs=p->head_disease;
 while(pcrs!=NULL)
 {
 phs=pcrs->head_hosp;
 while(phs!=NULL)
 {
 count++;
 phs=phs->next;
 }
 pcrs=pcrs->next;
 }
 p->total=count;              
 printf("%s\t",p->unit);  //输出各个单位名称
 p=p->next;
 }
 printf("\n");
 p=head;    //遍历指针p指向头指针
 while(p!=NULL)
 {   //输出统计数
 printf("%d\t",p->total);
 p=p->next;
 }
 printf("\n");
 p=head;
 while(p!=NULL)
 {   //计算单位信息链表长度
 len++;
 p=p->next;
 }
 for(i=0,p=head;i<len-1;i++,p=p->next) //对统计量降序排序     
 for(j=i+1,q=p->next;j<len;j++,q=q->next)
 if(p->total<q->total)
 {
 t=p->total;
 p->total=q->total;
 q->total=t;
 }
 p=head;
 printf("请输出按降序排列后的统计量:\n");
 while(p!=NULL)
 {   //输出排序后的统计量
 printf("%d\t",p->total);
 p=p->next;
 }
 printf("\n");
}

//统计各单位员工总人数并输出         
void Sortpeople(units *head)
{
 units *p=head;
 diseases *pcrs;
 int count;
 while(p!=NULL)
 {
 p->total=0;
 count=0;
 pcrs=p->head_disease;
 while(pcrs!=NULL)
 {
 count++;
 pcrs=pcrs->next;
 }
 p->total=count;
 p=p->next;
 }
 p=head;
 while(p!=NULL)
 {
 printf("输出单位名称:%s",p->unit);
 printf("统计单位总人数:%d\n",p->total);
 p=p->next;
 }
}