学生信息管理系统汇编实现

写这个东西，没有别的目的，只是想检测下这半个月来自己汇编的学习效果，也可以说自讨苦吃吧，想想自己汇编也只能算是刚刚入门吧。

这个课程设计是在看一个博客看到的，在完全没有看他的源码的情况下，一时突发奇想，没有多想，就开始写了。。。

课程设计要求如下：

    1> 要求对学生姓名、年龄、数学、英语成绩等信息进行管理；

     2> 界面友好，能支持插入、删除、查询、修改等基本操作；

     3> 用汇编实现。

当然在完成它的时候，不甘于仅实现这上面的要求，还在这要求之上新加了些功能，

读者看的时候可能会发现在一些 函数传参的时候，完全没有必要，因为参数是全局变量，在函数中可以直接用，没有必要额外传参，当然我这样做的目的只是为是体验高级语言下的传参的真正实现，更彻底的理解高级语言，这也是学汇编的原因。

我用的汇编器是visual studio里面的ML，链接器是masm615里面的，因为masm615里面的汇编器有些不足，还有这份代码要编译链接通过的话，还需要一个库文件，irvine32.lib和irvine32.inc 若是需要的朋友可以联系我（我也会上传源码文件，可以自行下载 ）,

下面是实现的源码（可能比较乱，没来得及优化。）：

title Students infomation manage program  (StuInfoMag.asm)

comment !
        this program is useing for manage student infomation.
		it provide the function of inputing , insert , searvch , 
		 delete the student's infomation 
		(include name , age , math scores)......
                                              ------programer:life_still
                                              ------2012.3.27 22:39
        !
		
include irvine32.inc
includelib irvine32.lib
includelib kernel32.lib
includelib user32.lib

;===========================operation const=================================
invalid_operation  equ   0
insert_std      equ      1
delete_std      equ      2
modify_std      equ      3
query_std       equ      4
count_std       equ      5
Print_all       equ      6
list_name       equ      7
exit_sym        equ      8
Rstart          equ      9
store_to_file   equ      10
name_length = 15
;===========================================================================

;=========================user define data struct============================
Info Struct
     nname byte name_length+1 dup (0)  ; student's name
	 number dword 0 ; number
     Age  byte 0     ; student's age
	 e_mark byte 0   ; english mark
	 m_mark byte 0   ; math_mark
	 c_mark byte 0   ; chinese_mark
Info ends

ListNode struct
    stu Info <>
	NextPtr dword 0
ListNode ends

.data
interface_str byte 0dh,0ah
               byte "================================================================================",0dh,0ah
               byte "                            Student Management System                ",0dh,0ah
			   byte "                          Softwre promgramer: life_syill             ",0dh,0ah
			   byte "--------------------------------------------------------------------------------",0dh,0ah
			   byte "                               Operation Table                     ",0dh,0ah
			   byte "                              ------------------                   " ,0dh,0ah
			   byte "                             1.Insert Student Info                " ,0dh,0ah
			   byte "                             2.Delete Student Info                " ,0dh,0ah
			   byte "                             3.Modify Student Info                ",0dh,0ah
			   byte "                             4.Query  Student Info                ",0dh,0ah
			   byte "                             5.Count  Student Num                 ",0dh,0ah
			   byte "                             6.Print  All     Info                ",0dh,0ah
			   byte "                             7.List   Student Name                ",0dh,0ah
               byte "                             8.Exit         System 			   ",0dh,0ah
			   byte "                             9.Restart      system                ",0dh,0ah
			   byte "                             10.store data to file                ",0dh,0ah
               byte "================================================================================",0dh,0ah ,0

interface_strlen dword ($-interface_str)
str1 byte "please chose the operation acordding the operation table:",0
str2 byte "invalid operation code,please chose again....",0
str3 byte "failed to get the process memery heap handle.exit system....",0

str_name byte "student's name :",0
str_number byte "student's number: ",0
str_math byte "math scores:",0
str_English byte "English Scores:",0
str_chinese byte "chineese scores:",0

    str_1 byte "input the name:",0
	str_2 byte "Input the age:" ,0
	str_3 byte "Input the math mark:",0
	str_4 byte "Input the english mark:",0
	str_5 byte "Input the chinese mark:",0
	str_6 byte "Input the student's number:",0
	
