home *** CD-ROM | disk | FTP | other *** search
/ ftp.sanbilgisayar.com / ftp.sanbilgisayar.com.tar / ftp.sanbilgisayar.com / SHOP / ShopImportP.exe / 0 / RCDATA / TTARIHSEJOURREHFORM / TTARIHSEJOURREHFORM.txt
Text File  |  2015-03-03  |  3KB  |  109 lines
  1. object TarihSejourRehForm: TTarihSejourRehForm
  2.   Left = 355
  3.   Top = 103
  4.   Width = 277
  5.   Height = 511
  6.   Caption = 'Tur Tarihleri (Sejour)'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   Position = poScreenCenter
  15.   OnDestroy = FormDestroy
  16.   OnKeyPress = FormKeyPress
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object TarihGrd: TDBGridEh
  20.     Left = 0
  21.     Top = 0
  22.     Width = 261
  23.     Height = 441
  24.     Align = alTop
  25.     AutoFitColWidths = True
  26.     DataSource = Tarih_DS
  27.     Flat = True
  28.     Font.Charset = DEFAULT_CHARSET
  29.     Font.Color = clWindowText
  30.     Font.Height = -11
  31.     Font.Name = 'MS Sans Serif'
  32.     Font.Style = []
  33.     FooterColor = clWindow
  34.     FooterFont.Charset = DEFAULT_CHARSET
  35.     FooterFont.Color = clWindowText
  36.     FooterFont.Height = -11
  37.     FooterFont.Name = 'MS Sans Serif'
  38.     FooterFont.Style = []
  39.     Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  40.     ParentFont = False
  41.     ReadOnly = True
  42.     TabOrder = 0
  43.     TitleFont.Charset = DEFAULT_CHARSET
  44.     TitleFont.Color = clMaroon
  45.     TitleFont.Height = -11
  46.     TitleFont.Name = 'MS Sans Serif'
  47.     TitleFont.Style = []
  48.     UseMultiTitle = True
  49.     OnDblClick = TarihGrdDblClick
  50.     Columns = <
  51.       item
  52.         EditButtons = <>
  53.         FieldName = 'Tarih'
  54.         Footers = <>
  55.       end>
  56.   end
  57.   object BitBtn2: TBitBtn
  58.     Left = 150
  59.     Top = 446
  60.     Width = 69
  61.     Height = 25
  62.     Caption = '&Vazge'#231
  63.     TabOrder = 1
  64.     Kind = bkCancel
  65.   end
  66.   object SecButton: TBitBtn
  67.     Left = 40
  68.     Top = 446
  69.     Width = 69
  70.     Height = 25
  71.     Font.Charset = TURKISH_CHARSET
  72.     Font.Color = clWindowText
  73.     Font.Height = -11
  74.     Font.Name = 'MS Sans Serif'
  75.     Font.Style = []
  76.     ParentFont = False
  77.     TabOrder = 2
  78.     Kind = bkOK
  79.   end
  80.   object Tarih_DS: TDataSource
  81.     DataSet = Tarih
  82.     Left = 22
  83.     Top = 83
  84.   end
  85.   object Tarih: TMSQuery
  86.     Connection = mDM.SejourDB
  87.     SQL.Strings = (
  88.       'Select Tarih from turkisi Where Tur=:Tur and Bolge=:Bolge '
  89.       'group by(Tarih)')
  90.     Left = 23
  91.     Top = 133
  92.     ParamData = <
  93.       item
  94.         DataType = ftString
  95.         Name = 'Tur'
  96.         ParamType = ptInput
  97.       end
  98.       item
  99.         DataType = ftString
  100.         Name = 'Bolge'
  101.         ParamType = ptInput
  102.       end>
  103.     object TarihTarih: TDateTimeField
  104.       FieldName = 'Tarih'
  105.       Origin = '.Tarih'
  106.     end
  107.   end
  108. end
  109.