modhms.bas

来自「Complete Hotel Management System BackEnd」· BAS 代码 · 共 22 行

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