汇编人事档案管理程序设计报告样本.doc

汇编语言程序设计课程设计 题目：人事档案文献管理 -11-26一 设计目汇编语言课程设计是对所学课程内容全面、系统总结、巩固和提高一项课程实践活动。依照汇编语言特点，选取相应题目，在教师指引下，由学生独立完毕。课程设计规定同窗们熟悉汇编语言编程，BIOS中断调用、系统功能调用、磁盘数据查询、存取、图形颜色显示与调节等有关知识。通过课程设计，一方面提高运用汇编语言编程解决实际问题能力，另一方面使同窗们更进一步理解计算机系统内部关于知识，为后来学习和系统开发奠定良好基本。二设计内容在文档中创立一种person.txt文本文献，它包括id号、姓名、年龄、性别、电话、通信地址等六项内容，先编写一项如下图界面功能：实现如下功能：（1） i命令，实现数据输入，在末尾添加（2） f命令，实现数据查找，按名字进行查找（3） d命令，实现数据删除，按名字进行查找删除。（4） o命令，实现数据排序，按名字进行排序（5） l命令，实现数据显示，（6） q命令，实现退出，并将数据重新写入三程序设计原理 （1）本次实验是模块化程序设计思想，通过一种主程序，调用其她模块子程序， ：文献打开，如果能打开文献便读取其中内容，否则话，便创立文献，接着执行后来裔码。 ：宏定义：实验中做了一种显示字符串宏，以便后来显示各种字符串 ：背景颜色实现：通过调用int 10h功能，实现s草绿色背景 ：插入程序：通过查寻与否存在当前输入id,如果不存在，则继续输入，如果存在则停止输入。输入时候计算输入字节，局限性用空格补充，并将输入内容保存到内存里，当关闭文献时，保存到文献里，同步设立指针指向数据段末尾。程序框图如下： cmp al,I jnz error call inputY/N输入id输入 输入id进行检查，调用check函数，设立flag=bp，初始值设立bp=0，如果存在bp=0，否则bp=1； CheckY调用storid保存到stu中，BP=0?NY保存到数据段Y调用inputname输入名字调用inputsex输入性别输入年龄调用inputold调用inputaddress输入地址调用inputphone，如果输入结束，通过回车键进入主页面。输入电话Ret结束 ：显示程序，一方面判断文献中是不是有内容，通过设立是一种全局count记录文献个数，如果记录为零，则退出，返回主菜单，否则每次从内存中取60个字节。 到另一种缓存显示，用count计数，显示一次，count-； ：查找模块 ：一方面提示顾客输入想要查找名字，调节指针，然后用字符串cmpsw比较名字，直到最后一种名字为止，若找到则显示，不存在，则提示； 程序框图：名字查找 核心代码：lea si,stu add si,10 ;指向记录第一种人姓名 mov bx,sinase10: lea di,_name ;存储待查人姓名地址 mov cx,5 repe cmpsw 输入要查找名字si-数据段第一种名字 di=输入名字bp=0名字比较 Si移到下一种名字 找到名字Y si=指向学生信息头 N 输出学生信息Count-1 COUNT=0? N RET结束 Y：删除程序：通过名字进行查找，如果不存在就报错，如果存在多条记录进行提示，选取删除那条记录：Bp作为一种标志：BpBp1;有一条记录Bp3；有多调记录程序框图：名字删除rep movswRET结束sub stu1,60 sub count1,1Si=di下一种di=delbpdi=delbx删除第bx个记录Bx=bx*2BP3?Bp1?查找名字相似记录 N Y N YSiendaddr si=endaddr N Y ：排序程序：若只有一条记录或者没有直接跳出，否则按照Ascii码排序，排序用冒泡排序算法：程序框图： endaddr-倒数第二个名字si-第一种名字swapped=0这里采用冒泡算法，从第一种数开始对相邻两个数进行比较，如果顺序不对，进行互换。从图中可以看出，为了提高效率，设立了一种标志位，每次进入外循环，就将标志位值零，在内循环每做一次互换，就将该标志位值1，在每次内循环结束后，可测试标志位与否是0，如果是0.则结束排序，否则在进行一次外循环。这种算法效率较高某些。di-si下一种名字Ax=di bx=si repe cmpsb Si=di? Ydisi NSwapped=1Si=ax Si=endaddrSwapped=0?N N Y结束ret ：退出程序：打开文献，把数据段内容读入文献，否则创立文献，同是依照count，写入最后一条记录，在末尾 ，关闭文献。四程序分工苏林东：模块整合与颜色调配，尚有文献建立与有关模块制作吴威：输入模块和删除模块制作，关闭文献制作。曹锦峰：查询模块和排序模块制作。五源程序及运营成果：（1）源程序： data segment HH DB 0,0,: MM DB 0,0,: SS1 DB 0,0 mess1 db id:,$ mess2 db name:,$ mess3 db old:,$ mess4 db sex:,$ mess5 db address:,$ mess6 db phone number:,$ mess7 db enter error!,0dh,0ah,$ mess8 db id,8 dup( ),name,5 dup( ),old ,sex , address ,5 dup( ),telphone,13,10,$ mess9 db student information in the table is:,13,10,$ mess10 db please enter the name:,13,10,$ mess11 db 13,10,OK,you are quit,welcome the next!,$ mess13 db sorry,create file is not success!,13,10,$ mess14 db No Records!,13,10,$ mess15 db sorry,the input is not found!,13,10,$ mess16 db Do you want to delete this messae(y/n)?,13,10,$ mess17 db please choose which one do you want to delete(1,2.):,$ mess18 db Delete success!,13,10,$ mess19 db sorry,the id is same ,please input again!,13,10,$ mess20 db please press to paste next page,13,10,$ mess21 db Very good,the sort is sucessful!,13,10,$idpar label bytemaxilen db 10actilen db ?id db 10 dup(?) ;学号namepar label byte maxnlen db 10 actnlen db ? _name db 10 dup(?) ;姓名 oldpar label byte maxolen db 3 actolen db ? old db 3 dup(?) ;年龄sexpar label byte maxslen db 5 actslen db ? sex db 5 dup(?) ;性别 addresspar label byte maxalen db 15 actalen db ? ad db 15 dup(?) ;地址 phonepar label byte maxplen db 15 actplen db ? phone db 15 dup(?) ;电话号码displ macro x ;显示宏 lea dx,x mov ah,09 int 21h endm stu db 50 dup(58 dup ( ),13,10) ;内存空间 temp db 60 dup ( ),$ ;暂时存储空间 crlf db 13,10,$ ;换行回车 menu db * welcom *,13,10 db * i-input *,13,10 db * f-find *,13,10 db * d-delete *,13,10 db * o-sort *,13,10 db * l-list *,13,10 db * q-quit *,13,10 db *,13,10 db please input the choice:,$ stu1 dw ?;作为存储末尾指针 address db f:person.txt,0 ;途径 count1 db 0 ;暂时记录输入个数 count db 0;记录输入个数 count2 db 0;检查学号时候用 fcode dw ? ;文献代号 endaddr dw ?;排序时用到，及存储末尾指针 end1 db ; count3 db 0;显示时候用，分页 del dw 20 dup(?) swapped db 0 ;互换标志位 data ends;-代码段-code segment assume cs:code,ds:data,es:data main proc far mov ax,data mov ds,ax mov es,ax start: mov ax,0600h call scren lea di,stu call open cld mov stu1,dimenu1： displ menu ;显示菜单 mov ah,01 int 21h mov bl,al displ crlf mov al,bl and al,5fh ;把输入选取都转化为大写 insert: cmp al,I jnz list call input jmp menu1list: cmp al,L jnz dele call display displ crlf jmp menu1dele： cmp al,D jnz find call delet displ crlf jmp menu1find: cmp al,F jnz sort call search displ crlf jmp menu1 sort: cmp al,O jnz quit call namesort displ crlf displ mess21 jmp menu1quit: cmp al,Q jz overerror: displ mess7 jmp menu1over: call close displ mess11 mov ah,4ch int 21h ret main endp ;-插入模块- input proc near mov di,stu1inputloop: cldagain: mov bp,0 displ mess1 call inputid ;输入学号 cmp actilen,0 jz A10 cmp count1,50 je A10 call check ;检查学号与否重复 cmp bp,0 jnz again call storid ;保存到stu displ mess2 call inputname ;输入名字 displ mess3 call inputold ;输入年龄 displ mess4 call inputsex ;输入性别 displ mess5 call inputaddress ;输入地址 displ mess6 call inputphone ;输入电话 add di,2 jmp inputloop A10: mov ah,count1 ;记录数 mov count,ah mov stu1,di retinput endp;-输入学号模块-inputid proc near mov ah,0ah lea dx,idpar int 21h displ crlf mov bh,0 mov bl,actilen mov cx,10 sub cx,bxloopn: mov idbx,20h inc bx loop loopn retinputid endp;-相似窗号检查段-check proc near mov bp,0 mov ah,count1 mov count2,ah mov si,stu1 sub si,60 mov endaddr,si;指向最后一条记录学号 lea si,stu mov bx,sinase1: lea di,id;存储学号偏移地址 mov cx,5 repe cmpsw jcxz naseex jmp nase2naseex: displ mess19 mov bp,1 jmp mm1nase2: add bx,60 mov si,bx dec count2 jnz nase1mm1: retcheck endp;-保存学号模块-storid proc near mov di,stu1 inc count1 cld lea si,id mov cx,5 rep movsw retstorid endp;-输入名字-inputname proc near mov ah,0ah lea dx,namepar int 21h displ crlf mov bh,0 mov bl,actnlen mov cx,10 sub cx,bxin20: mov _namebx,20h ;剩余充填空格 inc bx loop in20 cld lea si,_name mov cx,5 rep movsw retinputname endp;-输入年龄-inputold proc near mov ah,0ah lea dx,oldpar int 21h displ crlf mov bh,0 mov bl,actolen mov cx,3 mov cx,bxlo20: mov oldbx,20h inc bx loop lo20 cld lea si,old mov cx,3 rep movsb ret inputold endp;-输入性别-inputsex proc near mov ah,0ah lea dx,sexpar int 21h displ crlf mov bh,0 mov bl,actslen mov cx,5 sub cx,bx is20: mov sexbx,20h inc bx loop is20 cld lea si,sex mov cx,5 rep movsb retinputsex endp;-输入地址-inputaddress proc near mov ah,0ah lea dx,addresspar int 21h displ crlf mov bh,0 mov bl,actalen mov cx,15 sub cx,bxia20: mov adbx,20h inc bx loop ia20 cld lea si,ad mov cx,15 rep movsb retinputaddress endp;-输入电话-inputphone proc near mov ah,0ah lea dx,phonepar int 21h displ crlf mov bh,0 mov bl,actplen mov cx,15 sub cx,bx ip20: mov phonebx,20h inc bx loop ip20 cld lea si,phone mov cx,15 rep movsb retinputphone endp;-time时间-time proc near ； push ax ；;push bx ； push cx ；push dx push dsmov ax,0push ax mov ax,data mov ds,axAGAIN1:mov ah,2ch ;读取系统时间 CH：CL-时：分 DH：DL-秒：百分秒int 21hMOV BX ,OFFSET HHMOV AL,CHCALL C16_10 ;转换AL中16进制为10进制,并填入相应位置MOV BX ,OFFSET MMMOV AL,CL ;分CALL C16_10MOV BX ,OFFSET SS1MOV AL,DH ;秒CALL C16_10MOV AH,2 ;光标定位MOV DH,0 ;首行MOV DL,70 ;70列 MOV BH,0INT 10HMOV CX,8MOV SI,OFFSET HHNN1:MOV AH,0EH ;电传方式写字符(一次1个)MOV AL,SIMOV BL,0INT 10HINC SILOOP NN1MOV AH,1INT 16H;JNZ DOWN ;按任一键结束JMP AGAIN1;DOWN:;pop ds;pop dx;pop cx;pop bx;pop ax;RETrettime endp;-进制转换-C16_10 PROC NEAR PUSH CX ;将AL中16进制转为10进制 MOV AH,0 MOV CX,10D DIV CL ADD AX,3030H MOV BX,AL INC BX MOV BX,AH POP CX RETC16_10 ENDP;-关闭文献-close proc near mov ah,count1 mov count,ah cmp count,0 jbe exit10 mov ah,3dh mov al,2 lea dx,address int 21h jnc y2 mov ah,3ch mov cx,00 lea dx,address int 21h jc exit10 y2: mov fcode,ax mov bx,fcode lea si,stuy1: lea di,temp mov cx,30 rep movsw lea dx,temp mov cx,60 mov ah,40h int 21h sub count,1 jnz y1 lea dx,end1 mov cx,2 mov ah,40h int 21h mov bx,fcode mov ah,3eh int 21hexit10: retclose endp;-打开文献-open proc near lea dx,address mov ah,3dh mov al,02 int 21h jc p9 ;不存在则创立文献 mov fcode,ax ;保存文献代号 p1: mov ah,3fh mov bx,fcode mov cx,60 ;读取文献记录数（一条记录） lea dx,temp int 21h jc p9 mov bl,temp cmp bl, jz p6 ;读取结束 ; lea si,temp mov cx,30 rep movsw inc count1 jmp p1 p9: displ mess13 p6: mov bx,fcode mov ah,3eh int 21h retopen endp ;-删除模块-delet proc near mov si,stu1 mov endaddr,si call search cmp bp,1 jae p3 retp3： cmp bp,3 jae p4 mov di,delbp jmp l1p4: displ mess17 call inputnum cmp bx,bp jbe p5 displ crlf displ mess7 jmp p4p5: mov di,delbxl1: displ crlf displ mess16 mov ah,01h int 21h cmp al,y jz d1 cmp al,Y jz d1 cmp al,n jz exit7 cmp al,N jz exit7 displ mess7 jmp l1d1: mov si,di add si,60d2: mov cx,30 rep movsw cmp si,endaddr jnbe p01 jmp d2p01: sub stu1,60 sub count1,1 displ crlf displ mess18 displ crlfexit7: ret delet endp;-查找模块-search proc near mov ah,count1 mov count,ah mov bp,0 cld displ mess10 call inputname1 ;输入要查找人名 call namesearch cmp bp,0 jbe s2 jmp exit6s2: displ mess15exit6: ret search endp;-计算要删除是哪一种-inputnum proc near mov bx,0 it1: mov ah,1 int 21h mov dl,al sub al,30h jl exit1 ;输入为零 cmp al,9D jg exit1 cbw xchg ax,bx mov cx,10d mul cx xchg ax,bx add bx,ax jmp it1exit1: mov ax,bx mov bl,2 mul bl mov bx,ax retinputnum endp;-查找姓名函数模块输入-inputname1 proc near mov ah,0ah lea dx,namepar int 21h displ crlf mov bh,0 mov bl,actnlen mov cx,10 sub cx,bxin21: mov _namebx,20h inc bx loop in21 retinputname1 endp;-姓名搜索-namesearch proc near lea si,stu add si,10 ;指向记录第一种人姓名 mov bx,si nase10: lea di,_name ;存储待查人姓名地址 mov cx,5 repe cmpsw jcxz naseexit jmp nase20naseexit: mov si,bx sub si,10 add bp,2 mov delbp,si lea di,temp mov cx,30 rep movsw displ tempnase20: add bx,60 mov si,bx dec count jnz nase10 retnamesearch endp;-排序模块-namesort proc near cmp count1,1 jbe exit5 mov di,stu1 sub di,110 ;调节指针 mov endaddr,di ;调节指针指向倒数第二个名字NS1