str_q1 byte '===================Qury student information===================',0
str_d3 byte "=====================Delete Student's data====================",0
str_m1 byte "=====================Modify student's info======================",0

operation_index dword 0       ; operation code
Isvalid_operation byte 0        ; judge whether the inputing is valid operation code
Isfound dword 0                 ; judge whether found the student with the number when qury the student

;=============core data space==============
PLISTNODE TYPEDEF PTR ListNode
listHead ListNode < <> ,0>   ;list header
prePnode DWORD offset listHead     ; point to the previous Node
pcurrent DWORD 0                 ;point to the current Node user operation
hHeap dword 0    ; memery heap handle
stu_count dword 0
filename byte 40 dup(0)
hFile dword 0
;==========================================

.code
_main proc
;=========
    call GetProcessHeap     ;Get the process default memeery heap
                                ;	handle for alloc memery when insert student
	mov hHeap ,eax
	
	cmp eax ,INVALID_HANDLE_VALUE
	jne start
	
    mov edx ,offset str3
    call WriteString
    jmp quit 
	
;==========	
start:
    mov eax ,28
	call SetTextColor
    call clrscr
    push offset interface_str  
    call showface_chose 	; display the operation table and read the user input of operation index

operate:
	push offset str1
	call WaitingForOperate
	call compare_operation	 ;compare operation according user inputing 
	                                         ;and return the Isvalid_operation true or false	
											 
	cmp Isvalid_operation ,invalid_operation
	je invalid_opt
	
	cmp operation_index ,insert_std
	je Insert ;;;
    cmp operation_index ,delete_std 
	je Delete ;;;
	cmp operation_index ,modify_std 
	je Modify ;;;
	cmp operation_index ,query_std 
	je Qury ;;;
	cmp operation_index ,count_std
	je count ;;;
	cmp operation_index ,Print_all 
	je Print ;;;
	cmp operation_index ,list_name
	je Listname ;;;
	cmp operation_index ,exit_sym
	je Exitsym  ;;;
	cmp operation_index ,Rstart
	je Restart ;;;
	cmp operation_index ,store_to_file
	je Store_file
	jmp operate
	
invalid_opt:
     mov edx ,offset str2
	 call WriteString               ;display errcor operation infomation
	 jmp operate
	
;==============================================================function Call=========================================================================================	
insert:                                           
    call InsertStu                                    
	jmp operate
;=======
count:
    call Count_stu
	jmp operate
;======

Qury:
    push offset str_q1
    push offset listhead
	push stu_count
    call Qury_stu
	jmp operate
;=======
listname:
    push offset listHead
	push stu_count
    call _list_name
	jmp operate

;========
print:
     push offset ListHead
	 push stu_count
	 call _Print_all
	 jmp operate
;========
delete:
     call _delete
     jmp operate
;======
Modify:
     push offset Listhead
	 push stu_count
	 call _Modify
	 jmp operate
Restart:
    push offset listhead
	push stu_count
	call freememHeap
	jmp start
	
store_file:
     push offset listhead
	 push stu_count
     call _Store_data_to_file
     jmp operate
	
Exitsym:
    push offset listHead
    push stu_count
    call freeMemHeap
;===========
quit:	
	exit
_main endp
;==================================================================Function to implement==================================================================================
showface_chose proc
   push ebp
   mov ebp ,esp
   push edx
   mov edx ,[ebp+8]
   call WriteString
   pop edx
   pop ebp
   ret 4
showface_chose endp
;=======================
;=======================
WaitingForOperate proc
     push ebp
	 mov ebp ,esp
	 push edx
	 mov edx ,[ebp+8]
	 call WriteString
	 call ReadInt
	 mov operation_index ,eax
	 pop edx
	 pop ebp
	 ret 4
WaitingForOperate endp

;=======================
compare_operation proc
    push ebp
	mov ebp ,esp
	push eax
	
    mov eax ,operation_index
	
	cmp eax ,1
	jb quit
	cmp eax ,10
	ja quit
	mov Isvalid_operation ,1
	jmp rtn
quit:
    mov Isvalid_operation ,0
rtn:
	pop eax
	pop ebp
    ret 
compare_operation endp
;===========================
InsertStu proc
.data
    str_I1 byte "====================Insert New Student======================",0
