start.bas

来自「商品进销存软件」· BAS 代码 · 共 61 行

Attribute VB_Name = "start"
Public IsLogin As Boolean
Public LoginUserName As String
Public ConnStr As String
Public Sub Main()
IsLogin = False
LoginUserName = ""
  If App.PrevInstance = True Then
    MsgBox "程序已经运行，无法再次执行.", vbOKOnly + vbInformation, "系统提示"
    End
  End If
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Persist Security Info=False"
frmlogin.Show
End Sub
Public Function ExeSQL(ByVal sql As String) As ADODB.Recordset
    
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strArray() As String
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    strArray = Split(sql)
    cn.Open ConnStr
    If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
           rs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimistic
        Set ExeSQL = rs
    Else
        cn.Execute sql
    End If
    Set rs = Nothing
    Set cn = Nothing
    Exit Function
 End Function

Public Function spid(ByVal spname As String) As String '返回商品编号
Dim rsspid As ADODB.Recordset
Dim sqlspid As String
sqlspid = "select 商品编号 from 商品表 where 商品名称='" & Trim(spname) & "'"
Set rsspid = ExeSQL(sqlspid)
If Not rsspid.EOF Then
    spid = rsspid.Fields(0)
Else
    spid = "nothing"
End If
End Function
Public Function spjg(ByVal saleway As String, ByVal spname As String) As Integer '返回商品价格
Dim sqlspjg As String
Dim rsspjg As ADODB.Recordset
If saleway = "零售" Then
sqlspjg = "select 零售价 from 商品表 where 商品名称='" & spname & "'"
Else
sqlspjg = "select 批发价 from 商品表 where 商品名称='" & spname & "'"
End If
Set rsspjg = ExeSQL(sqlspjg)
spjg = rsspjg.Fields(0)
rsspjg.Close
Set rsspjg = Nothing
End Function