home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 October
/
PCWorld_1999-10_cd2.bin
/
Supreme
/
_SETUP.1
/
Contact.exe
/
0
/
RCDATA
/
TFORMQROSOBA
/
TFORMQROSOBA.txt
Wrap
Text File
|
1999-09-06
|
34KB
|
1,226 lines
object FormQROsoba: TFormQROsoba
Left = 231
Top = 142
Width = 833
Height = 602
Caption = 'FormQROsoba'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object QReport: TQuickRep
Left = 0
Top = 0
Width = 794
Height = 1123
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = QryMaster
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
OnPreview = QReportPreview
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100.000000000000000000
2970.000000000000000000
100.000000000000000000
2100.000000000000000000
100.000000000000000000
100.000000000000000000
0.000000000000000000)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrintIfEmpty = True
SnapToGrid = True
Units = MM
Zoom = 100
object QRBand1: TQRBand
Left = 38
Top = 38
Width = 718
Height = 464
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
BeforePrint = QRBand1BeforePrint
Color = clWhite
ForceNewColumn = False
ForceNewPage = True
Size.Values = (
1227.666666666667000000
1899.708333333333000000)
BandType = rbDetail
object QRLabel8: TQRLabel
Left = 0
Top = 276
Width = 143
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.854166666666670000
0.000000000000000000
730.250000000000000000
378.354166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Telefony a bydli�t�'
Color = clWhite
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRShape4: TQRShape
Left = 0
Top = 292
Width = 717
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333330000
0.000000000000000000
772.583333333333300000
1897.062500000000000000)
Pen.Width = 2
Shape = qrsHorLine
end
object QRShape3: TQRShape
Left = 190
Top = 85
Width = 529
Height = 150
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
396.875000000000000000
502.708333333333300000
224.895833333333300000
1399.645833333333000000)
Brush.Color = clSilver
Pen.Color = clSilver
Shape = qrsRectangle
end
object QRShape1: TQRShape
Left = 0
Top = 0
Width = 717
Height = 29
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
76.729166666666670000
0.000000000000000000
0.000000000000000000
1897.062500000000000000)
Brush.Color = clBlack
Shape = qrsRectangle
end
object QRLabel1: TQRLabel
Left = 8
Top = 2
Width = 115
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.145833333333330000
21.166666666666670000
5.291666666666667000
304.270833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Karta osoby'
Color = clWhite
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 16
end
object QRDBText1: TQRDBText
Left = 184
Top = 56
Width = 81
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.145833333333330000
486.833333333333300000
148.166666666666700000
214.312500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'prijmeni'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
OnPrint = QRDBText1Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 16
end
object QRShape2: TQRShape
Left = 184
Top = 80
Width = 529
Height = 149
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
394.229166666666700000
486.833333333333300000
211.666666666666700000
1399.645833333333000000)
Shape = qrsRectangle
end
object QRLabel2: TQRLabel
Left = 196
Top = 92
Width = 45
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
518.583333333333300000
243.416666666666700000
119.062500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Pozice:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 196
Top = 112
Width = 38
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
518.583333333333300000
296.333333333333300000
100.541666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Firma:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 196
Top = 132
Width = 56
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
518.583333333333300000
349.250000000000000000
148.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Odd�len�:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 196
Top = 160
Width = 96
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
518.583333333333300000
423.333333333333300000
254.000000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Datum narozen�:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 196
Top = 180
Width = 76
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
518.583333333333300000
476.250000000000000000
201.083333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Typ vzd�l�n�:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 196
Top = 200
Width = 107
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
518.583333333333300000
529.166666666666700000
283.104166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Zas�lat direct-mail:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 344
Top = 92
Width = 357
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
910.166666666666700000
243.416666666666700000
944.562500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'pozice'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 344
Top = 112
Width = 357
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
910.166666666666700000
296.333333333333300000
944.562500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryFirma
DataField = 'nazev'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 344
Top = 132
Width = 357
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
910.166666666666700000
349.250000000000000000
944.562500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'oddeleni'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 344
Top = 160
Width = 357
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
910.166666666666700000
423.333333333333300000
944.562500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'naroz'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 344
Top = 180
Width = 357
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
910.166666666666700000
476.250000000000000000
944.562500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'vzdelani'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 344
Top = 200
Width = 357
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
910.166666666666700000
529.166666666666700000
944.562500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'mailing'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
OnPrint = QRDBText7Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 0
Top = 312
Width = 46
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
0.000000000000000000
825.500000000000000000
121.708333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Telefon:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 0
Top = 332
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
0.000000000000000000
878.416666666666700000
71.437500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Fax:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 0
Top = 352
Width = 36
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
0.000000000000000000
931.333333333333300000
95.250000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Mobil:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel12: TQRLabel
Left = 0
Top = 372
Width = 42
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
0.000000000000000000
984.250000000000000000
111.125000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'E-mail:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel13: TQRLabel
Left = 328
Top = 312
Width = 34
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
867.833333333333300000
825.500000000000000000
89.958333333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Ulice:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel14: TQRLabel
Left = 328
Top = 332
Width = 41
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
867.833333333333300000
878.416666666666700000
108.479166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'M�sto:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel15: TQRLabel
Left = 328
Top = 352
Width = 28
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
867.833333333333300000
931.333333333333300000
74.083333333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'PS�'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel16: TQRLabel
Left = 328
Top = 372
Width = 43
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
867.833333333333300000
984.250000000000000000
113.770833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Oblast:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 72
Top = 312
Width = 237
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
190.500000000000000000
825.500000000000000000
627.062500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'tel'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
OnPrint = QRDBText8Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 72
Top = 332
Width = 237
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
190.500000000000000000
878.416666666666700000
627.062500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'fax'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
OnPrint = QRDBText9Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText10: TQRDBText
Left = 72
Top = 352
Width = 237
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
190.500000000000000000
931.333333333333300000
627.062500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'mobil'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText11: TQRDBText
Left = 72
Top = 372
Width = 237
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
190.500000000000000000
984.250000000000000000
627.062500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'email'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText12: TQRDBText
Left = 400
Top = 312
Width = 317
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1058.333333333333000000
825.500000000000000000
838.729166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'ulice'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
OnPrint = QRDBText12Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText13: TQRDBText
Left = 400
Top = 332
Width = 317
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1058.333333333333000000
878.416666666666700000
838.729166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'mesto'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText14: TQRDBText
Left = 400
Top = 352
Width = 317
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1058.333333333333000000
931.333333333333300000
838.729166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'psc'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText15: TQRDBText
Left = 400
Top = 372
Width = 317
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1058.333333333333000000
984.250000000000000000
838.729166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'oblast'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel17: TQRLabel
Left = 0
Top = 412
Width = 80
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.854166666666670000
0.000000000000000000
1090.083333333333000000
211.666666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Pozn�mky'
Color = clWhite
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRShape5: TQRShape
Left = 0
Top = 428
Width = 717
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333330000
0.000000000000000000
1132.416666666667000000
1897.062500000000000000)
Pen.Width = 2
Shape = qrsHorLine
end
object QRDBText16: TQRDBText
Left = 0
Top = 445
Width = 717
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
0.000000000000000000
1177.395833333333000000
1897.062500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = True
Color = clWhite
DataSet = QryMaster
DataField = 'poznamka'
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRBand3: TQRBand
Left = 38
Top = 502
Width = 718
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
42.333333333333330000
1899.708333333333000000)
BandType = rbPageFooter
object QRLabel18: TQRLabel
Left = 0
Top = 4
Width = 83
Height = 11
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
29.104166666666670000
0.000000000000000000
10.583333333333330000
219.604166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'SUPREME CONTACT '
Color = clWhite
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'Arial'
Font.Style = []
OnPrint = QRLabel18Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 6
end
end
end
object QryMaster: TQueryPlus
DatabaseName = 'BRAIN_'
SQL.Strings = (
'SELECT osoby.prijmeni, osoby.jmeno, osoby.titul, osoby.ico, osob' +
'y.oddeleni, osoby.pozice, osoby.naroz, osoby.vzdelani, osoby.ma' +
'iling, osoby.tel, osoby.fax, osoby.teluto, osoby.faxuto, osoby.' +
'mto, osoby.mobil, osoby.email, osoby.ulice, osoby.cisulice, osob' +
'y.mesto, osoby.psc, osoby.oblast, osoby.poznamka'
'FROM osoby LEFT JOIN firmy ON osoby.ico=firmy.ico'
'ORDER BY osoby.prijmeni'
' ')
AutoTranslate = True
SelectType = stNormal
SQLSelect =
'osoby.prijmeni, osoby.jmeno, osoby.titul, osoby.ico, osoby.oddel' +
'eni, osoby.pozice, osoby.naroz, osoby.vzdelani, osoby.mailing, ' +
'osoby.tel, osoby.fax, osoby.teluto, osoby.faxuto, osoby.mto, os' +
'oby.mobil, osoby.email, osoby.ulice, osoby.cisulice, osoby.mesto' +
', osoby.psc, osoby.oblast, osoby.poznamka'
SQLFrom = 'osoby LEFT JOIN firmy ON osoby.ico=firmy.ico'
SQLOrderBy = 'osoby.prijmeni'
Left = 8
Top = 4
end
object QryFirma: TQuery
DatabaseName = 'BRAIN_'
DataSource = DataSource
SQL.Strings = (
'SELECT nazev'
'FROM firmy'
'WHERE ico=:ico')
Left = 80
Top = 4
ParamData = <
item
DataType = ftUnknown
Name = 'ico'
ParamType = ptUnknown
end>
end
object DataSource: TDataSource
DataSet = QryMaster
Left = 52
Top = 4
end
end