module1.bas

数据库中有三个默认用户。 用户名 密码权限 001 002 管理员 002 002 普通用户

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection     '标记连接对象
Public rs_chuzu As New ADODB.Recordset
Public userID As String
Public username As String
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
           ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
           ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
           ByVal ySrc As Long, ByVal dwRop As Long) As Long

Public Const SRCCOPY = &HCC0020