u_browsefrm.~dfm

给一个企业做的产品展示系统,很好的展示了产品的各种功能

                        056D078F9470CA6A6DC85D5FC9656BCB7C80DDA298EEB687FCB746F4A63BCB9C
                        A2F9F6F6FFFFFFFFFFFF6DF4FF5FF6FF53B9B67E693DC25100D25C00D46300C3
                        6A002C7C00007C00007E003F843AC36D74CD7D7EDFA183F3BD75FFBB46FFB222
                        FFAE19F6A026CF998DF8F4F7FFFFFFFFFFFF67EEFF47EDFF36EDFF29D5F1439E
                        9D936E2DD26C00D67400388A3711862F97815DCA907FEFA977F8B75BFFC044FF
                        B92EFFB934FFB637FFB62FF7A92FD49E84EBE3E8FFFFFFFFFFFFBFEBF94AE3FF
                        1DE4FF15DDFF00D5FF00C7FB2C9AAD82764240899DA27F8EFFA75FFFB547FFC0
                        42FFC044FFBF49FFBF4EFFBF4CFFBF49FFBE43FEB539E0AA7BD9C1C8FFFFFFFF
                        FFFFFDFAFDC7CBAF5CB0A100D4FF00D1FF00C5FF01B7FF05A6FF0D92F7B68386
                        FFBA3AFFC24CFFC354FFCA5AFFCC5DFFCB60FFCC5DFFCA5AFFC355FFC447E0AF
                        73D2B6BEFFFFFFFFFFFFFBFDFFFFE0A7DD6E028A925B0BC2DA00B8FD08A4FF0D
                        9BFF0690FFB38892FEB755FFCD5BFFCF65FFCF6DFFD46DFFD56CFFD46DFFCF6D
                        FFCE67FFCF58E3B36BD5BBBBF9F5F7FFFFFFFFFFFFF8EFD2DF7D13EE750042A6
                        230DBB8818AFC61492F60B7FFFB18A9CF8B462FFD46DFFD873FFDA7CFFD981FF
                        D984FFD981FFDA7EFFD879FFD46DE8B868DAC1BCE9E0E2FFFFFFFFFFFFF8F5F1
                        EFAA4F968F081FBD4129C9543ED26D138CEE1686E6B69AA0F0AC6FFFDB77FFDC
                        84FFE38AFFE791FFE695FFE791FFE38CFFDD86FFD878F7C76ED3BEB3E1D8DBFF
                        FFFFFFFFFFFFFFFFCED5A527AB2D1FC95339D26D70DD7F6EADD19CE5BECDB1A8
                        DFA275FFE285FFE391FFEA9CFFEEA3FFEFA7FFEEA3FFEA9CFFE890FFE085FFD8
                        76CFB6A5E4DBDEFFFFFFFFFFFFFFFFFFF7FBFC71CB872BC85258D36B79E691DA
                        FAB0F0FFD4D0B3B4D59C7CFFEA91FFEE9CFFF3A8FFF5B4FFF4B8FFF5B4FFF5AF
                        FFF09EFFEA91FFE081D2B899F7F1F4FFFFFFFFFFFFFFFFFFFFFFFFEDF4E9B0CF
                        7984C64BA4D377DFE796DEF7AECDB5ACD39D88FEE398FFF2A9FFFAB7FFFFC9FF
                        FFCCFFFFCCFFF7BAF6E8A5ECD694DBC482BBAC92F7F8FAFFFFFFFFFFFFFFFFFF
                        FFFFFFFFFFFFEFF8ECC5E095B8C95AB4D271C1DE81CDB4AAD39E8FFCE497FFF8
                        B1FCF6B9EFE5BDE1D4B5D0C2A9C1A999B8A49AB8ABA9BBB0B6CAC4C6F0F0F0FF
                        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEBEED2D1E499A8DA7CCAAD98
                        BC8383D3B18DCAA695BF9992BB9B98BDA2A2C9B3B6D4C3C6D0C7C9D0C9CAD5CE
                        CEE3E1E1FBFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                        FFFFF8F5EBEDDEC4BD989BC19496D0AEB1DFC5C7E4D0D1E1D5D6E4DDDEECE4E4
                        F7F6F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBF7F6EDE3E3F1EBEBF6F4F4FFFFFFFF
                        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
                      Layout = blGlyphTop
                    end
                  end
                end
                object dbgProduct: TDBGridEh
                  Left = 164
                  Top = 0
                  Width = 614
                  Height = 337
                  Hint = #21452#20987#26174#31034#20135#21697#35814#32454#20449#24687#12290
                  Align = alClient
                  Ctl3D = True
                  DataSource = dsProduct
                  Flat = True
                  Font.Charset = ANSI_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -14
                  Font.Name = 'Arial'
                  Font.Style = [fsBold]
                  FooterColor = clWindow
                  FooterFont.Charset = GB2312_CHARSET
                  FooterFont.Color = clWindowText
                  FooterFont.Height = -19
                  FooterFont.Name = #23435#20307
                  FooterFont.Style = [fsBold]
                  ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
                  Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
                  OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
                  ParentCtl3D = False
                  ParentFont = False
                  ParentShowHint = False
                  RowHeight = 26
                  ShowHint = True
                  TabOrder = 1
                  TitleFont.Charset = GB2312_CHARSET
                  TitleFont.Color = clWindowText
                  TitleFont.Height = -14
                  TitleFont.Name = #23435#20307
                  TitleFont.Style = [fsBold]
                  TitleHeight = 20
                  UseMultiTitle = True
                  OnDblClick = dbgProductDblClick
                  OnDrawColumnCell = dbgProductDrawColumnCell
                  Columns = <
                    item
                      AutoFitColWidth = False
                      EditButtons = <>
                      FieldName = 'Model'
                      Footers = <>
                      Title.Caption = #22411#21495
                      Width = 101
                    end
                    item
                      EditButtons = <>
                      FieldName = 'Size'
                      Footers = <>
                      Title.Caption = #22806#24418#23610#23544
                      Width = 107
                    end
                    item
                      EditButtons = <>
                      FieldName = 'TouchType'
                      Footers = <>
                      Title.Caption = #35302#28857#24418#24335
                      Width = 66
                    end
                    item
                      EditButtons = <>
                      FieldName = 'TempBound'
                      Footers = <>
                      Title.Caption = #28201#24230#33539#22260
                      Width = 83
                    end
                    item
                      EditButtons = <>
                      FieldName = 'LibrationBound'
                      Footers = <>
                      Title.Caption = #25391#21160#33539#22260
                      Width = 136
                    end
                    item
                      EditButtons = <>
                      FieldName = 'LoadCurrentBound'
                      Footers = <>
                      Title.Caption = #36127#36733#30005#27969#33539#22260
                      Width = 177
                    end
                    item
                      EditButtons = <>
                      FieldName = 'TouchLoad'
                      Footers = <>
                      Title.Caption = #35302#28857#36127#36733
                      Width = 95
                    end>
                end
              end
            end
            object pnlHint: TPanel
              Left = 0
              Top = 358
              Width = 778
              Height = 171
              Align = alClient
              BevelOuter = bvNone
              BorderStyle = bsSingle
              Caption = #21452#20987#35760#24405#26174#31034#20135#21697#35814#32454#36164#26009
              Font.Charset = GB2312_CHARSET
              Font.Color = clGray
              Font.Height = -60
              Font.Name = #40657#20307
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              object ScrollBox: TScrollBox
                Left = 0
                Top = 0
                Width = 774
                Height = 167
                HorzScrollBar.Size = 1500
                VertScrollBar.Size = 1500
                Align = alClient
                BevelInner = bvNone
                BevelOuter = bvNone
                BorderStyle = bsNone
                TabOrder = 0
                Visible = False
                object wbPreview: TWebBrowser
                  Left = 0
                  Top = 0
                  Width = 774
                  Height = 167
                  Align = alClient
                  ParentShowHint = False
                  ShowHint = False
                  TabOrder = 0
                  ControlData = {
                    4C000000FF4F0000431100000000000000000000000000000000000000000000
                    000000004C000000000000000000000001000000E0D057007335CF11AE690800
                    2B2E126208000000000000004C0000000114020000000000C000000000000046
                    8000000000000000000000000000000000000000000000000000000000000000
                    00000000000000000100000000000000000000000000000000000000}
                end
              end
            end
          end
        end
      end
    end
  end
  object adoProduct: TADOQuery
    Connection = DataDM.adoConn
    CursorType = ctStatic
    AfterScroll = adoProductAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from product')
    Left = 217
    Top = 93
    object adoProductType: TWideStringField
      FieldName = 'PType'
      Size = 50
    end
    object adoProductModel: TWideStringField
      FieldName = 'Model'
      Size = 50
    end
    object adoProductSize: TWideStringField
      FieldName = 'Size'
      Size = 50
    end
    object adoProductTouchType: TWideStringField
      FieldName = 'TouchType'
      Size = 50
    end
    object adoProductTempBound: TWideStringField
      FieldName = 'TempBound'
      Size = 50
    end
    object adoProductLibrationBound: TWideStringField
      FieldName = 'LibrationBound'
      Size = 50
    end
    object adoProductLoadCurrentBound: TWideStringField
      FieldName = 'LoadCurrentBound'
      Size = 50
    end
    object adoProductTouchLoad: TWideStringField
      FieldName = 'TouchLoad'
      Size = 50
    end
    object adoProductPDFPath: TWideStringField
      FieldName = 'PDFPath'
      Size = 50
    end
    object adoProductImgPath: TStringField
      FieldName = 'ImgPath'
      Size = 60
    end
  end
  object dsProduct: TDataSource
    DataSet = adoProduct
    Left = 217
    Top = 125
  end
end