module2.bas

网络化管理解决了实际工作中不能及时对连锁店销售情况进行统一管理的问题

Attribute VB_Name = "Module2"
Public Function Tbr_control(Tbr As Toolbar, Status As Boolean)
With Tbr
  If Status = True Then
   .Buttons(1).Enabled = True
   .Buttons(2).Enabled = True
   .Buttons(3).Enabled = True
   .Buttons(4).Enabled = True
   .Buttons(5).Enabled = True
   ElseIf Status = False Then
   .Buttons(1).Enabled = False
   .Buttons(2).Enabled = True
   .Buttons(3).Enabled = True
   .Buttons(4).Enabled = True
   .Buttons(5).Enabled = True
  End If
  End With
End Function

Public Function Con_PublicNum()
   Select Case Len(Trim(StrNum))
     Case 1
       StrTemp = "000"
    Case 2
       StrTemp = "00"
    Case 3
       StrTemp = "0"
    Case 4
       StrTemp = ""
   End Select
    StrNum = StrNum + 1
    StrIn = Trim(StrTemp) & Trim(StrNum)
End Function