helphtml.bas

金算盘软件代码

    HelpHtml(127).lngHelpID = 40012
    HelpHtml(127).strHelpHtml = "zyxskp01.htm"
    '
    HelpHtml(128).lngHelpID = 40013
    HelpHtml(128).strHelpHtml = "strklb01.htm"
    '
    HelpHtml(129).lngHelpID = 40014
    HelpHtml(129).strHelpHtml = "strkkp01.htm"
    '
    HelpHtml(130).lngHelpID = 40015
    HelpHtml(130).strHelpHtml = "stjslb01.htm"
    '
    HelpHtml(131).lngHelpID = 40016
    HelpHtml(131).strHelpHtml = "stjskp01.htm"
    '
    HelpHtml(132).lngHelpID = 40017
    HelpHtml(132).strHelpHtml = "fqcklb01.htm"
    '
    HelpHtml(133).lngHelpID = 40018
    HelpHtml(133).strHelpHtml = "fqckkp01.htm"
    '
    HelpHtml(134).lngHelpID = 40019
    HelpHtml(134).strHelpHtml = "fqjslb01.htm"
    '
    HelpHtml(135).lngHelpID = 40020
    HelpHtml(135).strHelpHtml = "fqjskp01.htm"
    '
    HelpHtml(136).lngHelpID = 40021
    HelpHtml(136).strHelpHtml = "dxcklb01.htm"
    '
    HelpHtml(137).lngHelpID = 40022
    HelpHtml(137).strHelpHtml = "dxckkp01.htm"
    '
    HelpHtml(138).lngHelpID = 40023
    HelpHtml(138).strHelpHtml = "dxjslb01.htm"
    '
    HelpHtml(139).lngHelpID = 40024
    HelpHtml(139).strHelpHtml = "dxjskp01.htm"
    '
    HelpHtml(140).lngHelpID = 40025
    HelpHtml(140).strHelpHtml = "dxdblb01.htm"
    '
    HelpHtml(141).lngHelpID = 40026
    HelpHtml(141).strHelpHtml = "dxdbkp01.htm"
    '
    HelpHtml(142).lngHelpID = 40027
    HelpHtml(142).strHelpHtml = "cgfplb01.htm"
    '
    HelpHtml(143).lngHelpID = 40028
    HelpHtml(143).strHelpHtml = "cgfpkp01.htm"
    
    HelpHtml(144).lngHelpID = 40029
    HelpHtml(144).strHelpHtml = "xsfplb01.htm"
    '
    HelpHtml(145).lngHelpID = 40030
    HelpHtml(145).strHelpHtml = "xsfpkp01.htm"
    '
    HelpHtml(146).lngHelpID = 40031
    HelpHtml(146).strHelpHtml = "gxpz0001.htm"
    '
    HelpHtml(147).lngHelpID = 40101
    HelpHtml(147).strHelpHtml = "cgddkp03.htm"
    '
    HelpHtml(148).lngHelpID = 40102
    HelpHtml(148).strHelpHtml = "xsddkp03.htm"
    '
    HelpHtml(149).lngHelpID = 50001
    HelpHtml(149).strHelpHtml = "zzrklb01.htm"
    '
    HelpHtml(150).lngHelpID = 50002
    HelpHtml(150).strHelpHtml = "zzrkkp01.htm"
    '
    HelpHtml(151).lngHelpID = 50003
    HelpHtml(151).strHelpHtml = "lycklb01.htm"
    '
    HelpHtml(152).lngHelpID = 50004
    HelpHtml(152).strHelpHtml = "lyckkp01.htm"
    '
    HelpHtml(153).lngHelpID = 50005
    HelpHtml(153).strHelpHtml = "qtrklb01.htm"
    '
    HelpHtml(154).lngHelpID = 50006
    HelpHtml(154).strHelpHtml = "qtrkkp01.htm"
    '
    HelpHtml(155).lngHelpID = 50007
    HelpHtml(155).strHelpHtml = "qtcklb01.htm"
    '
    HelpHtml(156).lngHelpID = 50008
    HelpHtml(156).strHelpHtml = "qtckkp01.htm"
    '
    HelpHtml(157).lngHelpID = 50009
    HelpHtml(157).strHelpHtml = "sppdblb01.htm"
    '
    HelpHtml(158).lngHelpID = 50010
    HelpHtml(158).strHelpHtml = "sppdkp01.htm"
    '
    HelpHtml(159).lngHelpID = 50011
    HelpHtml(159).strHelpHtml = "pyrklb01.htm"
    '
    HelpHtml(160).lngHelpID = 50012
    HelpHtml(160).strHelpHtml = "pyrkkp01.htm"
    '
    HelpHtml(161).lngHelpID = 50013
    HelpHtml(161).strHelpHtml = "pkcklb01.htm"
    '
    HelpHtml(162).lngHelpID = 50014
    HelpHtml(162).strHelpHtml = "pkckkp01.htm"
    '
    HelpHtml(163).lngHelpID = 50015
    HelpHtml(163).strHelpHtml = "spdblb01.htm"
    '
    HelpHtml(164).lngHelpID = 50016
    HelpHtml(164).strHelpHtml = "spdbkp01.htm"
    '
    HelpHtml(165).lngHelpID = 50017
    HelpHtml(165).strHelpHtml = "cxzzlb01.htm"
    '
    HelpHtml(166).lngHelpID = 50018
    HelpHtml(166).strHelpHtml = "cxzzkp01.htm"
    '
    HelpHtml(167).lngHelpID = 50019
    HelpHtml(167).strHelpHtml = "cbtzlb01.htm"
    '
    HelpHtml(168).lngHelpID = 50020
    HelpHtml(168).strHelpHtml = "cgtzkp01.htm"
    '
    HelpHtml(169).lngHelpID = 50021
    HelpHtml(169).strHelpHtml = "cbjs0001.htm"
    '
    HelpHtml(170).lngHelpID = 50022
    HelpHtml(170).strHelpHtml = "kcpzlb01.htm"
    '
    HelpHtml(171).lngHelpID = 50023
    HelpHtml(171).strHelpHtml = "cbjs0005.htm"
    '
    HelpHtml(172).lngHelpID = 50101
    HelpHtml(172).strHelpHtml = "sppdxd01.htm"
    '
    '
    HelpHtml(173).lngHelpID = 50102
    HelpHtml(173).strHelpHtml = "sppdblb04.htm"
    '
    HelpHtml(174).lngHelpID = 50103
    HelpHtml(174).strHelpHtml = "sppdblb03.htm"

    '
    HelpHtml(175).lngHelpID = 60001
    HelpHtml(175).strHelpHtml = "ysdlb001.htm"
    '
    HelpHtml(176).lngHelpID = 60002
    HelpHtml(176).strHelpHtml = "yskxkp01.htm"
    '
    HelpHtml(177).lngHelpID = 60003
    HelpHtml(177).strHelpHtml = "yfdlb001.htm"
    '
    HelpHtml(178).lngHelpID = 60004
    HelpHtml(178).strHelpHtml = "yfkxkp01.htm"
    '
    HelpHtml(179).lngHelpID = 60005
    HelpHtml(179).strHelpHtml = "wlpz0001.htm"
    '
    HelpHtml(180).lngHelpID = 60006
    HelpHtml(180).strHelpHtml = "srkxlb01.htm"
    '
    HelpHtml(181).lngHelpID = 60007
    HelpHtml(181).strHelpHtml = "srkxkp01.htm"
    '
    HelpHtml(182).lngHelpID = 60008
    HelpHtml(182).strHelpHtml = "zfkxlb01.htm"
    '
    HelpHtml(183).lngHelpID = 60009
    HelpHtml(183).strHelpHtml = "zfkxkp01.htm"
    '
    HelpHtml(184).lngHelpID = 60010
    HelpHtml(184).strHelpHtml = "yhdz0001.htm"
    
    HelpHtml(185).lngHelpID = 60011
    HelpHtml(185).strHelpHtml = "yhdz0002.htm"

    '
    HelpHtml(186).lngHelpID = 60013
    HelpHtml(186).strHelpHtml = "szpz0001.htm"
    '
    HelpHtml(187).lngHelpID = 60014
    HelpHtml(187).strHelpHtml = "jzpzlb01.htm"
    '
    HelpHtml(188).lngHelpID = 60015
    HelpHtml(188).strHelpHtml = "jzpzkp01.htm"
    '
    HelpHtml(189).lngHelpID = 60016
    HelpHtml(189).strHelpHtml = "qmth0001.htm"
    '
    HelpHtml(190).lngHelpID = 60017
    HelpHtml(190).strHelpHtml = "syjz0001.htm"
    '
    HelpHtml(191).lngHelpID = 60018
    HelpHtml(191).strHelpHtml = "qmjz0001.htm"
    '
    HelpHtml(192).lngHelpID = 60019
    HelpHtml(192).strHelpHtml = "qxjz0001.htm"
    '
    
    HelpHtml(193).lngHelpID = 60101
    HelpHtml(193).strHelpHtml = "yhdz0003.htm"
    
    HelpHtml(194).lngHelpID = 60102
    HelpHtml(194).strHelpHtml = "yhdz0004.htm"
    '
    HelpHtml(195).lngHelpID = 60103
    HelpHtml(195).strHelpHtml = "yhdz0005.htm"
    '
    
    
    '
    HelpHtml(196).lngHelpID = 60104
    HelpHtml(196).strHelpHtml = "gzff0001.htm"
    '
    HelpHtml(197).lngHelpID = 60105
    HelpHtml(197).strHelpHtml = "gzpz0001.htm"
    '
    HelpHtml(198).lngHelpID = 60106
    HelpHtml(198).strHelpHtml = "gzff0021.htm"
    '
    HelpHtml(199).lngHelpID = 60107
    HelpHtml(199).strHelpHtml = "gzff0013.htm"
    '
    HelpHtml(200).lngHelpID = 60108
    HelpHtml(200).strHelpHtml = "gzff0003.htm"
    '
    HelpHtml(201).lngHelpID = 60109
    HelpHtml(201).strHelpHtml = "gdzclb01.htm" 'gzlblb01.htm"
    '
    HelpHtml(202).lngHelpID = 60110
    HelpHtml(202).strHelpHtml = "jtzj0001.htm"
    '
    HelpHtml(203).lngHelpID = 60111
    HelpHtml(203).strHelpHtml = "gzpzly01.htm"
    '
    HelpHtml(204).lngHelpID = 60112
    HelpHtml(204).strHelpHtml = "tyzzkp01.htm"
    '
    HelpHtml(205).lngHelpID = 60113
    HelpHtml(205).strHelpHtml = "tyzz0001.htm"
    
    HelpHtml(206).lngHelpID = 60114
    HelpHtml(206).strHelpHtml = "gzlbkp01.htm"
    '应收计息
    HelpHtml(207).lngHelpID = 60115
