object TarihSejourRehForm: TTarihSejourRehForm
  Left = 355
  Top = 103
  Width = 277
  Height = 511
  Caption = 'Tur Tarihleri (Sejour)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object TarihGrd: TDBGridEh
    Left = 0
    Top = 0
    Width = 261
    Height = 441
    Align = alTop
    AutoFitColWidths = True
    DataSource = Tarih_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, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clMaroon
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    OnDblClick = TarihGrdDblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Tarih'
        Footers = <>
      end>
  end
  object BitBtn2: TBitBtn
    Left = 150
    Top = 446
    Width = 69
    Height = 25
    Caption = '&Vazge'#231
    TabOrder = 1
    Kind = bkCancel
  end
  object SecButton: TBitBtn
    Left = 40
    Top = 446
    Width = 69
    Height = 25
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Kind = bkOK
  end
  object Tarih_DS: TDataSource
    DataSet = Tarih
    Left = 22
    Top = 83
  end
  object Tarih: TMSQuery
    Connection = mDM.SejourDB
    SQL.Strings = (
      'Select Tarih from turkisi Where Tur=:Tur and Bolge=:Bolge '
      'group by(Tarih)')
    Left = 23
    Top = 133
    ParamData = <
      item
        DataType = ftString
        Name = 'Tur'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'Bolge'
        ParamType = ptInput
      end>
    object TarihTarih: TDateTimeField
      FieldName = 'Tarih'
      Origin = '.Tarih'
    end
  end
end