module1.bas

社区医疗管理系统 用vb开发的简单社区卫生组织用的管理系统

Attribute VB_Name = "Module1"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/18
'描    述：社区医疗点数据管理系统 Ver 1.0
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

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