base.bas

this is my first software.

Attribute VB_Name = "base"
Public connectString As String
Public userName As String
Public userXingMing As String
Public userPassword As String
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public CurRecord As String     '存储当前记录的编号
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public sqlString As String
Public Sub setGuiGeList(comboArg As ComboBox, ProductName As String, GuiGeName As String)
    comboArg.Text = ""
    comboArg.Clear
    cn.Open
    Set rs.ActiveConnection = cn
    rs.LockType = adLockReadOnly
    rs.CursorType = adOpenForwardOnly
    rs.Open "select 规格值 from 规格表 where 名称 = '" & ProductName & "' and 规格名称 = '" & GuiGeName & "'"
    Do Until rs.EOF
        comboArg.AddItem rs!规格值
        rs.MoveNext
    Loop
    rs.Close
    cn.Close
    
End Sub

Sub Main()
    
    '检测是否已运行
    If App.PrevInstance Then
        MsgBox App.Title + " 已运行!"
        End
    End If
    connectString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source = c:\windows\system\basema.mdb"
  
    '启动登录窗口
    Set fLoginForm = New frmLogin
    fLoginForm.Show
    
End Sub