Attribute VB_Name = "Mdl_Cortrol"
'Download by http://www.codefans.net
Public StrNum As Long               '用于顯示編號信息的變量
Public strtemp                      '用于顯示編號信息的變量
Public StrIn                        '接收編號數值
Public ConBs As String              '控制使用查詢窗體Frm_CommCx的標識變量
Public NumStrs As Integer           '控制顯示輔助子窗體的標識
Public TStrs As String
Public TydBs                        '托運單標識
Public StrRs As String              '保存查詢字符串變量
Public StrCx As Integer             '選擇查詢字符串變量
Public TStr As String               '添加日志標識
Public Name1 As String              '保存登錄人員的姓名
Public StrId As String              '保存修改的票號信息
Public StrTitle As String           '保存修改的標題信息
Public TWidth As Long               '獲取屏幕分辨率
Public THeigth As Long

Public Function Tbr_cortrol(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 = False
         .Buttons(5).Enabled = True
         .Buttons(6).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
         .Buttons(6).Enabled = True
       End If
    End With
End Function

'控制編號位數
  Public Function Con_idNum()
       Select Case Len(Trim(StrNum))    '位數不足則補0
           Case 1
             strtemp = "00"
           Case 2
             strtemp = "0"
           Case 3
             strtemp = ""
       End Select
         StrNum = StrNum + 1
         StrIn = Trim(strtemp) & Trim(STR(StrNum))
  End Function

'控制編號位數
  Public Function Con_PublicNum()
       Select Case Len(Trim(StrNum))    '位數不足則補0
           Case 1
             strtemp = "000"
           Case 2
             strtemp = "00"
           Case 3
             strtemp = "0"
           Case r
             strtemp = ""
       End Select
         StrNum = StrNum + 1
         StrIn = Trim(strtemp) & Trim(STR(StrNum))
  End Function
'修改信息日志
Public Sub joinRZ()
    Dim Intext As String
    Open (App.Path & "\系統日志.ini") For Input As #1
    TStr = ""
       Do While Not EOF(1)
          Line Input #1, Intext
          TStr = TStr + Intext + Chr(13) + Chr(10)
       Loop
    Close #1
        If ETemp = 0 Then         '添加修改信息日志
            TStr = TStr + "   " + Name1 + "               " + Format(Now, "yyyy-mm-dd hh:mm:ss") + "            " + "修改票號 " + StrId + "(" + StrTitle + ")" + Chr(13) + Chr(10)
        End If
      Open (App.Path & "\系統日志.ini") For Output As #1   '將日志信息保存到文件當中
         Print #1, TStr
      Close #1
End Sub

Public Sub WHScreen()     '獲得屏幕分辨率
   TWidth = Screen.Width \ Screen.TwipsPerPixelX
   THeigth = Screen.Height \ Screen.TwipsPerPixelY
End Sub