home *** CD-ROM | disk | FTP | other *** search
/ ftp.sanbilgisayar.com / ftp.sanbilgisayar.com.tar / ftp.sanbilgisayar.com / SHOP / ShopImportP.exe / 0 / RCDATA / TDMMRK / TDMMRK.txt
Text File  |  2015-03-03  |  13KB  |  566 lines
  1. object DMmrk: TDMmrk
  2.   OldCreateOrder = False
  3.   OnCreate = DataModuleCreate
  4.   OnDestroy = DataModuleDestroy
  5.   Left = 365
  6.   Top = 207
  7.   Height = 379
  8.   Width = 567
  9.   object DovKur: TMSQuery
  10.     Connection = mDM.MSConnection
  11.     SQL.Strings = (
  12.       'Select Top 1 * From Doviz'
  13.       'Where BankNo = :BankNo and Tarih <= :Tarih'
  14.       'Order by Tarih Desc'
  15.       '')
  16.     Left = 256
  17.     Top = 16
  18.     ParamData = <
  19.       item
  20.         DataType = ftUnknown
  21.         Name = 'BankNo'
  22.         ParamType = ptInput
  23.       end
  24.       item
  25.         DataType = ftUnknown
  26.         Name = 'Tarih'
  27.         ParamType = ptInput
  28.       end>
  29.     object DovKurTarih: TDateTimeField
  30.       FieldName = 'Tarih'
  31.       Required = True
  32.     end
  33.     object DovKurBankNo: TSmallintField
  34.       FieldName = 'BankNo'
  35.       Required = True
  36.     end
  37.     object DovKurDA_EUR: TFloatField
  38.       FieldName = 'DA_EUR'
  39.     end
  40.     object DovKurDA_DEM: TFloatField
  41.       FieldName = 'DA_DEM'
  42.     end
  43.     object DovKurDA_USD: TFloatField
  44.       FieldName = 'DA_USD'
  45.     end
  46.     object DovKurDA_FRF: TFloatField
  47.       FieldName = 'DA_FRF'
  48.     end
  49.     object DovKurDA_GBP: TFloatField
  50.       FieldName = 'DA_GBP'
  51.     end
  52.     object DovKurDA_BEF: TFloatField
  53.       FieldName = 'DA_BEF'
  54.     end
  55.     object DovKurDA_ATS: TFloatField
  56.       FieldName = 'DA_ATS'
  57.     end
  58.     object DovKurDA_CHF: TFloatField
  59.       FieldName = 'DA_CHF'
  60.     end
  61.     object DovKurDA_ITL: TFloatField
  62.       FieldName = 'DA_ITL'
  63.     end
  64.     object DovKurDA_NLG: TFloatField
  65.       FieldName = 'DA_NLG'
  66.     end
  67.     object DovKurDA_SEK: TFloatField
  68.       FieldName = 'DA_SEK'
  69.     end
  70.     object DovKurDA_NOK: TFloatField
  71.       FieldName = 'DA_NOK'
  72.     end
  73.     object DovKurDA_AUD: TFloatField
  74.       FieldName = 'DA_AUD'
  75.     end
  76.     object DovKurDA_CAD: TFloatField
  77.       FieldName = 'DA_CAD'
  78.     end
  79.     object DovKurDA_DKK: TFloatField
  80.       FieldName = 'DA_DKK'
  81.     end
  82.     object DovKurDA_FIM: TFloatField
  83.       FieldName = 'DA_FIM'
  84.     end
  85.     object DovKurDA_JPY: TFloatField
  86.       FieldName = 'DA_JPY'
  87.     end
  88.     object DovKurDA_SAR: TFloatField
  89.       FieldName = 'DA_SAR'
  90.     end
  91.     object DovKurDA_ESP: TFloatField
  92.       FieldName = 'DA_ESP'
  93.     end
  94.     object DovKurDS_DEM: TFloatField
  95.       FieldName = 'DS_DEM'
  96.     end
  97.     object DovKurDS_USD: TFloatField
  98.       FieldName = 'DS_USD'
  99.     end
  100.     object DovKurDS_FRF: TFloatField
  101.       FieldName = 'DS_FRF'
  102.     end
  103.     object DovKurDS_GBP: TFloatField
  104.       FieldName = 'DS_GBP'
  105.     end
  106.     object DovKurDS_BEF: TFloatField
  107.       FieldName = 'DS_BEF'
  108.     end
  109.     object DovKurDS_ATS: TFloatField
  110.       FieldName = 'DS_ATS'
  111.     end
  112.     object DovKurDS_CHF: TFloatField
  113.       FieldName = 'DS_CHF'
  114.     end
  115.     object DovKurDS_ITL: TFloatField
  116.       FieldName = 'DS_ITL'
  117.     end
  118.     object DovKurDS_NLG: TFloatField
  119.       FieldName = 'DS_NLG'
  120.     end
  121.     object DovKurDS_SEK: TFloatField
  122.       FieldName = 'DS_SEK'
  123.     end
  124.     object DovKurDS_NOK: TFloatField
  125.       FieldName = 'DS_NOK'
  126.     end
  127.     object DovKurDS_AUD: TFloatField
  128.       FieldName = 'DS_AUD'
  129.     end
  130.     object DovKurDS_CAD: TFloatField
  131.       FieldName = 'DS_CAD'
  132.     end
  133.     object DovKurDS_DKK: TFloatField
  134.       FieldName = 'DS_DKK'
  135.     end
  136.     object DovKurDS_FIM: TFloatField
  137.       FieldName = 'DS_FIM'
  138.     end
  139.     object DovKurDS_JPY: TFloatField
  140.       FieldName = 'DS_JPY'
  141.     end
  142.     object DovKurDS_SAR: TFloatField
  143.       FieldName = 'DS_SAR'
  144.     end
  145.     object DovKurDS_ESP: TFloatField
  146.       FieldName = 'DS_ESP'
  147.     end
  148.     object DovKurDS_EUR: TFloatField
  149.       FieldName = 'DS_EUR'
  150.     end
  151.     object DovKurEA_DEM: TFloatField
  152.       FieldName = 'EA_DEM'
  153.     end
  154.     object DovKurEA_USD: TFloatField
  155.       FieldName = 'EA_USD'
  156.     end
  157.     object DovKurEA_FRF: TFloatField
  158.       FieldName = 'EA_FRF'
  159.     end
  160.     object DovKurEA_GBP: TFloatField
  161.       FieldName = 'EA_GBP'
  162.     end
  163.     object DovKurEA_BEF: TFloatField
  164.       FieldName = 'EA_BEF'
  165.     end
  166.     object DovKurEA_ATS: TFloatField
  167.       FieldName = 'EA_ATS'
  168.     end
  169.     object DovKurEA_CHF: TFloatField
  170.       FieldName = 'EA_CHF'
  171.     end
  172.     object DovKurEA_ITL: TFloatField
  173.       FieldName = 'EA_ITL'
  174.     end
  175.     object DovKurEA_NLG: TFloatField
  176.       FieldName = 'EA_NLG'
  177.     end
  178.     object DovKurEA_SEK: TFloatField
  179.       FieldName = 'EA_SEK'
  180.     end
  181.     object DovKurEA_NOK: TFloatField
  182.       FieldName = 'EA_NOK'
  183.     end
  184.     object DovKurEA_AUD: TFloatField
  185.       FieldName = 'EA_AUD'
  186.     end
  187.     object DovKurEA_CAD: TFloatField
  188.       FieldName = 'EA_CAD'
  189.     end
  190.     object DovKurEA_DKK: TFloatField
  191.       FieldName = 'EA_DKK'
  192.     end
  193.     object DovKurEA_FIM: TFloatField
  194.       FieldName = 'EA_FIM'
  195.     end
  196.     object DovKurEA_JPY: TFloatField
  197.       FieldName = 'EA_JPY'
  198.     end
  199.     object DovKurEA_SAR: TFloatField
  200.       FieldName = 'EA_SAR'
  201.     end
  202.     object DovKurEA_ESP: TFloatField
  203.       FieldName = 'EA_ESP'
  204.     end
  205.     object DovKurEA_EUR: TFloatField
  206.       FieldName = 'EA_EUR'
  207.     end
  208.     object DovKurES_DEM: TFloatField
  209.       FieldName = 'ES_DEM'
  210.     end
  211.     object DovKurES_USD: TFloatField
  212.       FieldName = 'ES_USD'
  213.     end
  214.     object DovKurES_FRF: TFloatField
  215.       FieldName = 'ES_FRF'
  216.     end
  217.     object DovKurES_GBP: TFloatField
  218.       FieldName = 'ES_GBP'
  219.     end
  220.     object DovKurES_BEF: TFloatField
  221.       FieldName = 'ES_BEF'
  222.     end
  223.     object DovKurES_ATS: TFloatField
  224.       FieldName = 'ES_ATS'
  225.     end
  226.     object DovKurES_CHF: TFloatField
  227.       FieldName = 'ES_CHF'
  228.     end
  229.     object DovKurES_ITL: TFloatField
  230.       FieldName = 'ES_ITL'
  231.     end
  232.     object DovKurES_NLG: TFloatField
  233.       FieldName = 'ES_NLG'
  234.     end
  235.     object DovKurES_SEK: TFloatField
  236.       FieldName = 'ES_SEK'
  237.     end
  238.     object DovKurES_NOK: TFloatField
  239.       FieldName = 'ES_NOK'
  240.     end
  241.     object DovKurES_AUD: TFloatField
  242.       FieldName = 'ES_AUD'
  243.     end
  244.     object DovKurES_CAD: TFloatField
  245.       FieldName = 'ES_CAD'
  246.     end
  247.     object DovKurES_DKK: TFloatField
  248.       FieldName = 'ES_DKK'
  249.     end
  250.     object DovKurES_FIM: TFloatField
  251.       FieldName = 'ES_FIM'
  252.     end
  253.     object DovKurES_JPY: TFloatField
  254.       FieldName = 'ES_JPY'
  255.     end
  256.     object DovKurES_SAR: TFloatField
  257.       FieldName = 'ES_SAR'
  258.     end
  259.     object DovKurES_ESP: TFloatField
  260.       FieldName = 'ES_ESP'
  261.     end
  262.     object DovKurES_EUR: TFloatField
  263.       FieldName = 'ES_EUR'
  264.     end
  265.   end
  266.   object Rehber: TMSQuery
  267.     Connection = mDM.MSConnection
  268.     SQL.Strings = (
  269.       'Select Kodu,Adi,RehTipi from Rehber')
  270.     Left = 12
  271.     Top = 80
  272.     object RehberKodu: TStringField
  273.       FieldName = 'Kodu'
  274.       Origin = 'Rehber.Kodu'
  275.       Required = True
  276.       Size = 6
  277.     end
  278.     object RehberAdi: TStringField
  279.       FieldName = 'Adi'
  280.       Origin = 'Rehber.Adi'
  281.       Size = 25
  282.     end
  283.     object RehberRehTipi: TStringField
  284.       FieldName = 'RehTipi'
  285.       Origin = 'Rehber.RehTipi'
  286.       Size = 6
  287.     end
  288.   end
  289.   object Tur: TMSQuery
  290.     Connection = mDM.MSConnection
  291.     SQL.Strings = (
  292.       'Select * From Tur with (NOLOCK)')
  293.     Left = 113
  294.     Top = 16
  295.     object TurKodu: TStringField
  296.       FieldName = 'Kodu'
  297.       Origin = 'Tur.Kodu'
  298.       Size = 6
  299.     end
  300.     object TurAdi: TStringField
  301.       FieldName = 'Adi'
  302.       Origin = 'Tur.Adi'
  303.       Size = 25
  304.     end
  305.     object TurABebYas1: TSmallintField
  306.       FieldName = 'ABebYas1'
  307.       Origin = 'Tur.ABebYas1'
  308.     end
  309.     object TurABebYas2: TSmallintField
  310.       FieldName = 'ABebYas2'
  311.       Origin = 'Tur.ABebYas2'
  312.     end
  313.     object TurABebYuzde: TSmallintField
  314.       FieldName = 'ABebYuzde'
  315.       Origin = 'Tur.ABebYuzde'
  316.     end
  317.     object TurSBebYas1: TSmallintField
  318.       FieldName = 'SBebYas1'
  319.       Origin = 'Tur.SBebYas1'
  320.     end
  321.     object TurSBebYas2: TSmallintField
  322.       FieldName = 'SBebYas2'
  323.       Origin = 'Tur.SBebYas2'
  324.     end
  325.     object TurSBebYuzde: TSmallintField
  326.       FieldName = 'SBebYuzde'
  327.       Origin = 'Tur.SBebYuzde'
  328.     end
  329.     object TurACocYas1: TSmallintField
  330.       FieldName = 'ACocYas1'
  331.       Origin = 'Tur.ACocYas1'
  332.     end
  333.     object TurACocYas2: TSmallintField
  334.       FieldName = 'ACocYas2'
  335.       Origin = 'Tur.ACocYas2'
  336.     end
  337.     object TurACocYuzde: TSmallintField
  338.       FieldName = 'ACocYuzde'
  339.       Origin = 'Tur.ACocYuzde'
  340.     end
  341.     object TurSCocYas1: TSmallintField
  342.       FieldName = 'SCocYas1'
  343.       Origin = 'Tur.SCocYas1'
  344.     end
  345.     object TurSCocYas2: TSmallintField
  346.       FieldName = 'SCocYas2'
  347.       Origin = 'Tur.SCocYas2'
  348.     end
  349.     object TurSCocYuzde: TSmallintField
  350.       FieldName = 'SCocYuzde'
  351.       Origin = 'Tur.SCocYuzde'
  352.     end
  353.     object TurFiyKate: TStringField
  354.       FieldName = 'FiyKate'
  355.       Origin = 'Tur.FiyKate'
  356.       Size = 15
  357.     end
  358.   end
  359.   object Bolge: TMSQuery
  360.     Connection = mDM.MSConnection
  361.     SQL.Strings = (
  362.       'Select * from Bolge')
  363.     Left = 12
  364.     Top = 16
  365.     object BolgeKOD: TStringField
  366.       FieldName = 'KOD'
  367.       Origin = 'Bolge.KOD'
  368.       Required = True
  369.       Size = 3
  370.     end
  371.     object BolgeADI: TStringField
  372.       FieldName = 'ADI'
  373.       Origin = 'Bolge.ADI'
  374.       Size = 30
  375.     end
  376.   end
  377.   object TurOp: TMSQuery
  378.     Connection = mDM.MSConnection
  379.     SQL.Strings = (
  380.       'Select Kodu,Adi from TurOp')
  381.     Left = 62
  382.     Top = 16
  383.     object TurOpKodu: TStringField
  384.       FieldName = 'Kodu'
  385.       Origin = 'TurOp.Kodu'
  386.       Required = True
  387.       Size = 6
  388.     end
  389.     object TurOpAdi: TStringField
  390.       FieldName = 'Adi'
  391.       Origin = 'TurOp.Adi'
  392.       Size = 25
  393.     end
  394.   end
  395.   object Magaza: TMSQuery
  396.     Connection = mDM.MSConnection
  397.     SQL.Strings = (
  398.       'Select Kodu,Adi from Magaza')
  399.     Left = 65
  400.     Top = 80
  401.     object MagazaKodu: TStringField
  402.       FieldName = 'Kodu'
  403.       Origin = 'Magaza.Kodu'
  404.       Required = True
  405.       Size = 6
  406.     end
  407.     object MagazaAdi: TStringField
  408.       FieldName = 'Adi'
  409.       Origin = 'Magaza.Adi'
  410.       Size = 30
  411.     end
  412.   end
  413.   object ShopMal: TMSQuery
  414.     Connection = mDM.MSConnection
  415.     SQL.Strings = (
  416.       'Select Kodu,tanimi from ShopMal')
  417.     Left = 122
  418.     Top = 80
  419.     object ShopMalKodu: TStringField
  420.       FieldName = 'Kodu'
  421.       Origin = 'ShopMal.Kodu'
  422.       Required = True
  423.       Size = 15
  424.     end
  425.     object ShopMaltanimi: TStringField
  426.       FieldName = 'tanimi'
  427.       Origin = 'ShopMal.tanimi'
  428.       Size = 30
  429.     end
  430.   end
  431.   object Otel: TMSQuery
  432.     Connection = mDM.MSConnection
  433.     SQL.Strings = (
  434.       'Select Otel,Adi from Otel')
  435.     Left = 183
  436.     Top = 16
  437.     object OtelOtel: TStringField
  438.       FieldName = 'Otel'
  439.       Required = True
  440.       Size = 6
  441.     end
  442.     object OtelAdi: TStringField
  443.       FieldName = 'Adi'
  444.       Size = 30
  445.     end
  446.   end
  447.   object Sofor: TMSQuery
  448.     Connection = mDM.MSConnection
  449.     SQL.Strings = (
  450.       'Select Kodu,Adi from Sofor')
  451.     Left = 184
  452.     Top = 80
  453.     object SoforKodu: TStringField
  454.       FieldName = 'Kodu'
  455.       Required = True
  456.       Size = 6
  457.     end
  458.     object SoforAdi: TStringField
  459.       FieldName = 'Adi'
  460.       Size = 30
  461.     end
  462.   end
  463.   object DovCins: TMSQuery
  464.     Connection = mDM.MSConnection
  465.     SQL.Strings = (
  466.       'Select * From DovCins'
  467.       'Order by Doviz')
  468.     ReadOnly = True
  469.     Left = 259
  470.     Top = 80
  471.     object DovCinsDoviz: TStringField
  472.       FieldName = 'Doviz'
  473.       Size = 3
  474.     end
  475.     object DovCinsText: TStringField
  476.       FieldName = 'Text'
  477.       Size = 25
  478.     end
  479.   end
  480.   object ShpMusTip: TMSQuery
  481.     Connection = mDM.MSConnection
  482.     SQL.Strings = (
  483.       'Select * from ShopMusTip')
  484.     Left = 352
  485.     Top = 80
  486.     object ShpMusTipKodu: TStringField
  487.       FieldName = 'Kodu'
  488.       Origin = 'ShopMusTip.Kodu'
  489.       Required = True
  490.       Size = 6
  491.     end
  492.     object ShpMusTipTanimi: TStringField
  493.       FieldName = 'Tanimi'
  494.       Origin = 'ShopMusTip.Tanimi'
  495.       Size = 30
  496.     end
  497.   end
  498.   object ShpMusTipDS: TDataSource
  499.     DataSet = ShpMusTip
  500.     Left = 352
  501.     Top = 16
  502.   end
  503.   object MagGrp: TMSQuery
  504.     Connection = mDM.MSConnection
  505.     SQL.Strings = (
  506.       'Select * from MagazaGrp')
  507.     Left = 19
  508.     Top = 153
  509.     object StringField1: TStringField
  510.       FieldName = 'Adi'
  511.       Required = True
  512.       Size = 6
  513.     end
  514.     object StringField2: TStringField
  515.       FieldName = 'Magaza'
  516.       Required = True
  517.       Size = 6
  518.     end
  519.   end
  520.   object BolgeGrp: TMSQuery
  521.     Connection = mDM.MSConnection
  522.     SQL.Strings = (
  523.       'Select * from BolgeGrp')
  524.     Left = 83
  525.     Top = 160
  526.     object BolgeGrpAdi: TStringField
  527.       FieldName = 'Adi'
  528.       Size = 6
  529.     end
  530.     object BolgeGrpBolge: TStringField
  531.       FieldName = 'Bolge'
  532.       Size = 6
  533.     end
  534.   end
  535.   object ShopMalGrp: TMSQuery
  536.     Connection = mDM.MSConnection
  537.     SQL.Strings = (
  538.       'Select * from ShopMalGrp')
  539.     Left = 163
  540.     Top = 160
  541.     object ShopMalGrpAdi: TStringField
  542.       FieldName = 'Adi'
  543.       Size = 6
  544.     end
  545.     object ShopMalGrpMalKodu: TStringField
  546.       FieldName = 'MalKodu'
  547.       Size = 15
  548.     end
  549.   end
  550.   object TurOpGrp: TMSQuery
  551.     Connection = mDM.MSConnection
  552.     SQL.Strings = (
  553.       'Select * from TurOpGrp')
  554.     Left = 259
  555.     Top = 160
  556.     object TurOpGrpAdi: TStringField
  557.       FieldName = 'Adi'
  558.       Size = 6
  559.     end
  560.     object TurOpGrpTurOp: TStringField
  561.       FieldName = 'TurOp'
  562.       Size = 6
  563.     end
  564.   end
  565. end
  566.