object fm3100700UnosZaObracun: Tfm3100700UnosZaObracun Left = 285 Top = 191 Width = 661 Height = 487 HelpContext = 310000013 VertScrollBar.Tracking = True Caption = 'fm3100700UnosZaObracun' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [] FormStyle = fsMDIChild KeyPreview = True Position = poDefaultPosOnly Visible = True OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 14 object paTipke: TPanel Left = 0 Top = 27 Width = 653 Height = 58 Align = alTop ParentShowHint = False ShowHint = True TabOrder = 0 object bbUnos: TBitBtn Left = 5 Top = 7 Width = 75 Height = 22 Hint = 'Unos novih podataka | Unos novih podataka u donjem ekranu' Caption = '&Unos' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = bbUnosClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3 333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0 C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0 F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF 00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333 3333333373FF7333333333333000333333333333377733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object bbIzmjena: TBitBtn Left = 5 Top = 30 Width = 75 Height = 22 Hint = 'Izmjena postoje�ih podataka, mijenja se red koji je teku�i u tab' + 'eli tj. ekranu' Caption = '&Izmjena' TabOrder = 1 OnClick = bbIzmjenaClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 end object bbBrisanje: TBitBtn Left = 231 Top = 30 Width = 75 Height = 22 Hint = 'Brisanje podataka u teku�em redu u tabeli ili u ekranu' Caption = '&Brisanje' TabOrder = 2 OnClick = bbBrisanjeClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B5555555555555575} NumGlyphs = 2 end object bbIspis: TBitBtn Left = 156 Top = 30 Width = 75 Height = 22 Hint = 'Ispis podataka u vidu izvje�taja' Caption = 'Iz&vje�taji' TabOrder = 3 OnClick = bbIspisClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 end object bbSpremi: TBitBtn Left = 80 Top = 7 Width = 75 Height = 22 Hint = 'Spremanje novih podataka u unosu ili podataka koji su mijenjani' Caption = '&Spremi' TabOrder = 4 OnClick = bbSpremiClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 end object bbOdustani: TBitBtn Left = 156 Top = 7 Width = 75 Height = 22 Hint = 'Odustanak od unosa novih podataka ili mijenjanja postoje�ih' Caption = '&Odustani' TabOrder = 5 OnClick = bbOdustaniClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF3333993333339993333377FF3333377FF3399993333339 993337777FF3333377F3393999333333993337F777FF333337FF993399933333 399377F3777FF333377F993339993333399377F33777FF33377F993333999333 399377F333777FF3377F993333399933399377F3333777FF377F993333339993 399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399 99333773FF3333777733339993333339933333773FFFFFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 end object bbIzlaz: TBitBtn Left = 231 Top = 7 Width = 75 Height = 22 Hint = 'Prekid rada i izlaz iz prozora' Caption = 'I&zlaz' TabOrder = 6 OnClick = bbIzlazClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} NumGlyphs = 2 end object bbSpremisljedeci: TBitBtn Left = 80 Top = 30 Width = 75 Height = 22 Hint = 'Spremanje novih podataka u unosu ili podataka koji su mijenjani' Caption = 'S&ljede�i' Default = True TabOrder = 7 OnClick = bbSpremisljedeciClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF33339993707399933333773337F3777FF3399933000339 9933377333777F3377F3399333707333993337733337333337FF993333333333 399377F33333F333377F993333303333399377F33337FF333373993333707333 333377F333777F333333993333101333333377F333777F3FFFFF993333000399 999377FF33777F77777F3993330003399993373FF3777F37777F399933000333 99933773FF777F3F777F339993707399999333773F373F77777F333999999999 3393333777333777337333333999993333333333377777333333} NumGlyphs = 2 end object bbPrijenos: TBitBtn Left = 307 Top = 7 Width = 75 Height = 22 Hint = 'Prijenos podataka | Prijenos podatka iz teku�eg reda tabele u ek' + 'ran za unos i izmjenu iz kojeg je pozvan izbornik' Caption = 'Prijenos' Default = True TabOrder = 8 OnClick = bbPrijenosClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} NumGlyphs = 2 end object Panel1: TPanel Left = 466 Top = 1 Width = 186 Height = 56 Align = alRight BevelOuter = bvNone TabOrder = 9 object rgRedoslijed: TRadioGroup Left = 33 Top = 9 Width = 148 Height = 37 Hint = 'Promjena redoslijeda prikaza' Caption = 'Redoslijed po' Items.Strings = ( 'Razdoblju i djelatniku') TabOrder = 0 OnClick = rgRedoslijedClick end end object bbObracun: TBitBtn Left = 307 Top = 30 Width = 75 Height = 22 Hint = 'Pozivanje prozora za obra�un pla�a' Caption = '&Obra�un' TabOrder = 10 OnClick = bbObracunClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFF5555555000000005555555577777777FF555550999999900 55555575555555775F55509999999901055557F55555557F75F5001111111101 105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F 01105777F555557F7FF75500FFFFFF0F00105577F555FF7F77575550FF70000F 0F0055575FF777757F775555000FFFFF0F005555777555FF7F77555550FF7000 0F055555575FF777757F555555000FFFFF05555555777555FF7F55555550FF70 0005555555575FF7777555555555000555555555555577755555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 end end object Panel4: TPanel Left = 0 Top = 0 Width = 653 Height = 27 Align = alTop ParentShowHint = False ShowHint = True TabOrder = 1 object Label4: TLabel Left = 157 Top = 7 Width = 27 Height = 14 Caption = '&Tra�i:' FocusControl = edTrazi end object DBNavigator1: TDBNavigator Left = 1 Top = 1 Width = 139 Height = 25 VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh] Align = alLeft Hints.Strings = ( 'Prvi red' 'Prethodni red' 'Sljede�i red' 'Posljednji red' '' '' '' '' '' 'Obnovi, osvje�i podatke sa diska') TabOrder = 0 end object edTrazi: TEdit Left = 374 Top = 3 Width = 167 Height = 22 Hint = 'Upisivanjem pojedinih znakova �e se pretra�ivati podaci' TabOrder = 2 OnChange = edTraziChange end object cbTrazi: TComboBox Left = 189 Top = 3 Width = 184 Height = 22 Style = csDropDownList ItemHeight = 14 Items.Strings = ( 'razdoblje;prezime djelatnika') TabOrder = 1 end end object sb: TStatusBar Left = 0 Top = 441 Width = 653 Height = 19 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] Panels = < item Text = 'Status' Width = 100 end item Width = 100 end> ParentFont = False SimplePanel = False end object PageControl: TPageControl Left = 0 Top = 85 Width = 653 Height = 356 ActivePage = pgEkran Align = alClient TabOrder = 3 object pgTabela: TTabSheet Hint = 'Tabelarni pregled podataka' Caption = 'T&abelarni prikaz' object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 645 Height = 327 Align = alClient Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Arial CE' TitleFont.Style = [] OnDblClick = bbPrijenosClick Columns = < item FieldName = 'razdoblje' Title.Caption = 'Razdoblje' end item FieldName = 'radnik' Title.Caption = '�ifra' Width = 48 end item FieldName = 'cfRadnik' Title.Caption = 'Djelatnik' Width = 171 end item FieldName = 'cfVrstaRada' Title.Caption = 'Vrsta rada' Width = 163 end item FieldName = 'stopaNaIznos' Title.Caption = 'Stopa' end item FieldName = 'satiRada' Title.Caption = 'Broj sati' end item FieldName = 'bodovaPoSatu' Title.Caption = 'Bodova po satu' Width = 79 end item FieldName = 'bodovaZaRad' Title.Caption = 'Bodova za rad' Width = 77 end item FieldName = 'iznos' Title.Caption = 'Iznos' Width = 88 end> end end object pgEkran: TTabSheet Cursor = crArrow Hint = 'Ekranski pregled, unos i izmjena podataka' Caption = '&Ekranski prikaz' object scrollBox: TScrollBox Left = 0 Top = 0 Width = 645 Height = 327 HorzScrollBar.Margin = 20 HorzScrollBar.Range = 615 HorzScrollBar.Tracking = True VertScrollBar.Margin = 20 VertScrollBar.Range = 317 VertScrollBar.Tracking = True Align = alClient AutoScroll = False TabOrder = 0 object paUnos: TPanel Left = 11 Top = 9 Width = 566 Height = 307 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 0 object Bevel2: TBevel Left = 6 Top = 6 Width = 550 Height = 73 Style = bsRaised end object Bevel1: TBevel Left = 6 Top = 84 Width = 550 Height = 211 Style = bsRaised end object Label1: TLabel Left = 12 Top = 21 Width = 103 Height = 13 Caption = 'Obra�unsko razdoblje' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lbIznos: TLabel Left = 84 Top = 258 Width = 26 Height = 14 Caption = 'Iznos' end object Label5: TLabel Left = 73 Top = 48 Width = 39 Height = 14 Caption = 'Djelatnik' end object lbSatiRada: TLabel Left = 72 Top = 163 Width = 39 Height = 14 Caption = 'Broj sati' end object lbStopaNaIznos: TLabel Left = 38 Top = 133 Width = 72 Height = 14 Caption = 'Stopa na iznos' end object Label3: TLabel Left = 57 Top = 102 Width = 52 Height = 14 Caption = 'Vrsta rada' end object lbBodovaPoSatu: TLabel Left = 35 Top = 196 Width = 76 Height = 14 Caption = 'Bodova po satu' end object lbBodovaZaRad: TLabel Left = 41 Top = 226 Width = 71 Height = 14 Caption = 'Bodova za rad' end object sumVrstaRada: TLabel Left = 476 Top = 102 Width = 72 Height = 14 Alignment = taRightJustify Caption = 'sumVrstaRada' end object sumStopaNaIznos: TLabel Left = 461 Top = 135 Width = 87 Height = 14 Alignment = taRightJustify Caption = 'sumStopaNaIznos' end object sumSatiRada: TLabel Left = 485 Top = 168 Width = 63 Height = 14 Alignment = taRightJustify Caption = 'sumSatiRada' end object sumBodovaPoSatu: TLabel Left = 457 Top = 198 Width = 91 Height = 14 Alignment = taRightJustify Caption = 'sumBodovaPoSatu' end object sumBodovaZaRad: TLabel Left = 459 Top = 231 Width = 89 Height = 14 Alignment = taRightJustify Caption = 'sumBodovaZaRad' end object sumIznos: TLabel Left = 502 Top = 264 Width = 46 Height = 14 Alignment = taRightJustify Caption = 'sumIznos' end object edRadnik: TEdit Left = 204 Top = 47 Width = 298 Height = 22 TabStop = False ReadOnly = True TabOrder = 5 end object btRadnik: TButton Left = 184 Top = 51 Width = 15 Height = 15 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] ParentFont = False TabOrder = 4 TabStop = False OnClick = btRadnikClick end object deSatiRada: TDBEdit Left = 120 Top = 161 Width = 61 Height = 22 DataField = 'satiRada' TabOrder = 10 OnKeyPress = deSatiRadaKeyPress end object deStopaNaIznos: TDBEdit Left = 120 Top = 130 Width = 118 Height = 22 DataField = 'stopaNaIznos' TabOrder = 9 OnKeyPress = deStopaNaIznosKeyPress end object deRadnik: TDBEdit Left = 120 Top = 45 Width = 61 Height = 22 DataField = 'radnik' TabOrder = 3 OnChange = deRadnikChange OnKeyPress = deRadnikKeyPress end object deIznos: TDBEdit Left = 120 Top = 256 Width = 118 Height = 22 DataField = 'iznos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [] ParentFont = False TabOrder = 13 OnKeyPress = deIznosKeyPress end object deRazdoblje: TDBEdit Left = 120 Top = 17 Width = 61 Height = 22 DataField = 'razdoblje' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [] ParentFont = False TabOrder = 0 OnChange = deRazdobljeChange OnKeyPress = deRazdobljeKeyPress end object deVrstaRada: TDBEdit Left = 120 Top = 98 Width = 60 Height = 22 DataField = 'vrstaRada' TabOrder = 6 OnChange = deVrstaRadaChange OnKeyPress = deVrstaRadaKeyPress end object btVrstaRada: TButton Left = 184 Top = 102 Width = 15 Height = 15 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] ParentFont = False TabOrder = 7 TabStop = False OnClick = btVrstaRadaClick end object edVrstaRada: TEdit Left = 204 Top = 98 Width = 298 Height = 22 TabStop = False ReadOnly = True TabOrder = 8 end object btRazdoblje: TButton Left = 184 Top = 21 Width = 15 Height = 15 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial CE' Font.Style = [fsBold] ParentFont = False TabOrder = 1 TabStop = False OnClick = btRazdobljeClick end object edRazdoblje: TEdit Left = 204 Top = 17 Width = 298 Height = 22 TabStop = False ReadOnly = True TabOrder = 2 end object deBodovaPoSatu: TDBEdit Left = 120 Top = 193 Width = 118 Height = 22 DataField = 'bodovaPoSatu' TabOrder = 11 OnKeyPress = deStopaNaIznosKeyPress end object deBodovaZaRad: TDBEdit Left = 120 Top = 224 Width = 118 Height = 22 DataField = 'bodovaZaRad' TabOrder = 12 OnKeyPress = deStopaNaIznosKeyPress end end end end end object ta1OpVrsteRada: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'opVrsteRada' Left = 892 Top = 196 object ta1OpVrsteRadaRecord: TAutoIncField FieldName = 'Record' end object ta1OpVrsteRadaRazdoblje: TStringField FieldName = 'Razdoblje' Size = 8 end object ta1OpVrsteRadaRadnik: TIntegerField FieldName = 'Radnik' end object ta1OpVrsteRadaVrstaRada: TIntegerField FieldName = 'VrstaRada' end object ta1OpVrsteRadaProsjekPoSatu: TFloatField FieldName = 'ProsjekPoSatu' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta1OpVrsteRadaStopaNaIznos: TFloatField FieldName = 'StopaNaIznos' DisplayFormat = ',0.00#%' EditFormat = '0.00' end object ta1OpVrsteRadaSatiRada: TIntegerField FieldName = 'SatiRada' DisplayFormat = '###;;-' end object ta1OpVrsteRadaBodovaPoSatu: TFloatField FieldName = 'BodovaPoSatu' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta1OpVrsteRadaBodovaZaRad: TFloatField FieldName = 'BodovaZaRad' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta1OpVrsteRadaIznos: TFloatField FieldName = 'Iznos' DisplayFormat = ',0.00;;-' EditFormat = '0.00' end object ta1OpVrsteRadacfRadnik: TStringField FieldName = 'cfRadnik' Size = 50 Calculated = True end object ta1OpVrsteRadacfVrstaRada: TStringField FieldName = 'cfVrstaRada' Size = 50 Calculated = True end end object ds1OpVrsteRada: TDataSource DataSet = ta1OpVrsteRada Left = 980 Top = 194 end object ta2OpVrsteRada: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'opVrsteRada' Left = 888 Top = 258 object ta2OpVrsteRadaRecord: TAutoIncField FieldName = 'Record' end object ta2OpVrsteRadaRazdoblje: TStringField FieldName = 'Razdoblje' Size = 8 end object ta2OpVrsteRadaRadnik: TIntegerField FieldName = 'Radnik' end object ta2OpVrsteRadaVrstaRada: TIntegerField FieldName = 'VrstaRada' end object ta2OpVrsteRadaProsjekPoSatu: TFloatField FieldName = 'ProsjekPoSatu' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta2OpVrsteRadaStopaNaIznos: TFloatField FieldName = 'StopaNaIznos' DisplayFormat = ',0.00#%' EditFormat = '0.00' end object ta2OpVrsteRadaSatiRada: TIntegerField FieldName = 'SatiRada' DisplayFormat = '###;;-' end object ta2OpVrsteRadaBodovaPoSatu: TFloatField FieldName = 'BodovaPoSatu' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta2OpVrsteRadaBodovaZaRad: TFloatField FieldName = 'BodovaZaRad' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta2OpVrsteRadaIznos: TFloatField FieldName = 'Iznos' DisplayFormat = ',0.00;;-' EditFormat = '0.00' end object ta2OpVrsteRadacfRadnik: TStringField FieldName = 'cfRadnik' Size = 50 Calculated = True end object ta2OpVrsteRadacfVrstaRada: TStringField FieldName = 'cfVrstaRada' Size = 50 Calculated = True end end object ds2OpVrsteRada: TDataSource DataSet = ta2OpVrsteRada Left = 976 Top = 256 end object ta3OpVrsteRada: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'opVrsteRada' Left = 890 Top = 324 object ta3OpVrsteRadaRecord: TAutoIncField FieldName = 'Record' end object ta3OpVrsteRadaRazdoblje: TStringField FieldName = 'Razdoblje' Size = 8 end object ta3OpVrsteRadaRadnik: TIntegerField FieldName = 'Radnik' end object ta3OpVrsteRadaVrstaRada: TIntegerField FieldName = 'VrstaRada' end object ta3OpVrsteRadaProsjekPoSatu: TFloatField FieldName = 'ProsjekPoSatu' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta3OpVrsteRadaStopaNaIznos: TFloatField FieldName = 'StopaNaIznos' DisplayFormat = ',0.00#%' EditFormat = '0.00' end object ta3OpVrsteRadaSatiRada: TIntegerField FieldName = 'SatiRada' DisplayFormat = '###;;-' end object ta3OpVrsteRadaBodovaPoSatu: TFloatField FieldName = 'BodovaPoSatu' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta3OpVrsteRadaBodovaZaRad: TFloatField FieldName = 'BodovaZaRad' DisplayFormat = ',0.00#;;-' EditFormat = '0.000' end object ta3OpVrsteRadaIznos: TFloatField FieldName = 'Iznos' DisplayFormat = ',0.00;;-' EditFormat = '0.00' end object ta3OpVrsteRadacfRadnik: TStringField FieldName = 'cfRadnik' Size = 50 Calculated = True end object ta3OpVrsteRadacfVrstaRada: TStringField FieldName = 'cfVrstaRada' Size = 50 Calculated = True end end object ta1Vri_sif: TTable Tag = 2 DatabaseName = 'Skupne' TableName = 'vri_sif.db' Left = 901 Top = 550 object ta1Vri_sifSifrarnik: TStringField DisplayLabel = '�ifrarnik' FieldName = 'Sifrarnik' Size = 30 end object ta1Vri_sifSifra: TSmallintField DisplayLabel = '�ifra' FieldName = 'Sifra' end object ta1Vri_sifNaziv: TStringField FieldName = 'Naziv' Size = 50 end object ta1Vri_sifSkr_naziv: TStringField DisplayLabel = 'Skra�eni naziv' FieldName = 'Skr_naziv' Size = 4 end object ta1Vri_sifTip: TSmallintField FieldName = 'Tip' end object ta1Vri_sifKonto: TStringField FieldName = 'Konto' Size = 10 end object ta1Vri_sifTekst: TBlobField FieldName = 'Tekst' BlobType = ftFmtMemo end object ta1Vri_sifZasticen: TBooleanField FieldName = 'Zasticen' end object ta1Vri_sifcfTip: TStringField DisplayLabel = 'Tip dokumenta' FieldName = 'cfTip' Calculated = True end end object ta1VrsteRada: TTable Tag = 2 DatabaseName = 'skupne' TableName = 'VrsteRada' Left = 910 Top = 483 object ta1VrsteRadaSifra: TIntegerField FieldName = 'Sifra' end object ta1VrsteRadaNaziv: TStringField FieldName = 'Naziv' Size = 50 end object ta1VrsteRadaTip_rada: TIntegerField FieldName = 'Tip_rada' end object ta1VrsteRadaSkupina_rada: TIntegerField FieldName = 'Skupina_rada' end object ta1VrsteRadaKoeficijent: TFloatField FieldName = 'Koeficijent' DisplayFormat = ',0.00' end object ta1VrsteRadaTip_obracuna: TIntegerField FieldName = 'Tip_obracuna' end object ta1VrsteRadaBrojRazdobljaUnazad: TIntegerField FieldName = 'BrojRazdobljaUnazad' end object ta1VrsteRadaOsnovicaZaDohodak: TBooleanField FieldName = 'OsnovicaZaDohodak' end object ta1VrsteRadacfTip_rada: TStringField FieldName = 'cfTip_rada' Size = 50 Calculated = True end object ta1VrsteRadacfSkupina_rada: TStringField FieldName = 'cfSkupina_rada' Size = 50 Calculated = True end object ta1VrsteRadacfTip_obracuna: TStringField FieldName = 'cfTip_obracuna' Size = 50 Calculated = True end object ta1VrsteRadacfOsnovicazaDohodak: TStringField FieldName = 'cfOsnovicazaDohodak' Calculated = True end end object ta1Radnici: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'radnici' Left = 972 Top = 413 object ta1RadniciSifra: TIntegerField FieldName = 'Sifra' end object ta1RadniciPrezime: TStringField FieldName = 'Prezime' Size = 30 end object ta1RadniciIme: TStringField FieldName = 'Ime' end object ta1RadniciTitula: TStringField FieldName = 'Titula' end object ta1RadniciFunkcija: TStringField FieldName = 'Funkcija' Size = 50 end object ta1RadniciJmbg: TStringField FieldName = 'Jmbg' Size = 13 end object ta1RadniciBroj_osobne: TStringField FieldName = 'Broj_osobne' Size = 8 end object ta1RadniciBroj_radne: TStringField FieldName = 'Broj_radne' Size = 7 end object ta1RadniciOpcina_radne: TIntegerField FieldName = 'Opcina_radne' end object ta1RadniciBroj_osig: TStringField FieldName = 'Broj_osig' Size = 11 end object ta1RadniciNacin_isplate: TIntegerField FieldName = 'Nacin_isplate' end object ta1RadniciBroj_racuna_tek: TStringField FieldName = 'Broj_racuna_tek' Size = 10 end object ta1RadniciBroj_racuna_knj: TStringField FieldName = 'Broj_racuna_knj' Size = 10 end object ta1RadniciSpol: TIntegerField FieldName = 'Spol' end object ta1RadniciIme_oca: TStringField FieldName = 'Ime_oca' end object ta1RadniciDjev_prezime: TStringField FieldName = 'Djev_prezime' Size = 30 end object ta1RadniciMjesto_rodjenja: TStringField FieldName = 'Mjesto_rodjenja' end object ta1RadniciOpcina_rodjenja: TIntegerField FieldName = 'Opcina_rodjenja' end object ta1RadniciDatum_rodjenja: TDateField FieldName = 'Datum_rodjenja' end object ta1RadniciDrzavljanstvo: TIntegerField FieldName = 'Drzavljanstvo' end object ta1RadniciNacionalnost: TIntegerField FieldName = 'Nacionalnost' end object ta1RadniciBroj_djece: TIntegerField FieldName = 'Broj_djece' end object ta1RadniciObiteljsko_stanje: TIntegerField FieldName = 'Obiteljsko_stanje' end object ta1RadniciMjesto_stan: TStringField FieldName = 'Mjesto_stan' end object ta1RadniciOpcina_stan: TIntegerField FieldName = 'Opcina_stan' end object ta1RadniciAdresa_stan: TStringField FieldName = 'Adresa_stan' Size = 30 end object ta1RadniciTelefon_stan: TStringField FieldName = 'Telefon_stan' Size = 15 end object ta1RadniciZanimanje: TStringField FieldName = 'Zanimanje' Size = 40 end object ta1RadniciKvalifikacija: TIntegerField FieldName = 'Kvalifikacija' end object ta1RadniciSkola: TStringField FieldName = 'Skola' Size = 40 end object ta1RadniciJedinica: TIntegerField FieldName = 'Jedinica' end object ta1RadniciPosao: TIntegerField FieldName = 'Posao' end object ta1RadniciPosao2: TIntegerField FieldName = 'Posao2' end object ta1RadniciPrvo_zaposlenje: TDateField FieldName = 'Prvo_zaposlenje' end object ta1RadniciStaz_prije_mjes: TIntegerField FieldName = 'Staz_prije_mjes' end object ta1RadniciStaz_prije_dani: TIntegerField FieldName = 'Staz_prije_dani' end object ta1RadniciDatum_zaposlenja: TDateField FieldName = 'Datum_zaposlenja' end object ta1RadniciVojska: TBooleanField FieldName = 'Vojska' end object ta1RadniciRadni_odnos: TIntegerField FieldName = 'Radni_odnos' end object ta1RadniciPrestao: TBooleanField FieldName = 'Prestao' end object ta1RadniciPrestao_datum: TDateField FieldName = 'Prestao_datum' end object ta1RadniciPrestao_nacin: TIntegerField FieldName = 'Prestao_nacin' end object ta1RadniciFaktor_odbitaka: TFloatField FieldName = 'Faktor_odbitaka' end object ta1RadniciSindikat: TBooleanField FieldName = 'Sindikat' end object ta1RadniciCekanje: TBooleanField FieldName = 'Cekanje' end object ta1RadniciInvalid2: TBooleanField FieldName = 'Invalid2' end object ta1RadniciInvalid3: TBooleanField FieldName = 'Invalid3' end object ta1RadniciZabiljeska: TBlobField FieldName = 'Zabiljeska' BlobType = ftFmtMemo end object ta1RadnicicfPrezime_ime: TStringField FieldName = 'cfPrezime_ime' Size = 50 Calculated = True end end object ta1Razdoblja: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'razdoblja' Left = 883 Top = 411 object ta1RazdobljaSifra: TStringField FieldName = 'Sifra' Size = 8 end object ta1RazdobljaNaziv: TStringField FieldName = 'Naziv' Size = 50 end object ta1RazdobljaPocetak: TDateField FieldName = 'Pocetak' end object ta1RazdobljaKraj: TDateField FieldName = 'Kraj' end object ta1RazdobljaBrojSati: TIntegerField FieldName = 'BrojSati' end object ta1RazdobljaDatumIsplate: TDateField FieldName = 'DatumIsplate' end object ta1RazdobljaZajamcenaPlaca: TFloatField FieldName = 'ZajamcenaPlaca' DisplayFormat = ',0.00' EditFormat = '0.00' end object ta1RazdobljaNajnizaPlaca: TFloatField FieldName = 'NajnizaPlaca' DisplayFormat = ',0.00;;-' EditFormat = '0.00' end object ta1RazdobljaOsobniOdbitak: TFloatField FieldName = 'OsobniOdbitak' DisplayFormat = ',0.00;;-' EditFormat = '0.00' end object ta1RazdobljaVrijednostBoda: TFloatField FieldName = 'VrijednostBoda' DisplayFormat = ',0.0000;;-' EditFormat = '0.0000' end object ta1RazdobljaPmgfs: TIntegerField FieldName = 'Pmgfs' end object ta1RazdobljaBonoviStopa: TFloatField FieldName = 'BonoviStopa' DisplayFormat = ',0.00##;;-' EditFormat = '0.000' end object ta1RazdobljaGotovinaStopa: TFloatField FieldName = 'GotovinaStopa' DisplayFormat = ',0.00##;;-' EditFormat = '0.000' end object ta1RazdobljaSindikatStopa: TFloatField FieldName = 'SindikatStopa' DisplayFormat = ',0.00##;;-' EditFormat = '0.000' end object ta1RazdobljaInvalidiStopa: TFloatField FieldName = 'InvalidiStopa' DisplayFormat = ',0.00##;;-' EditFormat = '0.000' end object ta1RazdobljaKrediti: TBooleanField FieldName = 'Krediti' end object ta1RazdobljaZakljucano: TBooleanField FieldName = 'Zakljucano' end object ta1RazdobljaZabiljeska: TBlobField FieldName = 'Zabiljeska' BlobType = ftFmtMemo end object ta1RazdobljacfZakljucano: TStringField FieldName = 'cfZakljucano' Calculated = True end end object ta1LockOp: TTable DatabaseName = 'praznegod' TableName = '_lockOp' Left = 919 Top = 634 end object ta3Radnici: TTable Tag = 3 DatabaseName = 'praznepar' TableName = 'radnici' Left = 1036 Top = 409 object IntegerField1: TIntegerField FieldName = 'Sifra' end object StringField1: TStringField FieldName = 'Prezime' Size = 30 end object StringField2: TStringField FieldName = 'Ime' end object StringField3: TStringField FieldName = 'Titula' end object StringField4: TStringField FieldName = 'Funkcija' Size = 50 end object StringField5: TStringField FieldName = 'Jmbg' Size = 13 end object StringField6: TStringField FieldName = 'Broj_osobne' Size = 8 end object StringField7: TStringField FieldName = 'Broj_radne' Size = 7 end object IntegerField2: TIntegerField FieldName = 'Opcina_radne' end object StringField8: TStringField FieldName = 'Broj_osig' Size = 11 end object IntegerField3: TIntegerField FieldName = 'Nacin_isplate' end object StringField9: TStringField FieldName = 'Broj_racuna_tek' Size = 10 end object StringField10: TStringField FieldName = 'Broj_racuna_knj' Size = 10 end object IntegerField4: TIntegerField FieldName = 'Spol' end object StringField11: TStringField FieldName = 'Ime_oca' end object StringField12: TStringField FieldName = 'Djev_prezime' Size = 30 end object StringField13: TStringField FieldName = 'Mjesto_rodjenja' end object IntegerField5: TIntegerField FieldName = 'Opcina_rodjenja' end object DateField1: TDateField FieldName = 'Datum_rodjenja' end object IntegerField6: TIntegerField FieldName = 'Drzavljanstvo' end object IntegerField7: TIntegerField FieldName = 'Nacionalnost' end object IntegerField8: TIntegerField FieldName = 'Broj_djece' end object IntegerField9: TIntegerField FieldName = 'Obiteljsko_stanje' end object StringField14: TStringField FieldName = 'Mjesto_stan' end object IntegerField10: TIntegerField FieldName = 'Opcina_stan' end object StringField15: TStringField FieldName = 'Adresa_stan' Size = 30 end object StringField16: TStringField FieldName = 'Telefon_stan' Size = 15 end object StringField17: TStringField FieldName = 'Zanimanje' Size = 40 end object IntegerField11: TIntegerField FieldName = 'Kvalifikacija' end object StringField18: TStringField FieldName = 'Skola' Size = 40 end object IntegerField12: TIntegerField FieldName = 'Jedinica' end object IntegerField13: TIntegerField FieldName = 'Posao' end object IntegerField14: TIntegerField FieldName = 'Posao2' end object DateField2: TDateField FieldName = 'Prvo_zaposlenje' end object IntegerField15: TIntegerField FieldName = 'Staz_prije_mjes' end object IntegerField16: TIntegerField FieldName = 'Staz_prije_dani' end object DateField3: TDateField FieldName = 'Datum_zaposlenja' end object BooleanField1: TBooleanField FieldName = 'Vojska' end object IntegerField17: TIntegerField FieldName = 'Radni_odnos' end object BooleanField2: TBooleanField FieldName = 'Prestao' end object DateField4: TDateField FieldName = 'Prestao_datum' end object IntegerField18: TIntegerField FieldName = 'Prestao_nacin' end object FloatField1: TFloatField FieldName = 'Faktor_odbitaka' end object BooleanField3: TBooleanField FieldName = 'Sindikat' end object BooleanField4: TBooleanField FieldName = 'Cekanje' end object BooleanField5: TBooleanField FieldName = 'Invalid2' end object BooleanField6: TBooleanField FieldName = 'Invalid3' end object BlobField1: TBlobField FieldName = 'Zabiljeska' BlobType = ftFmtMemo end object StringField19: TStringField FieldName = 'cfPrezime_ime' Size = 50 Calculated = True end end end