mdl_cortrol.bas

VB物流管理系统毕业设计带源码源码+论文 vB+sql的毕业设计

Attribute VB_Name = "Mdl_Cortrol"
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