david
611202c34c
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@24 05c56307-c608-d34a-929d-697000501d7a
791 lines
22 KiB
Plaintext
791 lines
22 KiB
Plaintext
object DragDropDemoMainDM: TDragDropDemoMainDM
|
|
OldCreateOrder = False
|
|
Left = 193
|
|
Top = 123
|
|
Height = 530
|
|
Width = 674
|
|
object dsFilms: TDataSource
|
|
DataSet = qryFilms
|
|
Left = 80
|
|
Top = 96
|
|
end
|
|
object dsFilmsPersons: TDataSource
|
|
DataSet = qryFilmsPersons
|
|
Left = 168
|
|
Top = 96
|
|
end
|
|
object dsPersonsLine: TDataSource
|
|
DataSet = tblPersonsLine
|
|
Left = 408
|
|
Top = 312
|
|
end
|
|
object dsFilmsCompanies: TDataSource
|
|
DataSet = qryFilmsCompanies
|
|
Left = 256
|
|
Top = 96
|
|
end
|
|
object dsFilmsScreens: TDataSource
|
|
DataSet = tblFilmsScreens
|
|
Left = 338
|
|
Top = 314
|
|
end
|
|
object cxStyleRepository: TcxStyleRepository
|
|
Left = 16
|
|
Top = 104
|
|
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 cxStyle15: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle16: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle17: 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 cxStyle18: 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 cxStyle19: 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 cxStyle20: 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 cxStyle21: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 14811135
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle22: 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 cxStyle23: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 14872561
|
|
end
|
|
object cxStyle24: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle25: 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 cxStyle26: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle27: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle28: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle29: 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 cxStyle30: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 12937777
|
|
TextColor = clWhite
|
|
end
|
|
object cxStyle31: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle32: 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 cxStyle33: 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 cxStyle34: 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 cxStyle35: 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 cxStyle36: 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 cxStyle37: TcxStyle
|
|
AssignedValues = [svColor]
|
|
Color = 15451300
|
|
end
|
|
object cxStyle38: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 4707838
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle39: TcxStyle
|
|
AssignedValues = [svColor, svTextColor]
|
|
Color = 16749885
|
|
TextColor = clWhite
|
|
end
|
|
object cxStyle40: 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.FilterBox = cxStyle5
|
|
Styles.Inactive = cxStyle10
|
|
Styles.IncSearch = cxStyle11
|
|
Styles.Selection = cxStyle14
|
|
Styles.Footer = cxStyle6
|
|
Styles.Group = cxStyle7
|
|
Styles.GroupByBox = cxStyle8
|
|
Styles.Header = cxStyle9
|
|
Styles.Indicator = cxStyle12
|
|
Styles.Preview = cxStyle13
|
|
BuiltIn = True
|
|
end
|
|
object GridBandedTableViewStyleSheetDevExpress: TcxGridBandedTableViewStyleSheet
|
|
Caption = 'DevExpress'
|
|
Styles.Background = cxStyle15
|
|
Styles.Content = cxStyle18
|
|
Styles.ContentEven = cxStyle19
|
|
Styles.ContentOdd = cxStyle20
|
|
Styles.FilterBox = cxStyle21
|
|
Styles.Inactive = cxStyle26
|
|
Styles.IncSearch = cxStyle27
|
|
Styles.Selection = cxStyle30
|
|
Styles.Footer = cxStyle22
|
|
Styles.Group = cxStyle23
|
|
Styles.GroupByBox = cxStyle24
|
|
Styles.Header = cxStyle25
|
|
Styles.Indicator = cxStyle28
|
|
Styles.Preview = cxStyle29
|
|
Styles.BandBackground = cxStyle16
|
|
Styles.BandHeader = cxStyle17
|
|
BuiltIn = True
|
|
end
|
|
object GridCardViewStyleSheetDevExpress: TcxGridCardViewStyleSheet
|
|
Caption = 'DevExpress'
|
|
Styles.Background = cxStyle31
|
|
Styles.Content = cxStyle34
|
|
Styles.ContentEven = cxStyle35
|
|
Styles.ContentOdd = cxStyle36
|
|
Styles.Inactive = cxStyle37
|
|
Styles.IncSearch = cxStyle38
|
|
Styles.Selection = cxStyle40
|
|
Styles.CaptionRow = cxStyle32
|
|
Styles.CardBorder = cxStyle33
|
|
Styles.RowCaption = cxStyle39
|
|
BuiltIn = True
|
|
end
|
|
end
|
|
object dsCountries: TDataSource
|
|
DataSet = tlbCountries
|
|
Left = 472
|
|
Top = 312
|
|
end
|
|
object dsCompaniesType: TDataSource
|
|
DataSet = tblCompaniesType
|
|
Left = 248
|
|
Top = 312
|
|
end
|
|
object qryFilms: TQuery
|
|
Active = True
|
|
CachedUpdates = True
|
|
BeforeDelete = qryFilmsBeforeDelete
|
|
DatabaseName = 'DemosDB'
|
|
SQL.Strings = (
|
|
'SELECT '
|
|
|
|
' FilmsGenres.ID as PRIMED, FilmsGenres.FILMID, FilmsGenres.GENR' +
|
|
'EID, Films.*'
|
|
'FROM FilmsGenres'
|
|
'LEFT JOIN '
|
|
' FILMS ON '
|
|
' FilmsGenres.FILMID = Films.ID'
|
|
'WHERE'
|
|
' FilmsGenres.GenreID = :Param'
|
|
'ORDER BY '
|
|
' FilmsGenres.ID')
|
|
UpdateObject = usqFilms
|
|
Left = 80
|
|
Top = 56
|
|
ParamData = <
|
|
item
|
|
DataType = ftInteger
|
|
Name = 'Param'
|
|
ParamType = ptUnknown
|
|
end>
|
|
object qryFilmsPRIMED: TIntegerField
|
|
FieldName = 'PRIMED'
|
|
Origin = 'DEMOSDB."FILMS.DB".ID'
|
|
end
|
|
object qryFilmsFILMID: TIntegerField
|
|
FieldName = 'FILMID'
|
|
Origin = 'DEMOSDB."FILMS.DB".CAPTION'
|
|
end
|
|
object qryFilmsGENREID: TIntegerField
|
|
FieldName = 'GENREID'
|
|
Origin = 'DEMOSDB."FILMS.DB".ID'
|
|
end
|
|
object qryFilmsID: TIntegerField
|
|
FieldName = 'ID'
|
|
Origin = 'DEMOSDB."FILMS.DB".YEAR'
|
|
end
|
|
object qryFilmsCAPTION: TStringField
|
|
FieldName = 'CAPTION'
|
|
Origin = 'DEMOSDB."FILMS.DB".TAGLINE'
|
|
Size = 50
|
|
end
|
|
object qryFilmsYEAR: TIntegerField
|
|
FieldName = 'YEAR'
|
|
Origin = 'DEMOSDB."FILMS.DB".PLOTOUTLINE'
|
|
end
|
|
object qryFilmsTAGLINE: TStringField
|
|
FieldName = 'TAGLINE'
|
|
Origin = 'DEMOSDB."FILMS.DB".RUNTIME'
|
|
Size = 250
|
|
end
|
|
object qryFilmsPLOTOUTLINE: TStringField
|
|
FieldName = 'PLOTOUTLINE'
|
|
Origin = 'DEMOSDB."FILMS.DB".COLOR'
|
|
Size = 200
|
|
end
|
|
object qryFilmsRUNTIME: TIntegerField
|
|
FieldName = 'RUNTIME'
|
|
Origin = 'DEMOSDB."FILMS.DB".PHOTO'
|
|
end
|
|
object qryFilmsCOLOR: TStringField
|
|
FieldName = 'COLOR'
|
|
Origin = 'DEMOSDB."FILMS.DB".ICON'
|
|
Size = 50
|
|
end
|
|
object qryFilmsPHOTO: TBlobField
|
|
FieldName = 'PHOTO'
|
|
Origin = 'DEMOSDB."FILMS.DB".WEBSITE'
|
|
BlobType = ftParadoxOle
|
|
Size = 10
|
|
end
|
|
object qryFilmsICON: TBlobField
|
|
FieldName = 'ICON'
|
|
Origin = 'DEMOSDB."FILMSGENRES.DB".ID'
|
|
BlobType = ftParadoxOle
|
|
Size = 10
|
|
end
|
|
object qryFilmsWEBSITE: TStringField
|
|
FieldName = 'WEBSITE'
|
|
Origin = 'DEMOSDB."FILMSGENRES.DB".FILMID'
|
|
Size = 50
|
|
end
|
|
end
|
|
object tblGenres: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'GENRES.DB'
|
|
Left = 480
|
|
Top = 160
|
|
object tblGenresID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblGenresNAME: TStringField
|
|
FieldName = 'NAME'
|
|
Size = 50
|
|
end
|
|
end
|
|
object Database: TDatabase
|
|
Connected = True
|
|
DatabaseName = 'DemosDB'
|
|
DriverName = 'STANDARD'
|
|
Params.Strings = (
|
|
'PATH=..\..\Data'
|
|
'DEFAULT DRIVER=PARADOX'
|
|
'ENABLE BCD=FALSE')
|
|
SessionName = 'Default'
|
|
Left = 16
|
|
Top = 16
|
|
end
|
|
object qryFilmsCompanies: TQuery
|
|
Active = True
|
|
CachedUpdates = True
|
|
BeforeDelete = qryFilmsCompaniesBeforeDelete
|
|
DatabaseName = 'DemosDB'
|
|
SQL.Strings = (
|
|
'SELECT '
|
|
' FilmsCompaniesStaff.ID, '
|
|
' FilmsCompaniesStaff.FilmID, '
|
|
' FilmsCompaniesStaff.CompanyID,'
|
|
' Companies.CompanyName'
|
|
'FROM '
|
|
' FilmsCompaniesStaff'
|
|
'LEFT JOIN '
|
|
' Companies on Companies.ID = FilmsCompaniesStaff.CompanyID'
|
|
'ORDER BY '
|
|
' FilmsCompaniesStaff.FilmID')
|
|
UpdateObject = usqFilmsCompanies
|
|
Left = 256
|
|
Top = 56
|
|
object qryFilmsCompaniesID: TIntegerField
|
|
FieldName = 'ID'
|
|
Origin = 'DEMOSDB."FilmsCompaniesStaff.DB".ID'
|
|
end
|
|
object qryFilmsCompaniesFilmID: TIntegerField
|
|
FieldName = 'FilmID'
|
|
Origin = 'DEMOSDB."FilmsCompaniesStaff.DB".FILMID'
|
|
end
|
|
object qryFilmsCompaniesCompanyID: TIntegerField
|
|
FieldName = 'CompanyID'
|
|
Origin = 'DEMOSDB."FilmsCompaniesStaff.DB".COMPANYID'
|
|
end
|
|
object qryFilmsCompaniesCompanyName: TStringField
|
|
FieldName = 'CompanyName'
|
|
Origin = 'DEMOSDB."COMPANIES.DB".COMPANYNAME'
|
|
Size = 50
|
|
end
|
|
end
|
|
object tblCompaniesType: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'COMPANIESTYPE.DB'
|
|
Left = 248
|
|
Top = 272
|
|
end
|
|
object qryFilmsPersons: TQuery
|
|
Active = True
|
|
CachedUpdates = True
|
|
AfterPost = qryFilmsPersonsAfterPost
|
|
BeforeDelete = qryFilmsPersonsBeforeDelete
|
|
OnCalcFields = qryFilmsPersonsCalcFields
|
|
DatabaseName = 'DemosDB'
|
|
SQL.Strings = (
|
|
'SELECT '
|
|
|
|
' FilmsPersonsStaff.ID, FilmsPersonsStaff.FilmID, FilmsPersonsSt' +
|
|
'aff.PersonLineID,'
|
|
|
|
' Persons.ID as PersonID, Persons.BIOGRAPHY, Persons.BIRTHCOUNTR' +
|
|
'Y, '
|
|
' Persons.BIRTHNAME, Persons.DATEOFBIRTH, Persons.FIRSTNAME, '
|
|
|
|
' Persons.LOCATIONOFBIRTH, Persons.NICKNAME, Persons.SECONDNAME,' +
|
|
' '
|
|
' Persons.HOMEPAGE, Persons.Gender'
|
|
'FROM '
|
|
' FilmsPersonsStaff'
|
|
'LEFT JOIN '
|
|
' Persons on FilmsPersonsStaff.PersonID = Persons.ID'
|
|
'ORDER BY '
|
|
' FilmsPersonsStaff.FilmID')
|
|
UpdateObject = usqFilmsPersons
|
|
Left = 168
|
|
Top = 56
|
|
object qryFilmsPersonsName: TStringField
|
|
FieldKind = fkCalculated
|
|
FieldName = 'Name'
|
|
Calculated = True
|
|
end
|
|
object qryFilmsPersonsID: TIntegerField
|
|
FieldName = 'ID'
|
|
Origin = 'DEMOSDB."FILMSPERSONSSTAFF.DB".ID'
|
|
end
|
|
object qryFilmsPersonsFilmID: TIntegerField
|
|
FieldName = 'FilmID'
|
|
Origin = 'DEMOSDB."FILMSPERSONSSTAFF.DB".FILMID'
|
|
end
|
|
object qryFilmsPersonsPersonID: TIntegerField
|
|
FieldName = 'PersonID'
|
|
Origin = 'DEMOSDB."PERSONS.DB".ID'
|
|
end
|
|
object qryFilmsPersonsPersonLineID: TIntegerField
|
|
FieldName = 'PersonLineID'
|
|
Origin = 'DEMOSDB."FILMSPERSONSSTAFF.DB".PERSONLINEID'
|
|
end
|
|
object qryFilmsPersonsBIOGRAPHY: TMemoField
|
|
FieldName = 'BIOGRAPHY'
|
|
Origin = 'DEMOSDB."PERSONS.DB".BIOGRAPHY'
|
|
BlobType = ftMemo
|
|
Size = 10
|
|
end
|
|
object qryFilmsPersonsBIRTHCOUNTRY: TIntegerField
|
|
FieldName = 'BIRTHCOUNTRY'
|
|
Origin = 'DEMOSDB."PERSONS.DB".BIRTHCOUNTRY'
|
|
end
|
|
object qryFilmsPersonsBIRTHNAME: TStringField
|
|
FieldName = 'BIRTHNAME'
|
|
Origin = 'DEMOSDB."PERSONS.DB".BIRTHNAME'
|
|
Size = 50
|
|
end
|
|
object qryFilmsPersonsDATEOFBIRTH: TDateTimeField
|
|
FieldName = 'DATEOFBIRTH'
|
|
Origin = 'DEMOSDB."PERSONS.DB".DATEOFBIRTH'
|
|
end
|
|
object qryFilmsPersonsFIRSTNAME: TStringField
|
|
FieldName = 'FIRSTNAME'
|
|
Origin = 'DEMOSDB."PERSONS.DB".FIRSTNAME'
|
|
Size = 50
|
|
end
|
|
object qryFilmsPersonsLOCATIONOFBIRTH: TStringField
|
|
FieldName = 'LOCATIONOFBIRTH'
|
|
Origin = 'DEMOSDB."PERSONS.DB".LOCATIONOFBIRTH'
|
|
Size = 50
|
|
end
|
|
object qryFilmsPersonsNICKNAME: TStringField
|
|
FieldName = 'NICKNAME'
|
|
Origin = 'DEMOSDB."PERSONS.DB".NICKNAME'
|
|
Size = 50
|
|
end
|
|
object qryFilmsPersonsSECONDNAME: TStringField
|
|
FieldName = 'SECONDNAME'
|
|
Origin = 'DEMOSDB."PERSONS.DB".SECONDNAME'
|
|
Size = 50
|
|
end
|
|
object qryFilmsPersonsHOMEPAGE: TStringField
|
|
FieldName = 'HOMEPAGE'
|
|
Origin = 'DEMOSDB."PERSONS.DB".HOMEPAGE'
|
|
Size = 100
|
|
end
|
|
object qryFilmsPersonsGender: TBooleanField
|
|
FieldName = 'Gender'
|
|
Origin = 'DEMOSDB."PERSONS.DB".GENDER'
|
|
end
|
|
end
|
|
object tblPersonsLine: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'PERSONSLINE.DB'
|
|
Left = 408
|
|
Top = 272
|
|
object tblPersonsLineID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblPersonsLineNAME: TStringField
|
|
FieldName = 'NAME'
|
|
Size = 50
|
|
end
|
|
end
|
|
object tblFilmsCompaniesStaff: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'FILMSCOMPANIESSTAFF.DB'
|
|
Left = 480
|
|
Top = 16
|
|
object tblFilmsCompaniesStaffID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblFilmsCompaniesStaffFILMID: TIntegerField
|
|
FieldName = 'FILMID'
|
|
end
|
|
object tblFilmsCompaniesStaffCOMPANYID: TIntegerField
|
|
FieldName = 'COMPANYID'
|
|
end
|
|
object tblFilmsCompaniesStaffDESCRIPTION: TStringField
|
|
FieldName = 'DESCRIPTION'
|
|
Size = 100
|
|
end
|
|
end
|
|
object tblFilmsGenres: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'FILMSGENRES.DB'
|
|
Left = 480
|
|
Top = 64
|
|
object tblFilmsGenresID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblFilmsGenresFILMID: TIntegerField
|
|
FieldName = 'FILMID'
|
|
end
|
|
object tblFilmsGenresGENREID: TIntegerField
|
|
FieldName = 'GENREID'
|
|
end
|
|
end
|
|
object tblFilmsPersonsStaff: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'FILMSPERSONSSTAFF.DB'
|
|
Left = 480
|
|
Top = 112
|
|
object tblFilmsPersonsStaffID: TAutoIncField
|
|
FieldName = 'ID'
|
|
ReadOnly = True
|
|
end
|
|
object tblFilmsPersonsStaffFILMID: TIntegerField
|
|
FieldName = 'FILMID'
|
|
end
|
|
object tblFilmsPersonsStaffPERSONLINEID: TIntegerField
|
|
FieldName = 'PERSONLINEID'
|
|
end
|
|
object tblFilmsPersonsStaffPERSONID: TIntegerField
|
|
FieldName = 'PERSONID'
|
|
end
|
|
object tblFilmsPersonsStaffDESCRIPTION: TStringField
|
|
FieldName = 'DESCRIPTION'
|
|
Size = 150
|
|
end
|
|
end
|
|
object tlbCountries: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'COUNTRIES'
|
|
Left = 472
|
|
Top = 272
|
|
end
|
|
object usqFilmsCompanies: TUpdateSQL
|
|
ModifySQL.Strings = (
|
|
'')
|
|
Left = 256
|
|
Top = 16
|
|
end
|
|
object usqFilmsPersons: TUpdateSQL
|
|
Left = 168
|
|
Top = 16
|
|
end
|
|
object usqFilms: TUpdateSQL
|
|
Left = 80
|
|
Top = 16
|
|
end
|
|
object tblFilmsScreens: TTable
|
|
Active = True
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'FILMSSCREENS.DB'
|
|
Left = 336
|
|
Top = 272
|
|
end
|
|
object dsPersons: TDataSource
|
|
DataSet = tblPersons
|
|
Left = 24
|
|
Top = 312
|
|
end
|
|
object dsCompanies: TDataSource
|
|
DataSet = tblCompanies
|
|
Left = 96
|
|
Top = 312
|
|
end
|
|
object tblPersons: TTable
|
|
Active = True
|
|
BeforePost = tblPersonsBeforeUpdate
|
|
AfterPost = tblPersonsAfterUpdate
|
|
BeforeDelete = tblPersonsBeforeUpdate
|
|
AfterDelete = tblPersonsAfterUpdate
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'PERSONS.DB'
|
|
Left = 24
|
|
Top = 272
|
|
end
|
|
object tblCompanies: TTable
|
|
Active = True
|
|
BeforePost = tblCompaniesBeforeUpdate
|
|
AfterPost = tblCompaniesAfterUpdate
|
|
BeforeDelete = tblCompaniesBeforeUpdate
|
|
AfterDelete = tblCompaniesAfterUpdate
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'COMPANIES.DB'
|
|
Left = 96
|
|
Top = 272
|
|
end
|
|
object dsFilmsDict: TDataSource
|
|
DataSet = tblFilmsDict
|
|
Left = 168
|
|
Top = 312
|
|
end
|
|
object tblFilmsDict: TTable
|
|
Active = True
|
|
BeforePost = tblFilmsDictBeforeUpdate
|
|
AfterPost = tblFilmsDictAfterUpdate
|
|
BeforeDelete = tblFilmsDictBeforeUpdate
|
|
AfterDelete = tblFilmsDictAfterUpdate
|
|
DatabaseName = 'DemosDB'
|
|
TableName = 'FILMS.DB'
|
|
Left = 168
|
|
Top = 272
|
|
end
|
|
end
|