402 lines
9.6 KiB
Plaintext
402 lines
9.6 KiB
Plaintext
object frmMain: TfrmMain
|
|
Left = 221
|
|
Top = 105
|
|
Width = 805
|
|
Height = 629
|
|
Caption = 'ADO Test'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object PanelGrid: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 797
|
|
Height = 557
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object JvDBGrid1: TJvDBUltimGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 797
|
|
Height = 538
|
|
Align = alClient
|
|
DataSource = DataSource1
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clGreen
|
|
TitleFont.Height = -16
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = [fsBold]
|
|
TitleButtons = True
|
|
AlternateRowColor = clInactiveCaptionText
|
|
TitleArrow = True
|
|
ShowCellHint = True
|
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
|
SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
|
|
SelectColumnsDialogStrings.OK = '&OK'
|
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
|
EditControls = <
|
|
item
|
|
ControlName = 'DBMemo1'
|
|
FieldName = 'Comment'
|
|
FitCell = fcBiggest
|
|
end
|
|
item
|
|
ControlName = 'DBLookupComboBox1'
|
|
FieldName = 'Category'
|
|
FitCell = fcCellSize
|
|
end
|
|
item
|
|
ControlName = 'JvDBComboBox1'
|
|
FieldName = 'Licenses'
|
|
FitCell = fcCellSize
|
|
end>
|
|
AutoSizeRows = False
|
|
RowResize = True
|
|
RowsHeight = 34
|
|
TitleRowHeight = 24
|
|
WordWrap = True
|
|
SortWith = swFields
|
|
OnRestoreGridPosition = JvDBGrid1RestoreGridPosition
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'RefLogiciel'
|
|
Width = 43
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Software'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Georgia'
|
|
Font.Style = []
|
|
Width = 93
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Category'
|
|
PickList.Strings = (
|
|
'BUREAU_PAO'
|
|
'DIVERS'
|
|
'GRAPHISME'
|
|
'JEUX'
|
|
'NET_WEB'
|
|
'OS'
|
|
'PROGRAM'
|
|
'UTILITAIRE')
|
|
Title.Caption = 'Category (lookup)'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'FirstBool'
|
|
PickList.Strings = (
|
|
'Vrai'
|
|
'Faux')
|
|
Width = 50
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'SecondBool'
|
|
Width = 50
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Licenses'
|
|
PickList.Strings = (
|
|
'1'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5'
|
|
'6'
|
|
'7'
|
|
'8'
|
|
'9'
|
|
'10')
|
|
Width = 77
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Price'
|
|
Width = 71
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Comment'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Comic Sans MS'
|
|
Font.Style = [fsBold]
|
|
Width = 227
|
|
Visible = True
|
|
end>
|
|
end
|
|
object JvDBGridFooter1: TJvDBGridFooter
|
|
Left = 0
|
|
Top = 538
|
|
Width = 797
|
|
Height = 19
|
|
Color = 15663086
|
|
SimplePanel = False
|
|
Columns = <
|
|
item
|
|
Alignment = taLeftJustify
|
|
DisplayMask = '%d softwares'
|
|
FieldName = 'Software'
|
|
WidthIfIgnore = 80
|
|
end
|
|
item
|
|
DisplayMask = '%d licenses'
|
|
FieldName = 'Licenses'
|
|
WidthIfIgnore = 220
|
|
end>
|
|
DataSource = DataSource1
|
|
DBGrid = JvDBGrid1
|
|
OnCalculate = JvDBGridFooter1Calculate
|
|
end
|
|
end
|
|
object DBMemo1: TDBMemo
|
|
Left = 32
|
|
Top = 452
|
|
Width = 309
|
|
Height = 97
|
|
Color = 13434879
|
|
DataField = 'Comment'
|
|
DataSource = DataSource1
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -19
|
|
Font.Name = 'Comic Sans MS'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
Visible = False
|
|
OnEnter = DBMemo1Enter
|
|
end
|
|
object JvDBComboBox1: TJvDBComboBox
|
|
Left = 364
|
|
Top = 504
|
|
Width = 145
|
|
Height = 24
|
|
Color = 13434879
|
|
DataField = 'Licenses'
|
|
DataSource = DataSource1
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 16
|
|
Items.Strings = (
|
|
'Zero'
|
|
'One'
|
|
'Two'
|
|
'Three'
|
|
'Four'
|
|
'Five'
|
|
'Six'
|
|
'Seven'
|
|
'Eight'
|
|
'Nine')
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5'
|
|
'6'
|
|
'7'
|
|
'8'
|
|
'9')
|
|
Visible = False
|
|
OnKeyPress = JvDBComboBox1KeyPress
|
|
end
|
|
object DBLookupComboBox1: TDBLookupComboBox
|
|
Left = 360
|
|
Top = 460
|
|
Width = 281
|
|
Height = 24
|
|
Color = 13434879
|
|
DataField = 'Category'
|
|
DataSource = DataSource1
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyField = 'CodeLogiciel'
|
|
ListField = 'LibelleLog'
|
|
ListSource = DataSource2
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
Visible = False
|
|
OnKeyPress = DBLookupComboBox1KeyPress
|
|
end
|
|
object PanelButtons: TPanel
|
|
Left = 0
|
|
Top = 557
|
|
Width = 797
|
|
Height = 41
|
|
Align = alBottom
|
|
TabOrder = 4
|
|
object B_Connect: TButton
|
|
Left = 8
|
|
Top = 8
|
|
Width = 113
|
|
Height = 25
|
|
Caption = 'Connect/Disconnect'
|
|
TabOrder = 0
|
|
OnClick = B_ConnectClick
|
|
end
|
|
object B_TitleIndic: TButton
|
|
Left = 272
|
|
Top = 8
|
|
Width = 129
|
|
Height = 25
|
|
Caption = 'Add/remove Titles/Indic'
|
|
TabOrder = 2
|
|
OnClick = B_TitleIndicClick
|
|
end
|
|
object B_WordWrap: TButton
|
|
Left = 408
|
|
Top = 8
|
|
Width = 113
|
|
Height = 25
|
|
Caption = 'Change Word Wrap'
|
|
TabOrder = 3
|
|
OnClick = B_WordWrapClick
|
|
end
|
|
object B_ModFooter: TButton
|
|
Left = 528
|
|
Top = 8
|
|
Width = 105
|
|
Height = 25
|
|
Caption = 'Modify Grid Footer'
|
|
TabOrder = 4
|
|
OnClick = B_ModFooterClick
|
|
end
|
|
object B_ShowEdit: TButton
|
|
Left = 128
|
|
Top = 8
|
|
Width = 137
|
|
Height = 25
|
|
Caption = 'AlwaysShowEditor On/Off'
|
|
TabOrder = 1
|
|
OnClick = B_ShowEditClick
|
|
end
|
|
object B_Search: TButton
|
|
Left = 640
|
|
Top = 8
|
|
Width = 149
|
|
Height = 25
|
|
Caption = 'Search '#39'W'#39' and License = 1'
|
|
TabOrder = 5
|
|
OnClick = B_SearchClick
|
|
end
|
|
end
|
|
object ADOConnection1: TADOConnection
|
|
Connected = True
|
|
ConnectionString =
|
|
'Provider=Microsoft.Jet.OLEDB.4.0;Data ' +
|
|
'Source=BaseTest.mdb;'
|
|
LoginPrompt = False
|
|
Mode = cmShareDenyNone
|
|
Provider = 'Microsoft.Jet.OLEDB.4.0'
|
|
Left = 532
|
|
Top = 368
|
|
end
|
|
object MainTable: TADOTable
|
|
Active = True
|
|
Connection = ADOConnection1
|
|
CursorType = ctStatic
|
|
TableName = 'Logiciels'
|
|
Left = 500
|
|
Top = 368
|
|
object MainTableRefLogiciel: TAutoIncField
|
|
FieldName = 'RefLogiciel'
|
|
end
|
|
object MainTableSoftware: TWideStringField
|
|
FieldName = 'Software'
|
|
Size = 50
|
|
end
|
|
object MainTableCategory: TWideStringField
|
|
FieldName = 'Category'
|
|
OnGetText = MainTableCategoryGetText
|
|
Size = 10
|
|
end
|
|
object MainTableFirstBool: TBooleanField
|
|
FieldName = 'FirstBool'
|
|
end
|
|
object MainTableSecondBool: TBooleanField
|
|
FieldName = 'SecondBool'
|
|
end
|
|
object MainTableLicenses: TSmallintField
|
|
FieldName = 'Licenses'
|
|
end
|
|
object MainTablePrice: TBCDField
|
|
FieldName = 'Price'
|
|
Precision = 19
|
|
end
|
|
object MainTableComment: TMemoField
|
|
FieldName = 'Comment'
|
|
BlobType = ftMemo
|
|
end
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = MainTable
|
|
Left = 464
|
|
Top = 368
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = LookupTable
|
|
Left = 464
|
|
Top = 404
|
|
end
|
|
object LookupTable: TADOTable
|
|
Active = True
|
|
Connection = ADOConnection1
|
|
CursorType = ctStatic
|
|
TableName = 'CategLogiciels'
|
|
Left = 500
|
|
Top = 404
|
|
end
|
|
object CountQuery: TADOQuery
|
|
Connection = ADOConnection1
|
|
Parameters = <>
|
|
SQL.Strings = (
|
|
'SELECT SUM(Licenses) AS Total FROM Logiciels;')
|
|
Left = 536
|
|
Top = 404
|
|
end
|
|
end
|