home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 October
/
PCWorld_1999-10_cd2.bin
/
Supreme
/
_SETUP.1
/
Contact.exe
/
0
/
RCDATA
/
TFORMQROSOBY
/
TFORMQROSOBY.txt
Wrap
Text File
|
1999-09-06
|
24KB
|
889 lines
object FormQROsoby: TFormQROsoby
Left = 190
Top = 126
Width = 838
Height = 603
Caption = 'FormQROsoby'
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 = 73
Width = 718
Height = 168
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
BeforePrint = QRBand1BeforePrint
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
444.500000000000000000
1899.708333333333000000)
BandType = rbDetail
object QRShape3: TQRShape
Left = 328
Top = 84
Width = 61
Height = 77
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
203.729166666666700000
867.833333333333300000
222.250000000000000000
161.395833333333300000)
Brush.Color = clSilver
Pen.Color = clSilver
Shape = qrsRectangle
end
object QRShape2: TQRShape
Left = 0
Top = 44
Width = 73
Height = 117
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
309.562500000000000000
0.000000000000000000
116.416666666666700000
193.145833333333300000)
Brush.Color = clSilver
Pen.Color = clSilver
Shape = qrsRectangle
end
object QRShape4: TQRShape
Left = 0
Top = 24
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
63.500000000000000000
1897.062500000000000000)
Pen.Width = 2
Shape = qrsHorLine
end
object QRDBText1: TQRDBText
Left = 0
Top = 8
Width = 61
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333330000
0.000000000000000000
21.166666666666670000
161.395833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QryMaster
DataField = 'prijmeni'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
OnPrint = QRDBText1Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel2: TQRLabel
Left = 4
Top = 44
Width = 41
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
10.583333333333330000
116.416666666666700000
108.479166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Pozice'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 4
Top = 64
Width = 52
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
10.583333333333330000
169.333333333333300000
137.583333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Odd�len�'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 4
Top = 104
Width = 23
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
10.583333333333330000
275.166666666666700000
60.854166666666670000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Fax'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 4
Top = 124
Width = 32
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
10.583333333333330000
328.083333333333300000
84.666666666666670000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Mobil'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 4
Top = 144
Width = 38
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
10.583333333333330000
381.000000000000000000
100.541666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'E-mail'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 332
Top = 84
Width = 30
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
878.416666666666700000
222.250000000000000000
79.375000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Ulice'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 332
Top = 104
Width = 37
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
878.416666666666700000
275.166666666666700000
97.895833333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'M�sto'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 332
Top = 124
Width = 28
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
878.416666666666700000
328.083333333333300000
74.083333333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'PS�'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 332
Top = 144
Width = 39
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
878.416666666666700000
381.000000000000000000
103.187500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Oblast'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 80
Top = 44
Width = 637
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
211.666666666666700000
116.416666666666700000
1685.395833333333000000)
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 = True
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 80
Top = 64
Width = 637
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
211.666666666666700000
169.333333333333300000
1685.395833333333000000)
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 = True
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 80
Top = 84
Width = 241
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
211.666666666666700000
222.250000000000000000
637.645833333333300000)
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 = QRDBText4Print
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 80
Top = 104
Width = 241
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
211.666666666666700000
275.166666666666700000
637.645833333333300000)
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 = QRDBText5Print
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 80
Top = 124
Width = 241
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
211.666666666666700000
328.083333333333300000
637.645833333333300000)
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 = True
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 80
Top = 144
Width = 241
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
211.666666666666700000
381.000000000000000000
637.645833333333300000)
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 = True
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 396
Top = 84
Width = 321
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
1047.750000000000000000
222.250000000000000000
849.312500000000000000)
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 = QRDBText8Print
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 396
Top = 104
Width = 321
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
1047.750000000000000000
275.166666666666700000
849.312500000000000000)
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 = True
WordWrap = True
FontSize = 10
end
object QRDBText10: TQRDBText
Left = 396
Top = 124
Width = 321
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
1047.750000000000000000
328.083333333333300000
849.312500000000000000)
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 = True
WordWrap = True
FontSize = 10
end
object QRDBText11: TQRDBText
Left = 396
Top = 144
Width = 321
Height = 17
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
Size.Values = (
44.979166666666670000
1047.750000000000000000
381.000000000000000000
849.312500000000000000)
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 = True
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 4
Top = 84
Width = 42
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
10.583333333333330000
222.250000000000000000
111.125000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Telefon'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
end
object QRBand2: TQRBand
Left = 38
Top = 38
Width = 718
Height = 35
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 = (
92.604166666666670000
1899.708333333333000000)
BandType = rbTitle
object QRShape1: TQRShape
Left = 0
Top = -1
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
-2.645833333333333000
1897.062500000000000000)
Brush.Color = clBlack
Shape = qrsRectangle
end
object QRLabel1: TQRLabel
Left = 8
Top = 2
Width = 127
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
336.020833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Seznam osob'
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
end
object QRBand3: TQRBand
Left = 38
Top = 241
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 QRLabel12: 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 = QRLabel12Print
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.tel, osoby.fax, osoby.teluto, o' +
'soby.faxuto, osoby.mto, osoby.mobil, osoby.email, osoby.ulice, ' +
'osoby.cisulice, osoby.mesto, osoby.psc, osoby.oblast'
'FROM osoby LEFT JOIN firmy ON osoby.ico=firmy.ico'
'ORDER BY osoby.prijmeni'
' ')
AutoTranslate = False
SelectType = stNormal
SQLSelect =
'osoby.prijmeni, osoby.jmeno, osoby.titul, osoby.ico, osoby.oddel' +
'eni, osoby.pozice, osoby.tel, osoby.fax, osoby.teluto, osoby.fa' +
'xuto, osoby.mto, osoby.mobil, osoby.email, osoby.ulice, osoby.c' +
'isulice, osoby.mesto, osoby.psc, osoby.oblast'
SQLFrom = 'osoby LEFT JOIN firmy ON osoby.ico=firmy.ico'
SQLOrderBy = 'osoby.prijmeni'
Left = 8
Top = 8
end
end