C语言之医院管理系统

这个是C语言学完后的一个程序实践的内用。编写一个医院病人管理系统。这个程序有一些BUG，要操作得当，否则可能结果有问题。不过作为作业应付一下还是有模有样的，哈哈。至少当时答辩时弄的还可以。

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

运行时的截图，由于模块太多，就看看主页面吧。