#include<stdio.h>
#include<string.h>
#include<stdlib.h>
typedef struct patient
{
 char ID[10];
 char name[10];
 char bingli[300];
 int cost[3];
 struct patient * next;
}node1;
typedef struct storage
{
 int amount[3];
 int price[3];
}node2;
node2 init(node2 temp)
{
 
 temp.amount[0]=20;
 temp.amount[1]=20;
 temp.amount[2]=10;
 temp.price[0]=5;
 temp.price[1]=9;
 temp.price[2]=16;
 return temp;
}
void mainmeun()
{
 printf("\n");
 printf(" 健康是快乐的源泉\n");
 printf("********************************\n");
 printf("1.注册新病人信息\n");
 printf("2.查询病人信息\n");
 printf("3.写病历\n");
 printf("4.病人消费\n");
 printf("5.列出所有病人信息\n");
 printf("6.载入所有病人信息\n");
 printf("7.保存\n");
 printf("8.查询药品库存\n");
 printf("9.离开\n");
 printf("*********************************\n");
}
node1 * create(node1 *p1)
{
 node1 *p;
 p=(node1 *)malloc(sizeof(node1));
 printf("请输入病人ID\n");
 scanf("%s",p->ID);
 
 while(p1->ID&&strcmp(p1->ID,p->ID))
 {
 p1=p1->next;
 }
 if(p1==NULL)
 {
 printf("请输入病人姓名\n");
 scanf("%s",p->name);
 strcpy(p->bingli,"0");
 p->cost[0]=0;
 p->cost[1]=0; 
 p->cost[2]=0;
 p->next=NULL;
 printf("已注入您的信息\n");
 return p;
 }
 else 
 {
 printf("输入病人ID以存在,注册失败\n");
 return p;
 }
}
node1 * insert(node1 * head,node1 *p)
{
 node1 *p1; 
 if(head==NULL)
 {
 head=p;
 p->next=NULL; 
 }
 else
 {
 p1=head;
 while(p1->next)
 {
 p1=p1->next; 
 }
 p1->next=p;
 p->next=NULL; 
 }
 return(head);
}
void search(node1 *p1)
{
 int sum;
 char a[10];
 printf("请输入病人ID\n");
 scanf("%s",a);
 while(p1->ID&&strcmp(p1->ID,a))
 {
 p1=p1->next;
 }
 if(p1)
 {
 printf("ID:%s\n",p1->ID);
 printf("姓名:%s\n",p1->name);
 printf("病例:%s\n",p1->bingli);
 printf("消费记录:\n");
 if(p1->cost[0])
 printf("巴米尔\t%d\n",p1->cost[0]);
 if(p1->cost[1])
 printf("感冒灵\t%d\n",p1->cost[1]);
 if(p1->cost[2])
 printf("病毒灵\t%d\n",p1->cost[2]);
 sum=p1->cost[0]*5+p1->cost[1]*9+p1->cost[2]*16;
 printf("总费用\t%d\n",sum);
 }
 else
 printf("该病人没有注册\n");
 
 
}
void bingli(node1 *p)
{
 char a[10];
 char bingli[300];
 char enter[5]=":\n";
 printf("请输入病人ID\n");
 scanf("%s",a);
 while(p->ID&&strcmp(p->ID,a))
 {
 p=p->next;
 }
 if(p==NULL)
 {
 printf("无该病人信息\n");
 }
 else
 {
 printf("请写病例:\n");
 scanf("%s",bingli);
 strcpy(p->bingli,bingli);
 strcat(p->bingli,enter);
 }
}
node2 buy(node1 *p,node2 temp)
{
 char i[10];
 printf("请输入病人ID\n");
 scanf("%s",i);
 while(p->ID&&strcmp(p->ID,i))
 {
 p=p->next;
 }
 
 while(1)
 {
 int a,b,c,d;
 printf("1.购买巴米尔\n");
 printf("2.购买感冒灵\n");
 printf("3.购买病毒灵\n");
 printf("0.退出\n");
 scanf("%d",&a);
 switch(a)
 {
 case 1:
 do
 {
 printf("现有库存%d\n",temp.amount[0]);
 printf("购买巴米尔数量:");
 scanf("%d",&b);
 temp.amount[0]=temp.amount[0]-b;
 p->cost[0]+=b*5; 
 }while(b>20);
 break;
 case 2:
 do
 {
 printf("现有库存%d\n",temp.amount[1]);
 printf("购买感冒灵数量:");
 scanf("%d",&c);
 temp.amount[1]=temp.amount[1]-c;
 p->cost[1]+=c*9;
 }while(c>20);
 break;
 case 3:
 do
 {
 printf("现有库存%d\n",temp.amount[2]);
 printf("购买病毒灵数量:");
 scanf("%d",&d);
 temp.amount[2]=temp.amount[2]-d;
 p->cost[2]+=d*16;
 }while(d>=10);
 break;
 case 0:
 return temp;
 }
 }
 
}
void list(node1 *p)
{
 
 if(p==NULL)
 printf("尚无病人信息\n");
 else
 { 
 do{
 printf("病人ID:%s\n",p->ID);
 printf("病人姓名:%s\n",p->name);
 
 printf("病人病例:%s\n",p->bingli);
 
 printf("购买巴米尔费用:%d\n",p->cost[0]);
 
 printf("购买感冒灵费用:%d\n",p->cost[1]);
 
 printf("购买病毒灵费用:%d\n",p->cost[2]);
 printf("\n");
 p=p->next; 
 }while(p!=NULL);
 }
}
node1 * load(node1 *p)
{ 
 char ID[10],name[10],bingli[300];
 int cost0,cost1,cost2;
 FILE *fp;
 fp=fopen("information.txt","r");
 int n=0;
 node1 *p1,*p2;
 
 while(!feof(fp))
 {
 n++;
 p1=(node1 *)malloc(sizeof(node1));
  fscanf(fp,"%s",ID);
  fscanf(fp,"%s",name);
  fscanf(fp,"%s",bingli);
  fscanf(fp,"%d",&cost0);
  fscanf(fp,"%d",&cost1);
  fscanf(fp,"%d",&cost2);
 
 strcpy(p1->ID,ID);
 strcpy(p1->name,name);
 strcpy(p1->bingli,bingli);
 p1->cost[0]=cost0;
 p1->cost[1]=cost1;
 p1->cost[2]=cost2;
 p1->next=NULL; 
 
 if(n==1)
 {
 p=p1;
 p2=p1;
 }
 
 else
 {
 p2->next=p1;
 p2=p1;
 
 }
 }
 
 fclose(fp);
 
 return p;
}
void save(node1 *p)
{
 FILE *fp;
 fp=fopen("information.txt","w");
 if(p!=NULL)
 do{
 fprintf(fp,"%s\n",p->ID);
 fprintf(fp,"%s\n",p->name);
 fprintf(fp,"%s\n",p->bingli);
 fprintf(fp,"%d\n",p->cost[0]);
 fprintf(fp,"%d\n",p->cost[1]);
 fprintf(fp,"%d\n",p->cost[2]);
 p=p->next;
 }while(p!=NULL);
 fclose(fp);
}
void liststock(node2 temp)
{
 printf("药品\t数量\t价格\t\n");
 printf("巴米尔\t%d\t%d\t\n",temp.amount[0],temp.price[0]);
 printf("感冒灵\t%d\t%d\t\n",temp.amount[1],temp.price[1]);
 printf("病毒灵\t%d\t%d\t\n",temp.amount[2],temp.price[2]);
 
}
chose()
{
 node1 *head=NULL,*p;
 node2 temp;
 temp=init(temp);
 while(1)
 {
 mainmeun();
 int a;
 scanf("%d",&a);
 switch(a)
 {
 case 1:
 p=create(head);
 head=insert(head,p);
 break;
 case 2:
 search(head);
 break;
 case 3:
 bingli(head);
 break;
 case 4:
 temp=buy(head,temp);
 break;
 case 5:
 list(head);
 break;
 case 6:
 head=load(head);
 break;
 case 7:
 save(head);
 break;
 case 8:
 liststock(temp);
 break;
 case 9:
 printf("谢谢使用\n");
 return(0);
 default:
 printf("输入有误，重新输入\n");
 break;
 }
 }
}
void main()
{
 chose();
}