jvcl driver development envionment
源代码在线查看： unit2.dfm
object MainForm: TMainForm
Left = 142
Top = 137
Width = 790
Height = 489
Caption = 'Test BDE'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object MyUltimGrid: TJvDBUltimGrid
Left = 0
Top = 0
Width = 782
Height = 417
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = MyUltimGridDrawColumnCell
TitleButtons = True
AlternateRowColor = clInfoBk
SelectColumn = scGrid
TitleArrow = True
SelectColumnsDialogStrings.Caption = 'S閘ection des colonnes visibles'
SelectColumnsDialogStrings.RealNamesOption = '[Avec le vrai nom du champ]'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'Il doit y avoir au moins une colonne visible !'
EditControls =
AutoSizeRows = False
RowResize = True
RowsHeight = 42
TitleRowHeight = 17
WordWrap = True
OnIndexNotFound = MyUltimGridIndexNotFound
Columns = <
item
Expanded = False
FieldName = 'Species No'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'Category'
Width = 72
Visible = True
end
item
Expanded = False
FieldName = 'Common_Name'
Title.Caption = 'Common Name'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'Species Name'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'Length (cm)'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'Length_In'
Title.Caption = 'Length (in)'
Width = 102
Visible = True
end
item
Expanded = False
FieldName = 'Notes'
Width = 150
Visible = True
end
item
Expanded = False
FieldName = 'Graphic'
Width = 96
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 417
Width = 782
Height = 41
Align = alBottom
TabOrder = 1
object Label1: TLabel
Left = 12
Top = 12
Width = 77
Height = 13
Caption = 'Value to search:'
end
object ValueToSearch: TEdit
Left = 92
Top = 9
Width = 185
Height = 21
TabOrder = 0
end
object B_Search: TBitBtn
Left = 284
Top = 8
Width = 69
Height = 25
Caption = 'Search'
TabOrder = 1
OnClick = B_SearchClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object B_SearchNext: TBitBtn
Left = 360
Top = 8
Width = 69
Height = 25
Caption = 'Next'
Enabled = False
TabOrder = 2
OnClick = B_SearchNextClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
Spacing = 10
end
object DBNavigator1: TDBNavigator
Left = 456
Top = 12
Width = 185
Height = 21
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
TabOrder = 3
end
object B_ResizeCols: TBitBtn
Left = 664
Top = 8
Width = 109
Height = 25
Caption = 'Resize Cols && Rows'
TabOrder = 4
OnClick = B_ResizeColsClick
NumGlyphs = 2
end
end
object Table1: TTable
DatabaseName = 'BCDEMOS'
Exclusive = True
ReadOnly = True
TableName = 'biolife.db'
Left = 744
Top = 368
end
object DataSource1: TDataSource
DataSet = Table1
Left = 712
Top = 368
end
end
