home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TSIFARNIKIMENAROBE
/
TSIFARNIKIMENAROBE.txt
Wrap
Text File
|
1998-01-05
|
10KB
|
359 lines
object SifarnikImenaRobe: TSifarnikImenaRobe
Tag = 1
Left = 140
Top = 208
Width = 640
Height = 480
ActiveControl = gRoba
BorderIcons = [biSystemMenu, biMinimize]
Caption = '�ifarnik naziva proizvoda'
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 Panel1: TPanel
Left = 0
Top = 0
Width = 224
Height = 453
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object gFirme: TMyDBGrid
Left = 0
Top = 0
Width = 224
Height = 453
FindByName = True
Align = alClient
DataSource = sFirme
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 = 224
Top = 0
Width = 408
Height = 453
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Panel3: TPanel
Left = 0
Top = 304
Width = 408
Height = 149
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Bevel2: TBevel
Left = 4
Top = 96
Width = 333
Height = 49
Style = bsRaised
end
object Label2: TLabel
Left = 12
Top = 100
Width = 277
Height = 13
Caption = 'Naziv proizvoda na odabranom govornom podru�ju (jeziku)'
end
object IzlazButton: TBitBtn
Left = 364
Top = 96
Width = 45
Height = 21
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 ZapisiButton: TBitBtn
Left = 340
Top = 116
Width = 69
Height = 25
Caption = 'Naziv'
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 gGovor: TMyDBGrid
Left = 4
Top = 0
Width = 407
Height = 93
FindByName = True
DataSource = sGovor
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 eNaziv: TDBVar
Left = 12
Top = 116
Width = 317
Height = 21
AutoSize = False
DataField = 'Naziv'
DataSource = sImeRobe
TabOrder = 1
OnExitChanged = eNazivExitChanged
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 408
Height = 304
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 6
TabOrder = 0
object eSifra: TDBEdit
Left = 360
Top = 32
Width = 21
Height = 21
TabStop = False
DataField = 'Code'
DataSource = sTable
Enabled = False
TabOrder = 1
OnChange = eSifraChange
end
object gRoba: TMyDBGrid
Left = 6
Top = 6
Width = 396
Height = 292
FindByName = True
Align = alClient
DataSource = sTable
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
end
object sFirme: TDataSource
DataSet = tFirme
Left = 48
Top = 40
end
object sTable: TDataSource
DataSet = tTable
Left = 336
Top = 128
end
object sGovor: TDataSource
DataSet = tGovor
Left = 272
Top = 328
end
object sImeRobe: TDataSource
DataSet = tImeRobe
Left = 460
Top = 416
end
object tImeRobe2: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Roba;Govor'
TableName = 'IME_ROBE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 332
Top = 328
object tImeRobe2Roba: TIntegerField
FieldName = 'Roba'
end
object tImeRobe2Govor: TIntegerField
FieldName = 'Govor'
end
object tImeRobe2Naziv: TStringField
FieldName = 'Naziv'
Size = 60
end
end
object tImeRobe: TMyTable
BeforePost = tImeRobeBeforePost
DatabaseName = 'Global'
IndexFieldNames = 'Roba;Govor'
MasterFields = 'Roba;Code'
MasterSource = sGovor
TableName = 'IME_ROBE.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = True
FreeToDelete = True
FreeToInsert = True
Left = 432
Top = 416
end
object tGovor: TMyTable
OnCalcFields = tGovorCalcFields
DatabaseName = 'Global'
TableName = 'GOVOR.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 244
Top = 328
object tGovorCode: TAutoIncField
FieldName = 'Code'
Visible = False
end
object tGovorSifra: TStringField
DisplayLabel = 'Govor'
DisplayWidth = 15
FieldName = 'Sifra'
Size = 40
end
object tGovorNaziv: TStringField
FieldName = 'Naziv'
Visible = False
Size = 60
end
object tGovorRoba: TIntegerField
FieldName = 'Roba'
Visible = False
Calculated = True
end
object tGovorIme: TStringField
DisplayLabel = 'Naziv proizvoda na govornom podru�ju (jeziku)'
DisplayWidth = 46
FieldName = 'Ime'
OnGetText = tGovorRobaGetText
Size = 80
Calculated = True
end
end
object tTable: TMyTable
DatabaseName = 'Global'
IndexFieldNames = 'Proizvodi;Naziv'
MasterFields = 'Partner'
MasterSource = sFirme
TableName = 'ROBA.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 308
Top = 128
object tTableCode: TAutoIncField
FieldName = 'Code'
Visible = False
end
object tTableProizvodi: TIntegerField
FieldName = 'Proizvodi'
Visible = False
end
object tTableNaziv: TStringField
DisplayWidth = 60
FieldName = 'Naziv'
Size = 60
end
object tTableItems: TIntegerField
FieldName = 'Items'
Visible = False
end
end
object tFirme: TMyTable
DatabaseName = 'Global'
TableName = 'FIRME.DB'
AutoOpen = True
AutoFlush = True
FreeToModify = False
FreeToDelete = True
FreeToInsert = True
Left = 20
Top = 40
object tFirmeSifra: TStringField
DisplayLabel = '�ifra proizvo�a�a'
DisplayWidth = 32
FieldName = 'Sifra'
Size = 40
end
object tFirmePartner: TIntegerField
FieldName = 'Partner'
Visible = False
end
end
end