module1.bas

档案管理

Attribute VB_Name = "Module1"
'rs1为msflexgrid所对应的Recordset对象，rs2为mainform中显示基本资料所对应的recordset对象
'rs3为详细资料form中所对应的Recordset对象
'show_arch用来标志是否通过按“显示详细资料”按钮进入form1，若是，则令其值为1，不是为0
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 show_arch As Boolean
Public addinfo As Boolean               '标记是否处于“添加档案”状态
Public cmd_states As Boolean            '标记form1按钮的状态
Public username As String               '标记登录的用户权限
Public userID As String                 '标记登录用户名