module1.bas

一套适用于超市

Attribute VB_Name = "Module1"
 Public cs As Connection
 Public rstu As Recordset
 Public ruser As Recordset
 Public rbj As Recordset
 Public rpwd As Recordset
 Public Loged As Integer
 Public i As Integer
 
'Public Sub LoginSQLServer()
  'Set cs = New Connection
  'cs.CursorLocation = adUseClient
   ' cs.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chaoshi"
 'cs.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=chaoshi;Initial File Name= " & App.Path & "\database\chaoshi_Data.MDF"
'End Sub


Public Sub LoginAccess()
  Set cs = New Connection
  cs.CursorLocation = adUseClient
  cs.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\chaoshi.mdb"
End Sub