module1.bas

用与大型超市的管理与运行；具有提高效率节省费用的优点

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection
Public usertype As Byte
Public ConnectionString As String
Public username As String
Public userpwd As String
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
  X As Long
  Y As Long
End Type
Public zb As POINTAPI
Public cc

Public sum