home *** CD-ROM | disk | FTP | other *** search
- object DataModule1: TDataModule1
- OldCreateOrder = False
- OnCreate = DataModule1Create
- Left = 192
- Top = 107
- Height = 150
- Width = 452
- object Table1: TTable
- Left = 32
- Top = 16
- object Table1DRUH: TStringField
- FieldName = 'DRUH'
- Size = 50
- end
- object Table1NAZEV: TStringField
- FieldName = 'NAZEV'
- Size = 100
- end
- object Table1JMENO: TStringField
- FieldName = 'JMENO'
- Size = 50
- end
- object Table1ADRESA: TStringField
- FieldName = 'ADRESA'
- Size = 100
- end
- object Table1EMAIL: TStringField
- FieldName = 'EMAIL'
- Size = 50
- end
- object Table1HTTP: TStringField
- FieldName = 'HTTP'
- Size = 50
- end
- object Table1HESLO: TStringField
- FieldName = 'HESLO'
- Size = 100
- end
- object Table1OTAZKA: TStringField
- FieldName = 'OTAZKA'
- Size = 254
- end
- object Table1ODPOVEDA: TStringField
- FieldName = 'ODPOVEDA'
- Size = 254
- end
- object Table1ODPOVEDB: TStringField
- FieldName = 'ODPOVEDB'
- Size = 254
- end
- object Table1ODPOVEDC: TStringField
- FieldName = 'ODPOVEDC'
- Size = 254
- end
- object Table1ODPOVEDD: TStringField
- FieldName = 'ODPOVEDD'
- Size = 254
- end
- object Table1SPRAVNE: TStringField
- FieldName = 'SPRAVNE'
- Size = 1
- end
- object Table1TEST: TStringField
- FieldName = 'TEST'
- Size = 1
- end
- object Table1ODPOVED: TStringField
- FieldName = 'ODPOVED'
- Size = 254
- end
- object Table1CAS1: TSmallintField
- FieldName = 'CAS1'
- end
- object Table1CAS2: TSmallintField
- FieldName = 'CAS2'
- end
- object Table1CAS3: TSmallintField
- FieldName = 'CAS3'
- end
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 32
- Top = 64
- end
- object Table2: TTable
- Left = 104
- Top = 16
- object Table2DRUH: TStringField
- FieldName = 'DRUH'
- Size = 50
- end
- object Table2NAZEV: TStringField
- FieldName = 'NAZEV'
- Size = 100
- end
- object Table2JMENO: TStringField
- FieldName = 'JMENO'
- Size = 50
- end
- object Table2ADRESA: TStringField
- FieldName = 'ADRESA'
- Size = 100
- end
- object Table2EMAIL: TStringField
- FieldName = 'EMAIL'
- Size = 50
- end
- object Table2HTTP: TStringField
- FieldName = 'HTTP'
- Size = 50
- end
- object Table2HESLO: TStringField
- FieldName = 'HESLO'
- Size = 100
- end
- object Table2OTAZKA: TStringField
- FieldName = 'OTAZKA'
- Size = 254
- end
- object Table2ODPOVEDANO: TStringField
- FieldName = 'ODPOVEDANO'
- Size = 254
- end
- object Table2ODPOVEDNE: TStringField
- FieldName = 'ODPOVEDNE'
- Size = 254
- end
- object Table2SPRAVNE: TStringField
- FieldName = 'SPRAVNE'
- Size = 3
- end
- object Table2TEST: TStringField
- FieldName = 'TEST'
- Size = 1
- end
- object Table2ODPOVED: TStringField
- FieldName = 'ODPOVED'
- Size = 254
- end
- object Table2CAS1: TSmallintField
- FieldName = 'CAS1'
- end
- object Table2CAS2: TSmallintField
- FieldName = 'CAS2'
- end
- object Table2CAS3: TSmallintField
- FieldName = 'CAS3'
- end
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 104
- Top = 64
- end
- object Table3: TTable
- Left = 176
- Top = 16
- object Table3DRUH: TStringField
- FieldName = 'DRUH'
- Size = 50
- end
- object Table3NAZEV: TStringField
- FieldName = 'NAZEV'
- Size = 100
- end
- object Table3JMENO: TStringField
- FieldName = 'JMENO'
- Size = 50
- end
- object Table3ADRESA: TStringField
- FieldName = 'ADRESA'
- Size = 100
- end
- object Table3EMAIL: TStringField
- FieldName = 'EMAIL'
- Size = 50
- end
- object Table3HTTP: TStringField
- FieldName = 'HTTP'
- Size = 50
- end
- object Table3HESLO: TStringField
- FieldName = 'HESLO'
- Size = 100
- end
- object Table3OTAZKA: TStringField
- FieldName = 'OTAZKA'
- Size = 254
- end
- object Table3ODPOVEDANO: TStringField
- FieldName = 'ODPOVEDANO'
- Size = 254
- end
- object Table3ODPOVEDNE: TStringField
- FieldName = 'ODPOVEDNE'
- Size = 254
- end
- object Table3SPRAVNE: TStringField
- FieldName = 'SPRAVNE'
- Size = 254
- end
- object Table3TEST: TStringField
- FieldName = 'TEST'
- Size = 1
- end
- object Table3ODPOVED: TStringField
- FieldName = 'ODPOVED'
- Size = 254
- end
- object Table3CAS1: TSmallintField
- FieldName = 'CAS1'
- end
- object Table3CAS2: TSmallintField
- FieldName = 'CAS2'
- end
- object Table3CAS3: TSmallintField
- FieldName = 'CAS3'
- end
- end
- object DataSource3: TDataSource
- DataSet = Table3
- Left = 176
- Top = 64
- end
- object Table4: TTable
- IndexFiles.Strings = (
- 'Testy.MDX')
- IndexName = 'DRUHJMENO'
- TableName = 'Testy.DBF'
- Left = 248
- Top = 16
- object Table4NAZEV: TStringField
- FieldName = 'NAZEV'
- Size = 50
- end
- object Table4DRUH: TStringField
- FieldName = 'DRUH'
- Size = 50
- end
- object Table4JMENO: TStringField
- FieldName = 'JMENO'
- Size = 50
- end
- object Table4TEST: TStringField
- FieldName = 'TEST'
- Size = 1
- end
- object Table4HESLO: TStringField
- FieldName = 'HESLO'
- Size = 254
- end
- object Table4OTEVRENO: TStringField
- FieldName = 'OTEVRENO'
- Size = 1
- end
- object Table4AUTOR: TStringField
- FieldName = 'AUTOR'
- Size = 50
- end
- end
- object DataSource4: TDataSource
- DataSet = Table4
- Left = 248
- Top = 64
- end
- object AppPath1: TAppPath
- Left = 16
- Top = 16
- end
- object Table5: TTable
- AutoCalcFields = False
- FieldDefs = <
- item
- Name = 'DRUH'
- DataType = ftString
- Size = 100
- end>
- IndexDefs = <
- item
- Name = 'DRUH'
- Fields = 'DRUH'
- Source = 'TESTD.MDX'
- end>
- IndexFieldNames = 'DRUH'
- IndexFiles.Strings = (
- 'TestD.MDX')
- StoreDefs = True
- TableName = 'TestD.DBF'
- UpdateMode = upWhereChanged
- Left = 312
- Top = 16
- object Table5DRUH: TStringField
- FieldName = 'DRUH'
- Size = 100
- end
- end
- object DataSource5: TDataSource
- DataSet = Table5
- Left = 312
- Top = 64
- end
- end
-