module1.bas

关于物流管理信息系统的课程设计

Attribute VB_Name = "Module1"
Public m As Integer
Public a As Integer
Public b As Integer
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Function cnn() As ADODB.Connection    '定义函数
  Set cnn = New ADODB.Connection
  '返回一个数据库连接
 cnn.Open "Driver={SQL Server};Server=(local);Database=物流配送中心数据库;Uid=sa;Pwd="
End Function