ODAC 5.7.0.28

源代码在线查看: main.dfm

软件大小: 2737 K
上传用户: Kunlun_mrpii
关键词: ODAC 28
下载地址: 免注册下载 普通下载 VIP

相关代码

				object fmMain: TfmMain
				  Left = 214
				  Top = 142
				  Width = 700
				  Height = 460
				  VertScrollBar.Range = 150
				  ActiveControl = DBGrid
				  AutoScroll = False
				  Caption = 'Oracle Data Access Demo - Pictures (LONG RAW fields)'
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = 11
				  Font.Name = 'MS Sans Serif'
				  Font.Pitch = fpVariable
				  Font.Style = []
				  OldCreateOrder = True
				  Position = poScreenCenter
				  OnShow = FormShow
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Splitter1: TSplitter
				    Left = 0
				    Top = 145
				    Width = 692
				    Height = 3
				    Cursor = crVSplit
				    Align = alTop
				  end
				  object ScrollBox1: TScrollBox
				    Left = 0
				    Top = 148
				    Width = 692
				    Height = 285
				    HorzScrollBar.Range = 1077
				    VertScrollBar.Range = 1077
				    Align = alClient
				    AutoScroll = False
				    TabOrder = 3
				    object DBImage: TDBImage
				      Left = 0
				      Top = 0
				      Width = 1077
				      Height = 1077
				      Center = False
				      DataField = 'PICTURE'
				      DataSource = dmData.dsPictures
				      TabOrder = 0
				    end
				  end
				  object DBGrid: TDBGrid
				    Left = 0
				    Top = 27
				    Width = 692
				    Height = 93
				    Align = alTop
				    DataSource = dmData.dsPictures
				    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
				    TabOrder = 0
				    TitleFont.Charset = DEFAULT_CHARSET
				    TitleFont.Color = clWindowText
				    TitleFont.Height = 11
				    TitleFont.Name = 'MS Sans Serif'
				    TitleFont.Pitch = fpVariable
				    TitleFont.Style = []
				  end
				  object ToolBar: TPanel
				    Left = 0
				    Top = 0
				    Width = 692
				    Height = 27
				    Align = alTop
				    TabOrder = 1
				    object btOpen: TButton
				      Left = 0
				      Top = 2
				      Width = 64
				      Height = 24
				      Caption = 'Open'
				      TabOrder = 0
				      OnClick = btOpenClick
				    end
				    object btClose: TButton
				      Left = 64
				      Top = 2
				      Width = 64
				      Height = 24
				      Caption = 'Close'
				      TabOrder = 2
				      OnClick = btCloseClick
				    end
				    object DBNavigator: TDBNavigator
				      Left = 128
				      Top = 2
				      Width = 240
				      Height = 24
				      DataSource = dmData.dsPictures
				      TabOrder = 1
				    end
				    object btCreate: TButton
				      Left = 376
				      Top = 2
				      Width = 75
				      Height = 24
				      Caption = 'Create'
				      Font.Charset = DEFAULT_CHARSET
				      Font.Color = clWindowText
				      Font.Height = 11
				      Font.Name = 'MS Sans Serif'
				      Font.Pitch = fpVariable
				      Font.Style = [fsBold]
				      ParentFont = False
				      TabOrder = 4
				      OnClick = btCreateClick
				    end
				    object btDrop: TButton
				      Left = 451
				      Top = 2
				      Width = 75
				      Height = 24
				      Caption = 'Drop'
				      Font.Charset = DEFAULT_CHARSET
				      Font.Color = clWindowText
				      Font.Height = 11
				      Font.Name = 'MS Sans Serif'
				      Font.Pitch = fpVariable
				      Font.Style = [fsBold]
				      ParentFont = False
				      TabOrder = 3
				      OnClick = btDropClick
				    end
				    object cbUseNet: TCheckBox
				      Left = 537
				      Top = 5
				      Width = 68
				      Height = 17
				      Caption = 'Use Net'
				      TabOrder = 5
				      OnClick = cbUseNetClick
				    end
				    object cbDebug: TCheckBox
				      Left = 609
				      Top = 5
				      Width = 74
				      Height = 17
				      Caption = 'Debug'
				      TabOrder = 6
				      OnClick = cbDebugClick
				    end
				  end
				  object ToolBar1: TPanel
				    Left = 0
				    Top = 120
				    Width = 692
				    Height = 25
				    Align = alTop
				    AutoSize = True
				    TabOrder = 2
				    object btLoad: TButton
				      Left = 0
				      Top = 1
				      Width = 105
				      Height = 23
				      Caption = 'Load from file ...'
				      TabOrder = 0
				      OnClick = btLoadClick
				    end
				    object btSave: TButton
				      Left = 105
				      Top = 1
				      Width = 96
				      Height = 23
				      Caption = 'Save to file ...'
				      TabOrder = 1
				      OnClick = btSaveClick
				    end
				    object btClear: TButton
				      Left = 201
				      Top = 1
				      Width = 72
				      Height = 23
				      Caption = 'Clear'
				      TabOrder = 2
				      OnClick = btClearClick
				    end
				  end
				end
							

相关资源