inherited FormKockazat_PszMinta: TFormKockazat_PszMinta Caption = 'Pszichoszoci'#225'lis felm'#233'r'#337' minta jegyz'#337'k'#246'nyv felv'#233'tele' ClientWidth = 786 Scaled = False OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown ExplicitWidth = 802 ExplicitHeight = 503 PixelsPerInch = 96 TextHeight = 13 inherited PanelClient: TPanel inherited PageControl: TPageControl ActivePage = TabSheet1 OnChange = PageControlChange inherited TabSheet1: TTabSheet inherited DBGridTorzs: TDBGrid Height = 142 DataSource = DataSourceKockazat_PszMinta OnCellClick = DBGridTorzsCellClick OnEnter = DBGridTorzsEnter OnKeyDown = DBGridTorzsKeyDown OnKeyUp = DBGridTorzsKeyUp end inherited PanelFind: TPanel Top = 262 ExplicitTop = 262 inherited EditFind: TEdit OnChange = EditFindChange end end inherited PanelAlap: TPanel Top = 292 Height = 35 ExplicitTop = 292 ExplicitHeight = 35 object LabelPartnerNev: TLabel Left = 4 Top = 9 Width = 185 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'Pszichoszoci'#225'lis vizsg'#225'lati minta neve:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object DBEditNev: TDBEdit Left = 194 Top = 6 Width = 563 Height = 21 Hint = '1' HelpContext = 4 Color = 16113852 DataField = 'nev' DataSource = DataSourceKockazat_PszMinta Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end end inherited DBNavPanel: TPanel inherited SpeedButtonInsert: TSpeedButton OnClick = SpeedButtonInsertClick end inherited SpeedButtonPost: TSpeedButton OnClick = SpeedButtonPostClick end inherited SpeedButtonDelete: TSpeedButton OnClick = SpeedButtonDeleteClick end inherited SpeedButtonCancel: TSpeedButton OnClick = SpeedButtonCancelClick end inherited SpeedButtonPrint: TSpeedButton OnClick = SpeedButtonPrintClick end end inherited PanelProgress: TPanel Top = 237 ExplicitTop = 237 end inherited PanelDuplicate: TPanel Top = 151 ExplicitTop = 151 inherited SpeedButton10: TSpeedButton OnClick = SpeedButton10Click end inherited DBInfoLabel4: TDBInfoLabel DataField = 'nev' DataSource = DataSourceDuplicateKockazat_PszMinta end inherited DBInfoLabel5: TDBInfoLabel Visible = False end end end inherited TabSheet2: TTabSheet inherited DBGridPont: TDBGrid Height = 251 DataSource = DataSourceKockazat_PszMintaPont OnCellClick = DBGridPontCellClick OnDrawDataCell = DBGridPontDrawDataCell OnEnter = DBGridPontEnter OnKeyDown = DBGridPontKeyDown end inherited PanelPont: TPanel Top = 288 Height = 39 ExplicitTop = 288 ExplicitHeight = 39 object Label5: TLabel Left = 101 Top = 11 Width = 135 Height = 13 Alignment = taRightJustify Caption = 'C'#237'msor sz'#246'vege (max. 255):' end object Label2: TLabel Left = 731 Top = 12 Width = 33 Height = 13 Alignment = taCenter AutoSize = False Caption = '255' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButtonDeep: TSpeedButton Left = 6 Top = 9 Width = 91 Height = 21 Caption = 'F'#337' pont' Enabled = False Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000C40E0000C40E00000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF00000000000000 0000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFF000000FFFFFF0000000000000000000000000000000000000000000000 00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000 FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} ParentFont = False OnClick = SpeedButtonDeepClick end object DBEditSzoveg: TDBEdit Left = 239 Top = 9 Width = 494 Height = 21 HelpContext = 9 DataField = 'szoveg' DataSource = DataSourceKockazat_PszMintaPont Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnChange = DBEditSzovegChange OnEnter = DBEditSzovegEnter OnKeyPress = DBEditSzovegKeyPress OnKeyUp = DBEditSzovegKeyUp end end inherited Panel3: TPanel inherited SpeedButtonInsert_Pont: TSpeedButton OnClick = SpeedButtonInsert_PontClick end inherited SpeedButtonPost_Pont: TSpeedButton OnClick = SpeedButtonPost_PontClick end inherited SpeedButtonDelete_Pont: TSpeedButton OnClick = SpeedButtonDelete_PontClick end inherited SpeedButtonCancel_Pont: TSpeedButton OnClick = SpeedButtonCancel_PontClick end inherited SpeedButtonPrint_Pont: TSpeedButton OnClick = SpeedButtonPrint_PontClick end inherited SpeedButton_Refresh_Pont: TSpeedButton OnClick = SpeedButton_Refresh_PontClick end end inherited PanelTorles: TPanel Top = 260 ExplicitTop = 260 end end end end object QuickRep1: TQuickRep Left = 8 Top = 464 Width = 794 Height = 1123 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False BeforePrint = QuickRep1BeforePrint DataSet = ZQueryKockazat_PszMintaPont Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Functions.Strings = ( 'PAGENUMBER' 'COLUMNNUMBER' 'REPORTTITLE') Functions.DATA = ( '0' '0' #39#39) 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.OutputBin = Auto PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.UseStandardprinter = False PrinterSettings.UseCustomBinCode = False PrinterSettings.CustomBinCode = 0 PrinterSettings.ExtendedDuplex = 0 PrinterSettings.UseCustomPaperCode = False PrinterSettings.CustomPaperCode = 0 PrinterSettings.PrintMetaFile = False PrinterSettings.PrintQuality = 0 PrinterSettings.Collate = 0 PrinterSettings.ColorOption = 0 PrintIfEmpty = True SnapToGrid = True Units = MM Zoom = 100 PrevFormStyle = fsNormal PreviewInitialState = wsNormal PrevInitialZoom = qrZoomToFit PreviewDefaultSaveType = stQRP object QRBand4: TQRBand Left = 38 Top = 38 Width = 718 Height = 40 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = True Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 105.833333333333300000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbPageHeader object QRLabel10: TQRLabel Left = 0 Top = 16 Width = 70 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 0.000000000000000000 42.333333333333330000 185.208333333333300000) Alignment = taLeftJustify AlignToBand = True AutoSize = True AutoStretch = False Caption = 'QRLabel10' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 10 end end object ChildBand4: TQRChildBand Left = 38 Top = 78 Width = 718 Height = 7 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 18.520833333333330000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False ParentBand = QRBand4 PrintOrder = cboAfterParent end object QRBand3: TQRBand Left = 38 Top = 85 Width = 718 Height = 47 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = True Frame.DrawLeft = True Frame.DrawRight = True Frame.Width = 2 AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 124.354166666666700000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbTitle object QRLabel2: TQRLabel Left = 266 Top = 8 Width = 185 Height = 30 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 79.375000000000000000 703.791666666666700000 21.166666666666670000 489.479166666666700000) Alignment = taCenter AlignToBand = True AutoSize = True AutoStretch = False Caption = 'Felm'#233'r'#337' adatlap' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 18 end end object ChildBand1: TQRChildBand Left = 38 Top = 132 Width = 718 Height = 12 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 31.750000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False ParentBand = QRBand3 PrintOrder = cboAfterParent end object ChildBand2: TQRChildBand Left = 38 Top = 144 Width = 718 Height = 163 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = True Frame.DrawLeft = True Frame.DrawRight = True AlignToBottom = False Color = 14087412 TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 431.270833333333300000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False ParentBand = ChildBand1 PrintOrder = cboAfterParent object QRLabel1: TQRLabel Left = 60 Top = 6 Width = 117 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 158.750000000000000000 15.875000000000000000 309.562500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Vizsg'#225'lt c'#233'g neve:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel3: TQRLabel Left = 139 Top = 28 Width = 38 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 367.770833333333300000 74.083333333333330000 100.541666666666700000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'C'#237'me:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel9: TQRLabel Left = 52 Top = 50 Width = 125 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 137.583333333333300000 132.291666666666700000 330.729166666666700000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Munkav'#225'llal'#243' neve:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel11: TQRLabel Left = 23 Top = 72 Width = 154 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 60.854166666666670000 190.500000000000000000 407.458333333333300000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Munkak'#246'r/Tev'#233'kenys'#233'g:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel12: TQRLabel Left = 11 Top = 94 Width = 166 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 29.104166666666670000 248.708333333333300000 439.208333333333300000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = #201'rintett szem'#233'lyek sz'#225'ma:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel13: TQRLabel Left = 45 Top = 116 Width = 132 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 119.062500000000000000 306.916666666666700000 349.250000000000000000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Felm'#233'r'#233'st k'#233'sz'#237'tette:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel14: TQRLabel Left = 49 Top = 138 Width = 128 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 129.645833333333300000 365.125000000000000000 338.666666666666700000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Felm'#233'r'#233's id'#337'pontja:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end end object ChildBand5: TQRChildBand Left = 38 Top = 307 Width = 718 Height = 182 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 481.541666666666700000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False ParentBand = ChildBand2 PrintOrder = cboAfterParent object QRMemo1: TQRMemo Left = 16 Top = 20 Width = 693 Height = 111 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 293.687500000000000000 42.333333333333330000 52.916666666666670000 1833.562500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite Lines.Strings = ( 'A munkav'#233'delemr'#337'l sz'#243'l'#243' 1993. '#233'vi XCIII. t'#246'rv'#233'ny 54. '#167' (2) bekez' + 'd'#233'se alapj'#225'n a kock'#225'zat'#233'rt'#233'kel'#233's munkabiztons'#225'gi '#233's munkaeg'#233'szs'#233 + 'g'#252'gyi szaktev'#233'kenys'#233'gnek min'#337's'#252'l. ' '87 '#167' 1/H. Pszichoszoci'#225'lis kock'#225'zat: a munkav'#225'llal'#243't a munkahely' + #233'n '#233'r'#337' azon hat'#225'sok (konfliktusok, munkaszervez'#233's,' 'munkarend, foglalkoztat'#225'si jogviszony bizonytalans'#225'ga stb.) '#246 + 'sszess'#233'ge, amelyek befoly'#225'solj'#225'k az e hat'#225'sokra adott' 'v'#225'laszreakci'#243'it, illet'#337'leg ezzel '#246'sszef'#252'gg'#233'sben stressz, m' + 'unkabaleset, lelki eredet'#369' szervi (pszichoszomatikus) megbet' + 'eged'#233's k'#246'vetkezhet be.') Transparent = False WordWrap = True FontSize = 10 end object QRLabel15: TQRLabel Left = 192 Top = 137 Width = 333 Height = 26 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 68.791666666666670000 508.000000000000000000 362.479166666666700000 881.062500000000000000) Alignment = taCenter AlignToBand = True AutoSize = True AutoStretch = False Caption = 'Kock'#225'zatok azonos'#237't'#225'sa, '#233'rt'#233'kel'#233'se' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 14 end end object QRBand1: TQRBand Left = 38 Top = 489 Width = 718 Height = 30 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = False Frame.DrawLeft = True Frame.DrawRight = True AlignToBottom = False Color = 14087412 TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 79.375000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbColumnHeader object QRLabel5: TQRLabel Left = 16 Top = 6 Width = 613 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 42.333333333333330000 15.875000000000000000 1621.895833333333000000) Alignment = taCenter AlignToBand = False AutoSize = False AutoStretch = False Caption = 'Vesz'#233'ly azonos'#237't'#225'sa' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel6: TQRLabel Left = 646 Top = 6 Width = 65 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1709.208333333333000000 15.875000000000000000 171.979166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'S'#250'lyoss'#225'g' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True ExportAs = exptText FontSize = 10 end object QRFrameline1: TQRFrameline Left = 635 Top = 6 Width = 10 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666670000 1680.104166666667000000 15.875000000000000000 26.458333333333330000) end end object QRBand5: TQRBand Left = 38 Top = 519 Width = 718 Height = 24 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = True Frame.DrawLeft = True Frame.DrawRight = True AlignToBottom = False BeforePrint = QRBand5BeforePrint Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 63.500000000000000000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbDetail object QRLabel4: TQRLabel Left = 16 Top = 4 Width = 613 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 42.333333333333330000 10.583333333333330000 1621.895833333333000000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = True Caption = 'QRLabel4' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 10 end object QRFrameline2: TQRFrameline Left = 635 Top = 2 Width = 10 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666670000 1680.104166666667000000 5.291666666666667000 26.458333333333330000) end end object QRBand6: TQRBand Left = 38 Top = 543 Width = 718 Height = 82 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 216.958333333333300000 1899.708333333333000000) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbPageFooter object QRSysData2: TQRSysData Left = 669 Top = 6 Width = 49 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1770.062500000000000000 15.875000000000000000 129.645833333333300000) Alignment = taRightJustify AlignToBand = True AutoSize = True Color = clWhite Data = qrsPageNumber Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False ExportAs = exptText FontSize = 10 end object QRLabel7: TQRLabel Left = 114 Top = 6 Width = 83 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 301.625000000000000000 15.875000000000000000 219.604166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(1) Nincs '#225'rtalom' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel8: TQRLabel Left = 203 Top = 6 Width = 140 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 537.104166666666700000 15.875000000000000000 370.416666666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(2) Nem befoly'#225'sol'#243' t'#233'nyez'#337 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel16: TQRLabel Left = 349 Top = 6 Width = 89 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 923.395833333333300000 15.875000000000000000 235.479166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(3) Kisebb '#225'rtalom' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel17: TQRLabel Left = 444 Top = 6 Width = 155 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1174.750000000000000000 15.875000000000000000 410.104166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(4) Enyh'#233'n befoly'#225'sol'#243' t'#233'nyez'#337 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel18: TQRLabel Left = 6 Top = 28 Width = 147 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 15.875000000000000000 74.083333333333330000 388.937500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(5) Id'#337'nk'#233'nt el'#337'fordul'#243' '#225'rtalom' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel19: TQRLabel Left = 158 Top = 28 Width = 104 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 418.041666666666700000 74.083333333333330000 275.166666666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(6) Bizonytalan hat'#225's' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel20: TQRLabel Left = 267 Top = 28 Width = 96 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 706.437500000000000000 74.083333333333330000 254.000000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(7) Jelent'#337's '#225'rtalom' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel21: TQRLabel Left = 368 Top = 28 Width = 97 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 973.666666666666700000 74.083333333333330000 256.645833333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(8) Gyakori behat'#225's' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel22: TQRLabel Left = 470 Top = 28 Width = 89 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1243.541666666667000000 74.083333333333330000 235.479166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(9) S'#250'lyos '#225'rtalom' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel23: TQRLabel Left = 564 Top = 28 Width = 108 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1492.250000000000000000 74.083333333333330000 285.750000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(10) Maradand'#243' hat'#225's' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel24: TQRLabel Left = 6 Top = 6 Width = 102 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 15.875000000000000000 15.875000000000000000 269.875000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '(-) Nem '#233'rtelmezhet'#337 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRLabel25: TQRLabel Left = 6 Top = 62 Width = 300 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 15.875000000000000000 164.041666666666700000 793.750000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'K'#233'sz'#252'lt: a Munkabiztons'#225'g Network rendszer alkalmaz'#225's'#225'val' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 8 end object QRShape1: TQRShape Left = 0 Top = 52 Width = 717 Height = 7 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 18.520833333333330000 0.000000000000000000 137.583333333333300000 1897.062500000000000000) Shape = qrsHorLine VertAdjust = 0 end end end object ZQueryKockazat_PszMinta: TZQuery Connection = DM.ZConnection BeforeOpen = ZQueryKockazat_PszMintaBeforeOpen AfterOpen = ZQueryKockazat_PszMintaAfterOpen AfterInsert = ZQueryKockazat_PszMintaAfterInsert AfterEdit = ZQueryKockazat_PszMintaAfterEdit BeforePost = ZQueryKockazat_PszMintaBeforePost AfterPost = ZQueryKockazat_PszMintaAfterPost AfterCancel = ZQueryKockazat_PszMintaAfterCancel SQL.Strings = ( 'select * ' 'from kockazat_pszminta' 'order by nev') Params = <> Left = 638 Top = 24 object ZQueryKockazat_PszMintakockazat_pszminta_kod: TIntegerField DisplayLabel = 'Sorsz'#225'm' FieldName = 'kockazat_pszminta_kod' end object ZQueryKockazat_PszMintanev: TStringField DisplayLabel = 'Minta n'#233'v' FieldName = 'nev' Size = 100 end object ZQueryKockazat_PszMintac_userid: TStringField FieldName = 'c_userid' Visible = False end object ZQueryKockazat_PszMintac_date: TDateField FieldName = 'c_date' Visible = False end object ZQueryKockazat_PszMintac_time: TStringField FieldName = 'c_time' Visible = False Size = 10 end object ZQueryKockazat_PszMintam_userid: TStringField FieldName = 'm_userid' Visible = False end object ZQueryKockazat_PszMintam_date: TDateField FieldName = 'm_date' Visible = False end object ZQueryKockazat_PszMintam_time: TStringField FieldName = 'm_time' Visible = False Size = 10 end end object ZQueryKockazat_PszMintaPont: TZQuery Connection = DM.ZConnection OnCalcFields = ZQueryKockazat_PszMintaPontCalcFields AfterInsert = ZQueryKockazat_PszMintaPontAfterInsert BeforeEdit = ZQueryKockazat_PszMintaPontBeforeEdit AfterEdit = ZQueryKockazat_PszMintaPontAfterEdit BeforePost = ZQueryKockazat_PszMintaPontBeforePost AfterPost = ZQueryKockazat_PszMintaPontAfterPost AfterCancel = ZQueryKockazat_PszMintaPontAfterCancel SQL.Strings = ( 'select * ' 'from kockazat_pszmintapont' 'where (kockazat_pszmintapont_tkod=:tkod) ' 'order by sorszamszov' '') Params = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 1 end> Left = 638 Top = 52 ParamData = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 1 end> object ZQueryKockazat_PszMintaPontkockazat_pszmintapont_kod: TIntegerField FieldName = 'kockazat_pszmintapont_kod' Visible = False end object ZQueryKockazat_PszMintaPontkockazat_pszmintapont_tkod: TIntegerField FieldName = 'kockazat_pszmintapont_tkod' Required = True Visible = False end object ZQueryKockazat_PszMintaPontszulo: TStringField FieldName = 'szulo' Visible = False Size = 15 end object ZQueryKockazat_PszMintaPontertek: TStringField DisplayLabel = 'Sorsz'#225'm' FieldName = 'ertek' Size = 15 end object ZQueryKockazat_PszMintaPontmelyseg: TSmallintField FieldName = 'melyseg' Visible = False end object ZQueryKockazat_PszMintaPontsorszam: TSmallintField FieldName = 'sorszam' Visible = False end object ZQueryKockazat_PszMintaPontsorszamszov: TStringField FieldName = 'sorszamszov' Visible = False Size = 40 end object ZQueryKockazat_PszMintaPontvegpont: TStringField DisplayLabel = 'V'#233'gpont' FieldKind = fkCalculated FieldName = 'vegpont' Size = 1 Calculated = True end object ZQueryKockazat_PszMintaPontszoveg: TStringField DisplayLabel = 'Vizsg'#225'lati sz'#246'veg' FieldName = 'szoveg' Size = 255 end object ZQueryKockazat_PszMintaPontengedely: TStringField FieldName = 'engedely' Visible = False Size = 1 end object ZQueryKockazat_PszMintaPontszuloszov: TStringField FieldName = 'szuloszov' Visible = False Size = 30 end object ZQueryKockazat_PszMintaPontmasol: TBooleanField FieldName = 'masol' Visible = False end object ZQueryKockazat_PszMintaPontc_userid: TStringField FieldName = 'c_userid' Visible = False end object ZQueryKockazat_PszMintaPontc_date: TDateField FieldName = 'c_date' Visible = False end object ZQueryKockazat_PszMintaPontc_time: TStringField FieldName = 'c_time' Visible = False Size = 10 end object ZQueryKockazat_PszMintaPontm_userid: TStringField FieldName = 'm_userid' Visible = False end object ZQueryKockazat_PszMintaPontm_date: TDateField FieldName = 'm_date' Visible = False end object ZQueryKockazat_PszMintaPontm_time: TStringField FieldName = 'm_time' Visible = False Size = 10 end end object DataSourceKockazat_PszMintaPont: TDataSource DataSet = ZQueryKockazat_PszMintaPont Left = 666 Top = 52 end object DataSourceKockazat_PszMinta: TDataSource DataSet = ZQueryKockazat_PszMinta Left = 666 Top = 24 end object ZQueryKeres: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'select kockazat_pszmintapont_tkod, szulo, ertek, sorszam ' 'from kockazat_pszmintapont' 'where (kockazat_pszmintapont_tkod=:tkod) and' ' (szulo=:pmszulo)' 'order by ertek, sorszam') Params = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 0 end item DataType = ftString Name = 'pmszulo' ParamType = ptInputOutput Value = '' end> Left = 694 Top = 52 ParamData = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 0 end item DataType = ftString Name = 'pmszulo' ParamType = ptInputOutput Value = '' end> object ZQueryKereskockazat_pszmintapont_tkod: TIntegerField FieldName = 'kockazat_pszmintapont_tkod' Required = True end object ZQueryKeresszulo: TStringField FieldName = 'szulo' Size = 15 end object ZQueryKeresertek: TStringField FieldName = 'ertek' Size = 15 end object ZQueryKeressorszam: TSmallintField FieldName = 'sorszam' end end object ZQuerySzulopont: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'select * ' 'from kockazat_pszmintapont' 'where (kockazat_pszmintapont_tkod=:tkod) and' ' ((ertek=:pmertek)) and' ' (melyseg=:pmmelyseg)') Params = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 0 end item DataType = ftUnknown Name = 'pmertek' ParamType = ptUnknown end item DataType = ftUnknown Name = 'pmmelyseg' ParamType = ptUnknown end> Left = 694 Top = 80 ParamData = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 0 end item DataType = ftUnknown Name = 'pmertek' ParamType = ptUnknown end item DataType = ftUnknown Name = 'pmmelyseg' ParamType = ptUnknown end> object ZQuerySzulopontkockazat_pszmintapont_kod: TIntegerField FieldName = 'kockazat_pszmintapont_kod' Required = True end object ZQuerySzulopontkockazat_pszmintapont_tkod: TIntegerField FieldName = 'kockazat_pszmintapont_tkod' Required = True end object ZQuerySzulopontszulo: TStringField FieldName = 'szulo' Size = 15 end object ZQuerySzulopontertek: TStringField FieldName = 'ertek' Size = 15 end object ZQuerySzulopontmelyseg: TSmallintField FieldName = 'melyseg' end object ZQuerySzulopontsorszam: TSmallintField FieldName = 'sorszam' end object ZQuerySzulopontsorszamszov: TStringField FieldName = 'sorszamszov' Size = 40 end object ZQuerySzulopontszoveg: TStringField FieldName = 'szoveg' Size = 255 end object ZQuerySzulopontengedely: TStringField FieldName = 'engedely' Size = 1 end object ZQuerySzulopontszuloszov: TStringField FieldName = 'szuloszov' Size = 30 end object ZQuerySzulopontmasol: TBooleanField FieldName = 'masol' end object ZQuerySzulopontc_userid: TStringField FieldName = 'c_userid' end object ZQuerySzulopontc_date: TDateField FieldName = 'c_date' end object ZQuerySzulopontc_time: TStringField FieldName = 'c_time' Size = 10 end object ZQuerySzulopontm_userid: TStringField FieldName = 'm_userid' end object ZQuerySzulopontm_date: TDateField FieldName = 'm_date' end object ZQuerySzulopontm_time: TStringField FieldName = 'm_time' Size = 10 end end object DataSourceSzulopont: TDataSource DataSet = ZQuerySzulopont Left = 722 Top = 80 end object QRCompositeReport1: TQRCompositeReport OnAddReports = QRCompositeReport1AddReports Options = [FirstPageHeader, LastPageFooter] PrinterSettings.Copies = 1 PrinterSettings.OutputBin = Auto PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.UseStandardprinter = False PrinterSettings.UseCustomBinCode = False PrinterSettings.CustomBinCode = 0 PrinterSettings.ExtendedDuplex = 0 PrinterSettings.UseCustomPaperCode = False PrinterSettings.CustomPaperCode = 0 PrinterSettings.PrintMetaFile = False PrinterSettings.PrintQuality = 0 PrinterSettings.Collate = 0 PrinterSettings.ColorOption = 0 PrinterSettings.Orientation = poPortrait PrinterSettings.PaperSize = A4 Left = 588 Top = 36 end object ZQueryDuplicateKockazat_PszMinta: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'select * ' 'from kockazat_pszminta' 'where (kockazat_pszminta_kod=:mkod)' 'order by nev') Params = < item DataType = ftInteger Name = 'mkod' ParamType = ptInputOutput Value = 0 end> Left = 638 Top = 108 ParamData = < item DataType = ftInteger Name = 'mkod' ParamType = ptInputOutput Value = 0 end> object ZQueryDuplicateKockazat_PszMintakockazat_pszminta_kod: TIntegerField FieldName = 'kockazat_pszminta_kod' Required = True Visible = False end object ZQueryDuplicateKockazat_PszMintanev: TStringField DisplayLabel = 'Vizsg'#225'lat neve' FieldName = 'nev' Size = 100 end object ZQueryDuplicateKockazat_PszMintac_userid: TStringField FieldName = 'c_userid' Visible = False end object ZQueryDuplicateKockazat_PszMintac_date: TDateField FieldName = 'c_date' Visible = False end object ZQueryDuplicateKockazat_PszMintac_time: TStringField FieldName = 'c_time' Visible = False Size = 10 end object ZQueryDuplicateKockazat_PszMintam_userid: TStringField FieldName = 'm_userid' Visible = False end object ZQueryDuplicateKockazat_PszMintam_date: TDateField FieldName = 'm_date' Visible = False end object ZQueryDuplicateKockazat_PszMintam_time: TStringField FieldName = 'm_time' Visible = False Size = 10 end end object DataSourceDuplicateKockazat_PszMinta: TDataSource DataSet = ZQueryDuplicateKockazat_PszMinta Left = 666 Top = 108 end object DataSourceDuplicateKockazat_PszMintaPont: TDataSource DataSet = ZQueryDuplicateKockazat_PszMintaPont Left = 666 Top = 136 end object ZQueryDuplicateKockazat_PszMintaPont: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'select * ' 'from kockazat_pszmintapont' 'where (kockazat_pszmintapont_tkod=:tkod) ' 'order by sorszamszov' '') Params = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 1 end> Left = 638 Top = 136 ParamData = < item DataType = ftInteger Name = 'tkod' ParamType = ptInputOutput Value = 1 end> object ZQueryDuplicateKockazat_PszMintaPontkockazat_pszmintapont_kod: TIntegerField FieldName = 'kockazat_pszmintapont_kod' Required = True end object ZQueryDuplicateKockazat_PszMintaPontkockazat_pszmintapont_tkod: TIntegerField FieldName = 'kockazat_pszmintapont_tkod' Required = True end object ZQueryDuplicateKockazat_PszMintaPontszulo: TStringField FieldName = 'szulo' Size = 15 end object ZQueryDuplicateKockazat_PszMintaPontertek: TStringField FieldName = 'ertek' Size = 15 end object ZQueryDuplicateKockazat_PszMintaPontmelyseg: TSmallintField FieldName = 'melyseg' end object ZQueryDuplicateKockazat_PszMintaPontsorszam: TSmallintField FieldName = 'sorszam' end object ZQueryDuplicateKockazat_PszMintaPontsorszamszov: TStringField FieldName = 'sorszamszov' Size = 40 end object ZQueryDuplicateKockazat_PszMintaPontszoveg: TStringField FieldName = 'szoveg' Size = 255 end object ZQueryDuplicateKockazat_PszMintaPontengedely: TStringField FieldName = 'engedely' Size = 1 end object ZQueryDuplicateKockazat_PszMintaPontszuloszov: TStringField FieldName = 'szuloszov' Size = 30 end object ZQueryDuplicateKockazat_PszMintaPontmasol: TBooleanField FieldName = 'masol' end object ZQueryDuplicateKockazat_PszMintaPontc_userid: TStringField FieldName = 'c_userid' end object ZQueryDuplicateKockazat_PszMintaPontc_date: TDateField FieldName = 'c_date' end object ZQueryDuplicateKockazat_PszMintaPontc_time: TStringField FieldName = 'c_time' Size = 10 end object ZQueryDuplicateKockazat_PszMintaPontm_userid: TStringField FieldName = 'm_userid' end object ZQueryDuplicateKockazat_PszMintaPontm_date: TDateField FieldName = 'm_date' end object ZQueryDuplicateKockazat_PszMintaPontm_time: TStringField FieldName = 'm_time' Size = 10 end end object ZQueryDeleteExec: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'delete from kockazat_pszminta where (kockazat_pszminta_kod=:gmko' + 'd);') Params = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> Left = 408 Top = 64 ParamData = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> end object ZQueryTree_: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'select kockazat_pszmintapont_tkod, ertek, sorszam, engedely' 'from kockazat_pszmintapont' 'where (kockazat_pszmintapont_tkod=:gmkod)' 'order by ertek, sorszam') Params = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> Left = 408 Top = 88 ParamData = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> object ZQueryTree_kockazat_pszmintapont_tkod: TIntegerField FieldName = 'kockazat_pszmintapont_tkod' Required = True end object ZQueryTree_ertek: TStringField FieldName = 'ertek' Size = 15 end object ZQueryTree_sorszam: TSmallintField FieldName = 'sorszam' end object ZQueryTree_engedely: TStringField FieldName = 'engedely' Size = 1 end end object ZQueryKockazat_PszMintaPont_: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'select kockazat_pszmintapont_kod, kockazat_pszmintapont_tkod, sz' + 'ulo, ertek, melyseg, sorszam, sorszamszov, engedely, masol, szu' + 'loszov' 'from kockazat_pszmintapont' 'where (kockazat_pszmintapont_tkod=:gmkod)' 'order by szuloszov, sorszam') Params = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> Left = 408 Top = 120 ParamData = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> object ZQueryKockazat_PszMintaPont_kockazat_pszmintapont_kod: TIntegerField FieldName = 'kockazat_pszmintapont_kod' Required = True end object ZQueryKockazat_PszMintaPont_kockazat_pszmintapont_tkod: TIntegerField FieldName = 'kockazat_pszmintapont_tkod' Required = True end object ZQueryKockazat_PszMintaPont_szulo: TStringField FieldName = 'szulo' Size = 15 end object ZQueryKockazat_PszMintaPont_ertek: TStringField FieldName = 'ertek' Size = 15 end object ZQueryKockazat_PszMintaPont_melyseg: TSmallintField FieldName = 'melyseg' end object ZQueryKockazat_PszMintaPont_sorszam: TSmallintField FieldName = 'sorszam' end object ZQueryKockazat_PszMintaPont_sorszamszov: TStringField FieldName = 'sorszamszov' Size = 40 end object ZQueryKockazat_PszMintaPont_engedely: TStringField FieldName = 'engedely' Size = 1 end object ZQueryKockazat_PszMintaPont_masol: TBooleanField FieldName = 'masol' end object ZQueryKockazat_PszMintaPont_szuloszov: TStringField FieldName = 'szuloszov' Size = 30 end end object ZQueryDeleteExecPont: TZQuery Connection = DM.ZConnection SQL.Strings = ( 'delete from kockazat_pszmintapont where (kockazat_pszmintapont_t' + 'kod=:gmkod);') Params = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> Left = 432 Top = 64 ParamData = < item DataType = ftInteger Name = 'gmkod' ParamType = ptInputOutput Value = 0 end> end end