module1.bas

该课题采用VB+SQLSERVER实现一个管理系统

Attribute VB_Name = "Module1"
Option Explicit
Public Str As ADODB.Connection
Public username As String
Public password As String

Public Sub DateConnection()
    Set Str = New Connection
    Str.ConnectionTimeout = 50
    Str.Provider = "sqloledb"
    Str.Properties("data source").Value = "RECHQIN"    '服务器的名字
    Str.Properties("initial catalog").Value = "medcine"           '库名
    Str.Properties("integrated security").Value = "SSPI"   '登陆类型
    Str.Properties("user id").Value = "sa"
    Str.Properties("password").Value = "123"
    Str.Open
    Str.CursorLocation = adUseClient
End Sub

Public Sub Main()
    Call DateConnection
    
    Form1.Show
End Sub