#include <stdio.h> 
#include <stdlib.h> 
#include <malloc.h> 
#include <string.h> 
#include <conio.h> 

#define TITLE "\n 月份 工號 姓名  應發工資 各種折扣 實發工資\n" 
#define DATA " %2d %4ld %6s %6.1f %6.1f %6.1f\n",p1->month,p1->num,p1->sex,p1->should_pay,p1->rebate,p1->actual_pay 

typedef struct pay 
{ 
long num; 
short month; 
char name[10]; 
char sex[10];
float gw,jn,zw,zl,jt,yj; 
float should_pay; 
float fz,gj,sd,others; 
float rebate; 
float actual_pay; 
struct pay *next; 
}PAY; 

FILE *fp; 
PAY *p1=NULL,*p2=NULL,*head=NULL; 

void menu(); 
PAY *input(); 
void output(); 
void save(PAY *head); 
PAY *open(); 
PAY *insert(); 
void search(); 
PAY *del(); 
PAY *revise(); 

/*主程序模塊*/ 
void main(void) 
{ 
short sel; 
do 
{ 
menu(); 
scanf("%d",&sel); 
switch(sel) 
{ 
case 1: 
head=input(); //輸入模塊 
break; 
case 2: 
head=insert(); //插入模塊 
break; 
case 3: 
head=revise(); //修改模塊 
break; 
case 4: 
head=del(); //刪除模塊 
break; 
case 5: 
search(); //查找模塊 
break; 
case 6: 
output(); //輸出模塊 
break; 
case 7: 
save(head); //保存模塊 
break; 
case 0: 
break; 
} 
}while(sel!=0); 
} 

/*菜單*/ 
void menu() 
{ 
printf("\n\n\n\n\n\n\n"); 
printf("\t\t\t\t *主菜單選項*\n\n"); 
printf("\t\t\t\t1.創建工資檔案\n"); 
printf("\t\t\t\t2.新增工資信息\n"); 
printf("\t\t\t\t3.修改工資信息\n"); 
printf("\t\t\t\t4.刪除工資信息\n"); 
printf("\t\t\t\t5.查找工資信息\n"); 
printf("\t\t\t\t6.分類信息列表\n"); 
printf("\t\t\t\t7.保 存 信 息\n"); 
printf("\t\t\t\t0.退 出\n"); 
printf("\n\n\n\n\n\n\n\n"); 
} 

/*輸入模塊*/ 
PAY *input() 
{ 
short n=1; 
p1=(PAY*)malloc(sizeof(PAY)); 
if(p1==NULL) 
{ 
printf("內存不足，無法創建鏈表！"); 
getch(); 
} 
printf("\n請輸入第%d位職工的信息（以工號為0結束）：\n",n); 
printf(" 工號："); 
scanf("%d",&p1->num); 
if(p1->num==0) 
{ 
printf("按任意鍵返回！"); 
getch(); 
free(p1); 
return 0; 
} 
getchar(); 
printf(" 姓名：");
gets(p1->sex);
printf(" 工資月份："); 
scanf("%d",&p1->month); 
printf(" 崗位工資，技能工資，職務津貼，職齡津貼，交通補貼，業績津貼：\n"); 
scanf("%f,%f,%f,%f,%f,%f",&p1->gw,&p1->jn,&p1->zw,&p1->zl,&p1->jt,&p1->yj); 
printf(" 房租扣款，公積金，水電費，其它扣款：\n"); 
scanf("%f,%f,%f,%f",&p1->fz,&p1->gj,&p1->sd,&p1->others); 
p1->should_pay=p1->gw+p1->jn+p1->zw+p1->zl+p1->jt+p1->yj; 
p1->rebate=p1->fz+p1->gj+p1->sd+p1->others; 
p1->actual_pay=p1->should_pay-p1->rebate; 
while(p1!=NULL) 
{ 
if(n==1) 
head=p1; 
else 
p2->next=p1; 
n++; 
p2=p1; 
p1=(PAY*)malloc(sizeof(PAY)); 
if(p1==NULL) 
{ 
printf("內存不足，無法創建鏈表！"); 
getch(); 
} 
printf("請輸入第%d位職工的信息（以工號為0結束）：\n",n); 
printf(" 工號："); 
scanf("%d",&p1->num); 
getchar(); 
if(p1->num==0) 
{ 
p1=NULL; 
break; 
} 
printf(" 姓名："); 
gets(p1->sex); 
printf(" 工資月份："); 
scanf("%d",&p1->month); 
printf(" 崗位工資，技能工資，職務津貼，職齡津貼，交通補貼，業績津貼：\n"); 
scanf("%f,%f,%f,%f,%f,%f",&p1->gw,&p1->jn,&p1->zw,&p1->zl,&p1->jt,&p1->yj); 
printf(" 房租扣款，公積金，水電費，其它扣款：\n"); 
scanf("%f,%f,%f,%f",&p1->fz,&p1->gj,&p1->sd,&p1->others); 
p1->should_pay=p1->gw+p1->jn+p1->zw+p1->zl+p1->jt+p1->yj; 
p1->rebate=p1->fz+p1->gj+p1->sd+p1->others; 
p1->actual_pay=p1->should_pay-p1->rebate; 
} 
p2->next=NULL; 
printf("職工信息已輸入，請按任意鍵返回，并存盤……"); 
getch(); 
return head; 
} 

