#include <iostream.h>
#include <stdio.h>
#include <string.h>
#include <conio.h>
#define m 4				//3架飛機(jī)
#define n 5			//每架飛機(jī)5張票

struct node
{
	char name[21];
	char id[21];
	int  seat,plane,date;
	node *next,*pre;
};
struct wait
{
	char name[21];
	char id[21];
	char phone[8];
	int  seat,plane,date,count;
	wait *next,*pre;
};
struct piao
{
	int seat[n+1];
};

void makenull();		
void makenull_piao();
void makenull_information();
void list_menu();
void list_piao();
void makenull_wait();
void list_information();
void plane_information(node *head);
void book();
void add_information(node *head,int x,int y);
void add_wait(int x,int y);
void search_delete(int x);
void write_to_file();
void show_wait();
bool comp(node *x,node*y);

node *head1,*head2,*head3,*q;
wait *wait_head,*wait_end;
char c;
piao a[m];

void main()
{

	makenull();
	do
	{	list_menu();
		cout<<endl<<"choose an operation:  ";
		cin>>c;
		if (c!='6')
			switch(c)
		{
            case '0' : show_wait();break;
			case '1' : {list_piao();book();}break;
			case '2' : search_delete(1);break;
			case '3' : list_piao();break;
			case '4' : list_information();break;
			case '5' : search_delete(0);break;
			default :  break;
		}
	}while(c!='6');
	cout<<"Exit System ";
}
void makenull()
{
	makenull_piao();
	makenull_information();
	makenull_wait();
}
void list_menu()
{   cout<<endl<<"";
    cout<<endl<<"              菜單";
	cout<<endl<<"     ************************";
	cout<<endl<<"     *    0 . 查看排隊(duì)情況  *";
	cout<<endl<<"     *    1 . 訂票          *";
	cout<<endl<<"     *    2 . 退票          *";
	cout<<endl<<"     *    3 . 查看剩余票    *";
	cout<<endl<<"     *    4 . 查看飛機(jī)信息  *";
	cout<<endl<<"     *    5 . 查看乘客信息  *";
	cout<<endl<<"     *    6 . 退出          *";
	cout<<endl<<"     ************************";
	cout<<endl<<"";
}
void makenull_piao()
{
	FILE *fp;
	int i;
	if((fp=fopen("piao.dat","r")) == NULL )
	{
		fp=fopen("piao.dat","w");
		for (i=1;i<=m-1;i++)
			fwrite(&a[i],sizeof(piao),1,fp);
		fclose(fp);
		fp=fopen("piao.dat","r");
	}
	for(i=1;i<=m-1;i++)
		fread(&a[i],sizeof(piao),1,fp);
	fclose(fp);
}
void makenull_information()
{
	node *r;
	FILE *fp;
	int i,j,sum;

	sum=a[1].seat[0]+a[2].seat[0]+a[3].seat[0];
	fp=fopen("information.dat","r");
	head1=new node;
	head2=new node;
	head3=new node;
	head1->pre=NULL;
	head1->next=NULL;
	head2->pre=NULL;
	head2->next=NULL;
	head3->pre=NULL;
	head3->next=NULL;
	q=head1;
	for(i=1;i<=sum;i++)
	{
		j=0;
		r=new node;
		fread(r,sizeof(node),1,fp);
		q->next=r;
		r->pre=q;
		r->next=NULL;
		q=q->next;
		fclose(fp);
		if(i==a[1].seat[0]+1) {
			head2->next=q;
			q->pre->next=NULL;
			q->pre=head2;
		}
		if(i==a[1].seat[0]+a[2].seat[0]+1) {
			head3->next=q;
			q->pre->next=NULL;
			q->pre=head3;
		}
	}
}

void makenull_wait()
{
	wait *tempw;
	FILE *fp;
	tempw=new wait;
	int i;
	if((fp=fopen("wait.txt","r")) ==NULL )
	{
		fp=fopen("wait.txt","w");
		fclose(fp);
	}
    wait_end=new wait;
	wait_head=new wait;
	wait_end->next=NULL;
	wait_end->pre=NULL;
	wait_head=wait_end;
	wait_head->count=0;
	fp=fopen("wait.txt","r");
	fread(wait_head,sizeof(wait),1,fp);
				for(i=1;i<=wait_head->count;i++)
			{
				fread(tempw,sizeof(wait),1,fp);
				wait_end->next=tempw;
				tempw->pre=wait_end;
				tempw->next=NULL;
				wait_end=tempw;
			}
}



