一份可以在vc6.0等软件上运行的C语言代码清单，其中一个主函数，设置多个调用函数，分别实现排序，输入，读取等功能模块。
#include<stdio.h>#include<stdlib.h>#include<ctype.h>#include<string.h>#define feipeineicun(p) do{ p=(shebei*)malloc(sizeof(shebei));if(p==NULL){printf("内存分配失败！");exit(-1);} }while(0)#define len sizeof(shebei)typedef struct time{int year;int mouth;int day;}time;typedef struct shebei{int bianhao;char mingcheng[15];char zhonglei[15];int danjia;int niandai;char chanjia[15];char baofei[10];time time;struct shebei *next;}shebei;//extern int//函数声明下面void caidan(shebei *top);int xuanze();shebei *xinxiluru(shebei *top); void neirongxianshi(shebei *top); void xinxichazhao(shebei *top); shebei *xinxixiugai(shebei *top); shebei *xinxishanchu(shebei *top); shebei *shebeibaofei(shebei *top);shebei *xinxipaixu(shebei *top);void fenleitongji(shebei *top);void tongmingguibing(shebei *top);void baocun(shebei *top);//#include"头文件.h"void main(){shebei *top;printf("\t************************************************* *********\n");printf("\t----------------------------------------------------------\n");printf("\t************************************************* *********\n");printf("\t--------\n");printf("\t**** 欢迎进入单位仪器设备基本信息管理系统****\n");printf("\t--------\n");printf("\t************************************************* *********\n");printf("\t----------------------------------------------------------\n");printf("\t************************************************* *********\n");do{ top=(shebei*)malloc(sizeof(shebei));if(top==NULL){printf("内存分配失败！");exit(-1);} }while(0);top->next=NULL;caidan(top);}//#include"头文件.h"void caidan(shebei *top){while(1){switch(xuanze()){case 1:top=xinxiluru(top);break;case 2:neirongxianshi(top);break;case 3:xinxichazhao(top);break;case 4:top=xinxixiugai(top);break;case 5:top=xinxishanchu(top);break;case 6:top=shebeibaofei(top);break;case 7:top=xinxipaixu(top);break;case 8:tongmingguibing(top); //先同名合并fenleitongji(top);break;case 9:baocun(top);break;default:printf("退出操作，拜拜！\n");exit(0);}}}int xuanze(){int n;printf("\n1.增加记录\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("按0退出\n");for(;;){scanf("%d",&n);if(n<0||n>9)printf("\n输入错误，请重新输入：");elsebreak;}return n;}//#include"头文件.h"shebei *shebeibaofei(shebei *top){shebei *p;char b[15],c;p=top->next;if(top->next==NULL){printf("没有信息记录，返回菜单选择\n");return top;}printf("请输入要报废的设备名称：");scanf("%s",b);while(p){if(strcmp(b,p->mingcheng)==0){if(strcmp(p->baofei,"是")!=0){printf("将要报废的设备信息如下：\n");printf("设备编号设备名称设备种类设备单价购进年代生产厂家是否报废\n");printf("%d %s %s %d %d %s %s\n",p->bianhao,p->mingcheng,p->zhonglei,p->danjia,p->niandai,p->chan jia,p->baofei);printf("是否确认报废？(Y/N):");scanf("%c",&c);scanf("%c",&c);if(c=='y'||c=='Y'){strcpy(p->baofei,"是");printf("此设备已被报废\n");}}elseprintf("此设备已经为报废状态\n");break;}p=p->next;}if(p==NULL)printf("没有找到该设备信息\n");printf("按任意键返回主菜单\n");getchar();getchar();return top;}//#include"头文件.h"shebei *xinxiluru(shebei *top){int n;shebei *p,*q;p=top;while(p->next!=NULL){p=p->next;}printf("请输入设备信息:\n输入0则结束\n"); do{feipeineicun(q);printf("请输入设备的编号");scanf("%d",&q->bianhao);if(q->bianhao==0)break;printf("请输入设备的名称");scanf("%s",q->mingcheng);printf("请输入设备的种类");scanf("%s",q->zhonglei);printf("请输入设备的单价");scanf("%d",&q->danjia);printf("请输入设备的年代");scanf("%d",&q->niandai);printf("请输入设备的生产产家");scanf("%s",q->chanjia);printf("请输入设备的报废情况\n");printf("0.没有报废\n1.已经报废\n");for(;;){scanf("%d",&n);if(n!=0&&n!=1)printf("输入错误，请重新输入：\n");elsebreak;}if(n==0){strcpy(q->baofei,"否");q->time.year=q->time.day=q->time.day=0;}else{strcpy(q->baofei,"是");printf("请输入报废时间（格式为2015 10 12）：");scanf("%d%d%d",&q->time.year,&q->time.mouth,&q->time.day);}p->next=q;p=q;p->next=NULL;}while(1);free(q);printf("录入完毕，按任意键返回主菜单\n");getchar();getchar();return top;}//#include"头文件.h"void neirongxianshi(shebei *top){shebei *p;p=top->next;if(top->next){printf("设备信息如下：\n");printf("设备编号设备名称设备种类设备单价购进年代生产厂家是否报废\n");}elseprintf("记录为空，返回菜单\n");while(p){printf("%d %s %s %d %d %s %s\n",p->bianhao,p->mingcheng,p->zhonglei,p->danjia,p->niandai,p->chan jia,p->baofei);p=p->next;}printf("按任意键返回主菜单\n");getchar();getchar();}//#include"头文件.h"void baocun(shebei *top){FILE *fp;shebei *p;p=top->next;if(top->next==NULL){printf("没有东西可存！\n");return;}if((fp=fopen("shebei.txt","wb"))==NULL) {printf("\n");exit(1);}while(p){fwrite(p,len,1,fp);p=p->next;}fclose(fp);printf("信息已经存入文件，请继续\n"); }//#include"头文件.h"void xinxichazhao(shebei *top){shebei *p;int a,n;char b[15];p=top->next;if(top->next==NULL){printf("没有记录信息，返回菜单选择\n");return;}printf("查找方式：\n");printf("1.按编号查找\n2.按名称查找\n");for(;;){scanf("%d",&n);if(n!=2&&n!=1)printf("输入错误，请重新输入：\n");elsebreak;}if(n==1){printf("请输入设备编号：");scanf("%d",&a);while(p){if(a==p->bianhao){printf("查找到的设备信息如下：\n");printf("设备编号设备名称设备种类设备单价购进年代生产厂家是否报废\n");printf("%d %s %s %d %d %s %s\n",p->bianhao,p->mingcheng,p->zhonglei,p->danjia,p->niandai,p->chan jia,p->baofei);break;}p=p->next;}}elseif(n==2){printf("请输入设备名称：");scanf("%s",b);while(p){if(strcmp(b,p->mingcheng)==0){printf("查找到的设备信息如下：\n");printf("设备编号设备名称设备种类设备单价购进年代生产厂家是否报废");printf("%d %s %s %d %d %s %s\n",p->bianhao,p->mingcheng,p->zhonglei,p->danjia,p->niandai,p->chan jia,p->baofei);break;}p=p->next;}}if(p==NULL)printf("没有找到该信息\n");printf("按任意键返回主菜单\n");getchar();getchar();}//#include"头文件.h"shebei *xinxipaixu(shebei *top){shebei *p,*q,*s,*t;t=top;s=p=top->next;if(p==NULL){printf("内容为空，按任意键返回菜单选择");getchar();getchar();return top;}if(p->next==NULL){printf("排序完毕，返回主菜单\n");return top;}while(p){q=p->next;while(q){if(p->danjia>q->danjia){s->next=q->next;t->next=q;q->next=p;p=q;q=q->next;}else{s=s->next;q=q->next;}}t=t->next;s=p=p->next;}printf("排序完毕，返回主菜单\n");return top;}//#include"头文件.h"shebei *xinxishanchu(shebei *top){shebei *p,*q;int a;p=top->next;q=top;if(top->next==NULL){printf("没有可删除的信息，按任意键返回菜单选择\n");getchar();getchar();return top;}printf("请输入要删除的设备编号：");scanf("%d",&a);while(p){if(a==p->bianhao){printf("\n删除的设备信息如下：\n");printf("设备编号设备名称设备种类设备单价购进年代生产厂家是否报废\n");printf("%d %s %s %d %d %s %s\n",p->bianhao,p->mingcheng,p->zhonglei,p->danjia,p->niandai,p->chan jia,p->baofei);if(p->next==NULL){q->next=NULL;free(p);}else{q->next=p->next;free(p);}break;}q=q->next;p=p->next;}if(p==NULL)printf("此设备不存在，按任意键返回\n");elseprintf("----删除成功，按任意键返回----\n");getchar();getchar();return top;}//#include"头文件.h"void tongmingguibing(shebei *top){shebei *p,*q,*s,*t,*j,*k;int flag;t=top;s=p=top->next;if(p==NULL){// printf("内容为空，按任意键返回上级");getchar();getchar();return;}if(p->next==NULL){// printf("排序完毕，返回上级\n");return;}while(p){flag=0;q=p->next;while(q){if(strcmp(p->mingcheng,q->mingcheng)==0){s->next=q->next;t->next=q;q->next=p;p=q;q=s->next;}else{if(flag==0){j=q;k=s;flag++;}s=s->next;q=q->next;}}if(flag!=0){p=j;t=s;}else{//printf("归并完毕，返回主菜单\n");return;}}// printf("归并完毕，返回主菜单\n");return;}void fenleitongji(shebei *top){shebei *p,*q,*s;int flag,n=0;p=top->next;s=p;if(top->next==NULL){printf("内容为空，按任意键返回菜单选择");getchar();getchar();return;}//tongmingguibing(top);while(p){flag=0;n=1;q=p->next;while(q){if(strcmp(p->mingcheng,q->mingcheng)==0)n++;else{if(flag==0)s=q;flag++;}q=q->next;}printf("名称为%s的设备数量为%d\n",p->mingcheng,n);if(flag!=0)p=s;elsereturn;}}//#include"头文件.h"shebei *xinxixiugai(shebei *top){shebei *p;int a,m,n;char b[15];p=top->next;if(top->next==NULL){printf("没有可供修改的信息，返回菜单选择\n");return top;}printf("请输入修改方式：\n");printf("1.按编号\n2.按名称\n");for(;;){scanf("%d",&n);if(n!=2&&n!=1)printf("输入错误，请重新输入：\n");elsebreak;}if(n==1){printf("请输入要修改的设备编号：");scanf("%d",&a);while(p){if(a==p->bianhao){printf("查找到要修改的设备信息如下：\n");printf("设备编号设备名称设备种类设备单价购进年代生产厂家是否报废\n");printf("%d %s %s %d %d %s %s\n",p->bianhao,p->mingcheng,p->zhonglei,p->danjia,p->niandai,p->chan jia,p->baofei);printf("请重新输入设备的编号");scanf("%d",&p->bianhao);printf("请重新输入设备的名称");scanf("%s",p->mingcheng);printf("请重新输入设备的种类");scanf("%s",p->zhonglei);printf("请重新输入设备的单价");scanf("%d",&p->danjia);printf("请重新输入设备的年代");scanf("%d",&p->niandai);printf("请重新输入设备的生产产家"); scanf("%s",p->chanjia);printf("请重新输入设备的报废情况\n"); printf("0.没有报废\n1.已经报废\n");for(;;){scanf("%d",&m);if(m!=0&&m!=1)printf("输入错误，请重新输入：\n");elsebreak;}if(m==0){strcpy(p->baofei,"否");p->time.year=p->time.day=p->time.day=0;}else{strcpy(p->baofei,"是");printf("请输入报废时间（格式为2015 10 12）：");scanf("%d%d%d",&p->time.year,&p->time.mouth,&p->time.day);}break;}p=p->next;}}elseif(n==2){printf("请输入要修改的设备名称：");scanf("%s",b);while(p){if(strcmp(b,p->bianhao)==0){printf("查找到要修改的设备信息如下：\n");printf("设备编号设备名称设备种类设备单价购进年代生产厂家是否报废\n");printf("%d %s %s %d %d %s %s\n",p->bianhao,p->mingcheng,p->zhonglei,p->danjia,p->niandai,p->chan jia,p->baofei);printf("请重新输入设备的编号");scanf("%d",&p->bianhao);printf("请重新输入设备的名称");scanf("%s",p->mingcheng);printf("请重新输入设备的种类");scanf("%s",p->zhonglei);printf("请重新输入设备的单价");scanf("%d",&p->danjia);printf("请重新输入设备的年代");scanf("%d",&p->niandai);printf("请重新输入设备的生产产家"); scanf("%s",p->chanjia);printf("请重新输入设备的报废情况\n"); printf("0.没有报废\n1.已经报废\n");for(;;){scanf("%d",&m);if(m!=0&&m!=1)printf("输入错误，请重新输入：\n");elsebreak;}if(m==0){ strcpy(p->baofei,"否");p->time.year=p->time.day=p->time.day=0; }else{strcpy(p->baofei,"是");printf("请输入报废时间（格式为2015 10 12）：");scanf("%d%d%d",p->time.year,p->time.mouth,p->time.day);}break;}p=p->next;}}if(p==NULL)printf("不存在你要修改的信息\n");printf("按任意键返回主菜单\n");getchar();getchar();return top;}。
