module1.bas

vbsql做的销售管理课程设计样本不完全仅为范例

Attribute VB_Name = "Module1"
'Public fMainForm As frmMain
Public flag As Integer   '登录成功标志
Public bflagadd As Integer '查询操作标志
Public flagadd As Integer '操作标志
Public brflagadd As Integer '操作标志
Sub Main()
flag = 0
frmMain.Show
End Sub

Public Function ConnectString() _
   As String
   ConnectString = "FileDSN=cpxs.dsn;UID=sa;PWD=liu"
End Function
Public Function ExecuteSQL(ByVal SQL As String) _
   As ADODB.Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
       Set ExecuteSQL = rst
        End Function