人事档案文件管理课程设计模板.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 ;调整指针指向倒数第二个名字