Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection     '標(biāo)記連接對象
Public userID As String                 '標(biāo)記當(dāng)前用戶ID
Public userpow As String                '標(biāo)記用戶權(quán)限
Public find As Boolean                  '標(biāo)記查詢
Public sqlfind As String                '查詢語句
Public rs_data1 As New ADODB.Recordset
Public findok As Boolean
Public summary_menu As String           '標(biāo)記匯總種類
Public frmdata As Boolean
Public Const keyenter = 13               'enter鍵的ASCII碼