unit_jpeg1.~dfm

一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件的使用,对许多刚涉足DELPHI的朋友会很有帮助的

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 443
  Height = 348
  Caption = #20351#29992'query'#25511#20214#30340'jpg'#22270#35937#35835#21462
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 435
    Height = 321
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23384#20648
      object Panel1: TPanel
        Left = 0
        Top = -8
        Width = 313
        Height = 297
        Caption = 'Panel1'
        TabOrder = 0
        object Image1: TImage
          Left = 1
          Top = 1
          Width = 311
          Height = 295
          Align = alClient
          Stretch = True
        end
      end
      object BitBtn1: TBitBtn
        Left = 336
        Top = 48
        Width = 75
        Height = 25
        Caption = #35835#21462'JPG'
        TabOrder = 1
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 336
        Top = 112
        Width = 75
        Height = 25
        Caption = #23384#20648'JPG'
        TabOrder = 2
        OnClick = BitBtn2Click
      end
      object BitBtn3: TBitBtn
        Left = 338
        Top = 168
        Width = 75
        Height = 25
        Caption = #36864'    '#20986
        TabOrder = 3
        OnClick = BitBtn3Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35835#21462
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 297
        Height = 289
        Caption = 'Panel2'
        TabOrder = 0
        object Image2: TImage
          Left = 1
          Top = 1
          Width = 295
          Height = 287
          Align = alClient
          Stretch = True
        end
      end
      object BitBtn4: TBitBtn
        Left = 320
        Top = 16
        Width = 75
        Height = 25
        Caption = #31532#19968#26465
        TabOrder = 1
        OnClick = BitBtn4Click
      end
      object BitBtn5: TBitBtn
        Left = 320
        Top = 66
        Width = 75
        Height = 25
        Caption = #19979#19968#26465
        TabOrder = 2
        OnClick = BitBtn5Click
      end
      object BitBtn6: TBitBtn
        Left = 320
        Top = 117
        Width = 75
        Height = 25
        Caption = #19978#19968#26465
        TabOrder = 3
        OnClick = BitBtn6Click
      end
      object BitBtn7: TBitBtn
        Left = 320
        Top = 168
        Width = 75
        Height = 25
        Caption = #26368#21518#19968#26465
        TabOrder = 4
        OnClick = BitBtn7Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 80
    Top = 8
  end
  object Database1: TDatabase
    AliasName = 'demo'
    Connected = True
    DatabaseName = 'demo1'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 16
    Top = 8
  end
  object Query1: TQuery
    DatabaseName = 'demo1'
    Left = 48
    Top = 8
  end
  object Query2: TQuery
    Active = True
    CachedUpdates = True
    DatabaseName = 'demo1'
    SQL.Strings = (
      'select * from picture_tb')
    Left = 112
    Top = 8
    object Query2A2: TBlobField
      FieldName = 'A2'
      Origin = 'DEMO1.picture_tb.A2'
      Size = 1
    end
  end
end