#include "stdio.h"
#include "malloc.h"
#include "string.h"
#include "ctype.h"
#include "stdlib.h"
#include "time.h"
#include "windows.h"
#include "conio.h"
#define LEAP_YEAR(year) year%4==0&&year%100!=0||year%400==0
struct date
{ int year;
  int month;
  int day;
};
typedef struct owner
{ long int user_number;  //用戶讀者學號
  char user_name[20];  //姓名
  char user_currntbook_name[50];  //用戶當前所借的圖書書名
  long int user_currntbook_code;   //用戶當前所借圖書編號
  struct date user_senddate;  // 借書的日期
  char state[10];    // 是否借書狀態(tài)
  struct owner *next;  
}users;
typedef struct book
{ long int book_code;
  char book_name[50];
  char state[10];
  long int book_currentuser_number;
  char book_currentuser_name[20];
  struct book *next;
}books;
users *load2();
books *load();
void bookadd();
void bookdelete();
void booksend();
void showbook();
void showbook2();
void showuser();
void showuser2();  
void useradd();   //用戶添加
void index();
int days(int y,int m,int d);
int userborrow(long int number,long int bookcode,int flag,char bookname[50]);  
int borrowdays(users *p1);
struct tm *time();
int borrowdays(users *p1)  //計算借書天數(shù)
{ struct tm *t;
  int i,j,k,l,m,o;
  t=time();
  k=days(1900+t->tm_year,1+t->tm_mon,t->tm_mday);
  l=days(p1->user_senddate.year,p1->user_senddate.month,p1->user_senddate.day);
  
  m=(1900+t->tm_year)-p1->user_senddate.year;
  if(m==0)
  { o=k-l;
    return o;
  }
  if(m==1)
  { if(LEAP_YEAR(p1->user_senddate.year))
  { o=366-l+k;
    return o;
  }
  else
  {	o=365-l+k;
    return o;
  }
  }
  if(m>=2)
  { if(LEAP_YEAR(p1->user_senddate.year))
  { o=366-l+k;
	for(i=p1->user_senddate.year+1;i<=1900+t->tm_year-1;i++)
	{ if(LEAP_YEAR(i))
	     o+=366;
	  else
		  o+=365;
	}
	return o;
  }
    else
	{ o=365-l+k;
	  for(i=p1->user_senddate.year+1;i<=1900+t->tm_year-1;i++)
	  { if(LEAP_YEAR(i))
          o+=366;
	    else
			o+=365;
	  }
	  return o;
	}
  }
}
int days(int y,int m,int d)
{ int i,n=0,mt[]={31,28,31,30,31,31,30,31,30,31};
  if(LEAP_YEAR(y))
	  mt[2]=29;
  for(i=1;i<m;i++)
	  n+=mt[i];
  n+=d;
  return n;
}



struct tm *time() //獲取系統(tǒng)時間
{ time_t timep;
  struct tm *p;
  time(&timep);
  p=gmtime(&timep);
  
  return p;
}
users *load2() //讀出用戶資料，并返回資料的鏈表頭指針
{ users *p,*q,*h=NULL;
  FILE *fq;
  	  
  if((fq=fopen("userdocument","rb"))==NULL)
  { printf("can not ppen file\n");
	exit(1); }
	
	
    p=(users *)malloc(sizeof(users));
	
	if(!p)
	{ printf("內(nèi)存溢出!!\n");
	  return h;
	  }
	
	h=p;//申請到空間，將它作為頭指針
	
	while(!feof(fq))
	{ 
	  if(1!=fread(p,sizeof(users),1,fq))
	  
	  break;
	  
	  p->next=(users *)malloc(sizeof(users));
	  
	  if(!p->next)
	  { 
		printf("\n內(nèi)存溢出!!\n");
	    return h;
	  }
	  
	  q=p;
	  p=p->next;//指針后移，新讀入數(shù)據(jù)鏈到當前表尾
	}
	q->next=NULL;
	fclose(fq);
	if(!h)
	{ printf("無存儲用戶信息\n");
	  index();
	}
	return h;
    
}  
books *load()  //讀出圖書資料，并返回資料的鏈表頭指針
{ books *p,*q,*h=NULL;
  FILE *fp;
	  if((fp=fopen("bookdocument","rb"))==NULL)
	  { printf("can not ppen file\n");
	    exit(1); }
	    
	 
	  p=(books *)malloc(sizeof(books));
	  if(!p)
	  { printf("內(nèi)存溢出!!\n");
	    return h;
	  }
	  h=p;//申請到空間，將它作為頭指針
	  while(!feof(fp))
	  { if(1!=fread(p,sizeof(books),1,fp))
	    break;
	  p->next=(books *)malloc(sizeof(books));
	  if(!p->next)
	  { printf("\n內(nèi)存溢出!!\n");
	    return h;
	  }
	  q=p;
	  p=p->next;//指針后移，新讀入數(shù)據(jù)鏈到當前表尾
	  }
	  q->next=NULL;
	  fclose(fp);
	  if(!h)
	  { printf("無存儲圖書信息\n");
	    index();
	  }
	  return(h);
}  
void bookadd()  //添加圖書
{ FILE *fp;
  char state[10]={"in"},state2[10]={"none"};
  int i=0;
  books *p1;
  p1=(books *)malloc(sizeof(books));
  printf("輸入圖書編號");
  scanf("%d",&p1->book_code);
  printf("圖書名:");
  scanf("%s",p1->book_name);
  strcpy(p1->state,state);
  p1->book_currentuser_number=0;
  strcpy(p1->book_currentuser_name,state2);
  p1->next=NULL;
  if((fp=fopen("bookdocument","ab"))==NULL)
  { printf("不能打開文件\n");
    exit(0);
  }
  fwrite(p1,sizeof(books),1,fp);
  fclose(fp);
  printf("添加成功\n");
 
  printf("繼續(xù)添加請按1，其他返回\n");
  scanf("%d",&i);
  if(i==1)
	 bookadd();
  else
	  return;
}
void useradd()   //用戶添加
{ FILE *fq;
  int i,j=0;
  char state[10]={"none"};
  users *p1;
  p1=(users *)malloc(sizeof(users));
  printf("請輸入借書者學號:\n");
  scanf("%d",&p1->user_number);
  printf("請輸入借書者姓名:\n");
  scanf("%s",p1->user_name);
  strcpy(p1->state,state);
  strcpy(p1->user_currntbook_name,state);
  p1->user_senddate.year=0;
  p1->user_senddate.month=0;
  p1->user_senddate.day=0;
  p1->user_currntbook_code=0;
  p1->next=NULL;
  if((fq=fopen("userdocument","ab"))==NULL) 
  { printf("不能打開文件\n");
    exit(0);
  }
  fwrite(p1,sizeof(users),1,fq);
  fclose(fq);
  printf("添加成功\n");
 
  printf("繼續(xù)添加請按1，其他返回\n");
  scanf("%d",&j);
  if(j==1)
	 useradd();
  else
	  return;
}
  
