【正文】 輸入電話)。 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請(qǐng)輸入專家編號(hào))。 gets(qnum)。 cls()。 Spe_in_mes。 puts(\n請(qǐng)輸入姓名)。 gets(qname)。 cls()。 Spe_in_mes。 puts(\n請(qǐng)輸入出生日期，例：XXXX/XX/XX)。 gets(qbirth)。 cls()。 Spe_in_mes。 puts(\n請(qǐng)輸入性別，M for MAN, W for WOMAN)。 qsex=getchar()。 gets(rest)。 cls()。 Spe_in_mes。 puts(\n請(qǐng)輸入電話)。 gets(qtel)。 cls()。 Spe_in_mes。 puts(\n請(qǐng)輸入職稱)。 gets(qprofession)。 cls()。 Spe_in_mes。 puts(\n請(qǐng)輸入簡(jiǎn)介)。 gets(qsummary)。 cls()。 qsub=NULL。 qtot_reg=0。 qnext=psub。 psub=q。 puts(\n是否錄入此專家的掛號(hào)信息？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請(qǐng)輸入掛號(hào)流水號(hào))。 scanf(%d, amp。rserial_num)。 gets(rest)。 cls()。 Reg_in_mes。 puts(\n請(qǐng)輸入病歷號(hào))。 gets(rcase_num)。 cls()。 Reg_in_mes。 puts(\n請(qǐng)輸入患者姓名)。 gets(rpatient_name)。 cls()。 Reg_in_mes。 puts(\n請(qǐng)輸入掛號(hào)費(fèi)（元）)。 scanf(%f, amp。rfee)。 gets(rest)。 cls()。 Reg_in_mes。 puts(\n請(qǐng)輸入掛號(hào)時(shí)間，例：XXXX/XX/XX)。 gets(rdate)。 cls()。 Reg_in_mes。 puts(\n請(qǐng)輸入掛號(hào)人員)。 gets(rassistant)。 cls()。 rnext=qsub。 qsub=r。 puts(\n是否錄入下一個(gè)掛號(hào)信息？Y/N?)。 mand2=getchar()。 gets(rest)。 cls()。 } ptot_reg+=qtot_reg。 puts(\n是否錄入下一個(gè)專家信息？Y/N?)。 mand1=getchar()。 gets(rest)。 cls()。 } puts(\n是否錄入下一個(gè)科室信息？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請(qǐng)選擇要?jiǎng)h除的信息：\n)。 puts(\t1: 科室信息\n)。 puts(\t2: 專家信息\n)。 puts(\t3: 掛號(hào)信息\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無(wú)此選項(xiàng)！請(qǐng)重新選擇)。 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請(qǐng)?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錯(cuò)誤！科室不存在)。 t++。 if (t==5) { puts(錯(cuò)誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } case 39。239。: printf(\n請(qǐng)?zhí)峁＜宜诳剖业南嚓P(guān)信息，)。 flag=0。 Search_room()。 if (flag) continue。 if (p) { printf(\n請(qǐng)?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錯(cuò)誤！專家不存在)。 if (t==5) { puts(錯(cuò)誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 } } else { t++。 puts(\n錯(cuò)誤！科室不存在)。 if (t==5) { puts(錯(cuò)誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } case 39。339。: printf(\n請(qǐng)?zhí)峁焯?hào)所在科室的相關(guān)信息，)。 flag=0。 Search_room()。 if (flag) continue。 if (p) { printf(\n請(qǐng)?zhí)峁焯?hào)所屬專家的相關(guān)信息，)。 flag=0。 Search_pro()。 if (flag) continue。 if (q) { printf(\n請(qǐng)?zhí)峁焯?hào)的相關(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錯(cuò)誤！掛號(hào)不存在)。 if (t==5) { puts(錯(cuò)誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } } else { t++。 puts(\n錯(cuò)誤！專家不存在)。 if (t==5) { puts(錯(cuò)誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } } else { t++。 puts(\n錯(cuò)誤！科室不存在)。 if (t==5) { puts(錯(cuò)誤太多！返回主菜單)。 printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 return。 } printf(按ENTER以繼續(xù)...)。 gets(rest)。 cls()。 continue。 } case 39。M39。: case 39。m39。: