bas_outputipdata.dfm

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

                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>
          Style.Edges = [bBottom]
          Style.ButtonTransparency = ebtHideInactive
          TabOrder = 6
          Width = 161
        end
        object Edit8: TDBRBEdit
          Left = 206
          Top = 213
          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>
          Style.Edges = [bBottom]
          Style.ButtonTransparency = ebtHideInactive
          TabOrder = 7
          Width = 161
        end
        object Edit9: TDBRBEdit
          Left = 206
          Top = 142
          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>
          Style.Edges = [bBottom]
          Style.ButtonTransparency = ebtHideInactive
          TabOrder = 8
          Width = 161
        end
      end
    end
    object TabSheet2: TRzTabSheet
      Color = 14085099
      Caption = #26597#35810#32467#26524#26174#31034
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 686
        Height = 349
        Align = alClient
        DataSource = DataSource1
        FixedColor = 14085099
        Flat = True
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        FrozenCols = 1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghTraceColSizing, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        UseMultiTitle = True
        Columns = <
          item
            EditButtons = <>
            FieldName = 'SortName'
            Footers = <>
            Title.Caption = #31867#21035
            Width = 92
          end
          item
            EditButtons = <>
            FieldName = 'EnglishName'
            Footers = <>
            Title.Caption = #33521#25991#21517#31216
            Width = 172
          end
          item
            EditButtons = <>
            FieldName = 'ChineseName'
            Footers = <>
            Title.Caption = #20013#25991#21517#31216
            Width = 134
          end
          item
            EditButtons = <>
            FieldName = 'WebSite'
            Footers = <>
            Title.Caption = #32593#22336
            Width = 170
          end
          item
            EditButtons = <>
            FieldName = 'ServiceAndProduct'
            Footers = <>
            Title.Caption = #20135#21697#26381#21153
            Width = 219
          end
          item
            EditButtons = <>
            FieldName = 'Address'
            Footers = <>
            Title.Caption = #22320#22336
            Width = 142
          end
          item
            EditButtons = <>
            FieldName = 'PhoneNo'
            Footers = <>
            Title.Caption = #30005#35805#21495#30721
            Width = 134
          end
          item
            EditButtons = <>
            FieldName = 'FaxNo'
            Footers = <>
            Title.Caption = #20256#30495#21495#30721
            Width = 109
          end
          item
            EditButtons = <>
            FieldName = 'EMailAddress'
            Footers = <>
            Title.Caption = #30005#37038
            Width = 140
          end>
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 429
    Width = 688
    Height = 24
    Panels = <>
  end
  object DataSource1: TDataSource
    DataSet = DataQuery
    Left = 65
    Top = 183
  end
  object DataQuery: TMSQuery
    Connection = MainForm.MC
    SQL.Strings = (
      'Select * From Bas_IPRecord')
    Left = 139
    Top = 185
  end
end