home *** CD-ROM | disk | FTP | other *** search
/ ftp.sanbilgisayar.com / ftp.sanbilgisayar.com.tar / ftp.sanbilgisayar.com / SHOP / ShopImportP.exe / 0 / RCDATA / TDMREHBER / TDMREHBER.txt
Text File  |  2015-03-03  |  9KB  |  338 lines
  1. object DMrehber: TDMrehber
  2.   OldCreateOrder = True
  3.   OnCreate = DMCreate
  4.   OnDestroy = DataModuleDestroy
  5.   Left = 272
  6.   Top = 160
  7.   Height = 270
  8.   Width = 329
  9.   object RehberTmp: TMSQuery
  10.     Connection = mDM.MSConnection
  11.     SQL.Strings = (
  12.       'Select * From Rehber'
  13.       'Order By Kodu')
  14.     Left = 249
  15.     Top = 23
  16.   end
  17.   object Rehber_DS: TDataSource
  18.     DataSet = Rehber
  19.     Left = 20
  20.     Top = 2
  21.   end
  22.   object Rehber: TMSQuery
  23.     SQLInsert.Strings = (
  24.       'insert into Rehber'
  25.       
  26.         '  (Kodu, Adi, Aciklama, Resim, Bastarih, Ciktarih, DTarih, Tahsi' +
  27.         'l, BelgeNo, Tel, EvTel, CepTel, Cinsiyet, Adres1, Adres2, Adres3' +
  28.         ', Almanca, Ingilizce, Fransizca, Rusca, Flemence, Italyanca, Tur' +
  29.         'kce, Azerice, Fince, Lehce, KomIpt, AyCalGunu, AyUcret, AyUcretD' +
  30.         'ov,Ibranice,Arabca,DigDil,RehTipi)'
  31.       'values'
  32.       
  33.         '  (:Kodu, :Adi, :Aciklama, :Resim, :Bastarih, :Ciktarih, :DTarih' +
  34.         ', :Tahsil, :BelgeNo, :Tel, :EvTel, :CepTel, :Cinsiyet, :Adres1, ' +
  35.         ':Adres2, :Adres3, :Almanca, :Ingilizce, :Fransizca, :Rusca, :Fle' +
  36.         'mence, :Italyanca, :Turkce, :Azerice, :Fince, :Lehce, :KomIpt, :' +
  37.         'AyCalGunu, :AyUcret, :AyUcretDov,:Ibranice,:Arabca,:DigDil,:RehT' +
  38.         'ipi)')
  39.     SQLDelete.Strings = (
  40.       'delete from Rehber'
  41.       'where'
  42.       '  Kodu = :OLD_Kodu')
  43.     SQLUpdate.Strings = (
  44.       'update Rehber'
  45.       'set'
  46.       '  Kodu = :Kodu,'
  47.       '  Adi = :Adi,'
  48.       '  Aciklama = :Aciklama,'
  49.       '  Resim = :Resim,'
  50.       '  Bastarih = :Bastarih,'
  51.       '  Ciktarih = :Ciktarih,'
  52.       '  DTarih = :DTarih,'
  53.       '  Tahsil = :Tahsil,'
  54.       '  BelgeNo = :BelgeNo,'
  55.       '  Tel = :Tel,'
  56.       '  EvTel = :EvTel,'
  57.       '  CepTel = :CepTel,'
  58.       '  Cinsiyet = :Cinsiyet,'
  59.       '  Adres1 = :Adres1,'
  60.       '  Adres2 = :Adres2,'
  61.       '  Adres3 = :Adres3,'
  62.       '  Almanca = :Almanca,'
  63.       '  Ingilizce = :Ingilizce,'
  64.       '  Fransizca = :Fransizca,'
  65.       '  Rusca = :Rusca,'
  66.       '  Flemence = :Flemence,'
  67.       '  Italyanca = :Italyanca,'
  68.       '  Turkce = :Turkce,'
  69.       '  Azerice = :Azerice,'
  70.       '  Fince = :Fince,'
  71.       '  Lehce = :Lehce,'
  72.       '  KomIpt = :KomIpt,'
  73.       '  AyCalGunu = :AyCalGunu,'
  74.       '  AyUcret = :AyUcret,'
  75.       '  AyUcretDov = :AyUcretDov,'
  76.       '  Ibranice = :Ibranice,'
  77.       '  Arabca = :Arabca,'
  78.       '  DigDil = :DigDil,'
  79.       '  RehTipi = :RehTipi'
  80.       'where'
  81.       '  Kodu = :OLD_Kodu')
  82.     Connection = mDM.MSConnection
  83.     SQL.Strings = (
  84.       'Select * From Rehber with (NOLOCK)'
  85.       'Order By Kodu')
  86.     BeforeInsert = RehberBeforeInsert
  87.     BeforeEdit = RehberBeforeEdit
  88.     BeforePost = RehberBeforePost
  89.     BeforeDelete = RehberBeforeDelete
  90.     OnDeleteError = UpdateError
  91.     OnEditError = UpdateError
  92.     OnPostError = UpdateError
  93.     Left = 20
  94.     Top = 48
  95.     object RehberKodu: TStringField
  96.       DisplayLabel = 'Kodu '
  97.       DisplayWidth = 8
  98.       FieldName = 'Kodu'
  99.       Origin = 'Rehber.Kodu'
  100.       Size = 6
  101.     end
  102.     object RehberAdi: TStringField
  103.       DisplayLabel = 'Ad'#305
  104.       DisplayWidth = 27
  105.       FieldName = 'Adi'
  106.       Origin = 'Rehber.Adi'
  107.       Size = 25
  108.     end
  109.     object RehberAciklama: TStringField
  110.       DisplayLabel = 'A'#231#305'klama'
  111.       DisplayWidth = 40
  112.       FieldName = 'Aciklama'
  113.       Origin = 'Rehber.Aciklama'
  114.       Size = 80
  115.     end
  116.     object RehberRehTipi: TStringField
  117.       FieldName = 'RehTipi'
  118.       Size = 6
  119.     end
  120.     object RehberRehTipiTanim: TStringField
  121.       DisplayLabel = 'Rehber Tipi'
  122.       DisplayWidth = 28
  123.       FieldKind = fkLookup
  124.       FieldName = 'RehTipiTanim'
  125.       LookupDataSet = RehTipi
  126.       LookupKeyFields = 'Kod'
  127.       LookupResultField = 'Tanim'
  128.       KeyFields = 'RehTipi'
  129.       Size = 25
  130.       Lookup = True
  131.     end
  132.     object RehberResim: TStringField
  133.       DisplayLabel = 'Resim '
  134.       FieldName = 'Resim'
  135.       Origin = 'Rehber.Resim'
  136.       Size = 15
  137.     end
  138.     object RehberBastarih: TDateTimeField
  139.       DisplayLabel = 'Ba'#351'lama Tarihi'
  140.       DisplayWidth = 10
  141.       FieldName = 'Bastarih'
  142.       Origin = 'Rehber.Bastarih'
  143.       OnSetText = TarihSetText
  144.       DisplayFormat = 'dd/mm/yyyy'
  145.       EditMask = '99/99/9999'
  146.     end
  147.     object RehberCiktarih: TDateTimeField
  148.       FieldName = 'Ciktarih'
  149.       Origin = 'Rehber.Ciktarih'
  150.       EditMask = '99/99/9999'
  151.     end
  152.     object RehberDTarih: TDateTimeField
  153.       DisplayLabel = 'Do'#287'um Tarihi'
  154.       DisplayWidth = 10
  155.       FieldName = 'DTarih'
  156.       Origin = 'Rehber.DTarih'
  157.       DisplayFormat = 'dd/mm/yyyy'
  158.       EditMask = '99/99/9999'
  159.     end
  160.     object RehberTahsil: TStringField
  161.       DisplayLabel = 'Tahsili'
  162.       FieldName = 'Tahsil'
  163.       Origin = 'Rehber.Tahsil'
  164.       Size = 10
  165.     end
  166.     object RehberBelgeNo: TStringField
  167.       DisplayLabel = 'Belge No'
  168.       DisplayWidth = 10
  169.       FieldName = 'BelgeNo'
  170.       Origin = 'Rehber.BelgeNo'
  171.       Size = 15
  172.     end
  173.     object RehberTel: TStringField
  174.       DisplayLabel = 'Tel '
  175.       DisplayWidth = 11
  176.       FieldName = 'Tel'
  177.       Origin = 'Rehber.Tel'
  178.       Size = 15
  179.     end
  180.     object RehberEvTel: TStringField
  181.       DisplayLabel = 'Ev Tel'
  182.       DisplayWidth = 11
  183.       FieldName = 'EvTel'
  184.       Origin = 'Rehber.EvTel'
  185.       Size = 15
  186.     end
  187.     object RehberCepTel: TStringField
  188.       DisplayLabel = 'Cep Tel'
  189.       DisplayWidth = 11
  190.       FieldName = 'CepTel'
  191.       Origin = 'Rehber.CepTel'
  192.       Size = 15
  193.     end
  194.     object RehberCinsiyet: TStringField
  195.       DisplayLabel = 'Cinsiyet '
  196.       DisplayWidth = 8
  197.       FieldName = 'Cinsiyet'
  198.       Origin = 'Rehber.Cinsiyet'
  199.       Size = 5
  200.     end
  201.     object RehberAdres1: TStringField
  202.       FieldName = 'Adres1'
  203.       Origin = 'Rehber.Adres1'
  204.       Size = 30
  205.     end
  206.     object RehberAdres2: TStringField
  207.       FieldName = 'Adres2'
  208.       Origin = 'Rehber.Adres2'
  209.       Size = 30
  210.     end
  211.     object RehberAdres3: TStringField
  212.       FieldName = 'Adres3'
  213.       Origin = 'Rehber.Adres3'
  214.       Size = 30
  215.     end
  216.     object RehberKomIpt: TStringField
  217.       FieldName = 'KomIpt'
  218.       Origin = 'Rehber.KomIpt'
  219.       Size = 1
  220.     end
  221.     object RehberAlmanca: TStringField
  222.       FieldName = 'Almanca'
  223.       Origin = 'Rehber.Almanca'
  224.       Size = 1
  225.     end
  226.     object RehberIngilizce: TStringField
  227.       FieldName = 'Ingilizce'
  228.       Origin = 'Rehber.Ingilizce'
  229.       Size = 1
  230.     end
  231.     object RehberFransizca: TStringField
  232.       FieldName = 'Fransizca'
  233.       Origin = 'Rehber.Fransizca'
  234.       Size = 1
  235.     end
  236.     object RehberRusca: TStringField
  237.       FieldName = 'Rusca'
  238.       Origin = 'Rehber.Rusca'
  239.       Size = 1
  240.     end
  241.     object RehberFlemence: TStringField
  242.       FieldName = 'Flemence'
  243.       Origin = 'Rehber.Flemence'
  244.       Size = 1
  245.     end
  246.     object RehberItalyanca: TStringField
  247.       FieldName = 'Italyanca'
  248.       Origin = 'Rehber.Italyanca'
  249.       Size = 1
  250.     end
  251.     object RehberTurkce: TStringField
  252.       FieldName = 'Turkce'
  253.       Origin = 'Rehber.Turkce'
  254.       Size = 1
  255.     end
  256.     object RehberAzerice: TStringField
  257.       FieldName = 'Azerice'
  258.       Origin = 'Rehber.Azerice'
  259.       Size = 1
  260.     end
  261.     object RehberFince: TStringField
  262.       FieldName = 'Fince'
  263.       Origin = 'Rehber.Fince'
  264.       Size = 1
  265.     end
  266.     object RehberLehce: TStringField
  267.       FieldName = 'Lehce'
  268.       Origin = 'Rehber.Lehce'
  269.       Size = 1
  270.     end
  271.     object RehberAyCalGunu: TSmallintField
  272.       FieldName = 'AyCalGunu'
  273.       Origin = 'Rehber.AyCalGunu'
  274.     end
  275.     object RehberAyUcret: TFloatField
  276.       FieldName = 'AyUcret'
  277.       Origin = 'Rehber.AyUcret'
  278.     end
  279.     object RehberAyUcretDov: TStringField
  280.       FieldName = 'AyUcretDov'
  281.       Origin = 'Rehber.AyUcretDov'
  282.       Size = 3
  283.     end
  284.     object RehberIbranice: TStringField
  285.       FieldName = 'Ibranice'
  286.       Origin = 'Rehber.Ibranice'
  287.       Size = 1
  288.     end
  289.     object RehberArabca: TStringField
  290.       FieldName = 'Arabca'
  291.       Origin = 'Rehber.Arabca'
  292.       Size = 1
  293.     end
  294.     object RehberDigDil: TStringField
  295.       FieldName = 'DigDil'
  296.       Origin = 'Rehber.DigDil'
  297.       Size = 50
  298.     end
  299.   end
  300.   object DovCins: TMSQuery
  301.     Connection = mDM.MSConnection
  302.     SQL.Strings = (
  303.       'Select * From DovCins')
  304.     Left = 165
  305.     Top = 50
  306.   end
  307.   object DovCins_DS: TDataSource
  308.     DataSet = DovCins
  309.     Left = 167
  310.     Top = 4
  311.   end
  312.   object RehTipiDS: TDataSource
  313.     DataSet = RehTipi
  314.     Left = 24
  315.     Top = 104
  316.   end
  317.   object RehTipi: TMSQuery
  318.     Connection = mDM.MSConnection
  319.     SQL.Strings = (
  320.       'Select * from RehTipi')
  321.     Left = 24
  322.     Top = 160
  323.     object RehTipiKod: TStringField
  324.       FieldName = 'Kod'
  325.       Size = 6
  326.     end
  327.     object RehTipiTanim: TStringField
  328.       FieldName = 'Tanim'
  329.       Size = 25
  330.     end
  331.   end
  332.   object TempQry: TMSQuery
  333.     Connection = mDM.MSConnection
  334.     Left = 209
  335.     Top = 143
  336.   end
  337. end
  338.