1、班級(jí)通信錄管理系統(tǒng)1 需求說(shuō)明1.1實(shí)驗(yàn)要求1.1.1建立通訊錄，添加一個(gè)同學(xué)的通信記錄，刪除一個(gè)同學(xué)的通信記錄，修改一個(gè)同學(xué)的通信記錄，查詢一個(gè)同學(xué)的通信記錄，顯示所有同學(xué)的通信記錄，能根據(jù)姓名或宿舍號(hào)進(jìn)行排序。1.1.2通信記錄包括學(xué)號(hào)、姓名、電話號(hào)碼、宿舍號(hào)等信息，所有信息最終用文件保存。1.2功能簡(jiǎn)述1.2.1 建立通信錄運(yùn)行程序后，程序自動(dòng)建立固有的通訊錄。1.2.2添加通信記錄 進(jìn)入“添加界面，根據(jù)提示，依次添加同學(xué)的通信記錄條目。添加成功，后顯示操作成功信息。1.2.3刪除通信記錄進(jìn)入“刪除界面，依據(jù)姓名刪除信息。輸入姓名后，顯示該同學(xué)的所有信息，并顯示操作成功。刪除后，返回主菜

2、單。1.2.4查詢通信記錄 進(jìn)入“查詢界面，詢問(wèn)用戶按姓名或?qū)W號(hào)查找學(xué)生記錄。待用戶正確輸入已存有的用戶姓名或?qū)W號(hào)后，按回車(chē)鍵后顯示所有匹配該信息的學(xué)生記錄。若輸入信息錯(cuò)誤或是無(wú)該用戶沒(méi)記錄，則顯示操作錯(cuò)誤。1.2.5顯示所有通信記錄 進(jìn)入“顯示界面，將通訊錄中所有同學(xué)的通訊記錄分行顯示出來(lái)，每行中同學(xué)的不同信息間隔表示。1.2.6根據(jù)姓名進(jìn)行排序排序時(shí)，顯示排序子菜單，按照姓名中字母的升序?qū)τ涗涍M(jìn)行排序。1.2.7保存通訊記錄 將填寫(xiě)好的同學(xué)通訊記錄寫(xiě)入到固定文件中。1.2.8退出班級(jí)通信錄管理系統(tǒng) 選擇該功能選項(xiàng)后，退出班級(jí)通信錄管理系統(tǒng)，關(guān)閉文件，返回DOS。2設(shè)計(jì)說(shuō)明2.1 程序流程圖

3、設(shè)計(jì) 入口 主界面 選擇功能 Select Insert Modify Delete Write Show Esc 退出系統(tǒng) 顯示所有記錄 寫(xiě)入文件 刪除界面 查詢界面 添加界面 修改界面 Back 結(jié)束2.2各功能之間的關(guān)系2.2.1用戶輸入信息在選擇Insert選項(xiàng)后，進(jìn)入adder子程序，需要用戶依次輸入姓名、學(xué)號(hào)、宿舍號(hào)、電話號(hào)碼，輸入信息分別存入manelist、studlist、dormlist、telelist數(shù)組中。2.2.2搜索同學(xué)記錄建立selectbyname和selectbystud子程序，在select子程序中靈活調(diào)用，利用相關(guān)信息搜索與關(guān)鍵字匹配的同學(xué)記錄。同時(shí)，可

4、以把搜索這個(gè)功能提取出來(lái)，實(shí)現(xiàn)代碼的共享。其中，搜索按關(guān)鍵字的類(lèi)型不同可分為按姓名搜索和按學(xué)號(hào)搜索。2.2.3關(guān)鍵字的匹配selectbyname和selectbystud子程序中都需要進(jìn)行關(guān)鍵字匹配和比較，故把比較關(guān)鍵字的大小提取出來(lái)在strCmp子程序中實(shí)現(xiàn)，方便進(jìn)行搜索和排序。2.3文檔的處理在用戶進(jìn)入班級(jí)通信錄管理系統(tǒng)時(shí)，若要將輸入的信息用文件保存，用戶可選擇Write to file選項(xiàng)，將緩沖區(qū)和文檔中的所有記錄顯示出來(lái)。用戶退出后，關(guān)閉文件。3詳細(xì)的算法設(shè)計(jì)3.1主程序的設(shè)計(jì)start: mov ax,data mov ds,ax mov es,ax call cshdata m

