📄 t_fillgrid.bas
字号:
Chain_To_English = "v"
Case "黑"
Chain_To_English = "w"
Case "皖"
Chain_To_English = "x"
Case "闽"
Chain_To_English = "y"
Case "琼"
Chain_To_English = "z"
Case "辽"
Chain_To_English = "A"
Case "陕"
Chain_To_English = "B"
Case "甘"
Chain_To_English = "C"
Case "青"
Chain_To_English = "D"
Case "吉"
Chain_To_English = "E"
Case "蒙"
Chain_To_English = "F"
Case "渝"
Chain_To_English = "G"
Case "宁"
Chain_To_English = "H"
Case "赣"
Chain_To_English = "I"
Case "贵"
Chain_To_English = "J"
Case "云"
Chain_To_English = "K"
Case "0"
Chain_To_English = "00"
Case "1"
Chain_To_English = "01"
Case "2"
Chain_To_English = "02"
Case "3"
Chain_To_English = "03"
Case "4"
Chain_To_English = "04"
Case "5"
Chain_To_English = "05"
Case "6"
Chain_To_English = "10"
Case "7"
Chain_To_English = "11"
Case "8"
Chain_To_English = "12"
Case "9"
Chain_To_English = "13"
Case "A"
Chain_To_English = "14"
Case "B"
Chain_To_English = "15"
Case "C"
Chain_To_English = "20"
Case "D"
Chain_To_English = "21"
Case "E"
Chain_To_English = "22"
Case "F"
Chain_To_English = "23"
Case "G"
Chain_To_English = "24"
Case "H"
Chain_To_English = "25"
Case "I"
Chain_To_English = "30"
Case "J"
Chain_To_English = "31"
Case "K"
Chain_To_English = "32"
Case "L"
Chain_To_English = "33"
Case "M"
Chain_To_English = "34"
Case "N"
Chain_To_English = "35"
Case "O"
Chain_To_English = "40"
Case "P"
Chain_To_English = "41"
Case "Q"
Chain_To_English = "42"
Case "R"
Chain_To_English = "43"
Case "S"
Chain_To_English = "44"
Case "T"
Chain_To_English = "45"
Case "U"
Chain_To_English = "50"
Case "V"
Chain_To_English = "51"
Case "W"
Chain_To_English = "52"
Case "X"
Chain_To_English = "53"
Case "Y"
Chain_To_English = "54"
Case "Z"
Chain_To_English = "55"
End Select
End Function
Function English_To_Chain(MStr As String) As String
Select Case MStr
Case "a"
English_To_Chain = "粤"
Case "b"
English_To_Chain = "军"
Case "c"
English_To_Chain = "警"
Case "d"
English_To_Chain = "WJ"
Case "e"
English_To_Chain = "港"
Case "f"
English_To_Chain = "京"
Case "g"
English_To_Chain = "津"
Case "h"
English_To_Chain = "沪"
Case "i"
English_To_Chain = "翼"
Case "j"
English_To_Chain = "豫"
Case "k"
English_To_Chain = "晋"
Case "l"
English_To_Chain = "鲁"
Case "m"
English_To_Chain = "桂"
Case "n"
English_To_Chain = "滇"
Case "o"
English_To_Chain = "黔"
Case "p"
English_To_Chain = "川"
Case "q"
English_To_Chain = "苏"
Case "r"
English_To_Chain = "浙"
Case "s"
English_To_Chain = "湘"
Case "t"
English_To_Chain = "鄂"
Case "u"
English_To_Chain = "新"
Case "v"
English_To_Chain = "藏"
Case "w"
English_To_Chain = "黑"
Case "x"
English_To_Chain = "皖"
Case "y"
English_To_Chain = "闽"
Case "z"
English_To_Chain = "琼"
Case "A"
English_To_Chain = "辽"
Case "B"
English_To_Chain = "陕"
Case "C"
English_To_Chain = "甘"
Case "D"
English_To_Chain = "青"
Case "E"
English_To_Chain = "吉"
Case "F"
English_To_Chain = "蒙"
Case "G"
English_To_Chain = "渝"
Case "H"
English_To_Chain = "宁"
Case "I"
English_To_Chain = "赣"
Case "J"
English_To_Chain = "贵"
Case "K"
English_To_Chain = "云"
Case "00"
English_To_Chain = "0"
Case "01"
English_To_Chain = "1"
Case "02"
English_To_Chain = "2"
Case "03"
English_To_Chain = "3"
Case "04"
English_To_Chain = "4"
Case "05"
English_To_Chain = "5"
Case "10"
English_To_Chain = "6"
Case "11"
English_To_Chain = "7"
Case "12"
English_To_Chain = "8"
Case "13"
English_To_Chain = "9"
Case "14"
English_To_Chain = "A"
Case "15"
English_To_Chain = "B"
Case "20"
English_To_Chain = "C"
Case "21"
English_To_Chain = "D"
Case "22"
English_To_Chain = "E"
Case "23"
English_To_Chain = "F"
Case "24"
English_To_Chain = "G"
Case "25"
English_To_Chain = "H"
Case "30"
English_To_Chain = "I"
Case "31"
English_To_Chain = "J"
Case "32"
English_To_Chain = "K"
Case "33"
English_To_Chain = "L"
Case "34"
English_To_Chain = "M"
Case "35"
English_To_Chain = "N"
Case "40"
English_To_Chain = "O"
Case "41"
English_To_Chain = "P"
Case "42"
English_To_Chain = "Q"
Case "43"
English_To_Chain = "R"
Case "44"
English_To_Chain = "S"
Case "45"
English_To_Chain = "T"
Case "50"
English_To_Chain = "U"
Case "51"
English_To_Chain = "V"
Case "52"
English_To_Chain = "W"
Case "53"
English_To_Chain = "X"
Case "54"
English_To_Chain = "Y"
Case "55"
English_To_Chain = "Z"
End Select
End Function
Function FindChain(MStr As String) As Boolean
FindChain = False
Select Case MStr
Case "粤"
FindChain = True
Case "军"
FindChain = True
Case "警"
FindChain = True
Case "W"
FindChain = True
Case "港"
FindChain = True
Case "京"
FindChain = True
Case "津"
FindChain = True
Case "沪"
FindChain = True
Case "翼"
FindChain = True
Case "豫"
FindChain = True
Case "晋"
FindChain = True
Case "鲁"
FindChain = True
Case "桂"
FindChain = True
Case "滇"
FindChain = True
Case "黔"
FindChain = True
Case "川"
FindChain = True
Case "苏"
FindChain = True
Case "浙"
FindChain = True
Case "湘"
FindChain = True
Case "鄂"
FindChain = True
Case "新"
FindChain = True
Case "藏"
FindChain = True
Case "黑"
FindChain = True
Case "皖"
FindChain = True
Case "闽"
FindChain = True
Case "琼"
FindChain = True
Case "辽"
FindChain = True
Case "陕"
FindChain = True
Case "甘"
FindChain = True
Case "青"
FindChain = True
Case "吉"
FindChain = True
Case "蒙"
FindChain = True
Case "渝"
FindChain = True
Case "宁"
FindChain = True
Case "赣"
FindChain = True
Case "贵"
FindChain = True
Case "云"
FindChain = True
End Select
End Function
Function FindCarNOToData(MStr As String) As String
On Error GoTo Error
Dim mmyRs As New ADODB.Recordset
Set mmyRs = Data.conn.Execute("Select * from ICiSSUE where 卡号='" & MStr & "'")
FindCarNOToData = ""
If mmyRs.EOF = False Then
FindCarNOToData = Trim(mmyRs("车场车牌号码"))
End If
Set mmyRs = Nothing
Exit Function
Error:
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -