object KontniPlan: TKontniPlan Tag = 1 Left = 151 Top = 108 ActiveControl = gPodGrupe BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Dr�avni kontni plan' ClientHeight = 453 ClientWidth = 632 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel2: TBevel Left = 320 Top = 424 Width = 307 Height = 5 Shape = bsBottomLine end object Bevel6: TBevel Left = 320 Top = 404 Width = 307 Height = 5 Shape = bsBottomLine end object Bevel10: TBevel Left = 320 Top = 384 Width = 307 Height = 5 Shape = bsBottomLine end object Bevel4: TBevel Left = 536 Top = 348 Width = 5 Height = 101 Shape = bsRightLine end object Bevel3: TBevel Left = 452 Top = 348 Width = 5 Height = 101 Shape = bsRightLine end object Bevel14: TBevel Left = 368 Top = 348 Width = 5 Height = 101 Shape = bsRightLine end object Bevel17: TBevel Left = 320 Top = 364 Width = 305 Height = 5 Shape = bsBottomLine end object Bevel1: TBevel Left = 320 Top = 348 Width = 307 Height = 101 Shape = bsFrame end object Label4: TLabel Left = 376 Top = 353 Width = 77 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Duguje' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 324 Top = 353 Width = 34 Height = 13 Caption = 'Konto' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 459 Top = 353 Width = 78 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Potra�uje' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 544 Top = 353 Width = 77 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Saldo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object DBText1: TMyDBText Left = 376 Top = 432 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Duguje' DataSource = xKonta1 end object DBText2: TMyDBText Left = 324 Top = 432 Width = 43 Height = 15 DataField = 'Konto' DataSource = xKonta1 end object DBText3: TMyDBText Left = 460 Top = 432 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Potrazuje' DataSource = xKonta1 end object DBText4: TMyDBText Left = 544 Top = 432 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Saldo' DataSource = xKonta1 end object DBText5: TMyDBText Left = 376 Top = 412 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Duguje' DataSource = xKonta2 end object DBText6: TMyDBText Left = 324 Top = 412 Width = 43 Height = 15 DataField = 'Konto' DataSource = xKonta2 end object DBText7: TMyDBText Left = 460 Top = 412 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Potrazuje' DataSource = xKonta2 end object DBText8: TMyDBText Left = 544 Top = 412 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Saldo' DataSource = xKonta2 end object DBText9: TMyDBText Left = 376 Top = 392 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Duguje' DataSource = xKonta3 end object DBText10: TMyDBText Left = 324 Top = 392 Width = 43 Height = 15 DataField = 'Konto' DataSource = xKonta3 end object DBText11: TMyDBText Left = 460 Top = 392 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Potrazuje' DataSource = xKonta3 end object DBText12: TMyDBText Left = 544 Top = 392 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Saldo' DataSource = xKonta3 end object DBText13: TMyDBText Left = 376 Top = 372 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Duguje' DataSource = xKonta4 end object DBText14: TMyDBText Left = 324 Top = 372 Width = 43 Height = 15 DataField = 'Konto' DataSource = xKonta4 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object DBText15: TMyDBText Left = 460 Top = 372 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Potrazuje' DataSource = xKonta4 end object DBText16: TMyDBText Left = 544 Top = 372 Width = 77 Height = 15 Alignment = taRightJustify DataField = 'Saldo' DataSource = xKonta4 end object gPodGrupe: TMyDBGrid Left = 318 Top = 2 Width = 311 Height = 345 FindByName = True DataSource = sKonta4 Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit] TabOrder = 3 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawDataCell = gPodGrupeDrawDataCell end object gKlase: TMyDBGrid Left = 4 Top = 2 Width = 311 Height = 93 FindByName = True DataSource = sKonta1 Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawDataCell = gKlaseDrawDataCell end object gGrupe: TMyDBGrid Left = 4 Top = 97 Width = 311 Height = 130 FindByName = True DataSource = sKonta2 Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit] TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawDataCell = gGrupeDrawDataCell end object gSintetika: TMyDBGrid Left = 4 Top = 229 Width = 311 Height = 219 FindByName = True DataSource = sKonta3 Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit] TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDrawDataCell = gSintetikaDrawDataCell end object sKonta1: TDataSource DataSet = tKonta1 Left = 52 Top = 44 end object sKonta2: TDataSource DataSet = tKonta2 Left = 48 Top = 152 end object sKonta3: TDataSource DataSet = tKonta3 Left = 52 Top = 296 end object sKonta4: TDataSource DataSet = tKonta4 Left = 360 Top = 44 end object xKonta1: TDataSource DataSet = vKonta1 Left = 110 Top = 44 end object xKonta2: TDataSource DataSet = vKonta2 Left = 106 Top = 152 end object xKonta3: TDataSource DataSet = vKonta3 Left = 110 Top = 296 end object xKonta4: TDataSource DataSet = vKonta4 Left = 418 Top = 44 end object vKonta4: TMyTable BeforeDelete = No_Delete DatabaseName = 'Lokal' IndexFieldNames = 'OrgJed;Konto' MasterFields = 'OrgJed;PodGrupa' MasterSource = sKonta4 TableName = 'S_KONTA4.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 390 Top = 44 object vKonta4Konto: TStringField FieldName = 'Konto' Size = 4 end object vKonta4OrgJed: TIntegerField FieldName = 'OrgJed' end object vKonta4Duguje: TFloatField Tag = -11 FieldName = 'Duguje' Precision = 9 end object vKonta4Potrazuje: TFloatField Tag = -11 FieldName = 'Potrazuje' Precision = 9 end object vKonta4Saldo: TFloatField Tag = -11 FieldName = 'Saldo' Precision = 9 end end object tKonta4: TMyTable BeforeDelete = No_Delete DatabaseName = 'Global' IndexFieldNames = 'Podgrupa' TableName = 'KONTA4.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 332 Top = 44 object tKonta4PodGrupa: TStringField DisplayLabel = 'Pod' DisplayWidth = 5 FieldName = 'PodGrupa' Size = 4 end object tKonta4Naziv: TStringField DisplayLabel = 'Naziv podgrupe' DisplayWidth = 40 FieldName = 'Naziv' Size = 60 end object tKonta4OrgJed: TIntegerField FieldName = 'OrgJed' Visible = False Calculated = True end end object vKonta3: TMyTable BeforeDelete = No_Delete DatabaseName = 'Lokal' IndexFieldNames = 'OrgJed;Konto' MasterFields = 'OrgJed;Sintetika' MasterSource = sKonta3 TableName = 'S_KONTA3.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 82 Top = 296 object vKonta3Konto: TStringField FieldName = 'Konto' Size = 3 end object vKonta3OrgJed: TIntegerField FieldName = 'OrgJed' end object vKonta3Duguje: TFloatField Tag = -11 FieldName = 'Duguje' Precision = 9 end object vKonta3Potrazuje: TFloatField Tag = -11 FieldName = 'Potrazuje' Precision = 9 end object vKonta3Saldo: TFloatField Tag = -11 FieldName = 'Saldo' Precision = 9 end end object tKonta3: TMyTable BeforeDelete = No_Delete DatabaseName = 'Global' IndexFieldNames = 'Sintetika' TableName = 'KONTA3.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 24 Top = 296 object tKonta3Sintetika: TStringField Alignment = taCenter DisplayLabel = 'Sint' DisplayWidth = 4 FieldName = 'Sintetika' Size = 3 end object tKonta3Naziv: TStringField DisplayLabel = 'Naziv sintetike' DisplayWidth = 36 FieldName = 'Naziv' Size = 60 end object tKonta3AOP: TSmallintField DisplayWidth = 4 FieldName = 'AOP' end object tKonta3OrgJed: TIntegerField FieldName = 'OrgJed' Visible = False Calculated = True end end object vKonta2: TMyTable BeforeDelete = No_Delete DatabaseName = 'Lokal' IndexFieldNames = 'OrgJed;Konto' MasterFields = 'OrgJed;Grupa' MasterSource = sKonta2 TableName = 'S_KONTA2.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 78 Top = 152 object vKonta2Konto: TStringField FieldName = 'Konto' Size = 2 end object vKonta2OrgJed: TIntegerField FieldName = 'OrgJed' end object vKonta2Duguje: TFloatField Tag = -11 FieldName = 'Duguje' Precision = 9 end object vKonta2Potrazuje: TFloatField Tag = -11 FieldName = 'Potrazuje' Precision = 9 end object vKonta2Saldo: TFloatField Tag = -11 FieldName = 'Saldo' Precision = 9 end end object tKonta2: TMyTable BeforeDelete = No_Delete DatabaseName = 'Global' IndexFieldNames = 'Grupa' TableName = 'KONTA2.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 20 Top = 152 object tKonta2Grupa: TStringField DisplayLabel = 'Gr' DisplayWidth = 3 FieldName = 'Grupa' Size = 2 end object tKonta2Naziv: TStringField DisplayLabel = 'Naziv grupe' DisplayWidth = 37 FieldName = 'Naziv' Size = 60 end object tKonta2AOP: TSmallintField DisplayWidth = 4 FieldName = 'AOP' end object tKonta2OrgJed: TIntegerField FieldName = 'OrgJed' Visible = False Calculated = True end end object vKonta1: TMyTable BeforeDelete = No_Delete DatabaseName = 'Lokal' IndexFieldNames = 'OrgJed;Konto' MasterFields = 'OrgJed;Klasa' MasterSource = sKonta1 TableName = 'S_KONTA1.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 82 Top = 44 object vKonta1Konto: TStringField FieldName = 'Konto' Size = 1 end object vKonta1OrgJed: TIntegerField FieldName = 'OrgJed' end object vKonta1Duguje: TFloatField Tag = -11 Alignment = taCenter FieldName = 'Duguje' Precision = 9 end object vKonta1Potrazuje: TFloatField Tag = -11 Alignment = taCenter FieldName = 'Potrazuje' Precision = 9 end object vKonta1Saldo: TFloatField Tag = -11 Alignment = taCenter FieldName = 'Saldo' Precision = 9 end end object tKonta1: TMyTable BeforeDelete = No_Delete DatabaseName = 'Global' IndexFieldNames = 'Klasa' TableName = 'KONTA1.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = False FreeToInsert = False Left = 24 Top = 44 object tKonta1Klasa: TStringField DisplayLabel = 'K' DisplayWidth = 2 FieldName = 'Klasa' Size = 1 end object tKonta1Naziv: TStringField DisplayLabel = 'Naziv klase' DisplayWidth = 38 FieldName = 'Naziv' Size = 60 end object tKonta1AOP: TSmallintField DisplayWidth = 4 FieldName = 'AOP' end object tKonta1OrgJed: TIntegerField FieldName = 'OrgJed' Visible = False Calculated = True end end end