📄 modhms.bas
字号:
Attribute VB_Name = "ModHMS"
Dim adoConn As ADODB.Connection
Dim adoRSEmp As ADODB.Recordset
Dim adoRSPR As ADODB.Recordset
Dim adoChIn As ADODB.Recordset
Dim adoChOut As ADODB.Recordset
Dim adoRes As ADODB.Recordset
Dim errmsg As String
Private Sub Text2_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub
Public Sub ConvUpcase(keyvalue As Integer)
If keyvalue >= 97 And keyvalue <= 122 Then
keyvalue = keyvalue - 32
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -