C語(yǔ)言課程設(shè)計(jì)報(bào)告醫(yī)院專家門診掛號(hào)系統(tǒng)

C語(yǔ)言課程設(shè)計(jì)報(bào)告醫(yī)院專家門診掛號(hào)系統(tǒng)華中科技大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院C語(yǔ)言程序設(shè)計(jì)課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告題目醫(yī)院專家門診掛號(hào)系統(tǒng)專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)班級(jí)計(jì)算機(jī)XXX班學(xué)號(hào)XXXX姓名XXX成績(jī)指導(dǎo)教師XXX完畢日期20XX年10月10日

一、系統(tǒng)功效模塊圖主菜單數(shù)據(jù)管理保存和讀取統(tǒng)計(jì)查詢刪除修改錄入各項(xiàng)信息統(tǒng)計(jì)科室、專家、掛號(hào)信息查詢打印報(bào)表支持多核心字的搜索引擎退出添加

二、數(shù)據(jù)構(gòu)造設(shè)計(jì)及使用方法闡明重要的三個(gè)構(gòu)造（采用了十字交叉鏈表）科室信息的構(gòu)造、專家信息的構(gòu)造及掛號(hào)信息的構(gòu)造。

分別以下/*科室信息*/structTroom{charnum[11];/*保存科室號(hào)*/charname[20];/*保存科室名*/charman[20];/*保存負(fù)責(zé)人*/chartel[12];/*保存電話*/inttot_reg;/*保存科室的總掛號(hào)量*/structTroom*next;/*保存指向下一種科室信息的指針*/structTpro*sub;/*保存指向?qū)＜倚畔⒌念^指針*/};/*掛號(hào)信息構(gòu)造體*/structTreg{charpro_num[11];/*保存專家編號(hào)*/charcase_num[15];/*保存病歷號(hào)*/charpatient_name[20];/*保存患者姓名*/chardate[11];/*保存掛號(hào)日期*/charassistant[20];/*保存掛號(hào)人員*/intserial_num;/*保存掛號(hào)流水號(hào)*/floatfee;/*保存掛號(hào)費(fèi)*/structTreg*next;/*保存指向下一種掛號(hào)信息的指針*/};/*專家信息構(gòu)造體*/structTpro{charroom_num[11];/*保存科室號(hào)*/charnum[11];/*保存專家編號(hào)*/charname[20];/*保存姓名*/charbirth[11];/*保存出生日期*/charsex;/*保存性別*/chartel[12];/*保存電話*/charprofession[15];/*保存職稱*/charsummary[50];/*保存介紹*/inttot_reg;/*保存專家的總掛號(hào)量*/structTpro*next;/*保存指向下一種專家信息的指針*/structTreg*sub;/*保存指向掛號(hào)信息的頭指針*/};使用方法闡明圖示以下head科室1科室2科室nNULL專家1基本信息專家2基本信息專家n基本信息專家1掛號(hào)統(tǒng)計(jì)鏈專家2掛號(hào)統(tǒng)計(jì)鏈專家n掛號(hào)統(tǒng)計(jì)鏈

三、程序構(gòu)造流程圖系統(tǒng)總體流程圖開(kāi)始主菜單錄入信息修改信息插入信息刪除信息保存文獻(xiàn)讀取文獻(xiàn)查詢信息統(tǒng)計(jì)數(shù)據(jù)打印報(bào)表退出系統(tǒng)科室信息專家信息掛號(hào)信息讀入核心字多核心字搜索結(jié)束查詢流程圖查詢信息輸入核心字從信息總體中提取含有核心字的信息輸出信息

四、各模塊功效數(shù)據(jù)管理模塊中包含錄入信息、修改信息、插入信息和刪除信息四大功效1、錄入信息錄入科室、專家、掛號(hào)信息；2、修改信息對(duì)科室、專家、掛號(hào)信息進(jìn)行修改；3、添加信息添加科室或?qū)＜遥?、刪除信息取消科室或辭退專家。

統(tǒng)計(jì)查詢模塊中包含查詢信息和統(tǒng)計(jì)數(shù)據(jù)1、查詢信息可查詢?nèi)靠剖?、專家和掛?hào)信息，還能夠查詢某個(gè)特定的信息，使用多核心字匹配和KMP字符串匹配技術(shù)；2、統(tǒng)計(jì)數(shù)據(jù)有3種統(tǒng)計(jì)的信息可供查看（1）各科室的掛號(hào)量；（2）各專家的掛號(hào)量；（3）某天掛號(hào)的患者的基本信息。

