【正文】 輸入電話)。 gets(ptel)。 cls()。 psub=NULL。 ptot_reg=0。 pnext=head。 head=p。 puts(\n是否錄入此科室的專家信息？Y/N?)。 mand1=getchar()。 gets(rest)。 cls()。 while (mand1==39。Y39。 || mand1==39。y39。) {case2: q=(struct Tpro *)malloc(Tpro_len)。 strcpy(qroom_num, pnum)。 Spe_in_mes。 puts(\n請輸入專家編號)。 gets(qnum)。 cls()。 Spe_in_mes。 puts(\n請輸入姓名)。 gets(qname)。 cls()。 Spe_in_mes。 puts(\n請輸入出生日期，例：XXXX/XX/XX)。 gets(qbirth)。 cls()。 Spe_in_mes。 puts(\n請輸入性別，M for MAN, W for WOMAN)。 qsex=getchar()。 gets(rest)。 cls()。 Spe_in_mes。 puts(\n請輸入電話)。 gets(qtel)。 cls()。 Spe_in_mes。 puts(\n請輸入職稱)。 gets(qprofession)。 cls()。 Spe_in_mes。 puts(\n請輸入簡介)。 gets(qsummary)。 cls()。 qsub=NULL。 qtot_reg=0。 qnext=psub。 psub=q。 puts(\n是否錄入此專家的掛號信息？Y/N?)。 mand2=getchar()。 gets(rest)。 cls()。 while (mand2==39。Y39。 || mand2==39。y39。) {case3: qtot_reg++。 r=(struct Treg *)malloc(sizeof(struct Treg))。 strcpy(rpro_num, qnum)。 Reg_in_mes。 puts(\n請輸入掛號流水號)。 scanf(%d, amp。rserial_num)。 gets(rest)。 cls()。 Reg_in_mes。 puts(\n請輸入病歷號)。 gets(rcase_num)。 cls()。 Reg_in_mes。 puts(\n請輸入患者姓名)。 gets(rpatient_name)。 cls()。 Reg_in_mes。 puts(\n請輸入掛號費（元）)。 scanf(%f, amp。rfee)。 gets(rest)。 cls()。 Reg_in_mes。 puts(\n請輸入掛號時間，例：XXXX/XX/XX)。 gets(rdate)。 cls()。 Reg_in_mes。 puts(\n請輸入掛號人員)。 gets(rassistant)。 cls()。 rnext=qsub。 qsub=r。 puts(\n是否錄入下一個掛號信息？Y/N?)。 mand2=getchar()。 gets(rest)。 cls()。 } ptot_reg+=qtot_reg。 puts(\n是否錄入下一個專家信息？Y/N?)。 mand1=getchar()。 gets(rest)。 cls()。 } puts(\n是否錄入下一個科室信息？Y/N?)。 mand0=getchar()。 gets(rest)。 cls()。 } while (mand0==39。Y39。 || mand0==39。y39。)。 puts(\n錄入成功！)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 changed=1。}/***************************************************************//************************* 刪除信息 **************************//***************************************************************/void Delete(){ char mand1。 int t。 do { do { puts(\n請選擇要刪除的信息：\n)。 puts(\t1: 科室信息\n)。 puts(\t2: 專家信息\n)。 puts(\t3: 掛號信息\n)。 printf(\t)。 PrnM()。 puts(\n)。 mand1=getchar()。 gets(rest)。 cls()。 if ((mand139。139。 || mand139。339。) amp。amp。 mand1!=39。M39。 amp。amp。 mand1!=39。m39。) { puts(\n無此選項！請重新選擇)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 } } while ((mand139。139。 || mand139。339。) amp。amp。 mand1!=39。M39。 amp。amp。 mand1!=39。m39。)。 t=0。 switch (mand1) { case 39。139。: printf(\n請?zhí)峁┛剖业南嚓P(guān)信息，)。 flag=0。 Search_room()。 if (flag) continue。 if (p) { t=0。 if (p==head) { head=pnext。 Clearp(p)。 } else { plnext=pnext。 Clearp(p)。 } puts(\n刪除成功！)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 changed=1。 } else { puts(\n錯誤！科室不存在)。 t++。 if (t==5) { puts(錯誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } case 39。239。: printf(\n請?zhí)峁＜宜诳剖业南嚓P(guān)信息，)。 flag=0。 Search_room()。 if (flag) continue。 if (p) { printf(\n請?zhí)峁＜业南嚓P(guān)信息，)。 flag=0。 Search_pro()。 if (flag) continue。 if (q) { t=0。 ptot_reg=qtot_reg。 if (q==psub) { psub=qnext。 Clearq(q)。 } else { qlnext=qnext。 Clearq(q)。 } puts(\n刪除成功！)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 changed=1。 } else { t++。 puts(\n錯誤！專家不存在)。 if (t==5) { puts(錯誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 } } else { t++。 puts(\n錯誤！科室不存在)。 if (t==5) { puts(錯誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } case 39。339。: printf(\n請?zhí)峁焯査诳剖业南嚓P(guān)信息，)。 flag=0。 Search_room()。 if (flag) continue。 if (p) { printf(\n請?zhí)峁焯査鶎賹＜业南嚓P(guān)信息，)。 flag=0。 Search_pro()。 if (flag) continue。 if (q) { printf(\n請?zhí)峁焯柕南嚓P(guān)信息，)。 flag=0。 Search_reg()。 if (flag) continue。 if (r) { t=0。 qtot_reg。 ptot_reg。 if (r==qsub) { qsub=rnext。 Clearr(r)。 } else { rlnext=rnext。 Clearr(r)。 } qtot_reg。 ptot_reg。 puts(\n刪除成功！)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 changed=1。 } else { t++。 puts(\n錯誤！掛號不存在)。 if (t==5) { puts(錯誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } } else { t++。 puts(\n錯誤！專家不存在)。 if (t==5) { puts(錯誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } } else { t++。 puts(\n錯誤！科室不存在)。 if (t==5) { puts(錯誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } case 39。M39。: case 39。m39。: