module1.bas

来自「企业营销管理系统程序使用说明(VB+SQL2000)将目录data下的db_Cs」· BAS 代码 · 共 44 行

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.cztgi.edu.cn"
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