/*輸出模塊*/ 
void output() 
{ 
short sel,flag,month; 
float min,max; 
do 
{ 
do 
{ 
printf("\n\n請選擇您的列表方式：\n"); 
printf("\t\t1.全部清單\n"); 
printf("\t\t2.按月輸出\n"); 
printf("\t\t3.按工資段輸出\n"); 
printf("\t\t0.返回\n"); 
scanf("%d",&sel); 
}while(sel!=1&&sel!=2&&sel!=3&&sel!=0); 
head=open(); 
if(head==NULL) 
return; 
else 
switch(sel) 
{ 
case 1: 
printf("\n\t\t\t ******全部清單******\n"); 
printf(TITLE); 
p1=head; 
do 
{ 
printf(DATA); 
p1=p1->next; 
}while(p1!=NULL); 
break; 
case 2: 
flag=0; 
printf("輸入要查的月份："); 
scanf("%d",&month); 
printf("\n\t\t\t******第%d月工資清單******\n",month); 
printf(TITLE); 
p1=head; 
do 
{ 
if(p1->month==month) 
{ 
printf(DATA); 
p1=p1->next; 
flag=1; 
} 
else 
p1=p1->next; 
}while(p1!=NULL); 
if(flag==0) 
printf("沒有該月清單\n"); 
break; 
case 3: 
flag=0; 
printf("輸入最低工資："); 
scanf("%f",&min); 
printf("輸入最高工資："); 
scanf("%f",&max); 
printf("\n\t\t ******%5.1f到%5.1f工資的名單******\n",min,max); 
printf(TITLE); 
p1=head; 
do 
{ 
if(p1->actual_pay>min&&p1->actual_pay<max) 
{ 
printf(DATA); 
p1=p1->next; 
flag=1; 
} 
else 
p1=p1->next; 
}while(p1!=NULL); 
if(flag==0) 
printf("沒有該工資段的職工\n"); 
break; 
case 0: 
break; 
} 
}while(sel!=0); 
} 

/*保存文件*/ 
void save(PAY *head) 
{ 
short write; 
fp=fopen("pay.txt","w"); 
if(fp==NULL) 
{ 
printf("創建文件失敗！"); 
getch(); 
return; 
} 
p1=p2=head; 
while(p1!=NULL) 
{ 
write=fwrite(p1,sizeof(PAY),1,fp); 
if(!write) 
{ 
printf("無法寫入文件！"); 
getch(); 
return; 
} 
p1=p1->next; 
} 
fclose(fp); 
printf("成功存盤！"); 
getch(); 
} 

