module1.bas

采用VB+ACCESS编写的汽车销售管理系统,

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection     '标记连接对象
Public userID As String                 '标记当前用户ID
Public userpow As String                '标记用户权限
Public find As Boolean                  '标记查询
Public sqlfind As String                '查询语句
Public rs_data1 As New ADODB.Recordset
Public findok As Boolean
Public summary_menu As String           '标记汇总种类
Public frmdata As Boolean
Public Const keyenter = 13               'enter键的ASCII码