module1.bas

鲜花管理系统

Attribute VB_Name = "Module1"
Option Explicit
Public con As New ADODB.Connection
Dim rs As ADODB.Recordset
Public jq As Integer

Public Sub openlj() '数据库连接
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\FLOWER.MDB;Persist Security Info=False"
    con.CursorLocation = adUseClient
    con.Open
End Sub
'Public Sub gly(sql As String)   '管理员表连接
'    rs.Source = sql
'    rs.ActiveConnection = con
'    rs.CursorType = adOpenKeyset
'    rs.LockType = adLockOptimistic
'    rs.Open
'End Sub

Public Sub main()
    FRMsplash.Show
End Sub
Public Sub showskin(Skin1 As Skin, hwnd As Long)        '窗体皮肤
    Skin1.LoadSkin (App.Path & "\skn\winaqua.skn")
    Skin1.ApplySkin hwnd
End Sub
Public Function search(sql As String) '执行查询语句
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = con
    rs.CursorType = adOpenKeyset
    rs.Source = sql
    rs.LockType = adLockOptimistic
    rs.Open
    Set search = rs
End Function
Public Function seljg(sql As String) '执行查询语句
    Dim danj As Integer
    Set rs = search("select * from floweryy where 鲜花名称='" & sql & "'")
    seljg = rs.Fields("价格").Value
End Function