bas_findipdata.dfm

这是一个为友人所写的小程序, 实现了分段模糊查询, 网页生成等小功能!

          Font.Name = #40657#20307
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label2: TLabel
          Left = 304
          Top = 21
          Width = 30
          Height = 15
          Caption = #25490#20301
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = #40657#20307
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object SpeedButton1: TSpeedButton
          Left = 865
          Top = 174
          Width = 64
          Height = 51
          Caption = #26597#35810
          OnClick = SpeedButton1Click
        end
        object Label12: TLabel
          Left = 480
          Top = 64
          Width = 11
          Height = 21
          Transparent = True
          Visible = False
        end
        object Label11: TLabel
          Left = 592
          Top = 16
          Width = 11
          Height = 21
        end
        object Edit1: TDBRBEdit
          Left = 94
          Top = 15
          ParentFont = False
          Properties.Buttons = <
            item
              Default = True
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFF4E0D0F0CE98EFC993EDC491ECBF8FEABA8CE9
                B587E7B283E9B686EBBC8AECC28DEEC791F0CD97F5E7DCFFFFFFFFFFFFFEC688
                FAC24CFACC68F7D684ECD496EAD8A5EADAAEE9DAAEE8D7A7EBD59AF8D88BFAD0
                70FAC654FEE7D4FFFFFFFFFFFFFDB27BF2A64CF3B367DEA06AD28647C37445C8
                7E47C77C47C17345D18748E0A570F4B76EF3AA54FEDAC5FFFFFFFFFFFFFCA570
                F1964FF3A466E38E63E89886DF7A65E48A78E38775E07A66E99A89E59269F3A8
                6DF39A56FDCCB3FFFFFFFFFFFFFC9663F0834DF19161F39F77ED9E7EDA7A55E7
                834AE67F49DC8058EEA282F3A37CF29568F18753FDB99DFFFFFFFFFFFFFC8657
                EF704AF07C59F28A6BF1957AD87A5CE58E65E48A63DA8061F2997EF28E6FF180
                5EF0744FFDA485FFFFFFFFFFFFFC7949EE6243EF6B4FF0765BEF8067DC775FEA
                9579E99176DE7C64F0826AF07960EF6E53EF6547FD8A66FFFFFFFFFFFFFB6D39
                ED5A3AEE6143EE684BED6E53D76440E4773FE3743FD86841EE7056EF6A4EEE63
                46EE5C3DFD6F41FFFFFFFFFFFFFA6530EA502FEA5535EA5A3BE95E40D5654CE2
                896EE1866BD5684FE95F42EB5B3CEA5636EA5131FC602EFFFFFFFFFFFFF8612B
                E54624E44826E04A2ACE472AD36445EB9267EA8D65D36847D0482BE24B2BE449
                28E54725FA5C2AFFFFFFFFFFFFF65D26DF3C19DF3F1CCD391AD16B2FD06438E5
                824CE57E4BD06639D26D2FCF3A1BDF3E1CDF3D1AF85926FFFFFFFFFFFFF35A22
                D93310D83310CF3112E59082DC725FE18474E08071DD7260E59384CF3213D834
                11D93410F65622FFFFFFFFFFFFF0561FD4300DD4300DD4300DD2300DD2300DD2
                300DD2300DD22F0DD2300DD4300DD4300DD42F0DF3521FFFFFFFFFFFFFEF7B55
                E9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE995
                7AE99579EE7755FFFFFFFFFFFFF6DADCFCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FC
                C2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5F7E0E1FFFFFF}
              Kind = bkGlyph
            end>
          Properties.OnButtonClick = Edit1PropertiesButtonClick
          Style.Edges = [bBottom]
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -19
          Style.Font.Name = #23435#20307
          Style.Font.Style = []
          Style.ButtonTransparency = ebtNone
          TabOrder = 0
          Width = 171
        end
        object Edit2: TDBRBEdit
          Left = 94
          Top = 93
          ParentFont = False
          Properties.Buttons = <
            item
              Default = True
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFF4E0D0F0CE98EFC993EDC491ECBF8FEABA8CE9
                B587E7B283E9B686EBBC8AECC28DEEC791F0CD97F5E7DCFFFFFFFFFFFFFEC688
                FAC24CFACC68F7D684ECD496EAD8A5EADAAEE9DAAEE8D7A7EBD59AF8D88BFAD0
                70FAC654FEE7D4FFFFFFFFFFFFFDB27BF2A64CF3B367DEA06AD28647C37445C8
                7E47C77C47C17345D18748E0A570F4B76EF3AA54FEDAC5FFFFFFFFFFFFFCA570
                F1964FF3A466E38E63E89886DF7A65E48A78E38775E07A66E99A89E59269F3A8
                6DF39A56FDCCB3FFFFFFFFFFFFFC9663F0834DF19161F39F77ED9E7EDA7A55E7
                834AE67F49DC8058EEA282F3A37CF29568F18753FDB99DFFFFFFFFFFFFFC8657
                EF704AF07C59F28A6BF1957AD87A5CE58E65E48A63DA8061F2997EF28E6FF180
                5EF0744FFDA485FFFFFFFFFFFFFC7949EE6243EF6B4FF0765BEF8067DC775FEA
                9579E99176DE7C64F0826AF07960EF6E53EF6547FD8A66FFFFFFFFFFFFFB6D39
                ED5A3AEE6143EE684BED6E53D76440E4773FE3743FD86841EE7056EF6A4EEE63
                46EE5C3DFD6F41FFFFFFFFFFFFFA6530EA502FEA5535EA5A3BE95E40D5654CE2
                896EE1866BD5684FE95F42EB5B3CEA5636EA5131FC602EFFFFFFFFFFFFF8612B
                E54624E44826E04A2ACE472AD36445EB9267EA8D65D36847D0482BE24B2BE449
                28E54725FA5C2AFFFFFFFFFFFFF65D26DF3C19DF3F1CCD391AD16B2FD06438E5
                824CE57E4BD06639D26D2FCF3A1BDF3E1CDF3D1AF85926FFFFFFFFFFFFF35A22
                D93310D83310CF3112E59082DC725FE18474E08071DD7260E59384CF3213D834
                11D93410F65622FFFFFFFFFFFFF0561FD4300DD4300DD4300DD2300DD2300DD2
                300DD2300DD22F0DD2300DD4300DD4300DD42F0DF3521FFFFFFFFFFFFFEF7B55
                E9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE995
                7AE99579EE7755FFFFFFFFFFFFF6DADCFCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FC
                C2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5F7E0E1FFFFFF}
              Kind = bkGlyph
            end>
          Properties.OnButtonClick = Edit2PropertiesButtonClick
          Style.Color = clWhite
          Style.Edges = [bBottom]
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -19
          Style.Font.Name = #23435#20307
          Style.Font.Style = []
          Style.TextColor = clBlack
          Style.ButtonTransparency = ebtNone
          TabOrder = 1
          Width = 603
        end
        object Edit3: TDBRBEdit
          Left = 94
          Top = 53
          ParentFont = False
          Properties.Buttons = <
            item
              Default = True
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFF4E0D0F0CE98EFC993EDC491ECBF8FEABA8CE9
                B587E7B283E9B686EBBC8AECC28DEEC791F0CD97F5E7DCFFFFFFFFFFFFFEC688
                FAC24CFACC68F7D684ECD496EAD8A5EADAAEE9DAAEE8D7A7EBD59AF8D88BFAD0
                70FAC654FEE7D4FFFFFFFFFFFFFDB27BF2A64CF3B367DEA06AD28647C37445C8
                7E47C77C47C17345D18748E0A570F4B76EF3AA54FEDAC5FFFFFFFFFFFFFCA570
                F1964FF3A466E38E63E89886DF7A65E48A78E38775E07A66E99A89E59269F3A8
                6DF39A56FDCCB3FFFFFFFFFFFFFC9663F0834DF19161F39F77ED9E7EDA7A55E7
                834AE67F49DC8058EEA282F3A37CF29568F18753FDB99DFFFFFFFFFFFFFC8657
                EF704AF07C59F28A6BF1957AD87A5CE58E65E48A63DA8061F2997EF28E6FF180
                5EF0744FFDA485FFFFFFFFFFFFFC7949EE6243EF6B4FF0765BEF8067DC775FEA
                9579E99176DE7C64F0826AF07960EF6E53EF6547FD8A66FFFFFFFFFFFFFB6D39
                ED5A3AEE6143EE684BED6E53D76440E4773FE3743FD86841EE7056EF6A4EEE63
                46EE5C3DFD6F41FFFFFFFFFFFFFA6530EA502FEA5535EA5A3BE95E40D5654CE2
                896EE1866BD5684FE95F42EB5B3CEA5636EA5131FC602EFFFFFFFFFFFFF8612B
                E54624E44826E04A2ACE472AD36445EB9267EA8D65D36847D0482BE24B2BE449
                28E54725FA5C2AFFFFFFFFFFFFF65D26DF3C19DF3F1CCD391AD16B2FD06438E5
                824CE57E4BD06639D26D2FCF3A1BDF3E1CDF3D1AF85926FFFFFFFFFFFFF35A22
                D93310D83310CF3112E59082DC725FE18474E08071DD7260E59384CF3213D834
                11D93410F65622FFFFFFFFFFFFF0561FD4300DD4300DD4300DD2300DD2300DD2
                300DD2300DD22F0DD2300DD4300DD4300DD42F0DF3521FFFFFFFFFFFFFEF7B55
                E9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE995
                7AE99579EE7755FFFFFFFFFFFFF6DADCFCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FC
                C2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5F7E0E1FFFFFF}
              Kind = bkGlyph
            end>
          Properties.OnButtonClick = Edit3PropertiesButtonClick
          Style.Color = clWhite
          Style.Edges = [bBottom]
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -19
          Style.Font.Name = #23435#20307
          Style.Font.Style = []
          Style.TextColor = clBlack
          Style.ButtonTransparency = ebtNone
          TabOrder = 2
          Width = 435
        end
        object Edit4: TDBRBEdit
          Left = 94
          Top = 125
          ParentFont = False
          Properties.Buttons = <
            item
              Default = True
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFF4E0D0F0CE98EFC993EDC491ECBF8FEABA8CE9
                B587E7B283E9B686EBBC8AECC28DEEC791F0CD97F5E7DCFFFFFFFFFFFFFEC688
                FAC24CFACC68F7D684ECD496EAD8A5EADAAEE9DAAEE8D7A7EBD59AF8D88BFAD0
                70FAC654FEE7D4FFFFFFFFFFFFFDB27BF2A64CF3B367DEA06AD28647C37445C8
                7E47C77C47C17345D18748E0A570F4B76EF3AA54FEDAC5FFFFFFFFFFFFFCA570
                F1964FF3A466E38E63E89886DF7A65E48A78E38775E07A66E99A89E59269F3A8
                6DF39A56FDCCB3FFFFFFFFFFFFFC9663F0834DF19161F39F77ED9E7EDA7A55E7
                834AE67F49DC8058EEA282F3A37CF29568F18753FDB99DFFFFFFFFFFFFFC8657
                EF704AF07C59F28A6BF1957AD87A5CE58E65E48A63DA8061F2997EF28E6FF180
                5EF0744FFDA485FFFFFFFFFFFFFC7949EE6243EF6B4FF0765BEF8067DC775FEA
                9579E99176DE7C64F0826AF07960EF6E53EF6547FD8A66FFFFFFFFFFFFFB6D39
                ED5A3AEE6143EE684BED6E53D76440E4773FE3743FD86841EE7056EF6A4EEE63
                46EE5C3DFD6F41FFFFFFFFFFFFFA6530EA502FEA5535EA5A3BE95E40D5654CE2
                896EE1866BD5684FE95F42EB5B3CEA5636EA5131FC602EFFFFFFFFFFFFF8612B
                E54624E44826E04A2ACE472AD36445EB9267EA8D65D36847D0482BE24B2BE449
                28E54725FA5C2AFFFFFFFFFFFFF65D26DF3C19DF3F1CCD391AD16B2FD06438E5
                824CE57E4BD06639D26D2FCF3A1BDF3E1CDF3D1AF85926FFFFFFFFFFFFF35A22
                D93310D83310CF3112E59082DC725FE18474E08071DD7260E59384CF3213D834
                11D93410F65622FFFFFFFFFFFFF0561FD4300DD4300DD4300DD2300DD2300DD2
                300DD2300DD22F0DD2300DD4300DD4300DD42F0DF3521FFFFFFFFFFFFFEF7B55
                E9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE995
                7AE99579EE7755FFFFFFFFFFFFF6DADCFCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FC
                C2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5F7E0E1FFFFFF}
              Kind = bkGlyph
            end>
          Properties.OnButtonClick = Edit4PropertiesButtonClick
          Style.Color = clBlack
          Style.Edges = [bBottom]
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clLime
          Style.Font.Height = -19
          Style.Font.Name = 'Arial'
          Style.Font.Style = []
          Style.TextColor = clWhite
          Style.ButtonTransparency = ebtNone
          TabOrder = 3
          Width = 435
        end
        object Edit6: TDBRBEdit
          Left = 70
          Top = 250
          ParentFont = False
          Properties.Buttons = <
            item
              Default = True
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFF4E0D0F0CE98EFC993EDC491ECBF8FEABA8CE9
                B587E7B283E9B686EBBC8AECC28DEEC791F0CD97F5E7DCFFFFFFFFFFFFFEC688
                FAC24CFACC68F7D684ECD496EAD8A5EADAAEE9DAAEE8D7A7EBD59AF8D88BFAD0
                70FAC654FEE7D4FFFFFFFFFFFFFDB27BF2A64CF3B367DEA06AD28647C37445C8
                7E47C77C47C17345D18748E0A570F4B76EF3AA54FEDAC5FFFFFFFFFFFFFCA570
                F1964FF3A466E38E63E89886DF7A65E48A78E38775E07A66E99A89E59269F3A8
                6DF39A56FDCCB3FFFFFFFFFFFFFC9663F0834DF19161F39F77ED9E7EDA7A55E7
                834AE67F49DC8058EEA282F3A37CF29568F18753FDB99DFFFFFFFFFFFFFC8657
                EF704AF07C59F28A6BF1957AD87A5CE58E65E48A63DA8061F2997EF28E6FF180
                5EF0744FFDA485FFFFFFFFFFFFFC7949EE6243EF6B4FF0765BEF8067DC775FEA
                9579E99176DE7C64F0826AF07960EF6E53EF6547FD8A66FFFFFFFFFFFFFB6D39
                ED5A3AEE6143EE684BED6E53D76440E4773FE3743FD86841EE7056EF6A4EEE63
                46EE5C3DFD6F41FFFFFFFFFFFFFA6530EA502FEA5535EA5A3BE95E40D5654CE2
                896EE1866BD5684FE95F42EB5B3CEA5636EA5131FC602EFFFFFFFFFFFFF8612B
                E54624E44826E04A2ACE472AD36445EB9267EA8D65D36847D0482BE24B2BE449
                28E54725FA5C2AFFFFFFFFFFFFF65D26DF3C19DF3F1CCD391AD16B2FD06438E5
                824CE57E4BD06639D26D2FCF3A1BDF3E1CDF3D1AF85926FFFFFFFFFFFFF35A22
                D93310D83310CF3112E59082DC725FE18474E08071DD7260E59384CF3213D834
                11D93410F65622FFFFFFFFFFFFF0561FD4300DD4300DD4300DD2300DD2300DD2
                300DD2300DD22F0DD2300DD4300DD4300DD42F0DF3521FFFFFFFFFFFFFEF7B55
                E9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE995
                7AE99579EE7755FFFFFFFFFFFFF6DADCFCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FC
                C2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5F7E0E1FFFFFF}
              Kind = bkGlyph
            end>
          Properties.OnButtonClick = Edit6PropertiesButtonClick
          Style.Edges = [bBottom]
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -19
          Style.Font.Name = #23435#20307
          Style.Font.Style = []
          Style.ButtonTransparency = ebtNone
          TabOrder = 4
          Width = 121
        end
        object Edit7: TDBRBEdit
          Left = 310
          Top = 250
          ParentFont = False
          Properties.Buttons = <
            item
              Default = True
              Glyph.Data = {
                36030000424D3603000000000000360000002800000010000000100000000100
                18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFF4E0D0F0CE98EFC993EDC491ECBF8FEABA8CE9
                B587E7B283E9B686EBBC8AECC28DEEC791F0CD97F5E7DCFFFFFFFFFFFFFEC688
                FAC24CFACC68F7D684ECD496EAD8A5EADAAEE9DAAEE8D7A7EBD59AF8D88BFAD0
                70FAC654FEE7D4FFFFFFFFFFFFFDB27BF2A64CF3B367DEA06AD28647C37445C8
                7E47C77C47C17345D18748E0A570F4B76EF3AA54FEDAC5FFFFFFFFFFFFFCA570
                F1964FF3A466E38E63E89886DF7A65E48A78E38775E07A66E99A89E59269F3A8
                6DF39A56FDCCB3FFFFFFFFFFFFFC9663F0834DF19161F39F77ED9E7EDA7A55E7
                834AE67F49DC8058EEA282F3A37CF29568F18753FDB99DFFFFFFFFFFFFFC8657
                EF704AF07C59F28A6BF1957AD87A5CE58E65E48A63DA8061F2997EF28E6FF180
                5EF0744FFDA485FFFFFFFFFFFFFC7949EE6243EF6B4FF0765BEF8067DC775FEA
                9579E99176DE7C64F0826AF07960EF6E53EF6547FD8A66FFFFFFFFFFFFFB6D39
                ED5A3AEE6143EE684BED6E53D76440E4773FE3743FD86841EE7056EF6A4EEE63
                46EE5C3DFD6F41FFFFFFFFFFFFFA6530EA502FEA5535EA5A3BE95E40D5654CE2
                896EE1866BD5684FE95F42EB5B3CEA5636EA5131FC602EFFFFFFFFFFFFF8612B
                E54624E44826E04A2ACE472AD36445EB9267EA8D65D36847D0482BE24B2BE449
                28E54725FA5C2AFFFFFFFFFFFFF65D26DF3C19DF3F1CCD391AD16B2FD06438E5
                824CE57E4BD06639D26D2FCF3A1BDF3E1CDF3D1AF85926FFFFFFFFFFFFF35A22
                D93310D83310CF3112E59082DC725FE18474E08071DD7260E59384CF3213D834
                11D93410F65622FFFFFFFFFFFFF0561FD4300DD4300DD4300DD2300DD2300DD2
                300DD2300DD22F0DD2300DD4300DD4300DD42F0DF3521FFFFFFFFFFFFFEF7B55
                E9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE9957AE995
                7AE99579EE7755FFFFFFFFFFFFF6DADCFCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FC
                C2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5FCC2C5F7E0E1FFFFFF}
              Kind = bkGlyph
            end>
          Properties.OnButtonClick = Edit7PropertiesButtonClick
          Style.Edges = [bBottom]
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -19
          Style.Font.Name = #23435#20307
          Style.Font.Style = []
          Style.ButtonTransparency = ebtNone