unit1.dfm

想做个图片存取的程序

object Form1: TForm1
  Left = 217
  Top = 105
  Width = 414
  Height = 413
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 132
    Width = 200
    Height = 182
    AutoSize = True
    Proportional = True
  end
  object Label1: TLabel
    Left = 0
    Top = 7
    Width = 53
    Height = 13
    AutoSize = False
    Caption = #25968#25454#24211#21517
  end
  object Label2: TLabel
    Left = 0
    Top = 30
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #29992#25143#21517
  end
  object Label3: TLabel
    Left = 114
    Top = 30
    Width = 29
    Height = 13
    AutoSize = False
    Caption = #23494#30721
  end
  object Label4: TLabel
    Left = 66
    Top = 323
    Width = 273
    Height = 25
    AutoSize = False
  end
  object Label5: TLabel
    Left = 114
    Top = 54
    Width = 29
    Height = 13
    AutoSize = False
    Caption = #22270#29255
  end
  object Label6: TLabel
    Left = 4
    Top = 54
    Width = 32
    Height = 13
    AutoSize = False
    Caption = #34920#21517
  end
  object Label7: TLabel
    Left = 2
    Top = 108
    Width = 63
    Height = 13
    AutoSize = False
    Caption = #25991#26412#20869#23481
  end
  object Edit1: TEdit
    Left = 53
    Top = 3
    Width = 252
    Height = 21
    TabOrder = 4
    Text = 'D:\200806image.mdb'
  end
  object DBImage1: TDBImage
    Left = 203
    Top = 130
    Width = 200
    Height = 185
    DataSource = DataSource1
    TabOrder = 6
  end
  object Button1: TButton
    Left = 308
    Top = 27
    Width = 95
    Height = 25
    Caption = #25171#24320#29031#29255
    TabOrder = 7
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 308
    Top = 52
    Width = 95
    Height = 25
    Caption = #20445#23384#21040#25968#25454#24211
    TabOrder = 8
    OnClick = Button2Click
    OnEnter = Button2Enter
  end
  object Button3: TButton
    Left = 308
    Top = 101
    Width = 95
    Height = 25
    Caption = #20445#23384#21462#20986#22270#29255
    TabOrder = 5
  end
  object Edit2: TEdit
    Left = 40
    Top = 26
    Width = 70
    Height = 21
    PasswordChar = '#'
    TabOrder = 1
    Text = 'admin'
  end
  object Edit3: TEdit
    Left = 143
    Top = 26
    Width = 65
    Height = 21
    TabOrder = 2
  end
  object Edit4: TEdit
    Left = 40
    Top = 50
    Width = 70
    Height = 21
    TabOrder = 9
    Text = 'rptimg'
  end
  object DBNavigator1: TDBNavigator
    Left = 94
    Top = 360
    Width = 224
    Height = 19
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 10
    OnClick = DBNavigator1Click
  end
  object Edit5: TEdit
    Left = 143
    Top = 73
    Width = 65
    Height = 21
    Hint = #27492#22788#36755#20837#25991#26412#23383#27573#21517
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    Text = 'imgtyp'
  end
  object Button4: TButton
    Left = 308
    Top = 1
    Width = 95
    Height = 25
    Caption = #25171#24320#25968#25454#24211#25991#20214
    TabOrder = 0
    OnClick = Button4Click
  end
  object GroupBox2: TGroupBox
    Left = 209
    Top = 27
    Width = 97
    Height = 77
    Hint = #21452#20987#21487#29609#20010#23567#28216#25103
    Caption = #36873#25321#28304#25968#25454#24211
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnExit = GroupBox2Exit
    object RadioButton1: TRadioButton
      Left = 3
      Top = 13
      Width = 76
      Height = 13
      Caption = 'oracle'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object RadioButton2: TRadioButton
      Left = 3
      Top = 26
      Width = 74
      Height = 14
      Caption = 'SQLSever'
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object RadioButton3: TRadioButton
      Left = 3
      Top = 39
      Width = 65
      Height = 12
      Caption = 'Access'
      TabOrder = 2
    end
    object RadioButton7: TRadioButton
      Left = 3
      Top = 51
      Width = 54
      Height = 12
      Caption = 'Execl'
      TabOrder = 3
    end
    object RadioButton9: TRadioButton
      Left = 3
      Top = 64
      Width = 42
      Height = 11
      Caption = 'Db'
      TabOrder = 4
    end
    object ListBox1: TListBox
      Left = -112
      Top = -88
      Width = 121
      Height = 97
      ItemHeight = 13
      TabOrder = 5
      Visible = False
    end
  end
  object CheckBox1: TCheckBox
    Left = 235
    Top = 106
    Width = 71
    Height = 17
    Caption = #26412#22320'SQL'
    Checked = True
    State = cbChecked
    TabOrder = 12
  end
  object Edit6: TEdit
    Left = -16
    Top = -21
    Width = 121
    Height = 21
    TabOrder = 13
    Text = 'Edit6'
  end
  object Edit7: TEdit
    Left = 143
    Top = 50
    Width = 65
    Height = 21
    Hint = #27492#22788#36755#20837#22270#29255#23383#27573#21517
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    Text = 'imgdata'
    OnExit = Edit7Exit
  end
  object Button5: TButton
    Left = 308
    Top = 77
    Width = 95
    Height = 25
    Caption = #36830#25509#34920
    TabOrder = 15
    OnClick = Button5Click
  end
  object CheckBox2: TCheckBox
    Left = 3
    Top = 75
    Width = 142
    Height = 17
    Caption = #26377#25991#26412#23383#27573' '#25991#26412#23383#27573#21517
    TabOrder = 16
  end
  object Edit8: TEdit
    Left = 56
    Top = 104
    Width = 151
    Height = 21
    TabOrder = 17
  end
  object Button6: TButton
    Left = 16
    Top = 328
    Width = 75
    Height = 25
    Caption = 'Button6'
    TabOrder = 18
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 296
    Top = 328
    Width = 75
    Height = 25
    Caption = 'Button7'
    TabOrder = 19
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDAORA.1;Password=sngs;User ID=sngsuser;Data Source=or' +
      'a8;Persist Security Info=True'
    LoginPrompt = False
    Provider = 'MSDAORA.1'
    Left = 144
    Top = 65515
  end
  object OpenPictureDialog1: TOpenPictureDialog
    FilterIndex = 0
    Left = 152
    Top = 65535
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from PHOTO1')
    Left = 272
    Top = 65523
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 240
    Top = 65535
  end
  object SavePictureDialog1: TSavePictureDialog
    Left = 248
    Top = 65507
  end
  object OpenDialog1: TOpenDialog
    Left = 96
    Top = 65527
  end
end