home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TSIFARNIKGRUPAARTIKLI
/
TSIFARNIKGRUPAARTIKLI.txt
Wrap
Text File
|
1998-01-05
|
8KB
|
264 lines
object SifarnikGrupaArtikli: TSifarnikGrupaArtikli
Tag = 1
Left = 208
Top = 165
Width = 555
Height = 271
ActiveControl = gTable
BorderIcons = [biSystemMenu, biMinimize]
Caption = '�ifarnik grupa artikli'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnClose = FormClose
OnHide = FormHide
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 325
Top = 0
Width = 222
Height = 244
Align = alClient
Alignment = taRightJustify
BevelOuter = bvNone
BorderWidth = 3
TabOrder = 0
object DBGrid1: TMyDBGrid
Left = 3
Top = 3
Width = 216
Height = 238
FindByName = True
Align = alClient
DataSource = sMain
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
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 = 0
Width = 325
Height = 244
Align = alLeft
BevelOuter = bvNone
BorderWidth = 1
TabOrder = 1
object gTable: TMyDBGrid
Left = 1
Top = 1
Width = 323
Height = 183
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
object Panel4: TPanel
Left = 1
Top = 184
Width = 323
Height = 59
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 12
Width = 35
Height = 13
Caption = 'Grupa'
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 = 16
Top = 40
Width = 27
Height = 13
Caption = 'Naziv'
end
object ZapisiButton: TBitBtn
Left = 152
Top = 4
Width = 81
Height = 29
Caption = 'Grupa'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = ZapisiButtonClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object IzlazButton: TBitBtn
Left = 240
Top = 4
Width = 77
Height = 29
Cancel = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
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 eSifra: TDBKeyField
Left = 48
Top = 8
Width = 97
Height = 21
AutoSize = False
DataField = 'SIFRA'
DataSource = sTable
TabOrder = 0
DisplayName = '�ifra grupe artikli'
end
object eNaziv: TDBVar
Left = 48
Top = 36
Width = 269
Height = 21
AutoSize = False
DataField = 'Naziv'
DataSource = sTable
TabOrder = 1
end
end
end
object sTable: TDataSource
DataSet = tTable
Left = 48
Top = 48
end
object sMain: TDataSource
DataSet = tMain
Left = 380
Top = 28
end
object tTable: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'PARTNER;SIFRA'
MasterFields = 'Partner'
MasterSource = sMain
TableName = 'GRUPE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 20
Top = 48
object tTableCode: TAutoIncField
FieldName = 'Code'
Visible = False
end
object tTablePartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
object tTableSifra: TStringField
DisplayLabel = '�ifra grupe'
DisplayWidth = 15
FieldName = 'Sifra'
Size = 40
end
object tTableNaziv: TStringField
DisplayLabel = 'Naziv grupe'
DisplayWidth = 32
FieldName = 'Naziv'
Size = 60
end
end
object tMain: TMyTable
DatabaseName = 'Lokal'
IndexFieldNames = 'Dobavljac;Sifra'
TableName = 'SIF_PART.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 352
Top = 28
object tMainSifra: TStringField
DisplayLabel = '�ifra partnera'
DisplayWidth = 30
FieldName = 'Sifra'
Size = 40
end
object tMainDobavljac: TStringField
FieldName = 'Dobavljac'
Visible = False
Size = 1
end
object tMainPartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
end
end