5、enu1: call clear call displaytitle mov ah,01h int 21h cmp al,1 jz sel cmp al,2 jz adde cmp al,3 jz modi cmp al,4 jz del cmp al,5 jz dis cmp al,7 jz wrt cmp al,8 jz out1 jmp menu1 sel: call clear call select jmp back adde: call clear call adder jmp backmodi: call clear call modify jmp backdel: call c

6、lear call delete jmp backdis: call clear call disdata jmp backwrt: call clear call writeback: lea dx,backstr ;返回主菜單提示語(yǔ)“Please enter 6 to bace main menu!” mov ah,09h int 21h mov ah,01h int 21h ea si,choice mov si,al cmp al,6 jz menu1 ;輸入6，返回主菜單 call clear jmp backout1: mov ah,4ch int 21hmain endp ;主函

7、數(shù)結(jié)束code ends end start3.2學(xué)生記錄的數(shù)據(jù)結(jié)構(gòu) namelist db 20 dup(20 dup(0) studlist db 20 dup(20 dup(0) dormlist db 20 dup(20 dup(0) telelist db 20 dup(20 dup(0) newname db 20 dup(0) newstud db 20 dup(0) newdorm db 20 dup(0) newtele db 20 dup(0) cnt db 1 dup(0) cntselect db 1 dup(0) choice db 1 dup(0) enter db

8、 0dh,0ah,$ blank db $ disname db Name:$ disstud db Stud:$ disdorm db Dorm:$ distele db Tele:$3.3學(xué)生通訊錄信息的顯示和輸入學(xué)生通訊錄信息的顯示和輸入的邏輯實(shí)現(xiàn)思想是一樣的。都是先找到第i條記錄的起始地址，即學(xué)號(hào)的開(kāi)始地址。然后根據(jù)j的值確定記錄內(nèi)部的偏移地址。然后調(diào)用相應(yīng)的功能實(shí)現(xiàn)學(xué)生通訊信息的顯示和輸入。下面以信息的顯示為例作詳細(xì)說(shuō)明。 disdata proc near ;顯示所有信息 lea si,cnt ;循環(huán)次數(shù) mov cl,si mov bx,0disdatal: lea dx,dis

9、name mov ah,09h int 21h lea dx,namelist add dx,bx mov ah,09h int 21h lea dx,blank mov ah,09h int 21h lea dx,disstud mov ah,09h int 21h lea dx,studlist add dx,bx mov ah,09h int 21h lea dx,blank mov ah,09h int 21h lea dx,disdorm mov ah,09h int 21h lea dx,dormlist add dx,bx mov ah,09h int 21h lea dx,bl

10、ank mov ah,09h int 21h lea dx,distele mov ah,09h int 21h lea dx,telelist add dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h add bx,20 loop disdatalretdisdata endp3.4學(xué)生信息的搜索根據(jù)用戶選擇的關(guān)鍵字的類(lèi)型，按照3.3所述的方法找到第i條記錄的相應(yīng)關(guān)鍵字的起始地址。遍歷所有的學(xué)生通訊錄記錄，調(diào)用repe cmpsb語(yǔ)句對(duì)記錄中的關(guān)鍵字和用戶輸入的信息相比較。3.5修改一個(gè)同學(xué)的通信記錄通過(guò)關(guān)鍵字搜索與之匹配的同學(xué)

11、記錄，若查找不到，則修改失敗。否則提示用戶輸入新的通訊信息，覆蓋原來(lái)的信息。3.6按照姓名進(jìn)行排序Sort函數(shù)采用冒泡排序作為算法進(jìn)行排序，內(nèi)外循環(huán)次數(shù)均為同學(xué)通訊錄記錄的條數(shù)，由于字符串的交換比較復(fù)雜，則將此子過(guò)程抽象出來(lái)，記為movR函數(shù)。使用loop循環(huán)依次交換兩個(gè)記錄的字符。3.7刪除操作的實(shí)現(xiàn)刪除數(shù)據(jù)信息，查詢條件為姓名。刪除查詢結(jié)果的具體做法是：先搜索到與關(guān)鍵字匹配的記錄，然后用最后一個(gè)記錄將其覆蓋，達(dá)到刪除的效果。.3.8與文件相關(guān)的操作3.8.1創(chuàng)建文件 filename db F:StudentList.txt,00h handle dw ? buffer db 20 dup

12、(0) error1 db creating file wrong!,0dh,0ah.$ error2 db writing file wrong!,0dh,0ah.$ wrtstr db write the class address book!$ mov ah,3ch mov cx,0 lea dx,filename int 21h jc err1 mov handle,ax3.8.2寫(xiě)文件 lea si,cnt mov cl,si mov al,cl mov di,0lop1: mov ah,40h mov bx,handle mov cx,20 lea dx,namelist add

13、dx,di int 21h jc err2 mov ah,40h mov bx,handle mov cx,20 lea dx,dormlist add dx,di int 21h jc err2 mov ah,40h mov bx,handle mov cx,1 lea dx,distele int 21h jc err2 mov ah,40h mov bx,handle mov cx,20 lea dx,telelist add dx,di int 21h jc err2 add di,20 inc al mov cl,si sub cl,al jmp lop1exit2: mov ah,

14、3eh mov bx,handle int 21hexit1: mov ah,4ch int 21herr1: mov ah,9 lea dx,error1 int 21h jmp exit1err2: mov ah,9 lea dx,error2 int 21h jmp exit2ret write endp 3.8.3關(guān)閉文件exit2: mov ah,3eh mov bx,handle int 21hexit1: mov ah,4ch int 21herr1: mov ah,9 lea dx,error1 int 21h jmp exit1err2: mov ah,9 lea dx,er

15、ror2 int 21h jmp exit24源程序與執(zhí)行結(jié)果4.1執(zhí)行結(jié)果4.1.1 disdata函數(shù)的執(zhí)行結(jié)果4.1.2 adder函數(shù)的執(zhí)行結(jié)果4.1.3 modify函數(shù)的執(zhí)行結(jié)果4.1.4 delete函數(shù)的執(zhí)行結(jié)果4.1.5 select函數(shù)的執(zhí)行結(jié)果4.1.6 Sort函數(shù)的執(zhí)行結(jié)果4.2.7 Save函數(shù)的執(zhí)行結(jié)果4.2源程序stack segment stack dw 512 dup(?)stack endsdata segment titlestr db Welcome to the directory!,0dh,0ah,Enter your choice please!

16、,0dh,0ah,$ menustr db 1:Select,0dh,0ah,2:Insert,0dh,0ah,3:Modify,0dh,0ah,4:Delete,0dh,0ah,5:Show all record,0dh,0ah,7:Write to file,0dh,0ah,8:Esc,0dh,0ah,$ namelist db 20 dup(20 dup(0) studlist db 20 dup(20 dup(0) dormlist db 20 dup(20 dup(0) telelist db 20 dup(20 dup(0) newname db 20 dup(0) newstud

17、 db 20 dup(0) newdorm db 20 dup(0) newtele db 20 dup(0)filename db F:StudentList.txt,00h handle dw ? buffer db 20 dup(0) error1 db creating file wrong!,0dh,0ah.$ error2 db writing file wrong!,0dh,0ah.$ wrtstr db write the class address book!$cnt db 1 dup(0) cntselect db 1 dup(0) choice db 1 dup(0)en

18、ter db 0dh,0ah,$ blank db $ disname db Name:$ disstud db Stud:$ disdorm db Dorm:$ distele db Tele:$ backstr db Key 6 to main menu!,0dh,0ah,$ selstr1 db 1:Select by name,0dh,0ah,2:Select by Student Number,0dh,0ah,$ selstr2 db The information!,0dh,0ah,$ selstr3 db Name is not exist!,0dh,0ah,$ selstr4

19、db Student Number is not exist!,0dh,0ah,$ selstr5 db Student Number directory is empty!,0dh,0ah,$ addstr1 db Input the new information!,0dh,0ah,$ addstr2 db Student Number directory is full!,0dh,0ah,$ addstr3 db Add successfully!,0dh,0ah,$ modstr1 db Newname:$ modstr2 db Newstud:$ modstr3 db Newdorm

20、:$ modstr4 db Newtele:$ modstr5 db Input new record!,0dh,0ah,$ modstr6 db Modified successfully!,0dh,0ah,$ delstr1 db Student Number directory is empty!,0d,0ah,$ delstr2 db Deleted successfully!,0dh,0ah,$ name1 db zhansan$ name2 db lisi$ name3 db wangwu$ StudentNumber1 db $ StudentNumber2 db $ Stude

21、ntNumber3 db $ dorm1 db 123$ dorm2 db 456$ dorm3 db 789$ tele1 db $ tele2 db $ tele3 db $data endscode segment main proc far assume cs:code,ds:datadisplaytitle proc near lea dx,titlestr mov ah,9 int 21h lea dx,menustr int 21h retdisplaytitle endpcshdata proc near mov bx,0 lea si,name1 lea di,namelis

22、t add di,bx mov cx,20 cshname11: mov al,si mov di,al inc si inc di cmp al,$ jz cshname12 loop cshname11cshname12: add bx,20lea si,name2 lea di,namelist add di,bx mov cx,20 cshname21: mov al,si mov di,al inc si inc di cmp al,$ jz cshname22 loop cshname21cshname22: add bx,20lea si,name3 lea di,namelis

23、t add di,bx mov cx,20 cshname31: mov al,si mov di,al inc si inc di cmp al,$ jz cshname32 loop cshname31cshname32: add bx,20mov ax,bx ;初始化計(jì)數(shù)器cnt mov bl,20 div bl lea si,cnt mov si,al mov bx,0 lea si,StudentNumber1 lea di,studlist add di,bx mov cx,20 cshstud11: mov al,si mov di,al inc si inc di cmp al

24、,$ jz cshstud12 loop cshstud11cshstud12: add bx,20lea si,StudentNumber2 lea di,studlist add di,bx mov cx,20 cshstud21: mov al,si mov di,al inc si inc di cmp al,$ jz cshstud22 loop cshstud21cshstud22: add bx,20lea si,StudentNumber3 lea di,studlist add di,bx mov cx,20 cshstud31: mov al,si mov di,al in

25、c si inc di cmp al,$ jz cshstud32 loop cshstud31cshstud32: add bx,20 mov bx,0 lea si,dorm1 lea di,dormlist add di,bx mov cx,20 cshdorm11: mov al,si mov di,al inc si inc di cmp al,$ jz cshdorm12 loop cshdorm11cshdorm12: add bx,20 lea si,dorm2 lea di,dormlist add di,bx mov cx,20 cshdorm21: mov al,si m

26、ov di,al inc si inc di cmp al,$ jz cshdorm22 loop cshdorm21cshdorm22: add bx,20 lea si,dorm3 lea di,dormlist add di,bx mov cx,20 cshdorm31: mov al,si mov di,al inc si inc di cmp al,$ jz cshdorm32 loop cshdorm31cshdorm32: add bx,20 mov bx,0 lea si,tele1 lea di,telelist add di,bx mov cx,20 cshtele11:

27、mov al,si mov di,al inc si inc di cmp al,$ jz cshtele12 loop cshtele11cshtele12: add bx,20 lea si,tele2 lea di,telelist add di,bx mov cx,20 cshtele21: mov al,si mov di,al inc si inc di cmp al,$ jz cshtele22 loop cshtele21cshtele22: add bx,20 lea si,tele3 lea di,telelist add di,bx mov cx,20 cshtele31

28、: mov al,si mov di,al inc si inc di cmp al,$ jz cshtele32 loop cshtele31cshtele32: add bx,20 retcshdata endpdisdata proc near lea si,cnt ;循環(huán)次數(shù) mov cl,si mov bx,0disdatal: lea dx,disname mov ah,09h int 21h lea dx,namelist add dx,bx mov ah,09h int 21hlea dx,blank mov ah,09h int 21h lea dx,disstud mov

29、ah,09h int 21h lea dx,studlist add dx,bx mov ah,09h int 21h lea dx,blank mov ah,09h int 21h lea dx,disdorm mov ah,09h int 21h lea dx,dormlist add dx,bx mov ah,09h int 21h lea dx,blank mov ah,09h int 21h lea dx,distele mov ah,09h int 21h lea dx,telelist add dx,bx mov ah,09h int 21h lea dx,enter mov a

30、h,09h int 21h add bx,20 loop disdatal retdisdata endpadder proc near lea si,cnt ;判斷學(xué)號(hào)是否已滿 mov al,si cmp al,20 jb adder5 lea dx,addstr2 mov ah,09h int 21h jmp adder6adder5: lea dx,addstr1 mov ah,09h int 21h lea dx,disname mov ah,09h int 21h mov cl,19 lea si,newnameadder1: mov ah,01h int 21h cmp al,0d

31、h je adder2 mov si,al inc si loop adder1adder2: mov al,24h mov si,al lea si,cnt ;計(jì)算目的地址的偏移量 mov bl,si xor ax,ax mov al,20 mul bl lea si,newname lea di,namelist add di,ax mov cx,20 cld rep movsb lea dx,enter mov ah,09h int 21h lea dx,disstud mov ah,09h int 21hmov cl,19 lea si,newstudadder3: mov ah,01

32、h int 21h cmp al,0dh je adder4 mov si,al inc si loop adder3adder4: mov al,24h mov si,al lea si,cnt mov bl,si xor ax,ax mov al,20 mul bl lea si,newstud lea di,studlist add di,ax mov cx,20 cld rep movsb lea dx,enter mov ah,09h int 21h lea dx,disdorm mov ah,09h int 21h mov cl,19 lea si,newdormadder7: m

33、ov ah,01h int 21h cmp al,0dh je adder8 mov si,al inc si loop adder7adder8: mov al,24h mov si,al lea si,cnt mov bl,si xor ax,ax mov al,20 mul bl lea si,newdorm lea di,dormlist add di,ax mov cx,20 cld rep movsb lea dx,enter mov ah,09h int 21h lea dx,distele mov ah,09h int 21h mov cl,19 lea si,newtelea

34、dder9: mov ah,01h int 21h cmp al,0dh je adder10 mov si,al inc si loop adder9adder10: mov al,24h mov si,al lea si,cnt mov bl,si xor ax,ax mov al,20 mul bl lea si,newtele lea di,telelist add di,ax mov cx,20 cld rep movsb lea dx,enter mov ah,09h int 21h lea si,cnt ;計(jì)數(shù)器加1 mov al,si inc al mov si,al lea

35、dx,addstr3 mov ah,09h int 21h lea si,newname mov cx,20adder11: mov al,0 mov si,al inc si loop adder11 lea si,newstud mov cx,20adder12: mov al,0 mov si,al inc si loop adder12 lea si,newdorm mov cx,20adder13: mov al,0 mov si,al inc si loop adder13 lea si,newtele mov cx,20adder14: mov al,0 mov si,al in

36、c si loop adder14adder6: retadder endpselbyname proc near lea si,cnt mov al,si cmp al,0 ja selname6 lea dx,selstr5 mov ah,09h int 21h jmp selname5selname6: lea dx,disname mov ah,09h int 21h lea si,newname mov cx,19selname1: mov ah,01h int 21h cmp al,0dh je selname2 mov si,al inc si loop selname1seln

37、ame2: mov al,24h mov si,al lea dx,enter mov ah,09h int 21h lea si,cnt ;設(shè)置循環(huán)次數(shù) mov dx,si mov bx,0 selname3: lea si,newname lea di,namelist add di,bx mov cx,20 cld repe cmpsb jz selname4 add bx,20 dec dx cmp dx,0 jnz selname3 lea dx,selstr3 ;記錄不存在 mov ah,09h int 21h jmp selname5selname4: lea dx,selstr

38、2 ;存在 mov ah,09h int 21h lea dx,disname mov ah,09h int 21h lea dx,namelist add dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h lea dx,disstud mov ah,09h int 21h lea dx,studlist add dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h lea dx,disdorm mov ah,09h int 21h lea dx,dormlist add

39、 dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h lea dx,distele mov ah,09h int 21h lea dx,telelist add dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h mov ax,bx ;計(jì)算器記錄查詢到的是第幾個(gè) mov bl,20 div bl inc al lea si,cntselect mov si,al selname5: lea si,newname mov cx,20selname7: mov al,0 mo

40、v si,al inc si loop selname7 retselbyname endpselbystud proc near lea si,cnt mov al,si cmp al,0 ja selstud6 lea dx,selstr5 mov ah,09h int 21h jmp selstud5selstud6: lea dx,disstud mov ah,09h int 21h lea si,newstud mov cx,19selstud1: mov ah,01h int 21h cmp al,0dh je selstud2 mov si,al inc si loop sels

41、tud1selstud2: mov al,24h mov si,al lea dx,enter mov ah,09h int 21h lea si,cnt ;設(shè)置循環(huán)次數(shù) mov dx,si mov bx,0 selstud3: lea si,newstud lea di,studlist add di,bx mov cx,20 cld repe cmpsb jz selstud4 add bx,20 dec dx cmp dx,0 jnz selstud3lea dx,selstr4 ;記錄不存在 mov ah,09h int 21h jmp selstud5selstud4: lea dx

42、,selstr2 ;存在 mov ah,09h int 21h lea dx,disname mov ah,09h int 21h lea dx,namelist add dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h lea dx,disstud mov ah,09h int 21h lea dx,studlist add dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h lea dx,disdorm mov ah,09h int 21h lea dx,dorml

43、ist add dx,bx mov ah,09h int 21h lea dx,enter mov ah,09h int 21h lea dx,distele mov ah,09h int 21h lea dx,telelist add dx,bx mov ah,09h int 21hlea dx,enter mov ah,09h int 21hselstud5: lea si,newstud mov cx,20selstud7: mov al,0 mov si,al inc si loop selstud7 retselbystud endpselect proc near select1:

44、 lea dx,selstr1 mov ah,09h int 21h mov ah,01h int 21h cmp al,1 jz select2 cmp al,2 jz select3 jmp select1select2: call clear call selbyname jmp select4select3: call clear call selbystud select4: retselect endpmodify proc near call selbyname lea si,cntselect mov al,si cmp al,0 jz modify5 lea dx,modst

45、r5 mov ah,09h int 21h lea dx,modstr1 mov ah,09h int 21h lea si,newname mov cx,20modify1: mov ah,01h int 21h cmp al,0dh jz modify2 mov si,al inc si loop modify1modify2: mov al,24h mov si,al lea dx,enter mov ah,09h int 21h jmp modify6modify5: jmp modify7modify6: lea dx,modstr2 mov ah,09h int 21h lea s

46、i,newstud mov cx,20modify3: mov ah,01h int 21h cmp al,0dh jz modify4 mov si,al inc si loop modify3modify4: mov al,24h mov si,al lea dx,enter mov ah,09h int 21h lea dx,modstr3 mov ah,09h int 21h lea si,newdorm mov cx,20modify10: mov ah,01h int 21h cmp al,0dh jz modify11 mov si,al inc si loop modify10

47、modify11: mov al,24h mov si,al lea dx,enter mov ah,09h int 21h lea dx,modstr4 mov ah,09h int 21h lea si,newtele mov cx,20modify12: mov ah,01h int 21h cmp al,0dh jz modify13 mov si,al inc si loop modify12modify13: mov al,24h mov si,al lea dx,enter mov ah,09h int 21h lea si,cntselect ;計(jì)算被修改數(shù)據(jù)的偏移量ax mo

48、v al,si dec al mov bl,20 mul bl lea si,newname ;把新名字拷入 lea di,namelist add di,ax mov cx,20 cld rep movsb lea si,newstud ;把新學(xué)號(hào)拷入 lea di,studlist add di,ax mov cx,20 cld rep movsb lea si,newdorm ;把新寢室號(hào)拷入 lea di,dormlist add di,ax mov cx,20 cld rep movsb lea si,newtele ;把新電話號(hào)碼拷入 lea di,telelist add di,ax mov cx,20 cld rep movsb lea si,cntselect ;計(jì)數(shù)器清0 mov ax,0 mov si,ax lea dx,modstr6 mov ah,09h int 21hmodify7: lea si,newname mov cx,20modify8: mov al,0 mov si,al inc si loop modify8 lea si,newstud mov cx,2