'    HelpHtml(195).strHelpHtml = "gzff0002.htm"
    HelpHtml(207).strHelpHtml = "ysjx0001.htm"
    
    
    
    
    
    
    
    HelpHtml(208).lngHelpID = 70001
    HelpHtml(208).strHelpHtml = "zbzygl01.htm"
    '
    HelpHtml(209).lngHelpID = 70002
    HelpHtml(209).strHelpHtml = "zb000002.htm"
    '
    HelpHtml(210).lngHelpID = 70003
    HelpHtml(210).strHelpHtml = "zb000024.htm"
    '
    HelpHtml(211).lngHelpID = 70004
    HelpHtml(211).strHelpHtml = "zb000034.htm"
    '
    HelpHtml(212).lngHelpID = 70005
    HelpHtml(212).strHelpHtml = "zb000025.htm"
    '
    HelpHtml(213).lngHelpID = 70006
    HelpHtml(213).strHelpHtml = "zb000026.htm"
    '
    HelpHtml(214).lngHelpID = 70007
    HelpHtml(214).strHelpHtml = "zb000027.htm"
    '
    HelpHtml(215).lngHelpID = 70008
    HelpHtml(215).strHelpHtml = "zb000029.htm"
    '
    HelpHtml(216).lngHelpID = 70009
    HelpHtml(216).strHelpHtml = "zb000028.htm"
    '
    HelpHtml(217).lngHelpID = 70010
    HelpHtml(217).strHelpHtml = "zb000031.htm"
    '
    HelpHtml(218).lngHelpID = 70011
    HelpHtml(218).strHelpHtml = "zb000030.htm"
    '
    HelpHtml(219).lngHelpID = 70012
    HelpHtml(219).strHelpHtml = "zb000032.htm"
    '
    HelpHtml(220).lngHelpID = 70013
    HelpHtml(220).strHelpHtml = "zb000006.htm"
    '交叉表找不到
    HelpHtml(221).lngHelpID = 70014
    HelpHtml(221).strHelpHtml = "zb000006.htm"
    '
    HelpHtml(222).lngHelpID = 70015
    HelpHtml(222).strHelpHtml = "zb000035.htm"
    '汇总表找不到
    HelpHtml(223).lngHelpID = 70016
    HelpHtml(223).strHelpHtml = "zb000035.htm"
    '
    HelpHtml(224).lngHelpID = 70017
    HelpHtml(224).strHelpHtml = "zb000004.htm"
    '列表找不到
    HelpHtml(225).lngHelpID = 70018
    HelpHtml(225).strHelpHtml = "zb000004.htm"
    '
    HelpHtml(226).lngHelpID = 70019
    HelpHtml(226).strHelpHtml = "zb000005.htm"
    '标准表找不到
    HelpHtml(227).lngHelpID = 70020
    HelpHtml(227).strHelpHtml = "zb000005.htm"
    '数据浏览窗体找不到
