module1.bas

来自「完整的物资管理系统源码」· BAS 代码 · 共 36 行

Attribute VB_Name = "Module1"
Option Explicit
Public text As String, czy As String
Public tb As String, tb1 As String, sql As String, sql1 As String
Public intTag As Integer
Public strStartDate As String, strEndDate As String
Public ck As String
Public Function cnn() As ADODB.Connection    '定义函数
 Set cnn = New ADODB.Connection
 '返回一个数据库连接
 cnn.Open "Driver={SQL Server};Server=;Database=mr_material;Uid=sa;Pwd="
End Function
Public Function mytag() As String
  mytag = "本软件由吉林省明日科技有限公司制作  电话：[phone]  http://www.cccxy.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