jsyks.inc

驾驶员考试系统,汇编编写,qq332779423

include \masm32\include\head.inc

DlgProc			PROTO	:HWND,:UINT,:WPARAM,:LPARAM
My_Quit			PROTO	:HWND
My_Init			PROTO	:HWND
My_Proc			PROTO	:HWND
QueryProc		proto	hWin:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD
SwitchMenuState	proto	:DWORD
ODBCConnect		proto	:DWORD
ODBCDisconnect	proto	:DWORD
RunQuery		proto	:DWORD
My_cmpstr		proto 	lpSrc:DWORD,lpDest:DWORD,nLen:DWORD
My_cmpstri		proto 	lpSrc:DWORD,lpDest:DWORD,nLen:DWORD
WinMain			proto	hWin:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD
.const
;####登陆界面############################################################
ICO_MAIN					equ		1000h	;图标
IDC_SCROLL					equ		1998
IDC_VALUE					equ		1997
;#########################################################################
.data?
hLOGIN_DIALOG		dd	?
hInstance			dd ?
hEnv				dd	?
hConn				dd	?
hSQL				dd	?
dwPos				dd	?
   CommandLine LPSTR ?

szPassword			db	256	dup (?)
szBuffer_Passwd		db	128	dup (?)
szBuffer			db	2048	dup (?)
szBuffer1			db	128	dup(?)
szBuffer2			db	128	dup(?)
szDebugBuffer		db	128	dup(?)
ID_LOGIN_OK					equ		0
;#########################################################################

.data
SQLStatement 		db "select passwd from pass	",0
WhereStatement		db "where xm=?",0
strConnect			db  "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=",0
DBName				db ".\odbc.mdb",0
;strConnect			db  "DRIVER={Oracle ODBC Driver};uid=system;pwd=manager;dbq=",0
;DBName				db "subbureau",0

szSuc_LOGIN			db	'登陆成功',0
szErr_LOGIN			db	'登陆出错啦',0
szErrDriver			db	'ODBC 初始化错误',0
szErrConn			db	'无法连接到营业系统数据库',0
szErrSQL			db	'查询数据库错误',0
szNull				db	0
szMy_Debug			db	'测试使用对话框',0
NoData				db "用户名不能为空,请重新输入用户名",0
AppName				db "登录",0
Disconnect			db "成功断开数据源",0
SetAttrFail 		db "ODBC版本错误",0
ConnectCaption 		db "Complete Connection String",0
AllocEnvFail		db "Environment handle allocation failed",0
AllocConnFail		db "Connection handle allocation failed",0
ExecuteFail			db "Execution of SQL statement failed",0
ConnFail			db "Connection attempt failed",0
AllocStmtFail		db "Statement handle allocation failed",0
hStmt				dd ?
Conn				db 256 dup(?)
StrLenX				dd ?
TheName				db 26 dup(?)
ThePasswd			db 26 dup(?)
NameLength			dd ?
PasswdLength		dd ?
SearchName			db 26 dup(?)
ProgPath			db 256 dup(?)
ConnectString		db 1024 dup(?)

;**********************************************************
;	标志位定义
;**********************************************************
ID_LOGIN_ACEPT			equ	00000001h	;可否登陆标志

dwFlag				dd	ID_LOGIN_ACEPT