/*打開文件*/ 
PAY *open() 
{ 
short n=1,read; 
fp=fopen("pay.txt","r"); 
if(fp==NULL) 
{ 
printf("無法打開檔案文件！"); 
getch(); 
return NULL; 
} 
if((p1=p2=(PAY*)malloc(sizeof(PAY)))==NULL) 
{ 
printf("內存不足！"); 
getch(); 
return NULL; 
} 
read=fread(p1,sizeof(PAY),1,fp); 
if(!read) 
{ 
printf("文件讀取出錯！1"); 
getch(); 
return NULL; 
} 
if(p1->next==NULL) 
head=p1; 
else 
{ 
do 
{ 
if(n==1) 
head=p1; 
else 
p2->next=p1; 
n++; 
p2=p1; 
if((p1=(PAY*)malloc(sizeof(PAY)))==NULL) 
{ 
printf("內存不足！"); 
getch(); 
return NULL; 
} 
read=fread(p1,sizeof(PAY),1,fp); 
if(!read) 
{ 
printf("文件讀取出錯！2"); 
getch(); 
return NULL; 
} 
}while(p1->next!=NULL); 
p2->next=p1; 
} 
return head; 
fclose(fp); 
} 

/*插入模塊*/ 
PAY *insert() 
{ 
PAY *p3=NULL; 
char sel; 
head=open(); 
if(head==NULL) 
return NULL; 
else 
do 
{ 
printf("請輸入要插入的職工信息：\n"); 
p3=(PAY*)malloc(sizeof(PAY)); 
if(p3==NULL) 
{ 
printf("內存不足，無法創建鏈表！"); 
getch(); 
} 
printf(" 工號："); 
scanf("%d",&p3->num); 
getchar(); 
printf(" 姓名："); 
gets(p3->sex); 
printf(" 工資月份："); 
scanf("%d",&p3->month); 
printf(" 崗位工資，技能工資，職務津貼，職齡津貼，交通補貼，業績津貼：\n"); 
scanf("%f,%f,%f,%f,%f,%f",&p3->gw,&p3->jn,&p3->zw,&p3->zl,&p3->jt,&p3->yj); 
printf(" 房租扣款，公積金，水電費，其它扣款：\n"); 
scanf("%f,%f,%f,%f",&p3->fz,&p3->gj,&p3->sd,&p3->others); 
p3->should_pay=p3->gw+p3->jn+p3->zw+p3->zl+p3->jt+p3->yj; 
p3->rebate=p3->fz+p3->gj+p3->sd+p3->others; 
p3->actual_pay=p3->should_pay-p3->rebate; 
p1=head; 
while(p1!=NULL) 
{ 
p2=p1; 
p1=p1->next; 
} 
p2->next=p3; 
p3->next=NULL; 
printf("成功插入，是否繼續？是（Y） 否（N）\n"); 
sel=getch(); 
}while(sel=='Y'||sel=='y'); 
printf("\n任意鍵返回，并存盤……\n"); 
getch(); 
return head; 
} 

/*查找模塊*/ 
void search() 
{ 
short sel; 
long num; 
char name[20],choose; 
head=open(); 
if(head==NULL) 
return; 
else 
do 
{ 
do 
{ 
printf("\n選擇查找方式：\n"); 
printf("\t\t1.按工號查找\n"); 
printf("\t\t2.按姓名查找\n"); 
scanf("%d",&sel); 
getchar(); 
}while(sel!=1&&sel!=2); 
switch(sel) 
{ 
case 1: 
printf("輸入要查的工號："); 
scanf("%ld",&num); 
break; 
case 2: 
printf("輸入要查的姓名："); 
gets(name); 
break; 
} 
p1=head; 
while((p1->next!=NULL)&&(p1->num!=num)&&(strcmp(p1->name,name)!=0)) //用成p1!=NULL有問題？ 
p1=p1->next; 
if((p1->num==num)||strcmp(p1->name,name)==0) 
{ 
printf("您要查找的信息如下：\n"); 
printf(TITLE); 
printf(DATA); 
} 
else 
printf("沒有該信息！\n"); 
printf("是否繼續？是（Y） 否（N）\n"); 
choose=getch(); 
}while(choose=='Y'||choose=='y'); 
printf("任意鍵返回"); 
getch(); 
} 

