C语言实现医院管理系统

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