void list_piao()
{
	int i,j;
	for(i=1;i<=m-1;i++)
	{
		if(a[i].seat[0]!=n)
		{
			cout<<endl<<"第 "<<i<<" 架飛機(jī)剩余的票 :"<<endl;
			for(j=1;j<=n;j++) 
				if (a[i].seat[j]==0) cout<<" "<<j;
			cout<<endl;
		}
		else cout<<endl<<"The "<<i<<" plane is full !"<<endl<<endl;
	}
}
void list_information()
{
	int x;
	do {cout<<endl<<"顯示哪架飛機(jī)的信息 ? "; cin>>x;cout<<endl;}while(x<1 || x>=m);
	cout<<endl<<"第 "<<x<<" 架飛機(jī)的信息如下  "<<endl;
	if(x==1) plane_information(head1);
	if(x==2) plane_information(head2);
	if(x==3) plane_information(head3);
}

void plane_information(node *head)
{
	node *q;
	char ch;
	int x=0;
	if(head!=NULL && head->next!=NULL) 
		q=head->next;
	else {
		q=NULL; 
		cout<<"飛機(jī)空,無預(yù)訂票 !"<<endl;
	}
	while(q!=NULL) 
	{
		cout<<endl<<"*******************"<<endl;
		q->date=q->plane;
		cout<<"日期 :"<<q->date<<endl;
		cout<<"座位號(hào) : "<<q->seat<<endl;
		cout<<"姓名 : "<<q->name;
		cout<<endl<<"ID 號(hào) : "<<q->id;
		q=q->next;x++;
		if (x % 3 ==0) ch=getch();
	}
	cout<<endl;
}
void book()
{
	int i,j,p;
	cout<<endl<<"請選擇地點(diǎn)：（1、2、3） ";
	do {
		cin>>i;
		if (i<1 || i>=m) {
			cout<<endl<<"**** 超出范圍！****"<<endl<<"請重新輸入：";
		}
		else 
		{cout<<endl<<"你要訂的是到"<<i<<"地的飛機(jī)"<<endl;
			cout<<endl<<"第 "<<i<<" 架飛機(jī)剩余的票 :"<<endl;
			for(p=1;p<=n;p++) 
				if (a[i].seat[p]==0) cout<<" "<<p;
			cout<<endl;
			break;}
	}while(1);
	cout<<endl<<"請選擇座位號(hào) : ";
	do {
		cin>>j;
		if (j<1 || j>n) {
			cout<<endl<<"**** 超出范圍！****"<<endl<<"請重新輸入：";
		}
		else 
		{
			q->date=i;
			cout<<endl<<"您的訂票日期 : "<<q->date<<endl;
			break;
		}
	}while(1);

	if (a[i].seat[j]==0) {
		a[i].seat[j]=1;
		cout<<endl;
		a[i].seat[0]++;
		if(i==1) add_information(head1,1,j);
		if(i==2) add_information(head2,2,j);
		if(i==3) add_information(head3,3,j);
	}
	else
	{
		cout<<endl<<"**** 對不起,該座位已被預(yù)訂，您被安排到訂票等候隊(duì)列 ****"<<endl;
		add_wait(i,j);
	}

}
void add_wait(int x,int y)
{
	wait *tempw;
	tempw=new wait;
	tempw->next=NULL;
    cout<<"請輸入個(gè)人信息"<<endl;
	cout<<endl<<"*************"<<endl;
    cout<<"姓名 : ";cin>>tempw->name;
    cout<<"ID號(hào) : ";cin>>tempw->id;
	cout<<"電話 :";cin>>tempw->phone;
	tempw->seat=y;
	tempw->plane=x;
	wait_end->next=tempw;
	tempw->pre=wait_end;
	wait_end=wait_end->next;
	cout<<endl<<"**** 正在排隊(duì)等候 ****"<<endl;
	wait_head->count++;
	write_to_file();
}
void show_wait()
{
	wait *tempw;
	tempw=wait_head->next;
	if (tempw==NULL) cout<<endl<<"排隊(duì)中沒有人！"<<endl;
	while(tempw!=NULL)
	{
	cout<<tempw->name<<" - ";
	tempw=tempw->next;
	}
}
void add_information(node *head,int x,int y)
{
	node *temp;
	temp=new node;
	temp->pre=NULL;
	temp->next=NULL;
    cout<<"請輸入個(gè)人信息"<<endl;
	cout<<endl<<"*************"<<endl;
    cout<<"姓名 : ";cin>>temp->name;
    cout<<"ID號(hào) : ";cin>>temp->id;
	temp->seat=y;
	temp->plane=x;
	temp->next=head->next;
	temp->pre=head;
	if (head->next!=NULL) head->next->pre=temp;
	head->next=temp;
	write_to_file();
	cout<<endl<<"**** 訂票成功 ****"<<endl;
}
void search_delete(int x)
{
	node *p,*q,*r;
	wait *tempw,*tempw2,*tempw3;
	int step=1,t1,t2,i;
	char ch;
	p=new node;
	tempw=new wait;
	tempw2=new wait;
	tempw3=new wait;
	q=head1;
	cout<<endl<<"請輸入個(gè)人信息"<<endl;
	cout<<"*************"<<endl;
	cout<<endl<<"姓名 : ";cin>>p->name;
	do{
		q=q->next;
		if ( (q!=NULL) && 
			(comp(q,p)) )
		{
			cout<<endl;
			q->date=q->plane;
			cout<<"Located!"<<endl;
			cout<<"****************";
			cout<<endl<<"姓名 : "<<q->name;
			cout<<endl<<"ID號(hào) : "<<q->id;
			cout<<endl<<"座位號(hào) : "<<q->seat;
			cout<<endl<<"班機(jī)號(hào) : "<<q->plane;
			cout<<endl<<"日期 : "<<q->date<<endl;
			if (x==1) {
				cout<<"刪除該紀(jì)錄 ? [Y/N] ";
				cin>>ch;
				if (ch=='Y' || ch=='y') {
					t1=q->plane;
					t2=q->seat;
					a[t1].seat[t2]=0;
					a[t1].seat[0]--;
					r=q;q=q->pre;
					r->pre->next=r->next;
					if(r->next!=NULL) r->next->pre=r->pre;
					delete(r);
					cout<<"**** 記錄刪除成功 ! ****";
					write_to_file();
					tempw=wait_head;
					for(i=0;i<wait_head->count;i++)
					{
						tempw=tempw->next;
						if(tempw==NULL) break;
						if((tempw->plane==t1) && (tempw->seat==t2))
						{
							strcpy(tempw3->name,tempw->name);
							strcpy(tempw3->phone,tempw->phone);
							cout<<endl<<"等候的人中有可以訂票的了："<<endl;
							cout<<endl<<"姓名 : "<<tempw->name;
							cout<<endl<<"ID號(hào) : "<<tempw->id<<endl;
							a[t1].seat[0]++;
							a[t1].seat[t2]=1;
							if(tempw->plane==1) add_information(head1,1,tempw->seat);
							if(tempw->plane==2) add_information(head2,2,tempw->seat);
							if(tempw->plane==3) add_information(head3,3,tempw->seat);
							tempw2=tempw->pre;
							tempw2->next=tempw->next;
							if(tempw->next==NULL) wait_end=tempw2;
							else  tempw->next->pre=tempw2;
							delete(tempw);
							wait_head->count--;
							write_to_file();
							cout<<endl<<"等候的"<<tempw3->name<<"已經(jīng)成功訂票，已經(jīng)由電話"<<tempw3->phone<<"通知了"<<endl;
							break;
						}
					}

				}
			}continue;
		}
		else 
		{
			if (q==NULL) 
			{
				step++;
				if(step==2) q=head2;
				if(step==3) q=head3;
				if(step==4) {cout<<endl<<"**** 信息檢索完畢 ****";break;}
			}
		}
	}while(1);
}
bool comp(node *x,node *y)
{
	node *p,*q;
	int i,j,k;
	p=x;
	q=y;
	i=j=0;
	do
	{
		while ( (p->name[i] != q->name[j]) && (p->name[i] != '\0') ) i++;
			
		if (p->name[i] == '\0') {return(false);break;}
		else 
		{
			k=i;
			while ( (p->name[k] == q->name[j]) && (q->name[j]!='\0') ) {k++;j++;}
			if (q->name[j]=='\0') return(true);
			else
			{
				j=0;
				i++;
			}
		}
	}while( (q->name[j]!='\0') && (p->name[i] != '\0') );
	return(false);
}

void write_to_file()
{
	FILE *fp;
	int i,j;
	int x[m];
	node *p;
	wait *tempw;
	tempw=new wait;
	tempw=wait_head;
	fp=fopen("piao.dat","w");
	for (i=1;i<=m-1;i++)
	{
		fwrite(&a[i],sizeof(piao),1,fp);
	}
	fclose(fp);

	fp=fopen("information.dat","w");
	x[0]=0;x[1]=a[1].seat[0];
	for(i=0,j=1;j<=m-1;j++) {i=i+a[j].seat[0];x[j]=a[j].seat[0]+x[j-1];}
	j=1;p=head1->next;
	for(j=1;j<=i;j++)
	{
		if(j==x[1]+1) p=head2->next;
		if(j==x[2]+1) p=head3->next;    
		if(p==NULL)break;
		fwrite(p,sizeof(node),1,fp);
		p=p->next;
	}
	fclose(fp);

	fp=fopen("wait.txt","w");
	for(j=0;j<=wait_head->count;j++)
	{   
		if(tempw==NULL)break;
		fwrite(tempw,sizeof(wait),1,fp);
		tempw=tempw->next;
	}
	fclose(fp);
}