module1.bas

本人自己开发的超市管理系统

Attribute VB_Name = "Module1"
Option Explicit


Public J As ADODB.Connection
Public x As ADODB.Connection





Public R As ADODB.Recordset
Public C As ADODB.Command



Public R1 As ADODB.Recordset
Public R2 As ADODB.Recordset
Public C1 As ADODB.Command
Public C2 As ADODB.Command          '以上两组  1 为 J   2为 X




Public T As String      '时间
Public H As String
Public M As String
Public S As String
Public U As String
Public Y As String
Public M1 As String
Public D As String





Public GL As Integer



Public LG As Integer      ' LOGO
Public L1 As Integer
Public L2 As Integer




Public msk1 As Integer    '是否登录标志
Public msk As Integer     '权限标志


Public mm As String
Public nn As String
Public mn As String
Public nm As String         '以上两组用于 密码、用户名的验证




Public o As Integer







Public Sub main()

    
    o = 0
    msk1 = 0
    msk = 0
    GL = 0
    
    
    Set J = New ADODB.Connection
    Set x = New ADODB.Connection
    
'    Set R1 = New ADODB.Recordset
    
'    Set C1 = New ADODB.Command
    
    
    'FormLOGO.Show
    
    MDIForm1.Show
    DialogLOGO.Show 1
    
    
    
End Sub