#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();} 
