unit_jpeg.dfm

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

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 443
  Height = 348
  Caption = #20351#29992'ADO'#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
    OnChange = PageControl1Change
    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 = 104
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data S' +
      'ource=demo'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from picture_tb')
    Left = 136
    Top = 8
  end
  object ADOQuery2: TADOQuery
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data S' +
      'ource=demo'
    Parameters = <>
    Left = 168
    Top = 8
  end
end