module1.bas

多方讨价还价系统

Attribute VB_Name = "Module1"
Option Explicit


Public Enum LogonTypes
    JQL_BUYER = 1
    JQL_SALER = 2
    JQL_ADMIN = 3
    JQL_NOT_LOGON = 0
End Enum

Public LogonType As LogonTypes
Public LogonUser As String
Public ConnStr As String
Public StrSQL As String
Public dbTableNames()

Sub main()
    ConnStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\negotiation.mdb"
    dbTableNames = Array("", "buyregister", "sellregister", "manager", "buyerinfo", "sellerinfo")
    frmMain.Show
End Sub