.code
     pushad
	 mov eax ,30
	 call SetTextColor
	 mov edx ,offset str_I1
	 call WriteString
	 call Crlf
	 mov eax ,28
	 call SetTextColor
	 
     INVOKE HeapAlloc, hHeap ,HEAP_ZERO_MEMORY ,type ListNode
	 mov pcurrent ,eax
	 mov edi ,eax
	 
     mov edx , offset str_1	 
	 call WriteString
	 mov ecx ,name_length
	 mov edx , edi               ;offset (ListNode ptr[edi]).stu.nname
	 call ReadString
	 
	 mov edx ,offset str_6
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[edi]).stu.number , eax
	 
	 mov edx ,offset str_2
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[edi]).stu.age ,al
	 
	 mov edx ,offset str_3
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[edi]).stu.m_mark ,al
	 
	 mov edx ,offset str_4
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[edi]).stu.e_mark ,al
	 
	 mov edx ,offset str_5
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[edi]).stu.c_mark ,al
	 
	 call Crlf
	 call Crlf
	 
	 mov esi ,prePnode
	 mov (ListNode ptr[esi]).NextPtr ,edi
	 mov prePnode ,edi
	 inc stu_count
	 popad
     ret
insertStu endp
;===========================

FreeMemHeap proc
     push ebp
	 mov ebp ,esp
	 push ecx
	 push edi
	 
	 mov ecx ,[ebp+8]
	 cmp ecx ,0
	 jbe rt1
	 mov edi ,[ebp+12]
	 mov ecx ,[ebp+8]
lp01:
     push ecx
	 mov edi ,(ListNode ptr[edi]).NextPtr
     INVOKE HeapFree , hHeap ,1 ,edi
	 dec stu_count
	 pop ecx
	 loop lp01
rt1:
	 pop edi
	 pop ecx
	 pop ebp
	 ret 8
FreeMemHeap endp
;=============================
Count_Stu proc
.data
    
    str_c1 byte "the total of student number: ",0
	str_c2 byte "=================Count total student=======================",0
.code
    mov eax ,30
	call SetTextColor
	mov edx ,offset str_c2
	call WriteString
	call crlf
	mov eax ,28
	call SetTextColor
	
    mov edx ,offset str_c1
	call WriteString
	mov eax ,stu_count
	call WriteDec
	call Crlf
	ret
Count_Stu endp
;===========================
Qury_stu proc       ;reuurn the listNode adress in eax and the previous listnode adress in ebx if found and write the Isfound to judge whether found the data 
.data
	 str_q2 byte "Enter the student's number you want to qury:",0
	 str_q3 byte "Found student:",0dh,0ah,0
	 str_q5 byte "no student with the number: ",0
	 stu_number dword 0
.code
     push ebp
	 mov ebp,esp
	 push esi
	 push edx
	 
	 mov edx ,[ebp+16]
	 
	 mov eax ,30
	 call SetTextColor
	 call WriteString
	 call crlf
	 mov eax ,28
	 call SetTextColor
	 
	 mov edx ,offset str_q2
	 call WriteString
	 call ReadInt
	 mov stu_number ,eax
	 
	 mov ecx ,[ebp+8]
	 mov esi ,[ebp+12]
lp02:
     mov ebx ,esi
     mov esi ,(ListNode ptr[esi]).NextPtr
	 cmp eax , (ListNode ptr[esi]).stu.number
	 je ok_q1
	 loop lp02
	 jmp rt_q
	 
ok_q1:
     mov edx ,offset str_q3
	 call WriteString
	 call crlf
	 
	 mov edx ,offset str_name
	 call WriteString
	 mov edx ,esi
	 call WriteString
	 call Crlf
	 
	 mov edx ,offset str_number
	 call WriteString
	 mov eax ,(ListNode ptr[esi]).stu.number
	 call WriteDec
	 call Crlf
	 
	 mov edx ,offset str_math
	 call WriteString
	 movzx eax ,(ListNode ptr[esi]).stu.m_mark
	 call WriteDec
	 call Crlf
	 
	 mov edx ,offset str_english
	 call WriteString
	 movzx eax,(ListNode ptr[esi]).stu.e_mark
	 call WriteDec
	 call Crlf
	 
	 mov edx,offset str_chinese
	 call WriteString
	 movzx eax ,(ListNode ptr[esi]).stu.c_mark
	 call WriteDec
	 call Crlf
	 call crlf
	 call crlf
	 mov eax ,esi
	 mov Isfound ,1
	 jmp ed
	 
