module1.bas

EMS是一个企业营销管理系统,功能强大,供大家享用,希望大家多多支持!!

Attribute VB_Name = "Module1"
Public czy As String, tb As String, tb1 As String, sql As String, sql1 As String, text As String
Public blnAddCP As Boolean, blnAddYWY As Boolean, blnAddXSZZ As Boolean, blnAddQYML As Boolean
Public blnAddGRML As Boolean, blnAddLP As Boolean, blnAddXSXL As Boolean, blnAddXSKH As Boolean
Public blnAddSCGZ As Boolean, blnAddSCFK As Boolean
Public IntLoadDataTree As Integer
Public CPBookmark, YWYBookmark, XSZZBookmark, QYMLBookmark, GRMLBookmark, LPBookmark
Public XSKHBookmark, XSXLBookmark, SCGZBookmark, SCFKBookmark
Public intCP As Integer
Public jbxxtb As String
Public Function cnstr() As String
  cnstr = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=db_Csell"
End Function
Public Function Cnn() As ADODB.Connection    '定义函数
  Set Cnn = New ADODB.Connection
  '返回一个数据库连接
 Cnn.Open "Driver={SQL Server};Server=(local);Database=db_Csell;Uid=sa;Pwd="
End Function
Public Function mytag() As String
  mytag = "本软件由吉林省明日科技有限公司制作  电话：[phone]  http://www.mingrisoft.com"
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