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

Text File | 2015-03-03 | 9KB | 364 lines

object DMturop: TDMturop
  OldCreateOrder = True
  OnCreate = DMCreate
  OnDestroy = DMturopDestroy
  Left = 194
  Top = 191
  Height = 201
  Width = 476
  object Turop_DS: TDataSource
    DataSet = Turop
    Left = 14
    Top = 2
  end
  object Doviz: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select * From DovCins with (NOLOCK)')
    Left = 198
    Top = 56
  end
  object Milliyet: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select * From Milliyet with (NOLOCK)')
    Left = 141
    Top = 55
  end
  object Milliyet_DS: TDataSource
    DataSet = Milliyet
    Left = 141
    Top = 9
  end
  object Otel: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select Otel, Adi From Otel with (NOLOCK)')
    Left = 263
    Top = 57
    object OtelOtel: TStringField
      DisplayWidth = 6
      FieldName = 'Otel'
      Size = 6
    end
    object OtelAdi: TStringField
      DisplayWidth = 30
      FieldName = 'Adi'
      Size = 30
    end
  end
  object Bolge: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select * From Bolge')
    Left = 263
    Top = 11
  end
  object BarQry: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select distinct BarNo From Turop'
      'Where Kodu <> :Kodu and BarNo = :BarNo')
    MasterSource = Turop_DS
    Left = 306
    Top = 10
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Kodu'
      end
      item
        DataType = ftUnknown
        Name = 'BarNo'
      end>
  end
  object NewBarNo: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select IsNull(Max(BarNo),0)+1 as BarNo From Turop')
    Left = 361
    Top = 10
  end
  object Doviz_DS: TDataSource
    DataSet = Doviz
    Left = 198
    Top = 10
  end
  object Turop: TMSQuery
    SQLInsert.Strings = (
      'insert into Turop'

        '  (Kodu, Adi, Adr1, Adr2, Sehir, Ulke, Tel1, Tel2, Fax, Tlx, Hes' +
        'apno, Grup, Grubu, GrupFiy, Directory, AdiBos, Gt, GelYeri, Dt, ' +
        'DonYeri, GelDonKodla, BolgeKodla, Acikyukle, Tercume, Dili, DonN' +
        'otu, TopMar, BotMar, Doviz, ConfDef, Antet, Yetkili, EMail, Mill' +
        'iyet, AlFatTurop, SatFatTurop, KurTarihi, BarNo, BarBas, LogoFil' +
        'eName, InfBackFileName)'
      'values'

        '  (:Kodu, :Adi, :Adr1, :Adr2, :Sehir, :Ulke, :Tel1, :Tel2, :Fax,' +
        ' :Tlx, :Hesapno, :Grup, :Grubu, :GrupFiy, :Directory, :AdiBos, :' +
        'Gt, :GelYeri, :Dt, :DonYeri, :GelDonKodla, :BolgeKodla, :Acikyuk' +
        'le, :Tercume, :Dili, :DonNotu, :TopMar, :BotMar, :Doviz, :ConfDe' +
        'f, :Antet, :Yetkili, :EMail, :Milliyet, :AlFatTurop, :SatFatTuro' +
        'p, :KurTarihi, :BarNo, :BarBas, :LogoFileName, :InfBackFileName)')
    SQLDelete.Strings = (
      'delete from Turop'
      'where'
      '  Kodu = :OLD_Kodu')
    SQLUpdate.Strings = (
      'update Turop'
      'set'
      '  Kodu = :Kodu,'
      '  Adi = :Adi,'
      '  Adr1 = :Adr1,'
      '  Adr2 = :Adr2,'
      '  Sehir = :Sehir,'
      '  Ulke = :Ulke,'
      '  Tel1 = :Tel1,'
      '  Tel2 = :Tel2,'
      '  Fax = :Fax,'
      '  Tlx = :Tlx,'
      '  Hesapno = :Hesapno,'
      '  Grup = :Grup,'
      '  Grubu = :Grubu,'
      '  GrupFiy = :GrupFiy,'
      '  Directory = :Directory,'
      '  AdiBos = :AdiBos,'
      '  Gt = :Gt,'
      '  GelYeri = :GelYeri,'
      '  Dt = :Dt,'
      '  DonYeri = :DonYeri,'
      '  GelDonKodla = :GelDonKodla,'
      '  BolgeKodla = :BolgeKodla,'
      '  Acikyukle = :Acikyukle,'
      '  Tercume = :Tercume,'
      '  Dili = :Dili,'
      '  DonNotu = :DonNotu,'
      '  TopMar = :TopMar,'
      '  BotMar = :BotMar,'
      '  Doviz = :Doviz,'
      '  ConfDef = :ConfDef,'
      '  Antet = :Antet,'
      '  Yetkili = :Yetkili,'
      '  EMail = :EMail,'
      '  Milliyet = :Milliyet,'
      '  AlFatTurop = :AlFatTurop,'
      '  SatFatTurop = :SatFatTurop,'
      '  KurTarihi = :KurTarihi,'
      '  BarNo = :BarNo,'
      '  BarBas = :BarBas,'
      '  LogoFileName = :LogoFileName,'
      '  InfBackFileName = :InfBackFileName'
      'where'
      '  Kodu = :OLD_Kodu')
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select * From Turop with (NoLock)'
      'Order by Kodu')
    BeforeInsert = TuropBeforeInsert
    BeforeEdit = TuropBeforeEdit
    BeforePost = TuropBeforePost
    BeforeDelete = TuropBeforeDelete
    OnCalcFields = TuropCalcFields
    OnDeleteError = UpdateError
    OnEditError = UpdateError
    OnNewRecord = TuropNewRecord
    OnPostError = UpdateError
    Left = 14
    Top = 47
    object TuropKodu: TStringField
      DisplayLabel = ' Kodu '
      DisplayWidth = 8
      FieldName = 'Kodu'
      Required = True
      Size = 6
    end
    object TuropAdi: TStringField
      DisplayLabel = 'Ad'#305
      FieldName = 'Adi'
      Size = 25
    end
    object TuropAdr1: TStringField
      DisplayLabel = 'Adres'
      FieldName = 'Adr1'
      Size = 25
    end
    object TuropAdr2: TStringField
      DisplayLabel = 'Adres'
      FieldName = 'Adr2'
      Size = 25
    end
    object TuropSehir: TStringField
      DisplayLabel = #350'ehir'
      DisplayWidth = 12
      FieldName = 'Sehir'
      Size = 15
    end
    object TuropUlke: TStringField
      DisplayLabel = #220'lke'
      DisplayWidth = 12
      FieldName = 'Ulke'
      Size = 15
    end
    object TuropTel1: TStringField
      DisplayLabel = 'Telefon'
      FieldName = 'Tel1'
      Size = 15
    end
    object TuropTel2: TStringField
      DisplayLabel = 'Telefon'
      FieldName = 'Tel2'
      Size = 15
    end
    object TuropFax: TStringField
      FieldName = 'Fax'
      Size = 15
    end
    object TuropTlx: TStringField
      DisplayLabel = 'Fax'
      FieldName = 'Tlx'
      Size = 15
    end
    object TuropHesapno: TStringField
      DisplayWidth = 20
      FieldName = 'Hesapno'
    end
    object TuropGrup: TStringField
      FieldName = 'Grup'
      Size = 1
    end
    object TuropGrubu: TStringField
      FieldName = 'Grubu'
      Size = 6
    end
    object TuropGrupFiy: TStringField
      FieldName = 'GrupFiy'
      Size = 6
    end
    object TuropDirectory: TStringField
      FieldName = 'Directory'
      Size = 64
    end
    object TuropAdibos: TStringField
      FieldName = 'Adibos'
      Size = 25
    end
    object TuropGt: TStringField
      FieldName = 'Gt'
      Size = 1
    end
    object TuropGelYeri: TStringField
      FieldName = 'GelYeri'
    end
    object TuropDt: TStringField
      FieldName = 'Dt'
      Size = 1
    end
    object TuropDonYeri: TStringField
      FieldName = 'DonYeri'
    end
    object TuropGelDonKodla: TStringField
      FieldName = 'GelDonKodla'
      Size = 1
    end
    object TuropBolgeKodla: TStringField
      FieldName = 'BolgeKodla'
      Size = 1
    end
    object TuropAcikyukle: TStringField
      FieldName = 'Acikyukle'
      Size = 1
    end
    object TuropTercume: TStringField
      FieldName = 'Tercume'
      Size = 1
    end
    object TuropDili: TSmallintField
      FieldName = 'Dili'
    end
    object TuropTopMar: TSmallintField
      FieldName = 'TopMar'
    end
    object TuropBotMar: TSmallintField
      FieldName = 'BotMar'
    end
    object TuropDoviz: TStringField
      DisplayLabel = 'D'#246'viz'
      FieldName = 'Doviz'
      Size = 3
    end
    object TuropConfDef: TStringField
      FieldName = 'ConfDef'
      Size = 1
    end
    object TuropAntet: TStringField
      FieldName = 'Antet'
      Size = 25
    end
    object TuropYetkili: TStringField
      FieldName = 'Yetkili'
      Size = 25
    end
    object TuropEMail: TStringField
      DisplayLabel = 'E-Mail'
      DisplayWidth = 40
      FieldName = 'EMail'
      Size = 64
    end
    object TuropMilliyet: TStringField
      FieldName = 'Milliyet'
      Size = 2
    end
    object TuropKurTarihi: TSmallintField
      FieldName = 'KurTarihi'
    end
    object TuropBarBas: TStringField
      FieldName = 'BarBas'
      Size = 1
    end
    object TuropBarNo: TSmallintField
      FieldName = 'BarNo'
    end
    object TuropAlFatTurop: TStringField
      FieldName = 'AlFatTurop'
      Size = 6
    end
    object TuropSatFatTurop: TStringField
      FieldName = 'SatFatTurop'
      Size = 6
    end
    object TuropLogoFileName: TStringField
      FieldName = 'LogoFileName'
      Size = 64
    end
    object TuropInfBackFileName: TStringField
      FieldName = 'InfBackFileName'
      Size = 64
    end
    object TuropGrupAciklama: TStringField
      DisplayLabel = 'Grup Operat'#246'r'#252
      FieldKind = fkCalculated
      FieldName = 'GrupAciklama'
      Size = 5
      Calculated = True
    end
    object TuropDonNotu: TMemoField
      FieldName = 'DonNotu'
      BlobType = ftMemo
    end
  end
  object TmpQry: TMSQuery
    Connection = mDM.MSConnection
    Left = 303
    Top = 56
  end
  object TuropLkp: TMSQuery
    Connection = mDM.MSConnection
    SQL.Strings = (
      'Select Kodu, Adi From Turop with (NOLOCK)')
    Left = 85
    Top = 5
  end
end