home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.sanbilgisayar.com
/
ftp.sanbilgisayar.com.tar
/
ftp.sanbilgisayar.com
/
SHOP
/
ShopImportP.exe
/
0
/
RCDATA
/
TOTELMAIN
/
TOTELMAIN.txt
Wrap
Text File
|
2015-03-03
|
10KB
|
294 lines
object OtelMain: TOtelMain
Left = 206
Top = 176
Width = 800
Height = 383
ActiveControl = OtelGrid
Align = alClient
BorderIcons = [biSystemMenu]
Caption = 'Oteller'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 13
object OtelGrid: TDBGridEh
Left = 0
Top = 0
Width = 792
Height = 297
Align = alClient
AllowedOperations = [alopAppendEh]
DataSource = DMotel.Otel_DS
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
PopupMenu = PopupMenu1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clMaroon
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = OtelKartButClick
OnKeyPress = OtelGridKeyPress
OnTitleBtnClick = OtelGridTitleBtnClick
Columns = <
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'Otel'
Footers = <>
Title.Alignment = taCenter
Title.TitleButton = True
end
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'Adi'
Footers = <>
Title.Alignment = taCenter
Title.TitleButton = True
Width = 170
end
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'Kategori'
Footers = <>
Title.Alignment = taCenter
Title.TitleButton = True
Width = 87
end
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'BolgeAdi'
Footers = <>
Title.Alignment = taCenter
Title.TitleButton = True
Width = 125
end
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'TrfBolgeAdi'
Footers = <>
Title.Alignment = taCenter
Title.TitleButton = True
Width = 125
end
item
EditButtons = <>
FieldName = 'Tel1'
Footers = <>
Title.Alignment = taCenter
end
item
EditButtons = <>
FieldName = 'Fax'
Footers = <>
Title.Alignment = taCenter
end>
end
object Panel1: TPanel
Left = 0
Top = 297
Width = 792
Height = 24
Align = alBottom
BevelInner = bvLowered
TabOrder = 1
object Otel: TEdit
Left = 12
Top = 3
Width = 53
Height = 19
CharCase = ecUpperCase
Ctl3D = False
Font.Charset = TURKISH_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 6
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnChange = OtelChange
end
end
object AutoPanel1: TAutoPanel
Left = 0
Top = 321
Width = 792
Height = 35
AutoChildPosLeft = True
AutoChildWidth = True
Align = alBottom
BevelInner = bvLowered
TabOrder = 2
object YeniBut: TBitBtn
Left = 42
Top = 5
Width = 85
Height = 25
Caption = '&Yeni'
TabOrder = 0
OnClick = YeniButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object SilBut: TBitBtn
Left = 357
Top = 5
Width = 85
Height = 25
Caption = '&Sil'
TabOrder = 1
OnClick = SilButClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object YaziciBut: TBitBtn
Left = 518
Top = 5
Width = 85
Height = 25
Caption = 'Ya&z'#305'c'#305
TabOrder = 2
OnClick = YaziciButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object CikisBut: TBitBtn
Left = 680
Top = 5
Width = 85
Height = 25
Cancel = True
Caption = '&'#199#305'k'#305#351
TabOrder = 3
OnClick = CikisButClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object OtelKartBut: TBitBtn
Left = 195
Top = 5
Width = 85
Height = 25
Caption = '&Otel Kart'#305
TabOrder = 4
OnClick = OtelKartButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
9055575757575757775505050505055505557575757575557555}
NumGlyphs = 2
end
end
object PopupMenu1: TPopupMenu
Left = 288
Top = 96
object Yeni1: TMenuItem
Caption = '&Yeni Otel'
OnClick = YeniButClick
end
object OtelKart1: TMenuItem
Caption = '&Otel Kart'#305
OnClick = OtelKartButClick
end
object DetayBilgiler1: TMenuItem
Caption = '&Detay Bilgiler'
end
end
end