home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TSIFARNIKKNJIGA
/
TSIFARNIKKNJIGA.txt
Wrap
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