link.bas

本系统具有以下功能:商品录入&#61618 收银业务OS登陆、退出、换班与操作锁定等权限验证保护,独立作业：有的断网收银即在网络服务器断开或网络不通的情况下

Attribute VB_Name = "link"

Public Sub link()
    Set Mcon = New ADODB.Connection
    Mcon.ConnectionString = "Provider=sqloledb;Data Source=zhw;Initial Catalog=SuperMarketdb;User Id=sa;Password=820527;"
    Mcon.Open
End Sub