unit1.dfm

使用数据库管理图片－图片直接存入数据库。

object Form1: TForm1
  Left = 238
  Top = 119
  Width = 443
  Height = 332
  Anchors = [akLeft, akTop, akRight, akBottom]
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25105#30340#30456#20876
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 24
    Height = 12
    Caption = #22995#21517
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 16
    Top = 32
    Width = 24
    Height = 12
    Caption = #30005#35805
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 8
    Top = 64
    Width = 36
    Height = 12
    Caption = 'E-Mail'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 16
    Top = 88
    Width = 24
    Height = 12
    Caption = #20303#22336
    FocusControl = DBEdit4
  end
  object DBEdit1: TDBEdit
    Left = 48
    Top = 8
    Width = 121
    Height = 20
    DataField = #22995#21517
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 48
    Top = 32
    Width = 121
    Height = 20
    DataField = #30005#35805
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 48
    Top = 56
    Width = 121
    Height = 20
    DataField = 'E-Mail'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    Left = 48
    Top = 80
    Width = 121
    Height = 20
    DataField = #20303#22336
    DataSource = DataSource1
    TabOrder = 3
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 184
    Width = 65
    Height = 113
    Caption = ' '#27983#35272' '
    TabOrder = 4
    object Button1: TButton
      Left = 8
      Top = 16
      Width = 50
      Height = 20
      Caption = #26368#21069
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 8
      Top = 40
      Width = 50
      Height = 20
      Caption = #19978#19968#31508
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 8
      Top = 64
      Width = 50
      Height = 20
      Caption = #19979#19968#31508
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 8
      Top = 88
      Width = 50
      Height = 20
      Caption = #26368#21518
      TabOrder = 3
      OnClick = Button4Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 96
    Top = 184
    Width = 65
    Height = 113
    Caption = ' '#21151#33021' '
    TabOrder = 5
    object Button5: TButton
      Left = 8
      Top = 16
      Width = 50
      Height = 20
      Caption = #26032#22686
      TabOrder = 0
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 8
      Top = 40
      Width = 50
      Height = 20
      Caption = #21024#38500
      TabOrder = 1
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 8
      Top = 64
      Width = 50
      Height = 20
      Caption = #20445#23384
      TabOrder = 2
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 8
      Top = 88
      Width = 50
      Height = 20
      Caption = #21462#28040
      TabOrder = 3
      OnClick = Button8Click
    end
  end
  object Panel1: TPanel
    Left = 176
    Top = 0
    Width = 259
    Height = 305
    Align = alRight
    Caption = 'Panel1'
    TabOrder = 6
    object DBImage1: TDBImage
      Left = 1
      Top = 1
      Width = 257
      Height = 303
      Align = alClient
      DataField = #30456#29255
      DataSource = DataSource1
      Stretch = True
      TabOrder = 0
      OnClick = DBImage1Click
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=info.mdb;Mode=Share Deny None;Extended Properties="";Jet ' +
      'OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Da' +
      'tabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Lo' +
      'cking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Globa' +
      'l Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLE' +
      'DB:Create System Database=False;Jet OLEDB:Encrypt Database=False' +
      ';Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact ' +
      'Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 80
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #36890#35759#24405
    Left = 112
    object ADOTable1DSDesigner: TWideStringField
      FieldName = #22995#21517
    end
    object ADOTable1DSDesigner2: TWideStringField
      FieldName = #20303#22336
    end
    object ADOTable1DSDesigner3: TWideStringField
      FieldName = #30005#35805
    end
    object ADOTable1EMail: TWideStringField
      FieldName = 'E-Mail'
      Size = 25
    end
    object ADOTable1DSDesigner4: TBlobField
      FieldName = #30456#29255
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 48
  end
  object OpenDialog1: TOpenDialog
    Filter = '('#20301#22270')*.bmp|*.bmp'
    Title = #22686#21152#30456#29255#23383#27573
    Left = 632
    Top = 8
  end
end