home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / Diadema / Demo / setup.exe / pantheon.exe / 0 / RCDATA / TZAJEMCIQREPORT / TZAJEMCIQREPORT.txt
Encoding:
Text File  |  1999-04-22  |  17.8 KB  |  733 lines
  1. object ZajemciQReport: TZajemciQReport
  2.   Left = 0
  3.   Top = 0
  4.   Width = 794
  5.   Height = 1123
  6.   Frame.Color = clBlack
  7.   Frame.DrawTop = False
  8.   Frame.DrawBottom = False
  9.   Frame.DrawLeft = False
  10.   Frame.DrawRight = False
  11.   DataSet = ZakazkyTbl
  12.   Font.Charset = DEFAULT_CHARSET
  13.   Font.Color = clWindowText
  14.   Font.Height = -13
  15.   Font.Name = 'Arial'
  16.   Font.Style = []
  17.   Options = [FirstPageHeader, LastPageFooter]
  18.   Page.Columns = 1
  19.   Page.Orientation = poPortrait
  20.   Page.PaperSize = A4
  21.   Page.Values = (
  22.     100.000000000000000000
  23.     2970.000000000000000000
  24.     100.000000000000000000
  25.     2100.000000000000000000
  26.     100.000000000000000000
  27.     100.000000000000000000
  28.     0.000000000000000000)
  29.   PrintIfEmpty = False
  30.   PrinterSettings.Copies = 1
  31.   PrinterSettings.Duplex = False
  32.   PrinterSettings.FirstPage = 0
  33.   PrinterSettings.LastPage = 0
  34.   PrinterSettings.OutputBin = First
  35.   ReportTitle = 'P∩┐╜ehled z∩┐╜jemc∩┐╜ o zak∩┐╜zky'
  36.   SnapToGrid = True
  37.   Units = MM
  38.   Zoom = 100
  39.   object QRBand1: TQRBand
  40.     Left = 38
  41.     Top = 38
  42.     Width = 718
  43.     Height = 40
  44.     Frame.Color = clBlack
  45.     Frame.DrawTop = False
  46.     Frame.DrawBottom = False
  47.     Frame.DrawLeft = False
  48.     Frame.DrawRight = False
  49.     AlignToBottom = False
  50.     Color = clWhite
  51.     ForceNewColumn = False
  52.     ForceNewPage = False
  53.     Size.Values = (
  54.       105.833333333333300000
  55.       1899.708333333333000000)
  56.     BandType = rbPageHeader
  57.     object QRLabel1: TQRLabel
  58.       Left = 0
  59.       Top = 0
  60.       Width = 717
  61.       Height = 30
  62.       Frame.Color = clBlack
  63.       Frame.DrawTop = False
  64.       Frame.DrawBottom = False
  65.       Frame.DrawLeft = False
  66.       Frame.DrawRight = False
  67.       Size.Values = (
  68.         79.375000000000000000
  69.         0.000000000000000000
  70.         0.000000000000000000
  71.         1897.062500000000000000)
  72.       Alignment = taCenter
  73.       AlignToBand = False
  74.       AutoSize = False
  75.       AutoStretch = False
  76.       Caption = 'P∩┐╜ehled z∩┐╜jemc∩┐╜ o jednotliv∩┐╜ zak∩┐╜zky'
  77.       Color = clWhite
  78.       Font.Charset = EASTEUROPE_CHARSET
  79.       Font.Color = clWindowText
  80.       Font.Height = -24
  81.       Font.Name = 'Arial'
  82.       Font.Style = [fsBold]
  83.       ParentFont = False
  84.       Transparent = False
  85.       WordWrap = True
  86.       FontSize = 18
  87.     end
  88.   end
  89.   object DetailBand: TQRBand
  90.     Left = 38
  91.     Top = 78
  92.     Width = 718
  93.     Height = 43
  94.     Frame.Color = clBlack
  95.     Frame.DrawTop = True
  96.     Frame.DrawBottom = False
  97.     Frame.DrawLeft = False
  98.     Frame.DrawRight = False
  99.     AlignToBottom = False
  100.     BeforePrint = DetailBandBeforePrint
  101.     Color = clWhite
  102.     ForceNewColumn = False
  103.     ForceNewPage = False
  104.     Size.Values = (
  105.       113.770833333333300000
  106.       1899.708333333333000000)
  107.     BandType = rbDetail
  108.     object QRDBText1: TQRDBText
  109.       Left = 16
  110.       Top = 20
  111.       Width = 83
  112.       Height = 17
  113.       Frame.Color = clBlack
  114.       Frame.DrawTop = False
  115.       Frame.DrawBottom = False
  116.       Frame.DrawLeft = False
  117.       Frame.DrawRight = False
  118.       Size.Values = (
  119.         44.979166666666650000
  120.         42.333333333333340000
  121.         52.916666666666660000
  122.         219.604166666666700000)
  123.       Alignment = taLeftJustify
  124.       AlignToBand = False
  125.       AutoSize = True
  126.       AutoStretch = False
  127.       Color = clWhite
  128.       DataSet = ZakazkyTbl
  129.       DataField = 'CisloZakazky'
  130.       Font.Charset = DEFAULT_CHARSET
  131.       Font.Color = clWindowText
  132.       Font.Height = -13
  133.       Font.Name = 'Arial'
  134.       Font.Style = [fsBold]
  135.       ParentFont = False
  136.       Transparent = False
  137.       WordWrap = True
  138.       FontSize = 10
  139.     end
  140.   end
  141.   object QRBand2: TQRBand
  142.     Left = 38
  143.     Top = 276
  144.     Width = 718
  145.     Height = 40
  146.     Frame.Color = clBlack
  147.     Frame.DrawTop = False
  148.     Frame.DrawBottom = False
  149.     Frame.DrawLeft = False
  150.     Frame.DrawRight = False
  151.     AlignToBottom = False
  152.     Color = clWhite
  153.     ForceNewColumn = False
  154.     ForceNewPage = False
  155.     Size.Values = (
  156.       105.833333333333300000
  157.       1899.708333333333000000)
  158.     BandType = rbGroupFooter
  159.     object QRSysData1: TQRSysData
  160.       Left = 0
  161.       Top = 16
  162.       Width = 718
  163.       Height = 17
  164.       Frame.Color = clBlack
  165.       Frame.DrawTop = False
  166.       Frame.DrawBottom = False
  167.       Frame.DrawLeft = False
  168.       Frame.DrawRight = False
  169.       Size.Values = (
  170.         44.979166666666650000
  171.         0.000000000000000000
  172.         42.333333333333340000
  173.         1899.708333333332000000)
  174.       Alignment = taCenter
  175.       AlignToBand = False
  176.       AutoSize = False
  177.       Color = clWhite
  178.       Data = qrsPageNumber
  179.       Transparent = False
  180.       FontSize = 10
  181.     end
  182.   end
  183.   object QRSubDetail1: TQRSubDetail
  184.     Left = 38
  185.     Top = 121
  186.     Width = 718
  187.     Height = 155
  188.     Frame.Color = clBlack
  189.     Frame.DrawTop = False
  190.     Frame.DrawBottom = False
  191.     Frame.DrawLeft = False
  192.     Frame.DrawRight = False
  193.     AlignToBottom = False
  194.     Color = clWhite
  195.     ForceNewColumn = False
  196.     ForceNewPage = False
  197.     Size.Values = (
  198.       410.104166666666700000
  199.       1899.708333333333000000)
  200.     Master = Owner
  201.     DataSet = ZajemciTbl
  202.     PrintBefore = False
  203.     PrintIfEmpty = False
  204.     object QRDBRichText1: TQRDBRichText
  205.       Left = 192
  206.       Top = 103
  207.       Width = 489
  208.       Height = 50
  209.       Frame.Color = clBlack
  210.       Frame.DrawTop = False
  211.       Frame.DrawBottom = False
  212.       Frame.DrawLeft = False
  213.       Frame.DrawRight = False
  214.       Size.Values = (
  215.         132.291666666666700000
  216.         508.000000000000000000
  217.         272.520833333333400000
  218.         1293.812500000000000000)
  219.       Alignment = taLeftJustify
  220.       AutoStretch = False
  221.       Color = clWindow
  222.       Font.Charset = DEFAULT_CHARSET
  223.       Font.Color = clWindowText
  224.       Font.Height = -13
  225.       Font.Name = 'Arial'
  226.       Font.Style = []
  227.       DataField = 'Poznamka'
  228.       DataSet = ZajemciTbl
  229.     end
  230.     object QRLabel8: TQRLabel
  231.       Left = 109
  232.       Top = 103
  233.       Width = 67
  234.       Height = 17
  235.       Frame.Color = clBlack
  236.       Frame.DrawTop = False
  237.       Frame.DrawBottom = False
  238.       Frame.DrawLeft = False
  239.       Frame.DrawRight = False
  240.       Size.Values = (
  241.         44.979166666666670000
  242.         288.395833333333400000
  243.         272.520833333333400000
  244.         177.270833333333300000)
  245.       Alignment = taLeftJustify
  246.       AlignToBand = False
  247.       AutoSize = True
  248.       AutoStretch = False
  249.       Caption = 'Pozn∩┐╜mka:'
  250.       Color = clWhite
  251.       Transparent = False
  252.       WordWrap = True
  253.       FontSize = 10
  254.     end
  255.     object QRDBText2: TQRDBText
  256.       Left = 56
  257.       Top = 8
  258.       Width = 273
  259.       Height = 17
  260.       Frame.Color = clBlack
  261.       Frame.DrawTop = False
  262.       Frame.DrawBottom = False
  263.       Frame.DrawLeft = False
  264.       Frame.DrawRight = False
  265.       Size.Values = (
  266.         44.979166666666670000
  267.         148.166666666666700000
  268.         21.166666666666670000
  269.         722.312500000000000000)
  270.       Alignment = taLeftJustify
  271.       AlignToBand = False
  272.       AutoSize = False
  273.       AutoStretch = False
  274.       Color = clWhite
  275.       DataSet = ZakazniciTbl
  276.       DataField = 'CeleJmeno'
  277.       Font.Charset = DEFAULT_CHARSET
  278.       Font.Color = clWindowText
  279.       Font.Height = -13
  280.       Font.Name = 'Arial'
  281.       Font.Style = [fsBold]
  282.       ParentFont = False
  283.       Transparent = False
  284.       WordWrap = True
  285.       FontSize = 10
  286.     end
  287.     object QRDBText3: TQRDBText
  288.       Left = 336
  289.       Top = 8
  290.       Width = 364
  291.       Height = 17
  292.       Frame.Color = clBlack
  293.       Frame.DrawTop = False
  294.       Frame.DrawBottom = False
  295.       Frame.DrawLeft = False
  296.       Frame.DrawRight = False
  297.       Size.Values = (
  298.         44.979166666666670000
  299.         889.000000000000000000
  300.         21.166666666666670000
  301.         963.083333333333400000)
  302.       Alignment = taLeftJustify
  303.       AlignToBand = False
  304.       AutoSize = False
  305.       AutoStretch = False
  306.       Color = clWhite
  307.       DataSet = ZakazniciTbl
  308.       DataField = 'CelaAdresa'
  309.       Transparent = False
  310.       WordWrap = True
  311.       FontSize = 10
  312.     end
  313.     object QRDBText4: TQRDBText
  314.       Left = 221
  315.       Top = 32
  316.       Width = 160
  317.       Height = 17
  318.       Frame.Color = clBlack
  319.       Frame.DrawTop = False
  320.       Frame.DrawBottom = False
  321.       Frame.DrawLeft = False
  322.       Frame.DrawRight = False
  323.       Size.Values = (
  324.         44.979166666666670000
  325.         584.729166666666700000
  326.         84.666666666666670000
  327.         423.333333333333300000)
  328.       Alignment = taLeftJustify
  329.       AlignToBand = False
  330.       AutoSize = False
  331.       AutoStretch = False
  332.       Color = clWhite
  333.       DataSet = ZakazniciTbl
  334.       DataField = 'TelefonMobil'
  335.       Transparent = False
  336.       WordWrap = True
  337.       FontSize = 10
  338.     end
  339.     object QRDBText5: TQRDBText
  340.       Left = 221
  341.       Top = 56
  342.       Width = 160
  343.       Height = 17
  344.       Frame.Color = clBlack
  345.       Frame.DrawTop = False
  346.       Frame.DrawBottom = False
  347.       Frame.DrawLeft = False
  348.       Frame.DrawRight = False
  349.       Size.Values = (
  350.         44.979166666666670000
  351.         584.729166666666700000
  352.         148.166666666666700000
  353.         423.333333333333300000)
  354.       Alignment = taLeftJustify
  355.       AlignToBand = False
  356.       AutoSize = False
  357.       AutoStretch = False
  358.       Color = clWhite
  359.       DataSet = ZakazniciTbl
  360.       DataField = 'TelefonPrace'
  361.       Transparent = False
  362.       WordWrap = True
  363.       FontSize = 10
  364.     end
  365.     object QRDBText6: TQRDBText
  366.       Left = 517
  367.       Top = 32
  368.       Width = 160
  369.       Height = 17
  370.       Frame.Color = clBlack
  371.       Frame.DrawTop = False
  372.       Frame.DrawBottom = False
  373.       Frame.DrawLeft = False
  374.       Frame.DrawRight = False
  375.       Size.Values = (
  376.         44.979166666666670000
  377.         1367.895833333333000000
  378.         84.666666666666670000
  379.         423.333333333333300000)
  380.       Alignment = taLeftJustify
  381.       AlignToBand = False
  382.       AutoSize = False
  383.       AutoStretch = False
  384.       Color = clWhite
  385.       DataSet = ZakazniciTbl
  386.       DataField = 'TelefonPrivat'
  387.       Transparent = False
  388.       WordWrap = True
  389.       FontSize = 10
  390.     end
  391.     object QRDBText7: TQRDBText
  392.       Left = 517
  393.       Top = 56
  394.       Width = 160
  395.       Height = 17
  396.       Frame.Color = clBlack
  397.       Frame.DrawTop = False
  398.       Frame.DrawBottom = False
  399.       Frame.DrawLeft = False
  400.       Frame.DrawRight = False
  401.       Size.Values = (
  402.         44.979166666666670000
  403.         1367.895833333333000000
  404.         148.166666666666700000
  405.         423.333333333333300000)
  406.       Alignment = taLeftJustify
  407.       AlignToBand = False
  408.       AutoSize = False
  409.       AutoStretch = False
  410.       Color = clWhite
  411.       DataSet = ZakazniciTbl
  412.       DataField = 'Fax'
  413.       Transparent = False
  414.       WordWrap = True
  415.       FontSize = 10
  416.     end
  417.     object QRLabel2: TQRLabel
  418.       Left = 109
  419.       Top = 32
  420.       Width = 36
  421.       Height = 17
  422.       Frame.Color = clBlack
  423.       Frame.DrawTop = False
  424.       Frame.DrawBottom = False
  425.       Frame.DrawLeft = False
  426.       Frame.DrawRight = False
  427.       Size.Values = (
  428.         44.979166666666670000
  429.         288.395833333333400000
  430.         84.666666666666670000
  431.         95.250000000000000000)
  432.       Alignment = taLeftJustify
  433.       AlignToBand = False
  434.       AutoSize = True
  435.       AutoStretch = False
  436.       Caption = 'Mobil:'
  437.       Color = clWhite
  438.       Transparent = False
  439.       WordWrap = True
  440.       FontSize = 10
  441.     end
  442.     object QRLabel3: TQRLabel
  443.       Left = 109
  444.       Top = 56
  445.       Width = 100
  446.       Height = 17
  447.       Frame.Color = clBlack
  448.       Frame.DrawTop = False
  449.       Frame.DrawBottom = False
  450.       Frame.DrawLeft = False
  451.       Frame.DrawRight = False
  452.       Size.Values = (
  453.         44.979166666666670000
  454.         288.395833333333400000
  455.         148.166666666666700000
  456.         264.583333333333400000)
  457.       Alignment = taLeftJustify
  458.       AlignToBand = False
  459.       AutoSize = True
  460.       AutoStretch = False
  461.       Caption = 'Telefon do pr∩┐╜ce:'
  462.       Color = clWhite
  463.       Transparent = False
  464.       WordWrap = True
  465.       FontSize = 10
  466.     end
  467.     object QRLabel4: TQRLabel
  468.       Left = 408
  469.       Top = 32
  470.       Width = 89
  471.       Height = 17
  472.       Frame.Color = clBlack
  473.       Frame.DrawTop = False
  474.       Frame.DrawBottom = False
  475.       Frame.DrawLeft = False
  476.       Frame.DrawRight = False
  477.       Size.Values = (
  478.         44.979166666666670000
  479.         1079.500000000000000000
  480.         84.666666666666670000
  481.         235.479166666666700000)
  482.       Alignment = taLeftJustify
  483.       AlignToBand = False
  484.       AutoSize = True
  485.       AutoStretch = False
  486.       Caption = 'Priv∩┐╜tn∩┐╜ telefon:'
  487.       Color = clWhite
  488.       Transparent = False
  489.       WordWrap = True
  490.       FontSize = 10
  491.     end
  492.     object QRLabel5: TQRLabel
  493.       Left = 408
  494.       Top = 56
  495.       Width = 27
  496.       Height = 17
  497.       Frame.Color = clBlack
  498.       Frame.DrawTop = False
  499.       Frame.DrawBottom = False
  500.       Frame.DrawLeft = False
  501.       Frame.DrawRight = False
  502.       Size.Values = (
  503.         44.979166666666670000
  504.         1079.500000000000000000
  505.         148.166666666666700000
  506.         71.437500000000000000)
  507.       Alignment = taLeftJustify
  508.       AlignToBand = False
  509.       AutoSize = True
  510.       AutoStretch = False
  511.       Caption = 'Fax:'
  512.       Color = clWhite
  513.       Transparent = False
  514.       WordWrap = True
  515.       FontSize = 10
  516.     end
  517.     object QRLabel6: TQRLabel
  518.       Left = 109
  519.       Top = 80
  520.       Width = 42
  521.       Height = 17
  522.       Frame.Color = clBlack
  523.       Frame.DrawTop = False
  524.       Frame.DrawBottom = False
  525.       Frame.DrawLeft = False
  526.       Frame.DrawRight = False
  527.       Size.Values = (
  528.         44.979166666666670000
  529.         288.395833333333400000
  530.         211.666666666666600000
  531.         111.125000000000000000)
  532.       Alignment = taLeftJustify
  533.       AlignToBand = False
  534.       AutoSize = True
  535.       AutoStretch = False
  536.       Caption = 'E-Mail:'
  537.       Color = clWhite
  538.       Transparent = False
  539.       WordWrap = True
  540.       FontSize = 10
  541.     end
  542.     object QRDBText8: TQRDBText
  543.       Left = 221
  544.       Top = 80
  545.       Width = 161
  546.       Height = 17
  547.       Frame.Color = clBlack
  548.       Frame.DrawTop = False
  549.       Frame.DrawBottom = False
  550.       Frame.DrawLeft = False
  551.       Frame.DrawRight = False
  552.       Size.Values = (
  553.         44.979166666666670000
  554.         584.729166666666700000
  555.         211.666666666666600000
  556.         425.979166666666700000)
  557.       Alignment = taLeftJustify
  558.       AlignToBand = False
  559.       AutoSize = False
  560.       AutoStretch = False
  561.       Color = clWhite
  562.       DataSet = ZakazniciTbl
  563.       DataField = 'EMail'
  564.       Transparent = False
  565.       WordWrap = True
  566.       FontSize = 10
  567.     end
  568.     object QRLabel7: TQRLabel
  569.       Left = 408
  570.       Top = 80
  571.       Width = 30
  572.       Height = 17
  573.       Frame.Color = clBlack
  574.       Frame.DrawTop = False
  575.       Frame.DrawBottom = False
  576.       Frame.DrawLeft = False
  577.       Frame.DrawRight = False
  578.       Size.Values = (
  579.         44.979166666666670000
  580.         1079.500000000000000000
  581.         211.666666666666600000
  582.         79.375000000000000000)
  583.       Alignment = taLeftJustify
  584.       AlignToBand = False
  585.       AutoSize = True
  586.       AutoStretch = False
  587.       Caption = 'URL:'
  588.       Color = clWhite
  589.       Transparent = False
  590.       WordWrap = True
  591.       FontSize = 10
  592.     end
  593.     object QRDBText9: TQRDBText
  594.       Left = 517
  595.       Top = 80
  596.       Width = 161
  597.       Height = 17
  598.       Frame.Color = clBlack
  599.       Frame.DrawTop = False
  600.       Frame.DrawBottom = False
  601.       Frame.DrawLeft = False
  602.       Frame.DrawRight = False
  603.       Size.Values = (
  604.         44.979166666666670000
  605.         1367.895833333333000000
  606.         211.666666666666600000
  607.         425.979166666666700000)
  608.       Alignment = taLeftJustify
  609.       AlignToBand = False
  610.       AutoSize = False
  611.       AutoStretch = False
  612.       Color = clWhite
  613.       DataSet = ZakazniciTbl
  614.       DataField = 'URL'
  615.       Transparent = False
  616.       WordWrap = True
  617.       FontSize = 10
  618.     end
  619.   end
  620.   object ZajemciTbl: TTable
  621.     Active = True
  622.     DatabaseName = 'RealityDB'
  623.     IndexFieldNames = 'CisloZakazky'
  624.     MasterFields = 'CisloZakazky'
  625.     MasterSource = ZakazkyDS
  626.     TableName = 'Zajemci.DB'
  627.     Left = 184
  628.     Top = 336
  629.     object ZajemciTblCisloZakazky: TStringField
  630.       FieldName = 'CisloZakazky'
  631.       Required = True
  632.       Size = 30
  633.     end
  634.     object ZajemciTblCisloZakaznika: TStringField
  635.       FieldName = 'CisloZakaznika'
  636.       Required = True
  637.       Size = 10
  638.     end
  639.     object ZajemciTblPoznamka: TMemoField
  640.       FieldName = 'Poznamka'
  641.       BlobType = ftMemo
  642.       Size = 240
  643.     end
  644.   end
  645.   object ZakazkyTbl: TTable
  646.     Active = True
  647.     DatabaseName = 'RealityDB'
  648.     IndexFieldNames = 'CisloZakazky'
  649.     TableName = 'Zakazky.DB'
  650.     Left = 120
  651.     Top = 336
  652.   end
  653.   object ZakazkyDS: TDataSource
  654.     DataSet = ZakazkyTbl
  655.     Left = 56
  656.     Top = 336
  657.   end
  658.   object ZakazniciTbl: TTable
  659.     Active = True
  660.     OnCalcFields = ZakazniciTblCalcFields
  661.     DatabaseName = 'RealityDB'
  662.     IndexFieldNames = 'CisloZakaznika'
  663.     MasterFields = 'CisloZakaznika'
  664.     MasterSource = ZajemciDS
  665.     TableName = 'Zakaznic.DB'
  666.     Left = 328
  667.     Top = 336
  668.     object ZakazniciTblCisloZakaznika: TStringField
  669.       FieldName = 'CisloZakaznika'
  670.       Required = True
  671.       Size = 10
  672.     end
  673.     object ZakazniciTblTitulPred: TStringField
  674.       FieldName = 'TitulPred'
  675.     end
  676.     object ZakazniciTblJmeno: TStringField
  677.       FieldName = 'Jmeno'
  678.       Required = True
  679.       Size = 60
  680.     end
  681.     object ZakazniciTblTitulZa: TStringField
  682.       FieldName = 'TitulZa'
  683.     end
  684.     object ZakazniciTblUlice: TStringField
  685.       FieldName = 'Ulice'
  686.       Size = 60
  687.     end
  688.     object ZakazniciTblObec: TStringField
  689.       FieldName = 'Obec'
  690.       Size = 60
  691.     end
  692.     object ZakazniciTblTelefonPrivat: TStringField
  693.       FieldName = 'TelefonPrivat'
  694.       Size = 30
  695.     end
  696.     object ZakazniciTblTelefonPrace: TStringField
  697.       FieldName = 'TelefonPrace'
  698.       Size = 30
  699.     end
  700.     object ZakazniciTblTelefonMobil: TStringField
  701.       FieldName = 'TelefonMobil'
  702.       Size = 30
  703.     end
  704.     object ZakazniciTblFax: TStringField
  705.       FieldName = 'Fax'
  706.       Size = 30
  707.     end
  708.     object ZakazniciTblEMail: TStringField
  709.       FieldName = 'EMail'
  710.       Size = 60
  711.     end
  712.     object ZakazniciTblURL: TStringField
  713.       FieldName = 'URL'
  714.       Size = 60
  715.     end
  716.     object ZakazniciTblCeleJmeno: TStringField
  717.       FieldName = 'CeleJmeno'
  718.       Size = 100
  719.       Calculated = True
  720.     end
  721.     object ZakazniciTblCelaAdresa: TStringField
  722.       FieldName = 'CelaAdresa'
  723.       Size = 100
  724.       Calculated = True
  725.     end
  726.   end
  727.   object ZajemciDS: TDataSource
  728.     DataSet = ZajemciTbl
  729.     Left = 256
  730.     Top = 336
  731.   end
  732. end
  733.