'    HelpHtml(228).lngHelpID = 70021
'    HelpHtml(228).strHelpHtml = "zb000005.htm"
    
    
    
    
    
    '
    HelpHtml(229).lngHelpID = 70101
    HelpHtml(229).strHelpHtml = "gzgl0001.htm"
    '
    HelpHtml(230).lngHelpID = 70102
    HelpHtml(230).strHelpHtml = "gdzcgl01.htm"
    
    
    
    
    
    HelpHtml(231).lngHelpID = 80001
    HelpHtml(231).strHelpHtml = "cwfglb01.htm"
    '
    HelpHtml(232).lngHelpID = 80002
    HelpHtml(232).strHelpHtml = "cwfgkp01.htm"
    '
    HelpHtml(233).lngHelpID = 80004
    HelpHtml(233).strHelpHtml = "czrzlb01.htm"
    '
    HelpHtml(234).lngHelpID = 80005
    HelpHtml(234).strHelpHtml = "jsq00001.htm"
    '
    HelpHtml(235).lngHelpID = 80006
    HelpHtml(235).strHelpHtml = "bwllb001.htm"
    '
    HelpHtml(236).lngHelpID = 80007
    HelpHtml(236).strHelpHtml = "bwl_pub01.htm"
    '
    HelpHtml(237).lngHelpID = 80008
    HelpHtml(237).strHelpHtml = "bjq00001.htm"
    '
    HelpHtml(238).lngHelpID = 80009
    HelpHtml(238).strHelpHtml = "djgslb01.htm"
    
    HelpHtml(239).lngHelpID = 80010
    HelpHtml(239).strHelpHtml = "djmbkp01.htm"
    '
    HelpHtml(240).lngHelpID = 80011
    HelpHtml(240).strHelpHtml = "djgslb13.htm"
    '
    '
    HelpHtml(241).lngHelpID = 80012
    HelpHtml(241).strHelpHtml = "ywcz0001.htm"
