buttons.inc

一个背单词源码

;proto


.const
IDC_BTN_ADD						equ 1005
IDC_BTN_DEL						equ 1013
IDC_BTN_EDIT					equ 1004
IDC_BTN_MAIN					equ 1006
IDC_BTN_SEARCH					equ 1003


.data?
hBtnSearch			dd		?
hBtnAdd				dd		?
hBtnEdit			dd		?
hBtnDel				dd		?
hBtnMain			dd		?



.code

InitButtons proc hWin:dword
	
	;作用:
	;参数:
	;返回值:
	;
	;开发日期:
	;备注:
	
	
	invoke GetDlgItem,hWin,IDC_BTN_SEARCH
	MOV hBtnSearch,eax
	invoke LoadIcon,hInstance,1000
	invoke SendMessage,hBtnSearch,BM_SETIMAGE,IMAGE_ICON,eax
	
	
	invoke GetDlgItem,hWin,IDC_BTN_ADD
	MOV hBtnAdd,eax
	invoke LoadIcon,hInstance,1001
	invoke SendMessage,hBtnAdd,BM_SETIMAGE,IMAGE_ICON,eax
	
	invoke GetDlgItem,hWin,IDC_BTN_EDIT
	MOV hBtnEdit,eax
	invoke LoadIcon,hInstance,1002
	invoke SendMessage,hBtnEdit,BM_SETIMAGE,IMAGE_ICON,eax
		
	invoke GetDlgItem,hWin,IDC_BTN_DEL
	MOV hBtnDel,eax
	invoke LoadIcon,hInstance,1003
	invoke SendMessage,hBtnDel,BM_SETIMAGE,IMAGE_ICON,eax
	
	invoke GetDlgItem,hWin,IDC_BTN_MAIN
	MOV hBtnMain,eax
	invoke LoadIcon,hInstance,1004
	invoke SendMessage,hBtnMain,BM_SETIMAGE,IMAGE_ICON,eax
	ret

InitButtons endp

ButtonDelete	proc hWin:dword
	
	;作用:
	;参数:
	;返回值:
	;
	;开发日期:
	;备注:
	LOCAL	lbuf[256]:byte
	LOCAL 	lbufSQL[1024]:byte
	LOCAL 	lbufTableName[256]:byte
	invoke GetWindowText,hWord,addr lbuf,256
	.if !eax
		MyDebug "您是否尚未选定要删除的词条？"
		ret
	.endif
	invoke GetWindowText,hCombo,addr lbufTableName,256
	.if !eax
		MyDebug "您是否尚未选定要删除的词库？"
		ret
	.endif
	
	invoke wsprintf,addr lbufSQL,SADD("即将删除%s词库中的单词%s，可以吗？"),\
					addr lbufTableName,addr lbuf
	invoke MessageBox,NULL,addr lbufSQL,addr AppName,MB_DEFBUTTON2 or MB_YESNO OR MB_ICONINFORMATION
	.IF eax!=IDYES
		ret
	.endif	
	invoke wsprintf,addr lbufSQL,SADD("delete from %s where 单词 = '%s'"),\
					addr lbufTableName,addr lbuf
	invoke ODBCExeDirect,addr lbufSQL
	
	invoke SendMessage,hList,LB_GETCURSEL,0,0
	.if eax!=LB_ERR
		invoke SendMessage,hList,LB_DELETESTRING,eax,0
		.if eax==LB_ERR
			MyDebug "在列表中删除单词时出错。在buttons.inc,ButtonDelete函数。"
		.endif
	.endif
	
	
	ret

ButtonDelete endp