保存和讀取模塊保存文獻(xiàn)和讀取文獻(xiàn)；退出程序退出醫(yī)院專家門診掛號(hào)系統(tǒng)。

各功效函數(shù)的有關(guān)闡明見(jiàn)附錄中的源程序清單。

五、實(shí)驗(yàn)成果整個(gè)程序運(yùn)行起來(lái)很正常，沒(méi)有出現(xiàn)bug，我這就把輸出成果的截屏貼在下面科室基本信息（部分）專家基本信息（部分）掛號(hào)基本信息（部分）統(tǒng)計(jì)信息均精確無(wú)誤各科室的掛號(hào)量各專家的掛號(hào)量某天掛號(hào)的基本信息

六、心得體會(huì)第一次寫管理系統(tǒng)這樣的大型程序，說(shuō)真的，有點(diǎn)不習(xí)慣，以前的某些代碼風(fēng)格成了我這次課設(shè)的最大障礙。

例如說(shuō)，以前寫小程序由于普通只有一種主函數(shù)，因此諸多變量都是局部變量，而這次大型作業(yè)規(guī)定有諸多的函數(shù)互相交叉，共同完畢某些功效，因此必須要用全局變量。

尚有我的編程風(fēng)格無(wú)意義的變量名使我吃了諸多苦頭，諸多時(shí)候，我的變量名都混淆了，以至于我最后改的時(shí)候很麻煩。

這次課設(shè)，讓我學(xué)了諸多東西，除了代碼風(fēng)格和編程習(xí)慣的優(yōu)化之外，我的代碼能力也明顯提高了。

通過(guò)這次課設(shè)，我某些以前沒(méi)有徹底掌握的東西都牢牢掌握了。

例如指針的靈活運(yùn)用，函數(shù)之間的互相調(diào)用的代碼級(jí)優(yōu)化等等。

盡管我學(xué)到了諸多東西，但是對(duì)于這次大型作業(yè)我還是有一點(diǎn)遺憾，那就是代碼的重復(fù)運(yùn)用率不高，諸多幾乎同樣的代碼在我的程序中出現(xiàn)了多次（畢竟是一種上午寫出來(lái)的東西，這也不能怪我）。

原來(lái)我有心想優(yōu)化一下，使重復(fù)運(yùn)用率提高，但是由于ACM/ICPC將近，我全部時(shí)間都用在訓(xùn)練上，因此就算了。

但愿不會(huì)對(duì)我的課設(shè)的評(píng)價(jià)造成太大的影響。

路漫漫其修遠(yuǎn)兮，吾將上下而求索。

程序設(shè)計(jì)這條路還很長(zhǎng)，我會(huì)繼續(xù)走下去，不停自我完善，早日成為一種杰出的程序員。