void showbook() //顯示書本基本信息
{ books *p1;
  p1=load();
  while(p1!=NULL)
  { printf("編號:%d\t書名:%s\t狀態(tài):%s\n", p1->book_code,p1->book_name,p1->state);
    p1=p1->next;
  }
}
void showuser() //顯示用戶基本信息
{ users *p1;
  p1=load2();
  while(p1!=NULL)
  { printf("學號:%d\t姓名:%s\t當前是否借書狀態(tài):%s\n", p1->user_number,p1->user_name,p1->state);
    p1=p1->next;
  }
}
void showbook2() //顯示圖書詳細信息
{ FILE *fp;
  books *h;
  int i=0,k=0,l=0,flag=0;
  long int j;
  char n[50];
  if((fp=fopen("bookdocument","rb"))==NULL)
  { printf("不能打開文件\n");
    exit(0);
  }
  h=(books *)malloc(sizeof(books));
  printf("1--按圖書編號查詢   2--按圖書名字查詢:\n");
  scanf("%d",&i);
  if(i==1)
  { 
	printf("請輸入要查詢的圖書編號:\n");
    scanf("%d",&j);
	while(!feof(fp))
  { fread(h,sizeof(books),1,fp);
    if(h->book_code==j)
	{ printf("查找結(jié)果:\n");
	  printf("編號:%d\t書名:%s\t狀態(tài):%s\n", h->book_code,h->book_name,h->state);
      printf("當前擁有此書的讀者姓名(none表示當前沒有此書用戶):%s\t當前擁有此書的讀者學號(0表示當前此書沒有用戶):%d\n",h->book_currentuser_name,h->book_currentuser_number);
	  flag=1;
	  printf("按1繼續(xù)查找，其他返回\n");
      scanf("%d",&l);
      if(l==1)
	  { fclose(fp);
	    showbook2();
	  }
      else 
		  return;
	}
	else 
		h->next=(books *)malloc(sizeof(books));
  }
  
  }
  if(i==2)
  { printf("請輸入要查詢的書名:\n");
    scanf("%s",n);
    while(!feof(fp))
	{ fread(h,sizeof(books),1,fp);
	  if(!strcmp(h->book_name,n))
	  { printf("查找結(jié)果:\n");
	    printf("學號:%d\t姓名:%s\t狀態(tài):%s\n", h->book_code,h->book_name,h->state);
		printf("當前擁有此書的讀者姓名(none表示當前沒有此書用戶):%s\t當前擁有此書的讀者學號(0表示當前此書沒有用戶):%d\n",h->book_currentuser_name,h->book_currentuser_number);
		flag=1;
		printf("按1繼續(xù)查找，其他返回\n");
        scanf("%d",&l);
        if(l==1)
		{ fclose(fp);
	      showbook2();
		}
         else 
		     return;
	  }
	  else
		  h->next=(books *)malloc(sizeof(books));
	}
  }
  if(flag==0)
  { printf("不存在這本圖書，按1繼續(xù)查詢，其他返回\n");
    scanf("%d",&k);
    if(k==1)
	{ fclose(fp);
	  showbook2();
	}
    else 
	   return;
  }
}
void showuser2()   //顯示用戶詳細信息
{ FILE *fq;
  users *h;
  int i=0,k=0,l=0,flag=0;
  long int j;
  char n[20];
  if((fq=fopen("userdocument","rb"))==NULL)
  { printf("不能打開文件\n");
    exit(0);
  }
  h=(users *)malloc(sizeof(users));
  printf("1--按讀者學號查詢   2--按讀者姓名查詢:\n");
  scanf("%d",&i);
  if(i==1)
  { 
	printf("請輸入要查詢的讀者學號:\n");
    scanf("%d",&j);
	while(!feof(fq))
  { fread(h,sizeof(users),1,fq);
    if(h->user_number==j)
	{ printf("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n");
	  printf("查找結(jié)果:\n");