home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.sanbilgisayar.com
/
ftp.sanbilgisayar.com.tar
/
ftp.sanbilgisayar.com
/
SHOP
/
ShopImportP.exe
/
0
/
RCDATA
/
TKOMALFORM
/
TKOMALFORM.txt
Wrap
Text File
|
2015-03-03
|
8KB
|
250 lines
object KomAlForm: TKomAlForm
Left = 234
Top = 174
Width = 621
Height = 475
ActiveControl = KomAlGrid
BorderIcons = [biSystemMenu]
Caption = 'Komisyon Alanlar'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 520
Top = 0
Width = 93
Height = 445
Align = alRight
BevelInner = bvLowered
Font.Charset = TURKISH_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Yeni: TBitBtn
Left = 9
Top = 68
Width = 75
Height = 25
Caption = '&Yeni'
TabOrder = 0
OnClick = YeniClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object Sil: TBitBtn
Left = 9
Top = 116
Width = 75
Height = 25
Caption = '&Sil'
TabOrder = 1
OnClick = SilClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object Cikis: TBitBtn
Left = 9
Top = 165
Width = 75
Height = 25
Caption = '&'#199#305'k'#305#351
ModalResult = 2
TabOrder = 2
OnClick = CikisClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
end
object KomAlGrid: TDBGridEh
Left = 0
Top = 0
Width = 520
Height = 445
Align = alClient
AllowedOperations = [alopInsertEh, alopUpdateEh, alopAppendEh]
AutoFitColWidths = True
DataSource = ShopKomAl_DS
Flat = True
Font.Charset = TURKISH_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = TURKISH_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab]
ParentFont = False
TabOrder = 1
TitleFont.Charset = TURKISH_CHARSET
TitleFont.Color = clMaroon
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
UseMultiTitle = True
OnEditButtonClick = KomAlGridEditButtonClick
Columns = <
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'Kodu'
Footers = <>
Width = 173
end
item
EditButtons = <>
FieldName = 'Tanimi'
Footers = <>
Title.Caption = 'A'#231#305'klama'
Width = 194
end
item
ButtonStyle = cbsEllipsis
EditButtons = <>
FieldName = 'RehTip'
Footers = <>
Title.Caption = 'Tipi'
end
item
Checkboxes = True
EditButtons = <>
FieldName = 'Extra'
Footers = <>
KeyList.Strings = (
'Y'
'N')
PickList.Strings = (
'Y'
'N')
end>
end
object ShopKomAl: TMSQuery
Connection = mDM.MSConnection
SQL.Strings = (
'Select * from ShopKomAl')
FetchRows = 1
BeforeInsert = ShopKomAlBeforeInsert
BeforeEdit = ShopKomAlBeforeEdit
BeforePost = ShopKomAlBeforePost
OnDeleteError = UpdateError
OnEditError = UpdateError
OnPostError = UpdateError
Left = 320
Top = 296
object ShopKomAlKodu: TStringField
DisplayLabel = ' Kodu '
FieldName = 'Kodu'
Origin = 'ShopKomAl.Kodu'
Required = True
Size = 15
end
object ShopKomAlTanimi: TStringField
FieldName = 'Tanimi'
Origin = 'ShopKomAl.Tanimi'
Size = 30
end
object ShopKomAlRehTip: TStringField
DisplayLabel = 'Rehber Tipi'
DisplayWidth = 12
FieldName = 'RehTip'
Origin = 'ShopKomAl.RehTip'
Size = 6
end
object ShopKomAlExtra: TStringField
DisplayWidth = 6
FieldName = 'Extra'
Origin = 'ShopKomAl.Extra'
Size = 1
end
end
object ShopKomAl_DS: TDataSource
DataSet = ShopKomAl
Left = 319
Top = 221
end
object KontrolQry: TMSQuery
Connection = mDM.MSConnection
Left = 400
Top = 336
end
object RehTipi: TMSQuery
Connection = mDM.MSConnection
SQL.Strings = (
'Select Tipi Kod,Adi Tanim '
'from ShopKomAlTipi')
Left = 312
Top = 368
object RehTipiKod: TStringField
FieldName = 'Kod'
Size = 6
end
object RehTipiTanim: TStringField
FieldName = 'Tanim'
Size = 25
end
end
end