BUG 11/BUGCD1998_02.ISO/aplic/trade/_setup.1/main.exe/0/RCDATA/TSIFARNIKKNJIGA/TSIFARNIKKNJIGA.txt

Text File | 1998-01-05 | 5KB | 199 lines

object SifarnikKnjiga: TSifarnikKnjiga
  Tag = 1
  Left = 221
  Top = 185
  Width = 415
  Height = 267
  ActiveControl = gTable
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Lokalni �ifarnik knjiga ulaza i izlaza'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  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 = 407
    Height = 135
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 3
    TabOrder = 0
    object gTable: TMyDBGrid
      Left = 3
      Top = 3
      Width = 401
      Height = 129
      FindByName = True
      Align = alClient
      DataSource = sTable
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 135
    Width = 407
    Height = 105
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object Bevel1: TBevel
      Left = 4
      Top = 4
      Width = 397
      Height = 45
      Style = bsRaised
    end
    object Label1: TLabel
      Left = 12
      Top = 8
      Width = 27
      Height = 13
      Caption = '�ifra'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 116
      Top = 8
      Width = 58
      Height = 13
      Caption = 'Naziv knjige'
    end
    object ZapisiButton: TBitBtn
      Left = 300
      Top = 64
      Width = 89
      Height = 29
      Caption = 'Knjiga'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = ZapisiButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object eSifra: TDBKeyField
      Left = 8
      Top = 24
      Width = 93
      Height = 21
      AutoSize = False
      DataField = 'SIFRA'
      DataSource = sTable
      TabOrder = 0
      DisplayName = '�ifra trgova�ke knjige'
    end
    object eNaziv: TDBVar
      Left = 112
      Top = 24
      Width = 285
      Height = 20
      AutoSize = False
      DataField = 'Naziv'
      DataSource = sTable
      TabOrder = 1
    end
    object rVrsta: TMyDBRadioGroup
      Left = 4
      Top = 52
      Width = 277
      Height = 49
      Caption = 'Vrsta knjige'
      Columns = 3
      DataField = 'Vrsta'
      DataSource = sTable
      Items.Strings = (
        'Veleprodaja'
        'Maloprodaja'
        'Materijal'
        'Oprema'
        'Sitni inventar')
      TabOrder = 2
      Values.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5')
    end
  end
  object sTable: TDataSource
    DataSet = tTable
    Left = 72
    Top = 44
  end
  object tTable: TMyTable
    DatabaseName = 'Lokal'
    IndexFieldNames = 'SIFRA'
    TableName = 'KNJIGE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 44
    Top = 44
    object tTableCode: TAutoIncField
      FieldName = 'Code'
      Visible = False
    end
    object tTableSifra: TStringField
      DisplayLabel = '�ifra knjige'
      DisplayWidth = 20
      FieldName = 'Sifra'
      Size = 40
    end
    object tTableNaziv: TStringField
      DisplayLabel = 'Naziv knjige'
      DisplayWidth = 40
      FieldName = 'Naziv'
      Size = 60
    end
    object tTableVrsta: TSmallintField
      FieldName = 'Vrsta'
      Visible = False
    end
    object tTableItems: TIntegerField
      FieldName = 'Items'
      Visible = False
    end
  end
end