module1.bas

超市的管理与及时的维护

Attribute VB_Name = "Module1"
Public sid As String
Public flag2 As Boolean
Public number As Integer
Public temp1 As String
Public temp3 As Integer
Public mtotal As Currency
Public memID As String
Public i As Integer
Public total As Currency
Public temp2 As Currency
Public snumber As Integer
Public temp As String
Public Mcon As New ADODB.Connection