david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
354 lines
9.0 KiB
Plaintext
354 lines
9.0 KiB
Plaintext
object ViewTableSimpleDemoMainDM: TViewTableSimpleDemoMainDM
|
|
Left = 283
|
|
Top = 161
|
|
Height = 479
|
|
Width = 741
|
|
object tlbGENRES: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'GENRES.DB'
|
|
Left = 104
|
|
Top = 64
|
|
object tlbGENRESID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tlbGENRESNAME: TStringField
|
|
FieldName = 'NAME'
|
|
Size = 50
|
|
end
|
|
end
|
|
object dsGENRES: TDataSource
|
|
DataSet = tlbGENRES
|
|
Left = 32
|
|
Top = 64
|
|
end
|
|
object qreFilms: TQuery
|
|
Active = True
|
|
CachedUpdates = True
|
|
AfterInsert = qreFilmsAfterInsert
|
|
AfterPost = qreFilmsAfterPost
|
|
BeforeDelete = qreFilmsBeforeDelete
|
|
AfterDelete = qreFilmsAfterDelete
|
|
DatabaseName = 'DemosDB'
|
|
SessionName = 'Default'
|
|
DataSource = dsGENRES
|
|
RequestLive = True
|
|
SQL.Strings = (
|
|
|
|
'select * from FILMS where ID in (select FILMID from FILMSGENRES ' +
|
|
'where '
|
|
'GENREID=:ID)'
|
|
' ')
|
|
UpdateObject = UpdateSQL
|
|
Left = 104
|
|
Top = 112
|
|
ParamData = <
|
|
item
|
|
DataType = ftAutoInc
|
|
Name = 'ID'
|
|
ParamType = ptUnknown
|
|
end>
|
|
object qreFilmsID: TIntegerField
|
|
FieldName = 'ID'
|
|
end
|
|
object qreFilmsCAPTION: TStringField
|
|
DisplayWidth = 16
|
|
FieldName = 'CAPTION'
|
|
Size = 50
|
|
end
|
|
object qreFilmsYEAR: TIntegerField
|
|
FieldName = 'YEAR'
|
|
end
|
|
object qreFilmsTAGLINE: TStringField
|
|
DisplayWidth = 24
|
|
FieldName = 'TAGLINE'
|
|
Size = 250
|
|
end
|
|
object qreFilmsPLOTOUTLINE: TStringField
|
|
DisplayWidth = 16
|
|
FieldName = 'PLOTOUTLINE'
|
|
Size = 200
|
|
end
|
|
object qreFilmsRUNTIME: TIntegerField
|
|
DisplayWidth = 11
|
|
FieldName = 'RUNTIME'
|
|
end
|
|
object qreFilmsCOLOR: TStringField
|
|
DisplayWidth = 6
|
|
FieldName = 'COLOR'
|
|
Size = 50
|
|
end
|
|
object qreFilmsPHOTO: TBlobField
|
|
DisplayWidth = 8
|
|
FieldName = 'PHOTO'
|
|
BlobType = ftParadoxOle
|
|
Size = 10
|
|
end
|
|
object qreFilmsICON: TBlobField
|
|
DisplayWidth = 16
|
|
FieldName = 'ICON'
|
|
BlobType = ftParadoxOle
|
|
Size = 10
|
|
end
|
|
object qreFilmsWEBSITE: TStringField
|
|
DisplayWidth = 16
|
|
FieldName = 'WEBSITE'
|
|
Size = 50
|
|
end
|
|
end
|
|
object dsFilms: TDataSource
|
|
DataSet = qreFilms
|
|
Left = 32
|
|
Top = 112
|
|
end
|
|
object tblFilms: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'FILMS.DB'
|
|
Left = 32
|
|
Top = 160
|
|
object tblFilmsID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblFilmsCAPTION: TStringField
|
|
DisplayWidth = 100
|
|
FieldName = 'CAPTION'
|
|
Size = 50
|
|
end
|
|
object tblFilmsYEAR: TIntegerField
|
|
DisplayWidth = 60
|
|
FieldName = 'YEAR'
|
|
end
|
|
object tblFilmsTAGLINE: TStringField
|
|
DisplayWidth = 150
|
|
FieldName = 'TAGLINE'
|
|
Size = 250
|
|
end
|
|
object tblFilmsPLOTOUTLINE: TStringField
|
|
DisplayWidth = 100
|
|
FieldName = 'PLOTOUTLINE'
|
|
Size = 200
|
|
end
|
|
object tblFilmsRUNTIME: TIntegerField
|
|
DisplayWidth = 65
|
|
FieldName = 'RUNTIME'
|
|
end
|
|
object tblFilmsCOLOR: TStringField
|
|
DisplayWidth = 45
|
|
FieldName = 'COLOR'
|
|
Size = 50
|
|
end
|
|
object tblFilmsPHOTO: TBlobField
|
|
DisplayWidth = 50
|
|
FieldName = 'PHOTO'
|
|
BlobType = ftBlob
|
|
Size = 10
|
|
end
|
|
object tblFilmsICON: TBlobField
|
|
DisplayWidth = 100
|
|
FieldName = 'ICON'
|
|
BlobType = ftBlob
|
|
Size = 10
|
|
end
|
|
object tblFilmsWEBSITE: TStringField
|
|
DisplayWidth = 100
|
|
FieldName = 'WEBSITE'
|
|
Size = 50
|
|
end
|
|
end
|
|
object tblFilmsGenres: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'FILMSGENRES.DB'
|
|
Left = 32
|
|
Top = 208
|
|
object tblFilmsGenresID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblFilmsGenresFILMID: TIntegerField
|
|
FieldName = 'FILMID'
|
|
end
|
|
object tblFilmsGenresGENREID: TIntegerField
|
|
FieldName = 'GENREID'
|
|
end
|
|
end
|
|
object StyleRepository: TcxStyleRepository
|
|
Left = 104
|
|
Top = 16
|
|
object cxStyle1: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle2: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 16247513
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle3: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 16247513
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle4: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 16247513
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle5: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 14811135
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle6: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 14811135
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clNavy
|
|
end
|
|
object cxStyle7: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 14872561
|
|
end
|
|
object cxStyle8: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle9: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clWhite
|
|
end
|
|
object cxStyle10: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle11: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle12: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle13: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = 14811135
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clNavy
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
TextColor = clNavy
|
|
end
|
|
object cxStyle14: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 12937777
|
|
TextColor = clWhite
|
|
end
|
|
object GridTableViewStyleSheetDevExpress: TcxGridTableViewStyleSheet
|
|
Caption = 'DevExpress'
|
|
Styles.Background = cxStyle1
|
|
Styles.Content = cxStyle2
|
|
Styles.ContentEven = cxStyle3
|
|
Styles.ContentOdd = cxStyle4
|
|
Styles.Inactive = cxStyle10
|
|
Styles.IncSearch = cxStyle11
|
|
Styles.Selection = cxStyle14
|
|
Styles.FilterBox = cxStyle5
|
|
Styles.Footer = cxStyle6
|
|
Styles.Group = cxStyle7
|
|
Styles.GroupByBox = cxStyle8
|
|
Styles.Header = cxStyle9
|
|
Styles.Indicator = cxStyle12
|
|
Styles.Preview = cxStyle13
|
|
end
|
|
end
|
|
object Database: TDatabase
|
|
Connected = True
|
|
DatabaseName = 'DemosDB'
|
|
DriverName = 'STANDARD'
|
|
LoginPrompt = False
|
|
Params.Strings = (
|
|
'PATH=..\..\Data'
|
|
'DEFAULT DRIVER=PARADOX'
|
|
'ENABLE BCD=FALSE')
|
|
SessionName = 'Default'
|
|
TransIsolation = tiDirtyRead
|
|
Left = 32
|
|
Top = 16
|
|
end
|
|
object UpdateSQL: TUpdateSQL
|
|
ModifySQL.Strings = (
|
|
'update FILMS'
|
|
'set'
|
|
' CAPTION = :CAPTION,'
|
|
' FILMS."YEAR" = :YEAR,'
|
|
' TAGLINE = :TAGLINE,'
|
|
' PLOTOUTLINE = :PLOTOUTLINE,'
|
|
' RUNTIME = :RUNTIME,'
|
|
' COLOR = :COLOR,'
|
|
' PHOTO = :PHOTO,'
|
|
' ICON = :ICON,'
|
|
' WEBSITE = :WEBSITE'
|
|
'where'
|
|
' ID = :OLD_ID')
|
|
InsertSQL.Strings = (
|
|
'insert into FILMS'
|
|
' (CAPTION, FILMS."YEAR", TAGLINE, PLOTOUTLINE, RUNTIME, COLOR, '
|
|
'PHOTO, ICON, WEBSITE)'
|
|
'values'
|
|
|
|
' (:CAPTION, :YEAR, :TAGLINE, :PLOTOUTLINE, :RUNTIME, :COLOR, :P' +
|
|
'HOTO, '
|
|
':ICON, '
|
|
' :WEBSITE)')
|
|
DeleteSQL.Strings = (
|
|
'delete from FILMS'
|
|
'where'
|
|
' ID = :OLD_ID')
|
|
Left = 104
|
|
Top = 160
|
|
end
|
|
object qreMaxFilmsID: TQuery
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
SQL.Strings = (
|
|
'select MAX(ID) from FILMS')
|
|
Left = 32
|
|
Top = 256
|
|
object qreMaxFilmsIDMAXOFID: TIntegerField
|
|
FieldName = 'MAX OF ID'
|
|
Origin = 'DEMOSDB."FILMS.DB".ID'
|
|
end
|
|
end
|
|
end
|