module1.bas

PMS是一个生产管理系统,功能强大,供大家享用,希望大家支持!!

Attribute VB_Name = "Module1"
Public PublicStr As String
Public sql As String
Public Tb As String    '存储表名
Public Province As String  '存储省份名称
Public Sign As Boolean   '标识

Public Function cnn() As ADODB.Connection     '定义函数
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SCGL"
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SCGL"
End Function


'定义设置Toolbar控件上按钮状态的函数
Public Function tlbState(tlb As Toolbar, state As Boolean)
  With tlb
    If state = True Then
       .Buttons(1).Enabled = False
       .Buttons(2).Enabled = False
       .Buttons(3).Enabled = False
       .Buttons(6).Enabled = False
       .Buttons(4).Enabled = True
       .Buttons(5).Enabled = True
    Else
       .Buttons(1).Enabled = True
       .Buttons(2).Enabled = True
       .Buttons(3).Enabled = True
       .Buttons(6).Enabled = True
       .Buttons(4).Enabled = False
       .Buttons(5).Enabled = False
     End If
   End With
End Function

Public Function ESQL(ByVal sql As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SCGL"
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ESQL = rs
End Function

Public Function MyPath(expression As String, delimiter As String) As String    '取出文件夹后剩下的路径
  Dim vstr As Variant
  Dim str(10) As String
  Dim i As Integer
  For i = 0 To UBound(Split(expression, delimiter))
      vstr = Split(expression, delimiter)
      MyPath = vstr(0)
  Next i
End Function