module1.bas

VB医药保险品查询系统

Attribute VB_Name = "Module1"
'Download by http://www.codefans.net
Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, dwData As Any) As Long
Option Explicit
Public conn As New ADODB.Connection     '标记连接对象
Public select_menu As String            '标记所选择的菜单
Public userID As String                 '标记当前用户ID
Public userpow As String                '标记用户权限
Public sqlfind As String                '查询语句
Public rs_data1 As New ADODB.Recordset  '标记连接对象
Public findok As Boolean
Public Const keyenter = 13