End Sub
'取得对应ID的帮助文件
Public Function GetHelpHtml(ByVal lngHelpID As Long) As String
    Dim intStart As Integer
    Dim intEnd As Integer
    Dim intMiddle As Integer
    Dim intArrUbound As Integer
    Dim lngTempHelpId As Long
    Dim intErrCount As Integer
    If lngHelpID < 10001 Or lngHelpID > 80012 Then
        GetHelpHtml = ""
        Exit Function
    End If
    SetHelpHtmlArr
    intArrUbound = UBound(HelpHtml())
    intStart = 0
    intEnd = intArrUbound
    intMiddle = intArrUbound / 2
    lngTempHelpId = HelpHtml(intMiddle).lngHelpID
    Do While lngHelpID <> lngTempHelpId And intEnd <> intStart And intMiddle > 0 And intErrCount <= intArrUbound
        If lngHelpID < lngTempHelpId Then
            intEnd = intMiddle - 1
            intMiddle = (intStart + intEnd) / 2
        ElseIf lngHelpID > lngTempHelpId Then
            intStart = intMiddle + 1
            intMiddle = (intStart + intEnd) / 2
        End If
        lngTempHelpId = HelpHtml(intMiddle).lngHelpID
        intErrCount = intErrCount + 1
    Loop
    If lngHelpID = lngTempHelpId And intErrCount <= intArrUbound Then
        GetHelpHtml = HelpHtml(intMiddle).strHelpHtml
    Else
        GetHelpHtml = ""
    End If
End Function