七、參考文獻(xiàn)全部資料均從百度而來(lái)附錄程序清單/***************************************************************//*醫(yī)院門診掛號(hào)系統(tǒng)V1.01源代碼*//*CopyrightbyXXX*//***************************************************************/includeincludeincludedefineTroom_lensizeofstructTroomdefineTpro_lensizeofstructTprodefineTreg_lensizeofstructTregdefineTLroom_lensizeofstructTLroomdefineTLpro_lensizeofstructTLprodefineTLreg_lensizeofstructTLregdefineRoom_in_mesputs“\n\t科室信息錄入中...“defineSpe_in_mesputs“\n\t專家信息錄入中...“defineReg_in_mesputs“\n\t掛號(hào)信息錄入中...“/*掛號(hào)信息構(gòu)造體*/structTreg{charpro_num[11];/*保存專家編號(hào)*/charcase_num[15];/*保存病歷號(hào)*/charpatient_name[20];/*保存患者姓名*/chardate[11];/*保存掛號(hào)日期*/charassistant[20];/*保存掛號(hào)人員*/intserial_num;/*保存掛號(hào)流水號(hào)*/floatfee;/*保存掛號(hào)費(fèi)*/structTreg*next;/*保存指向第一種專家信息的指針*/};/*專家信息構(gòu)造體*/structTpro{charroom_num[11];/*保存科室號(hào)*/charnum[11];/*保存專家編號(hào)*/charname[20];/*保存姓名*/charbirth[11];/*保存出生日期*/charsex;/*保存性別*/chartel[12];/*保存電話*/charprofession[15];/*保存職稱*/charsummary[50];/*保存介紹*/inttot_reg;/*保存專家的總掛號(hào)量*/structTpro*next;/*保存指向下一種專家信息的指針*/structTreg*sub;/*保存指向第一種掛號(hào)信息的指針*/};/*科室信息*/structTroom{charnum[11];/*保存科室號(hào)*/charname[20];/*保存科室名*/charman[20];/*保存負(fù)責(zé)人*/chartel[12];/*保存電話*/inttot_reg;/*保存科室的總掛號(hào)量*/structTroom*next;/*保存指向下一種掛號(hào)信息的指針*/structTpro*sub;/*保存指向第一種專家信息的指針*/};/*輔助變量*/structTLroom{structTroom*st;structTLroom*next;}*storep,*pp;structTLpro{structTpro*st;structTLpro*next;}*storeq,*qq;structTLreg{structTreg*st;structTLreg*next;}*storer,*rr;structTroom*p,*pl,*tempp,*headNULL;structTpro*q,*ql,*tempq;structTreg*r,*rl,*tempr;charrest[20],ret[5];intn;intflag,changed;voidMain_menu;voidShow_menu;voidWrite;voidSave;voidLoad;voidModify;voidInsert;voidDelete;voidSearch;voidStatistics;voidPrint;voidExit;voidSearch_room;voidSearch_room_with_numchar*;voidSearch_room_with_namechar*;voidSearch_room_with_manchar*;voidSearch_room_with_telchar*;voidSearch_pro;voidSearch_pro_with_numchar*;voidSearch_pro_with_namechar*;voidSearch_pro_with_telchar*;voidSearch_reg;voidSearch_reg_with_serial_numint;voidSearch_reg_with_case_numchar*;voidSort_room;voidSort_pro;voidShow_room;voidShow_room_with_reg;voidShow_pro;voidShow_pro_with_reg;voidShow_reg;voidPrint_room;voidPrint_pro;voidPrint_reg;char*Tostringint;voidPrnN;voidPrnB;voidPrnM;voidClearAll;voidClearp;voidClearq;voidClearr;voidcls;/***************************************************************//**************************主菜單***************************//***************************************************************/voidMain_menu{charcommand;do{do{Show_menu;commandgetchar;getsrest;cls;ifcommand9{puts“\n無(wú)此選項(xiàng)請(qǐng)重新選擇“;printf“按ENTER以繼續(xù)...“;getsrest;cls;}}whilecommand9;switchcommand{case1Write;break;case2Save;break;case3Load;break;case4Modify;break;case5Insert;break;case6Delete;break;case7Search;break;case8Statistics;break;case9Print;break;case0Exit;}}whilecommand0;}voidShow_menu{puts“歡迎進(jìn)入醫(yī)院門診掛號(hào)系統(tǒng)“;puts“\n請(qǐng)選擇\n“;puts“\t1錄入數(shù)據(jù)\n“;puts“\t2保存文獻(xiàn)\n“;puts“\t3載入文獻(xiàn)\n”;puts“\t4修改數(shù)據(jù)\n“;puts“\t5插入數(shù)據(jù)\n“;puts“\t6刪除數(shù)據(jù)\n“;puts“\t7查詢信息\n“;puts“\t8統(tǒng)計(jì)數(shù)據(jù)\n“;puts“\t9輸出報(bào)表\n“;puts“\t0退出系統(tǒng)\n“;}/***************************************************************//*************************錄入信息**************************//***************************************************************/voidWrite{charcommand0,command1,command2;charcommand;ifchanged{puts“\n錄入將覆蓋原有信息，您尚未保存，與否保存Y/N“;commandgetchar;getsrest;cls;ifcommandY||commandySave;}headNULL;do{pstructTroom*mallocTroom_len;Room_in_mes;puts“\n請(qǐng)輸入科室號(hào)“;getsp-num;cls;Room_in_mes;puts“\n請(qǐng)輸入科室名“;getsp-name;cls;Room_in_mes;puts“\n請(qǐng)輸入負(fù)責(zé)人姓名“;getsp-man;cls;Room_in_mes;puts“\n請(qǐng)輸入電話“;getsp-tel;cls;p-subNULL;p-tot_reg0;p-nexthead;headp;puts“\n與否錄入此科室的專家信息Y/N“;command1getchar;getsrest;cls;whilecommand1Y||command1y{qstructTpro*mallocTpro_len;strcpyq-room_num,p-num;Spe_in_mes;puts“\n請(qǐng)輸入專家編號(hào)“;getsq-num;cls;Spe_in_mes;puts“\n請(qǐng)輸入姓名“;getsq-name;cls;Spe_in_mes;puts“\n請(qǐng)輸入出生日期，例XXXX/XX/XX“;getsq-birth;cls;Spe_in_mes;puts“\n請(qǐng)輸入性別，MforMAN,WforWOMAN“;q-sexgetchar;getsrest;cls;Spe_in_mes;puts“\n請(qǐng)輸入電話“;getsq-tel;cls;Spe_in_mes;puts“\n請(qǐng)輸入職稱“;getsq-profession;cls;Spe_in_mes;puts“\n請(qǐng)輸入介紹“;getsq-summary;cls;q-subNULL;q-tot_reg0;q-nextp-sub;p-subq;puts“\n與否錄入此專家的掛號(hào)信息Y/N“;command2getchar;getsrest;cls;whilecommand2Y||command2y{q-tot_reg;rstructTreg*mallocsizeofstructTreg;strcpyr-pro_num,q-num;Reg_in_mes;puts“\n請(qǐng)輸入掛號(hào)流水號(hào)“;scanf“d“,getsrest;cls;Reg_in_mes;puts“\n請(qǐng)輸入病歷號(hào)“;getsr-case_num;cls;Reg_in_mes;puts“\n請(qǐng)輸入患者姓名“;getsr-patient_name;cls;Reg_in_mes;puts“\n請(qǐng)輸入掛號(hào)費(fèi)（元）“;scanf“f“,getsrest;cls;Reg_in_mes;puts“\n請(qǐng)輸入掛號(hào)時(shí)間，例XXXX/XX/XX“;getsr-date;cls;Reg_in_mes;puts“\n請(qǐng)輸入掛號(hào)人員“;getsr-assistant;cls;r-nextq-sub;q-subr;puts“\n與否錄入下一種掛號(hào)信息Y/N“;command2getchar;getsrest;cls;}p-tot_regq-tot_reg;puts“\n與否錄入下一種專家信息Y/N“;command1getchar;getsrest;cls;}puts“\n與否錄入下一種科室信息Y/N“;command0getchar;getsrest;cls;}whilecommand0Y||command0y;puts“\n錄入成功“;printf“按ENTER以繼續(xù)...“;getsrest;cls;changed1;}/***************************************************************//*************************保存文獻(xiàn)**************************//***************************************************************/voidSave{FILE*fp,*fq,*fr;charfile1[20],file2[20],file3[20];do{puts“\n\t正在創(chuàng)立科室數(shù)據(jù)文獻(xiàn)...“;puts“\n請(qǐng)輸入文獻(xiàn)名“;getsfile1;cls;iffpfopenfile1,“wb“NULL{puts“\n文獻(xiàn)不能打開(kāi)“;printf“按ENTER以繼續(xù)...“;getsrest;cls;}}whilefpNULL;do{puts“\n\t正在創(chuàng)立專家數(shù)據(jù)文獻(xiàn)...“;puts“\n請(qǐng)輸入文獻(xiàn)名“;getsfile2;cls;iffqfopenfile2,“wb“NULL{puts“\n文獻(xiàn)不能打開(kāi)“;printf“按ENTER以繼續(xù)...“;getsrest;cls;}}whilefqNULL;do{puts“\n\t正在創(chuàng)立掛號(hào)數(shù)據(jù)文獻(xiàn)...“;puts“\n請(qǐng)輸入文獻(xiàn)名“;getsfile3;cls;iffrfopenfile3,“wb“NULL{puts“\n文獻(xiàn)不能打開(kāi)“;printf“按ENTER以繼續(xù)...“;getsrest;cls;}}whilefrNULL;forphead;p;pp-next{fwritep,Troom_len,1,fp;forqp-sub;q;qq-next{fwriteq,Tpro_len,1,fq;forrq-sub;r;rr-nextfwriter,Treg_len,1,fr;}}puts“\n保存成功“;printf“按ENTER以繼續(xù)...“;getsrest;cls;changed0;fclosefp;fclosefq;fclosefr;}/***************************************************************//*************************讀取文獻(xiàn)**************************//***************************************************************/voidLoad{FILE*fp,*fq,*fr;intt;charfile1[20],file2[20],file3[20];ifchanged{charcommand;puts“\n您尚未保存，與否保存Y/N“;commandgetchar;getsrest;cls;ifcommandY||commandySave;}ClearAll;t0;do{puts“\n正在載入科室數(shù)據(jù)文獻(xiàn)...“;t;puts“\n請(qǐng)輸入文獻(xiàn)名“;getsfile1;cls;iffpfopenfile1,“rb“NULL{puts“\n文獻(xiàn)不能打開(kāi)“;printf“按ENTER以繼續(xù)...“;getsrest;cls;ift3{puts“\n讀取失敗，返回主菜單“;printf“按ENTER以繼續(xù)...“;getsrest;cls;return;}}}whilefpNULL;t0;do{puts“\n正在載入專家數(shù)據(jù)文獻(xiàn)“;puts“\n請(qǐng)輸入文獻(xiàn)名“;getsfile2;cls;iffqfopenfile2,“rb“NULL{puts“\n文獻(xiàn)不能打開(kāi)“;printf“按ENTER以繼續(xù)...“;getsrest;cls;ift3{puts“\n讀取失敗，返回主菜單“;printf“按ENTER以繼續(xù)...“;getsrest;cls;return;}}}whilefqNULL;t0;do{puts“\n正在載入掛號(hào)數(shù)據(jù)文獻(xiàn)“;puts“\n請(qǐng)輸入文獻(xiàn)名“;getsfile3;cls;iffrfopenfile3,“rb“NULL{puts“\n文獻(xiàn)不能打開(kāi)“;printf“按ENTER以繼續(xù)...“;getsrest;cls;ift3{puts“\n讀取失敗，返回主菜單“;printf“按ENTER以繼續(xù)...“;getsrest;cls;return;}}}whilefrNULL;headNULL;whilefeoffp{pstructTroom*mallocTroom_len;freadp,Troom_len,1,fp;p-subNULL;iffeoffp{p-nexthead;headp;}}whilefeoffq{qstructTpro*mallocTpro_len;freadq,Tpro_len,1,fq;q-subNULL;Search_room_with_numq-room_num;iffeoffqp-subq;}}whilefeoffr{rstructTreg*mallocTreg_len;freadr,Treg_len,1,fr;forphead;p;pp-next{Search_pro_with_numr-pro_num;ifqbreak;}iffeoffrq-subr;}}puts“\n載入成功“;printf“按ENTER以繼續(xù)...“;getsrest;cls;changed0;fclosefp;fclosefq;fclosefr;}/***************************************************************//*************************修改信息**************************//***************************************************************/voidModify{charcommand1,command2;intflag2;intt;while1{t0;do{puts“\n請(qǐng)選擇您想修改的信息\n“;puts“\t1科室信息\n“;puts“\t2專家信息\n“;puts“\t3掛號(hào)信息\n“;printf“\t“;PrnM;puts“\n“;command1getchar;getsrest;cls;ifcommand13printf“按ENTER以繼續(xù)...“;getsrest;cls;}}whilecommand13switchcommand1{case1printf“\n請(qǐng)?zhí)峁┛剖业挠嘘P(guān)信息，“;flag0;Search_room;ifflagcontinue;ifp{t0;flag20;while1{do{puts“\n請(qǐng)選擇您想修改的信息\n“;puts“\t1科室號(hào)\n“;puts“\t2科室名\n“;puts“\t3負(fù)責(zé)人\n“;puts“\t4電話\n“;printf“\t“;PrnB;puts“\n“;command2getchar;getsrest;cls;ifcommand24printf“按ENTER以繼續(xù)...“;getsrest;cls;}}whilecommand24switchcommand2{case1puts“\n請(qǐng)輸入新的科室號(hào)“;getsp-num;cls;forqp-sub;q;qq-nextstrcpyq-room_num,p-num;break;case2puts“\n請(qǐng)輸入新的科室名“;getsp-name;cls;break;case3puts“\n請(qǐng)輸入新的負(fù)責(zé)人姓名“;getsp-man;cls;break;case4puts“\n請(qǐng)輸入新的電話“;getsp-tel;cls;break;caseBcasebflag21;;}ifflag2break;puts“\n修改成功“;printf“按ENTER以繼續(xù)...“;getsrest;cls;changed1;}}else{puts“\n錯(cuò)誤科室不存在“;t;ift5{puts“錯(cuò)誤太多返回主菜單“;printf“按ENTER以繼續(xù)...“;getsrest;cls;return;}printf“按ENTER以繼續(xù)...“;getsrest;cls;continue;}break;case2printf“\n請(qǐng)?zhí)峁＜宜诳剖业挠嘘P(guān)信息，“;flag0;Search_room;ifflagcontinue;ifp{printf“\n請(qǐng)?zhí)峁＜业挠嘘P(guān)信息，“;flag0;Search_pro;ifflagcontinue;ifq{t0;flag20;while1{do{puts“\n請(qǐng)選擇您想修改的信息\n“;puts“\t1專家編號(hào)\n“;puts“\t2姓名\n“;puts“\t3出生日期\n“;puts“\t4性別\n“;puts“\t5電話\n“;puts“\t6職稱\n“;puts“\t7介紹\n“;printf“\t“;PrnB;puts“\n“;command2getchar;ge