module1.bas

本医疗点数据管理系统适用于乡镇卫生所

Attribute VB_Name = "Module1"


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