rt_q:
     mov edx ,offset str_q5
	 call WriteString
	 mov eax ,stu_number
	 call WriteDec
	 mov Isfound ,0
	 call Crlf
	 call crlf
	 call crlf
ed:	 
	 pop edx
	 pop esi
	 pop ebp
	 ret 12
qury_stu endp
;=====================

_list_name proc
.data
     str_l1 byte "there is no students in database.",0
	 str_l2 byte "==================List all student's name===================",0
.code
     push ebp
	 mov ebp,esp
	 push eax
	 push ecx
	 push edx
	 
	 mov eax ,30
	 call SetTextColor
	 mov edx ,offset str_l2
	 call WriteString
	 call Crlf
	 mov eax ,28
	 call SetTextColor
	 
	 mov edx,[ebp+12]
	 mov ecx,[ebp+8]
	 mov eax ,1
	 cmp ecx ,0
	 je rtl1
lpl1:
    call WriteDec
	inc eax
    mov edx,(ListNode ptr[edx]).NextPtr
    call WriteString 
    call crlf
	loop lpl1
	
	call Crlf
	call Crlf
	jmp edl1
rtl1:
    mov edx ,offset str_l1
	call WriteString
	call Crlf
	call crlf
edl1:
    pop edx
	pop ecx
	pop eax
	pop ebp    	
	ret 8
_list_name endp

;====================
_Print_all proc
.data

     str_p1 byte "=================Print all stu info=====================",0
	 str_p2 byte "student  ",0ah,0
	 str_p3 byte "---------------",0
	 str_p4 byte "there is no student in database.",0
.code
     push ebp
	 mov ebp ,esp
	 push eax
	 push ecx
	 push edi
	 push edx
	 
	 mov eax ,30
	 call SetTextColor
	 mov edx ,offset str_p1 
	 call WriteString
	 call Crlf
	 mov eax ,28
	 call SetTextColor
	 
	 mov ecx ,[ebp+8]
	 mov edi ,[ebp+12]
	 mov eax ,1
	 cmp ecx ,0
	 je rtp1
lpp1:
     push ecx
     mov edi,(ListNode ptr[edi]).NextPtr
	 
	 mov edx ,offset str_p2
	 call WriteString

	 
	 call WriteDec
	 inc eax 
	 call Crlf
	 
	 push eax
	 mov edx ,offset str_name
	 call WriteString
	 mov edx ,edi
	 call WriteString
	 call Crlf
	 
	 mov edx ,offset str_number
	 call WriteString
	 mov eax ,(ListNode ptr[edi]).stu.number
	 call WriteDec
	 call crlf
 
	 mov edx ,offset str_math
	 call WriteString
	 movzx eax ,(ListNode Ptr[edi]).stu.m_mark
	 call WriteDec
	 call Crlf
;=========================
	 jmp lpp13
lpp12:
     jmp lpp1
lpp13:
;=========================
	 mov edx ,offset str_english
	 call WriteString
	 movzx eax ,(ListNode ptr[edi]).stu.e_mark
	 call WriteDec
	 call Crlf
	 
	 mov edx ,offset str_chinese
	 call WriteString
	 movzx eax ,(ListNode ptr[edi]).stu.c_mark
	 call WriteDec
	 call Crlf
	 
	 mov edx ,offset str_p3
	 call WriteString
	 call Crlf
	 
	 pop eax
	 pop ecx
	 loop lpp12
	 call crlf
	 call crlf
	 jmp enp
rtp1:
     mov edx ,offset str_p4
	 call WriteString
	 call Crlf
	 call crlf
enp:  
     pop edx
	 pop edi
	 pop ecx
	 pop eax
	 pop ebp
	 ret 8
_print_all endp
;===================

_delete proc
.data
     ;str_d1 byte "Enter the student's number:",0
	 str_d2 byte " deleted the student.",0
	; 
	 str_num DWORD 0
.code
     push eax 
	 push edx
	 push ebx
	 push offset str_d3
     push offset listhead
	 push stu_count
	 call qury_stu
	 call Crlf
	 cmp Isfound ,0
	 je rtd1

	 mov edx,(ListNode ptr[eax]).NextPtr
     mov (ListNode ptr[ebx]).NextPtr,edx
	 INVOKE HeapFree ,hHeap ,1 ,eax
	 mov edx,offset str_d2
     call WriteString
	 call crlf
	 call crlf
	 call crlf
	 dec stu_count
