学生成绩管理系统设计实验

实验六学生成绩管理系统设计实验

一、实验目的

1、熟悉汇编语言程序结构；

2、熟悉INT 21H的文件操作功能调用；

3、熟悉INT 21H的1、9号功能和INT 10H常用功能的使用方法；

4、掌握多子程序复杂问题程序设计方法；

5、掌握利用汇编语言实现字符串的输入输出程序设计方法；

6、了解多模块程序设计方法。

二、实验原理

我们把可以多次调用、具有通用性、能完成特定功能的程序段编写成的独立程序模块称为子程序。子程序是把一个程序划分成若干模块所用的主要手段，它便于独立设计、测试程序和编制程序文件。

三、实验内容

1、实验要求

设计一个学生成绩管理系统，要求完成文件建立、学生成绩录入、显示指定学号的学生记录、删除一个学生的记录、修改学生记录、返回等工作。学生成绩包括学号(XH)、姓名(XM)、数学(SX)、语文(YW)、外语(WY)字段。至少包括30名学生信息，每名学生学号字段为4个字符，姓名字段为15个字符（最大），每门成绩字段为3个字符（最大）。

程序设计步骤如下：

1、编写主程序main.asm；

2、编写文件创建子程序create，实现在指定盘指定文件夹“d:\chengji\2009\”下建立一个指定名称的文件2009doc.dat；

3、编写成绩录入子程序append，实现在指定文件尾部插入一个学生的成绩记录；

4、编写显示子程序display，实现按指定学号显示一个学生的记录；

5、编写修改子程序modify，实现按指定学号修改一个学生的记录字段(不需修改直接回车）；

6、编写删除子程序，实现按指定学号、姓名删除一个学生的记录；

7、编译、链接、调试，产生可执行文件main.exe。

2、程序流程图

3、程序代码程序代码如下：

DATAS SEGMENT

MSG1 DB '1. Append a record$'

MSG2 DB '2. Display a record$'

MSG3 DB '3. Modify a record$'

MSG4 DB '4. Delete a record$'

MSG5 DB '5. Create file$'

MSG6 DB '6. Return DOS$'

MSGC DB 'Please input 1--6:$'

MSGE DB 'Error!$'

MSGC1 DB 'Please input :$'

MAXLEN DB 25

ACTLEN DB ?

STRING DB 25 DUP(?)

MAXLEN1 DB 25

ACTLEN1 DB ?

STRING1 DB 25 DUP(?)

PATHNM DB 'D:\chengji\2009\\',23 DUP(?)

PATH DB 'D:\chengji\2009\2009doc.dat',00

MSGA1 DB 'Please input XH:$'

MSGA2 DB 'Please input XM:$'

MSGA3 DB 'Please input SX:$'

MSGA4 DB 'Please input YW:$'

MSGA5 DB 'Please input WY:$'

HANDLE DW ?

MSGXH DB 'Xuehao: $'

MSGXM DB 'Xingming: $'

MSGSX DB 'Shuxue:$'

MSGYW DB 'Yuwen: $'

MSGWY DB 'Waiyu: $'

BUFFER DB 2048 DUP(' ')

MSGRT DB 'Press any key to return!$'

DELSTR DB 33 DUP(' ') DATAS ENDS

STACKS SEGMENT STACK

DB 256 DUP(?)

STACKS ENDS

CODES SEGMENT

ASSUME

CS:CODES,DS:DATAS,SS:STACKS START:

MOV AX,DATAS

MOV DS,AX

;******************************** ;主程序

MAIN PROC FAR

S:;清屏

CALL CLS ;逐行输出提示信息

MOV AH,02H

MOV DH,9

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSG1

INT 21H

MOV AH,02H

MOV DH,10

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSG2

INT 21H

MOV AH,02H

MOV DH,11

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSG3

INT 21H

MOV AH,02H

MOV DH,12

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSG4

INT 21H

MOV AH,02H

MOV DH,13

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSG5

INT 21H

MOV AH,02H

MOV DH,14

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSG6

INT 21H;提示输入

MOV AH,02H

MOV DH,15

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSGC

INT 21H;从键盘读入一个数字MOV AH,02H

MOV DH,15

MOV DL,48

INT 10H

MOV AH,1

INT 21H;按数字对应子程序CMP AL,31H

JZ CAPPEND

CMP AL,32H

JZ CDISPLAY

CMP AL,33H

JZ CMODIFY

CMP AL,34H

JZ CDELETE

CMP AL,35H

JZ CCREATE

CMP AL,36H

JZ E

;若输入不是1-6数字，则提示错误MOV AH,02H

MOV DH,16

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSGE

INT 21H

CCREATE:

CALL CREATE

JMP S

CDELETE:

CALL DELETE

JMP S

CMODIFY:

CALL MODIFY

JMP S

CDISPLAY:

CALL DISPLAY

JMP S

CAPPEND:

CALL APPEND

JMP S

E:

MOV AH,4CH

INT 21H

MAIN ENDP

;******************************** ;CREATE程序

CREATE PROC NEAR

PUSH AX

PUSH CX

PUSH DX

PUSH SI

PUSH DI;清屏

CALL CLS

;提示输入文件名

MOV AH,2

MOV DH,12

MOV DL,20

INT 10H

MOV AH,9

LEA DX,MSGC1

INT 21H

;从键盘读入文件名字符串

MOV AH,0AH

LEA DX,MAXLEN

INT 21H

;将文件名字符串加到ASCIZ字符串末尾

MOV CX,0

MOV CL,ACTLEN

LEA SI,STRING

LEA DI,PATHNM

ADD DI,16

LCREATE:

MOV AL,BYTE PTR [SI]

MOV [DI],AL

INC DI

INC SI

LOOP LCREATE

;在ASCIZ字符串末尾加00

MOV BYTE PTR [DI],0

;按ASCIZ字符串创建文件

MOV AH,3CH

LEA DX,PATHNM

MOV CX,0

INT 21H

POP DI

POP SI

POP DX

POP CX

POP AX

RET

CREATE ENDP

;******************************** ;APPEND程序

APPEND PROC NEAR

PUSH AX

PUSH BX

PUSH CX

PUSH DX

PUSH SI

PUSH DI;清屏

CALL CLS

;打开文件（只写）

MOV AH,3DH

MOV AL,01H

LEA DX,PATH

INT 21H

MOV HANDLE,AX

;提示输入学号

MOV AH,02H

MOV DH,10

MOV DL,30

INT 10H

MOV AH,9

LEA DX,MSGA1

INT 21H

;从键盘读入字符串

MOV AH,0AH

LEA DX,MAXLEN

INT 21H

;在字符串末尾补足空格

MOV DX,4

CALL FILL

;将文件指针定位至文件末尾MOV AH,42H

MOV AL,2

MOV BX,HANDLE

MOV CX,0

MOV DX,0

INT 21H;写入文件

MOV AH,40H

MOV BX,HANDLE

MOV CX,0

MOV CL,ACTLEN

LEA DX,STRING

INT 21H;提示输入姓名

MOV AH,02H

MOV DH,11