/*刪除模塊*/ 
PAY *del() 
{ 
short sel; 
long num; 
char name[20],choose; 
head=open(); 
if(head==NULL) 
return NULL; 
else 
do 
{ 
do 
{ 
printf("\n選擇刪除方式：\n"); 
printf("\t\t1.按工號刪除\n"); 
printf("\t\t2.按姓名刪除\n"); 
scanf("%d",&sel); 
getchar(); 
}while(sel!=1&&sel!=2); 
switch(sel) 
{ 
case 1: 
printf("輸入要刪除的工號："); 
scanf("%ld",&num); 
break; 
case 2: 
printf("輸入要刪除的姓名："); 
gets(name); 
break; 
} 
p1=head; 
if((p1->num==num)||strcmp(p1->name,name)==0) 
{ 
head=p1->next; 
printf("刪除信息成功！"); 
} 
else 
{ 
while((p1->next!=NULL)&&(p1->num!=num)&&(strcmp(p1->name,name)!=0)) 
{ 
p2=p1; 
p1=p1->next; 
} 
if((p1->num==num)||strcmp(p1->name,name)==0) 
{ 
p2->next=p1->next; 
free(p1); 
printf("\n刪除信息成功！\n"); 
} 
else 
printf("\n沒有該信息！\n"); 
} 
printf("是否繼續？是（Y） 否（N）\n"); 
choose=getch(); 
}while(choose=='Y'||choose=='y'); 
printf("任意鍵返回,并存盤……"); 
getch(); 
return head; 
} 

/*修改模塊*/ 
PAY *revise() 
{ 
short sel; 
long num; 
char name[20],choose; 
head=open(); 
if(head==NULL) 
return NULL; 
else 
do 
{ 
do 
{ 
printf("\n查找要修改的對象：\n"); 
printf("\t\t1.按工號查找\n"); 
printf("\t\t2.按姓名查找\n"); 
scanf("%d",&sel); 
getchar(); 
}while(sel!=1&&sel!=2); 
switch(sel) 
{ 
case 1: 
printf("輸入要查的工號："); 
scanf("%ld",&num); 
break; 
case 2: 
printf("輸入要查的姓名："); 
gets(name); 
break; 
} 
p1=head; 
while((p1->next!=NULL)&&(p1->num!=num)&&(strcmp(p1->name,name)!=0)) //用成p1!=NULL有問題？ 
p1=p1->next; 
if((p1->num==num)||strcmp(p1->name,name)==0) 
{ 
printf("您要修改的原始信息如下：\n"); 
printf(TITLE); 
printf(DATA); 
printf("\n將上述信息改為如下信息：\n"); 
printf(" 工號："); 
scanf("%d",&p1->num); 
getchar(); 
printf(" 姓名："); 
gets(p1->name);
printf(" 性別：");
gets(p1->sex); 
printf(" 工資月份："); 
scanf("%d",&p1->month); 
printf(" 崗位工資，技能工資，職務津貼，職齡津貼，交通補貼，業績津貼：\n"); 
scanf("%f,%f,%f,%f,%f,%f",&p1->gw,&p1->jn,&p1->zw,&p1->zl,&p1->jt,&p1->yj); 
printf(" 房租扣款，公積金，水電費，其它扣款：\n"); 
scanf("%f,%f,%f,%f",&p1->fz,&p1->gj,&p1->sd,&p1->others); 
p1->should_pay=p1->gw+p1->jn+p1->zw+p1->zl+p1->jt+p1->yj; 
p1->rebate=p1->fz+p1->gj+p1->sd+p1->others; 
p1->actual_pay=p1->should_pay-p1->rebate; 
} 
else 
printf("你要修改的信息不存在！\n"); 
printf("是否繼續？是（Y） 否（N）\n"); 
choose=getch(); 
}while(choose=='Y'||choose=='y'); 
printf("任意鍵返回，并存盤……"); 
getch(); 
return head; 
}