rtd1:	 
	 pop ebx
	 pop edx
	 pop eax
     ret
_delete endp
	 
;===================

_Modify proc
.data
     
	 str_m2 byte "Input The new data for the student:",0
	 str_m3 byte "OK!,the new data is stored to database.",0
.code
     push ebp
	 mov ebp,esp
	 push eax
	 push ecx
	 push esi
	 push edx
	 
	 push offset str_m1
	 push [ebp+12]
	 push [ebp+8]
	 call Qury_stu
	 
	 cmp Isfound ,0
	 je rtm1
	 
	 mov esi ,eax
	 mov edx ,offset str_m2
	 call WriteString
	 
	 mov edx ,offset str_1
	 call WriteString
	 mov edx ,esi
	 mov ecx ,name_length
	 call ReadString
	 
	 mov edx ,offset str_6
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[esi]).stu.number ,eax
	 
	 mov edx ,offset str_2
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[esi]).stu.age ,al
	 
	 mov edx ,offset str_3
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[esi]).stu.m_mark ,al
	 
	 mov edx ,offset str_4
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[esi]).stu.e_mark ,al
	 
	 mov edx ,offset str_5
	 call WriteString
	 call ReadInt
	 mov (ListNode ptr[esi]).stu.c_mark ,al
	 
	 mov edx,offset str_m3
	 call WriteString
	 call Crlf
	 call crlf
	 call crlf
rtm1:	 
	 pop edx
	 pop esi
	 pop ecx
	 pop eax
	 pop ebp
	 ret 8
_Modify endp

;===========================
_store_data_to_file proc
.data
     str_dt1 byte "======================Store data to file=====================",0
	 str_dt2 byte "Enter the file name(absolute path)to store data:",0
	 str_dt3 byte "failed to create file....",0
	 str_dt4 byte "OK ,succesed to store data to file",0

	 str_demo byte "this program is useing for manage student infomation.it provide the function of inputing , insert , searvch ,delete the student's infomation (include name , age , math scores......)------programer:life_still(钟)------2012.3.27 22:39 ",0
	demo_len dword ($-str_demo)
	
	str_dt_f1 byte "          ",0
	str_len_f1 dword ($-str_len_f1)

	 
.code
     push ebp
	 mov ebp ,esp
	 
     mov eax ,30
	 call SetTextColor
	 mov edx ,offset str_dt1
	 call WriteString
	 call crlf
	 mov eax ,28
	 call SettextColor
	 
	 mov edx ,offset str_dt2
	 call WriteString
	 
	 mov edx ,offset filename
	 mov ecx ,39
	 call ReadString
	 
	 mov edx ,offset filename
	 call CreateOutputFile
	 mov hfile ,eax
	 cmp eax ,INVALID_HANDLE_VALUE
	 je hfile_error
	 
	 mov eax ,hfile
	 mov edx ,offset interface_str
	 mov ecx ,interface_strlen
	 call WriteToFile
	 
	 mov eax ,hfile
	 mov edx ,offset str_demo
	 mov ecx ,demo_len
	 call writetofile

     mov ecx ,[ebp+8]
	 mov edi, [ebp+12]
	 cmp ecx ,0
	 je rt_dt
lp_dt:
     push ecx
	 push edi
	 mov edi ,(ListNode ptr[edi]).NextPtr
	 
	 mov eax ,hfile
	 mov ecx ,16
	 mov edx ,edi
	 call WriteTofile
	 
	 mov edx ,offset str_dt_f1
	 mov ecx ,str_len_f1
	 call WriteTofile
	 
	 pop edi
	 pop ecx
	 loop lp_dt
	 
	 call closefile
	 mov edx ,offset str_dt4
	 call WriteString
	 call crlf
	 call Crlf
	 call crlf
	 jmp rt_dt
	                           
hfile_error:
     mov edx ,offset str_dt3
	 call WriteString
	 call crlf
	 call crlf
	 call crlf
	 
rt_dt:
     pop ebp
	 ret 8
_store_data_to_file endp
end _main

	
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		

下面是效果图：