module1.bas

会员信息管理系统基于vb开发

Attribute VB_Name = "Module1"
Option Explicit
Public select_row As String
Public conn As New ADODB.Connection     '定义Connection类别的对象变量
Public rs1 As New ADODB.Recordset       '建立Recordset类别的对象变量
Public rs2 As New ADODB.Recordset
Public rs3 As New ADODB.Recordset
  Public select_row1 As String
 Public rs4 As New ADODB.Recordset
                                  '     标记是否处于“添加档案”状态
Public cmd_states As Boolean            '标记form1按钮的状态
Public username As String               '标记登录的用户权限
Public userID As String                 '标记登录用户名