home *** CD-ROM | disk | FTP | other *** search
/ ftp.sanbilgisayar.com / ftp.sanbilgisayar.com.tar / ftp.sanbilgisayar.com / SHOP / ShopImportP.exe / 0 / RCDATA / TOTELREHFORM / TOTELREHFORM.txt
Text File  |  2015-03-03  |  5KB  |  198 lines
  1. object OtelRehForm: TOtelRehForm
  2.   Left = 438
  3.   Top = 35
  4.   ActiveControl = OtelRehGrid
  5.   BorderIcons = []
  6.   BorderStyle = bsDialog
  7.   Caption = 'Oteller'
  8.   ClientHeight = 491
  9.   ClientWidth = 341
  10.   Color = clBtnFace
  11.   Font.Charset = DEFAULT_CHARSET
  12.   Font.Color = clWindowText
  13.   Font.Height = -11
  14.   Font.Name = 'MS Sans Serif'
  15.   Font.Style = []
  16.   KeyPreview = True
  17.   OldCreateOrder = True
  18.   Position = poScreenCenter
  19.   OnClose = FormClose
  20.   OnCreate = FormCreate
  21.   OnDestroy = FormDestroy
  22.   OnKeyPress = FormKeyPress
  23.   OnShow = FormShow
  24.   PixelsPerInch = 96
  25.   TextHeight = 13
  26.   object LabCap: TLabel
  27.     Left = 54
  28.     Top = 442
  29.     Width = 15
  30.     Height = 13
  31.     Alignment = taRightJustify
  32.     Caption = 'Bul'
  33.     Font.Charset = TURKISH_CHARSET
  34.     Font.Color = clWindowText
  35.     Font.Height = -11
  36.     Font.Name = 'MS Sans Serif'
  37.     Font.Style = []
  38.     ParentFont = False
  39.   end
  40.   object SecButton: TBitBtn
  41.     Left = 63
  42.     Top = 465
  43.     Width = 69
  44.     Height = 25
  45.     Caption = '&Se'#231
  46.     Font.Charset = TURKISH_CHARSET
  47.     Font.Color = clWindowText
  48.     Font.Height = -11
  49.     Font.Name = 'MS Sans Serif'
  50.     Font.Style = []
  51.     ParentFont = False
  52.     TabOrder = 2
  53.     Kind = bkOK
  54.   end
  55.   object Cikis: TBitBtn
  56.     Left = 161
  57.     Top = 465
  58.     Width = 69
  59.     Height = 25
  60.     Caption = '&Vazge'#231
  61.     Font.Charset = TURKISH_CHARSET
  62.     Font.Color = clWindowText
  63.     Font.Height = -11
  64.     Font.Name = 'MS Sans Serif'
  65.     Font.Style = []
  66.     ParentFont = False
  67.     TabOrder = 3
  68.     Kind = bkCancel
  69.   end
  70.   object Bul: TEdit
  71.     Left = 72
  72.     Top = 438
  73.     Width = 116
  74.     Height = 21
  75.     CharCase = ecUpperCase
  76.     Font.Charset = TURKISH_CHARSET
  77.     Font.Color = clWindowText
  78.     Font.Height = -11
  79.     Font.Name = 'MS Sans Serif'
  80.     Font.Style = []
  81.     MaxLength = 6
  82.     ParentFont = False
  83.     TabOrder = 1
  84.     OnChange = BulChange
  85.     OnKeyDown = BulKeyDown
  86.   end
  87.   object OtelRehGrid: TDBGridEh
  88.     Left = 0
  89.     Top = 0
  90.     Width = 341
  91.     Height = 435
  92.     Align = alTop
  93.     AutoFitColWidths = True
  94.     DataSource = Otel_DS
  95.     Flat = True
  96.     Font.Charset = TURKISH_CHARSET
  97.     Font.Color = clWindowText
  98.     Font.Height = -11
  99.     Font.Name = 'MS Sans Serif'
  100.     Font.Style = []
  101.     FooterColor = clWindow
  102.     FooterFont.Charset = DEFAULT_CHARSET
  103.     FooterFont.Color = clWindowText
  104.     FooterFont.Height = -11
  105.     FooterFont.Name = 'MS Sans Serif'
  106.     FooterFont.Style = []
  107.     Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  108.     ParentFont = False
  109.     ReadOnly = True
  110.     TabOrder = 0
  111.     TitleFont.Charset = DEFAULT_CHARSET
  112.     TitleFont.Color = clMaroon
  113.     TitleFont.Height = -11
  114.     TitleFont.Name = 'MS Sans Serif'
  115.     TitleFont.Style = []
  116.     UseMultiTitle = True
  117.     OnCellClick = OtelRehGridCellClick
  118.     OnColEnter = OtelRehGridColEnter
  119.     OnDblClick = OtelRehGridDblClick
  120.     Columns = <
  121.       item
  122.         AutoFitColWidth = False
  123.         EditButtons = <>
  124.         FieldName = 'Otel'
  125.         Footers = <>
  126.       end
  127.       item
  128.         EditButtons = <>
  129.         FieldName = 'Adi'
  130.         Footers = <>
  131.       end
  132.       item
  133.         AutoFitColWidth = False
  134.         EditButtons = <>
  135.         FieldName = 'Bolge'
  136.         Footers = <>
  137.         Width = 35
  138.       end
  139.       item
  140.         AutoFitColWidth = False
  141.         EditButtons = <>
  142.         FieldName = 'TrfBolge'
  143.         Footers = <>
  144.         Width = 47
  145.       end>
  146.   end
  147.   object AraChk: TCheckBox
  148.     Tag = 1
  149.     Left = 195
  150.     Top = 440
  151.     Width = 97
  152.     Height = 17
  153.     Caption = #304#231'inde Ara.'
  154.     TabOrder = 4
  155.     OnClick = BulChange
  156.   end
  157.   object Otel_DS: TDataSource
  158.     DataSet = Otel
  159.     Left = 27
  160.     Top = 83
  161.   end
  162.   object Otel: TMSQuery
  163.     Connection = mDM.MSConnection
  164.     SQL.Strings = (
  165.       'Select Otel,Adi,Bolge,TrfBolge From Otel with (NOLOCK)'
  166.       'Order By Otel')
  167.     OnFilterRecord = OtelFilterRecord
  168.     Left = 27
  169.     Top = 141
  170.     object OtelOtel: TStringField
  171.       DisplayWidth = 8
  172.       FieldName = 'Otel'
  173.       Origin = 'Otel.Otel'
  174.       Required = True
  175.       Size = 6
  176.     end
  177.     object OtelAdi: TStringField
  178.       DisplayLabel = 'Ad'#305
  179.       DisplayWidth = 30
  180.       FieldName = 'Adi'
  181.       Origin = 'Otel.Adi'
  182.       Size = 30
  183.     end
  184.     object OtelBolge: TStringField
  185.       DisplayLabel = 'B'#246'lge'
  186.       FieldName = 'Bolge'
  187.       Origin = 'Otel.Bolge'
  188.       Size = 3
  189.     end
  190.     object OtelTrfBolge: TStringField
  191.       DisplayLabel = 'Transfer B'#246'lgesi'
  192.       FieldName = 'TrfBolge'
  193.       Origin = 'Otel.TrfBolge'
  194.       Size = 3
  195.     end
  196.   end
  197. end
  198.