object SifarnikPoduzeca: TSifarnikPoduzeca Tag = 1 Left = 152 Top = 105 VertScrollBar.Visible = False ActiveControl = gPartner BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = '�ifarnik poduze�a' ClientHeight = 453 ClientWidth = 632 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnClose = FormClose OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 239 Height = 453 Align = alClient BevelOuter = bvNone TabOrder = 0 object gPartner: TMyDBGrid Left = 0 Top = 0 Width = 239 Height = 453 FindByName = True Align = alClient DataSource = sPartner Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete] ParentFont = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object Panel2: TPanel Left = 239 Top = 0 Width = 393 Height = 453 Align = alRight BevelOuter = bvNone TabOrder = 1 object Bevel4: TBevel Left = 288 Top = 4 Width = 5 Height = 81 Shape = bsLeftLine end object Bevel8: TBevel Left = 256 Top = 348 Width = 133 Height = 101 Shape = bsFrame end object Bevel2: TBevel Left = 4 Top = 368 Width = 253 Height = 5 Shape = bsTopLine end object Bevel6: TBevel Left = 4 Top = 260 Width = 385 Height = 5 Shape = bsTopLine end object Bevel5: TBevel Left = 4 Top = 194 Width = 385 Height = 5 Shape = bsTopLine end object Bevel10: TBevel Left = 4 Top = 169 Width = 385 Height = 7 Shape = bsBottomLine end object Bevel3: TBevel Left = 4 Top = 84 Width = 385 Height = 5 Shape = bsTopLine end object Bevel1: TBevel Left = 4 Top = 4 Width = 385 Height = 445 Shape = bsFrame end object Label5: TLabel Left = 12 Top = 86 Width = 99 Height = 13 Caption = 'Puni naziv poduze�a' FocusControl = EditNaziv Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = 13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 12 Top = 8 Width = 144 Height = 13 Caption = 'Skra�eni naziv poduze�a' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 12 Top = 372 Width = 36 Height = 13 Caption = 'Telefon' FocusControl = EditTelefon end object Label11: TLabel Left = 136 Top = 372 Width = 35 Height = 13 Caption = 'Telefax' FocusControl = EditTelefax end object Label12: TLabel Left = 12 Top = 408 Width = 34 Height = 13 Caption = 'Mobitel' FocusControl = EditMobitel end object Label13: TLabel Left = 136 Top = 408 Width = 35 Height = 13 Caption = 'Modem' FocusControl = EditModem end object Label14: TLabel Left = 132 Top = 44 Width = 87 Height = 13 Caption = 'Direktor poduze�a' FocusControl = EditKontaktOsoba end object Label15: TLabel Left = 12 Top = 44 Width = 54 Height = 13 Caption = 'Mati�ni broj' FocusControl = EditMaticni end object Label16: TLabel Left = 116 Top = 240 Width = 47 Height = 13 Caption = 'Djelatnost' FocusControl = EditDjelatnost end object Label18: TLabel Left = 12 Top = 348 Width = 30 Height = 13 Caption = 'Valuta' end object Label6: TLabel Left = 32 Top = 130 Width = 31 Height = 13 Caption = 'Mjesto' FocusControl = EditMjesto Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = 13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 12 Top = 154 Width = 49 Height = 13 Caption = 'Ulica i broj' FocusControl = EditUlicaBroj Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = 13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 144 Top = 196 Width = 94 Height = 13 Caption = 'Po�ta (naziv mjesta)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = 13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 12 Top = 196 Width = 31 Height = 13 Caption = 'Zemlja' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = 13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 260 Top = 352 Width = 93 Height = 13 Caption = 'Ostali tel/fax brojevi' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label17: TLabel Left = 12 Top = 264 Width = 31 Height = 13 Caption = 'Banka' end object Label2: TLabel Left = 12 Top = 304 Width = 85 Height = 13 Caption = 'Aktivan �iro-ra�un' end object Label20: TLabel Left = 12 Top = 240 Width = 24 Height = 13 Caption = 'Jezik' end object Label22: TLabel Left = 204 Top = 264 Width = 48 Height = 13 Caption = 'Ino.banka' end object Label19: TLabel Left = 176 Top = 304 Width = 72 Height = 13 Alignment = taCenter Caption = 'Model pla�anja' end object Label1: TLabel Left = 312 Top = 196 Width = 47 Height = 13 Caption = 'Broj po�te' end object EditTelefon: TDBVar Left = 8 Top = 388 Width = 120 Height = 21 AutoSize = False DataField = 'Telefon' DataSource = sPartner TabOrder = 21 end object EditTelefax: TDBVar Left = 132 Top = 388 Width = 120 Height = 21 AutoSize = False DataField = 'Telefax' DataSource = sPartner TabOrder = 22 end object EditMobitel: TDBVar Left = 8 Top = 424 Width = 120 Height = 21 AutoSize = False DataField = 'Mobitel' DataSource = sPartner TabOrder = 23 end object EditModem: TDBVar Left = 132 Top = 424 Width = 120 Height = 21 AutoSize = False DataField = 'Modem' DataSource = sPartner TabOrder = 24 end object EditKontaktOsoba: TDBVar Left = 128 Top = 60 Width = 157 Height = 21 AutoSize = False DataField = 'KontaktOsoba' DataSource = sPartner TabOrder = 2 end object EditMaticni: TDBVar Left = 12 Top = 60 Width = 109 Height = 21 AutoSize = False DataField = 'Maticni' DataSource = sPartner TabOrder = 1 end object EditDjelatnost: TDBName Tag = 55 Left = 240 Top = 236 Width = 141 Height = 21 TabStop = False AutoSize = False Color = clBtnFace DataField = 'Naziv' DataSource = sDjelatno TabOrder = 13 end object EditNaziv: TDBVar Left = 12 Top = 102 Width = 369 Height = 21 AutoSize = False DataField = 'Naziv' DataSource = sPartner Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object EditMjesto: TDBVar Left = 68 Top = 126 Width = 313 Height = 21 AutoSize = False DataField = 'Mjesto' DataSource = sPartner Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object EditUlicaBroj: TDBVar Left = 68 Top = 150 Width = 313 Height = 21 AutoSize = False DataField = 'UlicaBroj' DataSource = sPartner Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object BrojeviMemo: TMyDBMemo Left = 260 Top = 368 Width = 125 Height = 77 DataField = 'OstaliTelefoni' DataSource = sPartner ScrollBars = ssVertical TabOrder = 25 end object IzlazButton: TBitBtn Left = 312 Top = 52 Width = 57 Height = 25 Cancel = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 27 OnClick = IzlazButtonClick Glyph.Data = { 76020000424D7602000000000000760000002800000040000000100000000100 0400000000000002000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333C33333 333333333333333333333333338F33333333333333333333333333333C0C3333 3333333333333333333333333888F333333333333333333333333333C0F0C333 33333333333333333333333388388F3333333333333FF3333333333C0FFF0C33 33333333330033333333333888F388F33333333333883FF3333333CCC0FFF0C3 333333333309003333333383388F388F33333333338F883FF3333CCCCC0FFF0C 3333333333099900333338333388F388F3333FFFFF8F33883FF34CCCCCC0FFF0 C33300000009999900338F3333388F388F33888888833333883FC4CCCCCC0FFF 0C33099999999999990088F333F388F388F38FFFFFFF33333F883C4CC0CCC0FF F0C30000000999990033388F3833F88F38838888888F333F883333C4CCC0CC0F 0C3333333309990033333388F338F38888333333338F3F883333333C4C00CCC0 3333333333090033333333388F883338F3333333338F883333333333C4CCCCCC 33333333330033333333333388F333F83333333333883333333333333C4CCCC3 333333333333333333333333388F388333333333333333333333333333C4C333 3333333333333333333333333388833333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object EditValNaziv: TDBName Tag = 55 Left = 128 Top = 344 Width = 125 Height = 21 TabStop = False AutoSize = False Color = clBtnFace DataField = 'Naziv' DataSource = sValuta Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 20 end object ZapisiButton: TBitBtn Left = 296 Top = 16 Width = 85 Height = 29 Caption = 'Poduze�e' TabOrder = 26 OnClick = ZapisiButtonClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 end object cDjelatnost: TDBLookupField Left = 168 Top = 236 Width = 73 Height = 21 DataField = 'DJELATNOST' DataSource = sPartner LookupSource = sDjelatno LookupDisplay = 'SIFRA' LookupField = 'CODE' TabOrder = 12 DisplayName = '�ifra djelatnosti' OnF2Press = cDjelatnostF2Press end object cValuta: TDBLookupField Left = 48 Top = 344 Width = 81 Height = 21 DataField = 'VALUTA' DataSource = sPartner LookupSource = sValuta LookupDisplay = 'SIFRA' LookupField = 'CODE' TabOrder = 19 DisplayName = '�ifra valute' OnF2Press = cValutaF2Press end object cBanka: TDBJustLookup Left = 12 Top = 280 Width = 177 Height = 21 DataField = 'BANKA' DataSource = sPartner LookupSource = sBanke LookupDisplay = 'SIFRA' LookupField = 'PARTNER' TabOrder = 14 DisplayName = '�ifra banke' OnF2Press = cBankaF2Press end object cPosta: TDBLookupField Left = 144 Top = 212 Width = 165 Height = 21 DataField = 'POSTA' DataSource = sPartner LookupSource = sPosta LookupDisplay = 'SIFRA' LookupField = 'CODE' TabOrder = 9 DisplayName = 'Po�ta (naziv mjesta)' OnF2Press = cPostaF2Press end object cZemlja: TDBLookupField Left = 12 Top = 212 Width = 129 Height = 21 DataField = 'ZEMLJA' DataSource = sPartner LookupSource = sZemlja LookupDisplay = 'SIFRA' LookupField = 'CODE' TabOrder = 8 DisplayName = 'Zemlja' OnExitChanged = cZemljaExit OnF2Press = cZemljaF2Press end object cSifra: TDBKeyField Left = 12 Top = 22 Width = 273 Height = 19 AutoSize = False DataField = 'SIFRA' DataSource = sPartner TabOrder = 0 DisplayName = 'Skra�eni naziv poduze�a' end object eGovor: TDBLookupField Left = 40 Top = 236 Width = 69 Height = 21 DataField = 'JEZIK' DataSource = sPartner LookupSource = sGovor LookupDisplay = 'SIFRA' LookupField = 'CODE' TabOrder = 11 DisplayName = '�ifra govornog podru�ja' OnExitChanged = eGovorExit OnF2Press = eGovorF2Press end object xVise: TDBChecker Left = 180 Top = 178 Width = 205 Height = 13 TabStop = False Caption = 'Dodatni rabat je na ve�e koli�ine robe.' DataField = 'Rabat2Kolicina' DataSource = sPartner Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 ValueChecked = 'True' ValueUnchecked = 'False' end object xPlus: TDBChecker Left = 12 Top = 178 Width = 161 Height = 13 Caption = 'Poduze�e daje dodatni rabat.' DataField = 'Rabat2' DataSource = sPartner Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 ValueChecked = 'True' ValueUnchecked = 'False' OnChange = xPlusChange OnClick = xPlusChange end object cBanka2: TDBJustLookup Left = 204 Top = 280 Width = 177 Height = 21 DataField = 'INOBANKA' DataSource = sPartner LookupSource = sBanke2 LookupDisplay = 'SIFRA' LookupField = 'PARTNER' TabOrder = 15 DisplayName = 'Banka za pla�anja u inozemstvo' OnF2Press = cBankaF2Press end object ePoziv: TDBVar Left = 176 Top = 320 Width = 31 Height = 21 AutoSize = False DataField = 'Poziv' DataSource = sPartner TabOrder = 17 end object eModel: TDBVar Left = 208 Top = 320 Width = 173 Height = 21 AutoSize = False DataField = 'Model' DataSource = sPartner TabOrder = 18 end object eZiroRn: TDBLookupField Left = 12 Top = 320 Width = 153 Height = 21 DataField = 'ZIRORN' DataSource = sPartner LookupSource = sZiro LookupDisplay = 'SIFRA' LookupField = 'CODE' TabOrder = 16 DisplayName = '�iro-ra�un partnera' end object eBrojPoste: TDBName Tag = 55 Left = 312 Top = 212 Width = 69 Height = 21 TabStop = False AutoSize = False Color = clBtnFace DataField = 'Broj' DataSource = sPosta TabOrder = 10 end end object sPartner: TDataSource DataSet = tPartner Left = 52 Top = 28 end object sValuta: TDataSource DataSet = tValuta Left = 328 Top = 340 end object sDjelatno: TDataSource DataSet = tDjelatno Left = 568 Top = 236 end object sBanke: TDataSource DataSet = tBanke Left = 372 Top = 268 end object sPosta: TDataSource DataSet = tPosta Left = 440 Top = 208 end object sZemlja: TDataSource DataSet = tZemlja Left = 296 Top = 208 end object sGovor: TDataSource DataSet = tGovor Left = 312 Top = 240 end object sBanke2: TDataSource DataSet = tBanke2 Left = 568 Top = 268 end object sZiro: TDataSource DataSet = tZiro Left = 348 Top = 308 end object tValuta: TMyTable DatabaseName = 'Global' IndexFieldNames = 'CODE' MasterFields = 'VALUTA' MasterSource = sPartner TableName = 'VALUTA.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 300 Top = 340 end object tBanke: TMyTable DatabaseName = 'Global' IndexFieldNames = 'PARTNER' MasterFields = 'BANKA' MasterSource = sPartner TableName = 'BANKE.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 344 Top = 268 end object tBanke2: TMyTable DatabaseName = 'Global' IndexFieldNames = 'PARTNER' MasterFields = 'INOBANKA' MasterSource = sPartner TableName = 'BANKE.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 540 Top = 268 end object tZiro: TMyTable DatabaseName = 'Global' IndexFieldNames = 'PARTNER;CODE' MasterFields = 'CODE;ZIRORN' MasterSource = sPartner TableName = 'ZIREKI.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 320 Top = 308 end object tDjelatno: TMyTable DatabaseName = 'Global' IndexFieldNames = 'CODE' MasterFields = 'DJELATNOST' MasterSource = sPartner TableName = 'DJELATNO.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 540 Top = 236 end object tGovor: TMyTable DatabaseName = 'Global' IndexFieldNames = 'CODE' MasterFields = 'JEZIK' MasterSource = sPartner TableName = 'GOVOR.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 284 Top = 240 object tGovorCode: TAutoIncField FieldName = 'Code' end object tGovorSifra: TStringField FieldName = 'Sifra' Size = 40 end object tGovorNaziv: TStringField FieldName = 'Naziv' Size = 60 end end object tPosta: TMyTable DatabaseName = 'Global' IndexFieldNames = 'ZEMLJA;CODE' MasterFields = 'ZEMLJA;POSTA' MasterSource = sPartner TableName = 'POSTA.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 412 Top = 208 object tPostaCode: TAutoIncField FieldName = 'Code' end object tPostaSifra: TStringField FieldName = 'Sifra' Size = 40 end object tPostaBroj: TIntegerField FieldName = 'Broj' end object tPostaZemlja: TIntegerField FieldName = 'Zemlja' end end object tZemlja: TMyTable DatabaseName = 'Global' IndexFieldNames = 'CODE' MasterFields = 'ZEMLJA' MasterSource = sPartner TableName = 'ZEMLJA.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 268 Top = 208 object tZemljaCode: TAutoIncField FieldName = 'Code' end object tZemljaSifra: TStringField FieldName = 'Sifra' Size = 50 end object tZemljaGovor: TIntegerField FieldName = 'Govor' end end object tPartner: TMyTable DatabaseName = 'Global' IndexFieldNames = 'SIFRA' TableName = 'PARTNER.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 24 Top = 28 object tPartnerCode: TAutoIncField FieldName = 'Code' Visible = False end object tPartnerSifra: TStringField DisplayLabel = 'Skra�eni naziv poduze�a' DisplayWidth = 34 FieldName = 'Sifra' Size = 40 end object tPartnerNaziv: TStringField FieldName = 'Naziv' Visible = False Size = 80 end object tPartnerMjesto: TStringField FieldName = 'Mjesto' Visible = False Size = 40 end object tPartnerUlicaBroj: TStringField FieldName = 'UlicaBroj' Visible = False Size = 60 end object tPartnerPosta: TIntegerField FieldName = 'Posta' Visible = False end object tPartnerZemlja: TIntegerField FieldName = 'Zemlja' Visible = False end object tPartnerJezik: TIntegerField FieldName = 'Jezik' Visible = False end object tPartnerTelefon: TStringField FieldName = 'Telefon' Visible = False end object tPartnerTelefax: TStringField FieldName = 'Telefax' Visible = False end object tPartnerMobitel: TStringField FieldName = 'Mobitel' Visible = False end object tPartnerModem: TStringField FieldName = 'Modem' Visible = False end object tPartnerKontaktOsoba: TStringField FieldName = 'KontaktOsoba' Visible = False Size = 40 end object tPartnerMaticni: TStringField FieldName = 'Maticni' Visible = False Size = 30 end object tPartnerDjelatnost: TIntegerField FieldName = 'Djelatnost' Visible = False end object tPartnerBanka: TIntegerField FieldName = 'Banka' Visible = False end object tPartnerInoBanka: TIntegerField FieldName = 'InoBanka' Visible = False end object tPartnerValuta: TIntegerField FieldName = 'Valuta' Visible = False end object tPartnerZiroRN: TIntegerField FieldName = 'ZiroRN' Visible = False end object tPartnerPoziv: TSmallintField FieldName = 'Poziv' Visible = False end object tPartnerModel: TStringField FieldName = 'Model' Visible = False Size = 30 end object tPartnerOstaliTelefoni: TMemoField FieldName = 'OstaliTelefoni' Visible = False BlobType = ftMemo Size = 30 end object tPartnerRabat2: TBooleanField FieldName = 'Rabat2' Visible = False end object tPartnerRabat2Kolicina: TBooleanField FieldName = 'Rabat2Kolicina' Visible = False end object tPartnerItems: TIntegerField FieldName = 'Items' Visible = False end end end