ftp.sanbilgisayar.com/ftp.sanbilgisayar.com.tar/ftp.sanbilgisayar.com/SHOP/ShopImportP.exe/0/RCDATA/TDMTUR/TDMTUR.txt

Text File | 2015-03-03 | 5KB | 210 lines

object DMtur: TDMtur
  OldCreateOrder = True
  OnCreate = DMCreate
  OnDestroy = DMturDestroy
  Left = 330
  Top = 233
  Height = 224
  Width = 177
  object Tur_Ds: TDataSource
    DataSet = Tur
    Left = 19
    Top = 5
  end
  object Tur: TMSQuery
    SQLInsert.Strings = (
      'insert into Tur'

        '  (Kodu, Adi, DeparYeri, Aciklama1, Aciklama2,  SBebYas1, SBebYa' +
        's2, SBebYuzde, SCocYas1, SCocYas2, SCocYuzde, SureGun, GunKatSay' +
        'i, OprGDSira, OrtKm, TurKate,FiyKate )'
      'values'

        '  (:Kodu, :Adi, :DeparYeri, :Aciklama1, :Aciklama2, :SBebYas1, :' +
        'SBebYas2, :SBebYuzde, :SCocYas1, :SCocYas2, :SCocYuzde, :SureGun' +
        ', :GunKatSayi, :OprGDSira, :OrtKm, :TurKate, :FiyKate)')
    SQLDelete.Strings = (
      'delete from Tur'
      'where'
      '  Kodu = :OLD_Kodu')
    SQLUpdate.Strings = (
      'update Tur'
      'set'
      '  Kodu = :Kodu,'
      '  Adi = :Adi,'
      '  DeparYeri = :DeparYeri,'
      '  Aciklama1 = :Aciklama1,'
      '  Aciklama2 = :Aciklama2,'
      '  SBebYas1 = :SBebYas1,'
      '  SBebYas2 = :SBebYas2,'
      '  SBebYuzde = :SBebYuzde,'
      '  SCocYas1 = :SCocYas1,'
      '  SCocYas2 = :SCocYas2,'
      '  SCocYuzde = :SCocYuzde,'
      '  SureGun = :SureGun,'
      '  GunKatSayi = :GunKatSayi,'
      '  OprGDSira = :OprGDSira,'
      '  OrtKm = :OrtKm,'
      '  TurKate = :TurKate,'
      '  FiyKate = :FiyKate'
      'where'
      '  Kodu = :OLD_Kodu')
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select * From Tur with (NOLOCK)'
      'Order by Kodu')
    FetchRows = 1
    BeforeInsert = TurBeforeInsert
    BeforeEdit = TurBeforeEdit
    BeforePost = TurBeforePost
    OnDeleteError = UpdateError
    OnEditError = UpdateError
    OnNewRecord = TurNewRecord
    OnPostError = UpdateError
    Left = 21
    Top = 60
    object TurKodu: TStringField
      DisplayLabel = 'Kodu '
      DisplayWidth = 8
      FieldName = 'Kodu'
      Origin = 'Tur.Kodu'
      Size = 6
    end
    object TurAdi: TStringField
      DisplayLabel = 'Tur Ad'#305
      FieldName = 'Adi'
      Origin = 'Tur.Adi'
      Size = 25
    end
    object TurDeparYeri: TStringField
      DisplayLabel = 'Depar Yeri'
      FieldName = 'DeparYeri'
      Origin = 'Tur.DeparYeri'
      Size = 15
    end
    object TurAciklama1: TStringField
      DisplayLabel = 'A'#231#305'klama'
      DisplayWidth = 50
      FieldName = 'Aciklama1'
      Origin = 'Tur.Aciklama1'
      Size = 80
    end
    object TurAciklama2: TStringField
      FieldName = 'Aciklama2'
      Origin = 'Tur.Aciklama2'
      Size = 80
    end
    object TurABebYas1: TSmallintField
      DisplayWidth = 2
      FieldName = 'ABebYas1'
      Origin = 'Tur.ABebYas1'
    end
    object TurABebYas2: TSmallintField
      DisplayWidth = 2
      FieldName = 'ABebYas2'
      Origin = 'Tur.ABebYas2'
    end
    object TurABebYuzde: TSmallintField
      FieldName = 'ABebYuzde'
      Origin = 'Tur.ABebYuzde'
      DisplayFormat = '%##'
      EditFormat = '##'
    end
    object TurSBebYas1: TSmallintField
      DisplayWidth = 2
      FieldName = 'SBebYas1'
      Origin = 'Tur.SBebYas1'
    end
    object TurSBebYas2: TSmallintField
      DisplayWidth = 2
      FieldName = 'SBebYas2'
      Origin = 'Tur.SBebYas2'
    end
    object TurSBebYuzde: TSmallintField
      FieldName = 'SBebYuzde'
      Origin = 'Tur.SBebYuzde'
      DisplayFormat = '%##'
      EditFormat = '##'
    end
    object TurACocYas1: TSmallintField
      DisplayWidth = 2
      FieldName = 'ACocYas1'
      Origin = 'Tur.ACocYas1'
    end
    object TurACocYas2: TSmallintField
      DisplayWidth = 2
      FieldName = 'ACocYas2'
      Origin = 'Tur.ACocYas2'
    end
    object TurACocYuzde: TSmallintField
      FieldName = 'ACocYuzde'
      Origin = 'Tur.ACocYuzde'
      DisplayFormat = '%##'
      EditFormat = '##'
    end
    object TurSCocYas1: TSmallintField
      DisplayWidth = 2
      FieldName = 'SCocYas1'
      Origin = 'Tur.SCocYas1'
    end
    object TurSCocYas2: TSmallintField
      DisplayWidth = 2
      FieldName = 'SCocYas2'
      Origin = 'Tur.SCocYas2'
    end
    object TurSCocYuzde: TSmallintField
      FieldName = 'SCocYuzde'
      Origin = 'Tur.SCocYuzde'
      DisplayFormat = '%##'
      EditFormat = '##'
    end
    object TurSureGun: TSmallintField
      DisplayLabel = 'Tur S'#252'resi'
      DisplayWidth = 5
      FieldName = 'SureGun'
      Origin = 'Tur.SureGun'
      DisplayFormat = '##'
    end
    object TurGunKatSayi: TFloatField
      FieldName = 'GunKatSayi'
      Origin = 'Tur.GunKatSayi'
    end
    object TurOprGDSira: TStringField
      FieldName = 'OprGDSira'
      Origin = 'Tur.OprGDSira'
      Size = 1
    end
    object TurOrtKm: TSmallintField
      FieldName = 'OrtKm'
      Origin = 'Tur.OrtKm'
    end
    object TurTurKate: TStringField
      DisplayLabel = 'Tur Kategorisi'
      DisplayWidth = 15
      FieldName = 'TurKate'
      Origin = 'Tur.TurKate'
      Size = 15
    end
    object TurFiyKate: TStringField
      DisplayLabel = 'Fiyat Kategorisi'
      FieldName = 'FiyKate'
      Origin = 'Tur.FiyKate'
      Size = 15
    end
  end
  object TurRezCtlQry: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select * From ShpBas'
      'Where Tur = :Kodu')
    Left = 98
    Top = 53
    ParamData = <
      item
        DataType = ftString
        Name = 'Kodu'
        ParamType = ptInput
      end>
  end
end