mdl_link.bas

大型客户管理系统,分为基础信息模块、客户信息模块、客户服务模块、信息查询模块、数据管理模块、辅助工具模块、系统管理模块 数据库SQL

Attribute VB_Name = "Mdl_Link"
Public PublicStr As String   '定义公共变量用于ADO控件的数据连接，使程序模块化
Public sql As String   '定义字符变量存储SQL语句
Public Tb As String    '存储表名
Public Province As String  '存储省份名称
Public Myflag As Boolean   '标识
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_Client"
  
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Client"
End Function


'定义设置Toolbar控件上按钮状态的函数
Public Function tlbState(tlb As Toolbar, state As Boolean)
  With tlb
    If state = True Then   '如果状态变量为True
       .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          '如果状态变量为False
       .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_Client"
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