系统参数.bas

来自「Sql版的餐饮管理系统 帐号admin密码2」· BAS 代码 · 共 11 行

Attribute VB_Name = "XTCS"
Public dbConn As ADODB.Connection
Public dbRecord As ADODB.Recordset
Public Admin As String
Sub main()
Set dbConn = New ADODB.Connection
Set dbRecord = New ADODB.Recordset
    dbConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=cygl;Data Source=(local)"
    DLXX.Show 1
End Sub