?? mdl_cortrol.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -