学生成绩管理系统 - 图文

POP CX POP BX POP AX RET

QUERY ENDP

MODIFY PROC NEAR

PUSH AX PUSH BX PUSH CX PUSH DX CLEAR1 SET_P1 4 MOV

DX,OFFSET

FNAME

MOV AL,2 MOV AH,3DH INT 21H MOV BX,AX MOV HANDLE,AX CALL

GET_REC ; contact is in buffer1

READ: MOV DX,OFFSET BUFFER2

MOV CX,23 MOV AH,3FH INT 21H LEA SI,BUFFER2 LEA DI,BUFFER1 MOV CX,15

C5: MOV DL,BYTE PTR[SI]

CMP DL,BYTE PTR[DI] JNZ READ INC SI

INC DI LOOP C5

MOV BX,HANDLE MOV AH,42H MOV AL,1 MOV CX,0FFFFH MOV DX,-23 INT 21H MOV CX,23

MOV DX,OFFSET BUFFER1 MOV AH,40H INT 21H MOV AH,3EH INT 21H JMP EXIT2 EXIT1: SET_P2

SHOW ERR1 EXIT2: SET_P3

POP DX POP CX POP BX POP AX RET

MODIFY ENDP

DELETE PROC NEAR

PUSH AX PUSH BX PUSH CX PUSH DX CLEAR1 SET_P1 4 MOV

DX,OFFSET

FNAME

MOV AL,2 MOV AH,3DH INT 21H MOV BX,AX MOV HANDLE,AX GETIN BUFFER1,15 ; contact is EXIT5: SET_P2

SHOW ERR1 EXIT6: SET_P3

POP DX POP CX POP BX in buffer1 READ5: MOV

DX,OFFSET

BUFFER2

MOV CX,23 MOV AH,3FH INT 21H LEA SI,BUFFER2 LEA DI,BUFFER1 MOV CX,15 C6: MOV DL,BYTE PTR[SI]

CMP DL,BYTE PTR[DI] JNZ READ5 INC SI INC DI LOOP C6

MOV BX,HANDLE MOV AH,42H MOV AL,1 MOV CX,0FFFFH MOV DX,-8 INT 21H MOV CX,8

MOV DX,OFFSET DEL MOV AH,40H INT 21H MOV AH,3EH INT 21H JMP EXIT6

POP AX RET DELETE ENDP

LIST PROC NEAR

PUSH AX PUSH BX PUSH CX PUSH DX CLEAR1 CLEAR2 SET_P2 SHOW MESS11

MOV DX,OFFSET FNAME MOV AL,2 MOV AH,3DH INT 21H MOV BX,AX AGAIN: MOV

DX,OFFSET

BUFFER1

MOV CX,23 MOV AH,3FH INT 21H CMP AX,0 JZ P SHOW_ITEM BUFFER1

JMP AGAIN P: MOV AH,3EH

INT 21H SET_P3 POP DX POP CX POP BX POP AX RET LIST ENDP

PRINT PROC NEAR

PUSH AX CALL OPENF MOV CL,COUNT MOV CH,0 READ2: MOV

DX,OFFSET

BUFFER1

MOV CX,TYPE SCORE MOV AH,3FH INT 21H MOV CX,23H MOV BX,0 NEXT: MOV AH,5

MOV

DL,BYTE

PTR

BUFFER1[BX]

INT 21H INC BX LOOP NEXT MOV AH,5 MOV DL,0DH INT 21H DEC X CMP X,0 JNZ READ2 MOV BX,HANDLE

MOV AH,3EH INT 21H POP AX RET PRINT ENDP

COT PROC PUSH AX CLEAR2 SET_P2 SHOW MESS12

MOV DX,OFFSET FNAME MOV AH,3DH INT 21H MOV BX,AX MOV HANDLE,AX READ0: MOV

DX,OFFSET

BUFFER2

MOV CX,23 MOV AH,3FH INT 21H

MOV DL,[BUFFER2+15] CMP DL,'6' JL FIVE CMP DL,'7' JL SIX CMP DL,'8' JL SEVEN CMP DL,'9' JL EIGHT INC [BUFFER3+4] JMP QUIT EIGHT: INC [BUFFER3+3]

JMP QUIT

SEVEN: INC [BUFFER3+2]

JMP QUIT SIX: INC [BUFFER3+1]

JMP QUIT FIVE: INC [BUFFER3] QUIT: CMP AX,0

JNZ READ0 MOV CX,10 A: MOV DL,' '

MOV AH,2 INT 21H LOOP A MOV BX,0

A0: MOV DL,[BUFFER3+BX] MOV AH,2 INT 21H INC BX

MOV DL,' ' MOV AH,2 INT 21H MOV DL,' ' MOV AH,2 INT 21H CMP BX,5 JNZ A0

MOV BX,HANDLE MOV AH,3EH INT 21H SET_P3 POP AX RET COT ENDP CODE ENDS END START