changenumber.cls.bak

繁简转换的组件（含源代码）

        Exit Function
    Case "A"
        FindSite = 872
        Exit Function
    Case "B"
        FindSite = 984
        Exit Function
    Case "C"
        FindSite = 1103
        Exit Function
    Case "D"
        FindSite = 1203
        Exit Function
    Case "E"
        FindSite = 1312
        Exit Function
    Case "F"
        FindSite = 1421
        Exit Function
    End Select
        
Case "9"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindSite = 1522
        Exit Function
    Case "1"
        FindSite = 1637
        Exit Function
    Case "2"
        FindSite = 1758
        Exit Function
    Case "3"
        FindSite = 1870
        Exit Function
    Case "4"
        FindSite = 1999
        Exit Function
    Case "5"
        FindSite = 2112
        Exit Function
    Case "6"
        FindSite = 2217
        Exit Function
    Case "7"
        FindSite = 2322
        Exit Function
    Case "8"
        FindSite = 2439
        Exit Function
    Case "9"
        FindSite = 2557
        Exit Function
    Case "A"
        FindSite = 2670
        Exit Function
    Case "B"
        FindSite = 2792
        Exit Function
    Case "C"
        FindSite = 2971
        Exit Function
    Case "D"
        FindSite = 3047
        Exit Function
    Case "E"
        FindSite = 3185
        Exit Function
    Case "F"
        FindSite = 3311
        Exit Function
    End Select
    
Case "A"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindSite = 3421
        Exit Function
    Case "1"
        FindSite = 3538
        Exit Function
    Case "2"
        FindSite = 3609
        Exit Function
    Case "3"
        FindSite = 3621
        Exit Function
    Case "6"
        FindSite = 3686
        Exit Function
    Case "8"
        FindSite = 3728
        Exit Function
    Case "9"
        FindSite = 3837
        Exit Function
    Case "A"
        FindSite = 3903
        Exit Function
    Case "B"
        FindSite = 3965
        Exit Function
    Case "C"
        FindSite = 4030
        Exit Function
    Case "D"
        FindSite = 4084
        Exit Function
    Case "E"
        FindSite = 4142
        Exit Function
    Case "F"
        FindSite = 4185
        Exit Function
    End Select

Case "B"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindSite = 4247
        Exit Function
    Case "1"
        FindSite = 4393
        Exit Function
    Case "2"
        FindSite = 4544
        Exit Function
    Case "3"
        FindSite = 4692
        Exit Function
    Case "4"
        FindSite = 4838
        Exit Function
    Case "5"
        FindSite = 4987
        Exit Function
    Case "6"
        FindSite = 5154
        Exit Function
    Case "7"
        FindSite = 5295
        Exit Function
    Case "8"
        FindSite = 5442
        Exit Function
    Case "9"
        FindSite = 5578
        Exit Function
    Case "A"
        FindSite = 5720
        Exit Function
    Case "B"
        FindSite = 5876
        Exit Function
    Case "C"
        FindSite = 6026
        Exit Function
    Case "D"
        FindSite = 6186
        Exit Function
    Case "E"
        FindSite = 6349
        Exit Function
    Case "F"
        FindSite = 6513
        Exit Function
    End Select
    
Case "C"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindSite = 6679
        Exit Function
    Case "1"
        FindSite = 6830
        Exit Function
    Case "2"
        FindSite = 6994
        Exit Function
    Case "3"
        FindSite = 7139
        Exit Function
    Case "4"
        FindSite = 7284
        Exit Function
    Case "5"
        FindSite = 7436
        Exit Function
    Case "6"
        FindSite = 7589
        Exit Function
    Case "7"
        FindSite = 7742
        Exit Function
    Case "8"
        FindSite = 7902
        Exit Function
    Case "9"
        FindSite = 8059
        Exit Function
    Case "A"
        FindSite = 8214
        Exit Function
    Case "B"
        FindSite = 8378
        Exit Function
    Case "C"
        FindSite = 8548
        Exit Function
    Case "D"
        FindSite = 8708
        Exit Function
    Case "E"
        FindSite = 8866
        Exit Function
    Case "F"
        FindSite = 9032
        Exit Function
    End Select
    
Case "D"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindSite = 9293
        Exit Function
    Case "1"
        FindSite = 9349
        Exit Function
    Case "2"
        FindSite = 9508
        Exit Function
    Case "3"
        FindSite = 9662
        Exit Function
    Case "4"
        FindSite = 9821
        Exit Function
    Case "5"
        FindSite = 9976
        Exit Function
    Case "6"
        FindSite = 10138
        Exit Function
    Case "7"
        FindSite = 10311
        Exit Function
    Case "8"
        FindSite = 10462
        Exit Function
    Case "9"
        FindSite = 10617
        Exit Function
    Case "A"
        FindSite = 10777
        Exit Function
    Case "B"
        FindSite = 10914
        Exit Function
    Case "C"
        FindSite = 11069
        Exit Function
    Case "D"
        FindSite = 11207
        Exit Function
    Case "E"
        FindSite = 11360
        Exit Function
    Case "F"
        FindSite = 11506
        Exit Function
    End Select
    
Case "E"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindSite = 11636
        Exit Function
    Case "1"
        FindSite = 11799
        Exit Function
    Case "2"
        FindSite = 11945
        Exit Function
    Case "3"
        FindSite = 12096
        Exit Function
    Case "4"
        FindSite = 12255
        Exit Function
    Case "5"
        FindSite = 12405
        Exit Function
    Case "6"
        FindSite = 12565
        Exit Function
    Case "7"
        FindSite = 12712
        Exit Function
    Case "8"
        FindSite = 12854
        Exit Function
    Case "9"
        FindSite = 12999
        Exit Function
    Case "A"
        FindSite = 13140
        Exit Function
    Case "B"
        FindSite = 13284
        Exit Function
    Case "C"
        FindSite = 13418
        Exit Function
    Case "D"
        FindSite = 13556
        Exit Function
    Case "E"
        FindSite = 13701
        Exit Function
    Case "F"
        FindSite = 13821
        Exit Function
    End Select
    
Case "E"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindSite = 13917
        Exit Function
    Case "1"
        FindSite = 14052
        Exit Function
    Case "2"
        FindSite = 14195
        Exit Function
    Case "3"
        FindSite = 14351
        Exit Function
    Case "4"
        FindSite = 14487
        Exit Function
    Case "5"
        FindSite = 14635
        Exit Function
    Case "6"
        FindSite = 14777
        Exit Function
    Case "7"
        FindSite = 14886
        Exit Function
    Case "8"
        FindSite = 15000
        Exit Function
    Case "9"
        FindSite = 15061
        Exit Function
    Case "A"
        FindSite = 15129
        Exit Function
    Case "B"
        FindSite = 15210
        Exit Function
    Case "C"
        FindSite = 15257
        Exit Function
    Case "D"
        FindSite = 15317
        Exit Function
    Case "E"
        FindSite = 15383
        Exit Function
    End Select
End Select
FindSite = 15383
End Function

Private Sub Class_Initialize()
b.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\canic.mdb"
a.Open "select * from NewGbCode order by ID", b, adOpenKeyset, adLockOptimistic
c.Open "select * from NewBigCode order by ID", b, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Class_Terminate()
a.Close
c.Close
b.Close
Set a = Nothing
Set b = Nothing
Set c = Nothing
End Sub