Stored Procedure Kullanımı

Mesaj gönderen **pro_imaj** » 10 Mar 2006 11:10

Merhaba;
Sp Kullanımını yavaştan öğreniyorum bir sp oluşturdum fakat bu spye delphi tarafından nasıl şart gönderebilirim acaba yani;

Silme İşlemi İçin oluşturduğum Sp.

Kod: Tümünü seç

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Barkod_Sil]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[Barkod_Sil]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Barkod]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Barkod]
GO

CREATE TABLE [dbo].[Barkod] (
	[IslemTur] [smallint] NULL ,
	[EvrakNo] [nvarchar] (8) COLLATE Turkish_CI_AS NULL ,
	[Tarih] [int] NULL ,
	[Chk] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[SiraNo] [smallint] NULL ,
	[IslemTip] [smallint] NULL ,
	[MalKodu] [nvarchar] (30) COLLATE Turkish_CI_AS NULL ,
	[Miktar] [decimal](25, 6) NULL ,
	[Fiyat] [decimal](25, 6) NULL ,
	[Tutar] [decimal](25, 6) NULL ,
	[DovizCinsi] [nvarchar] (3) COLLATE Turkish_CI_AS NULL ,
	[DovizKuru] [decimal](25, 6) NULL ,
	[DovizTutar] [decimal](25, 6) NULL ,
	[DvzBirimFiyat] [decimal](25, 6) NULL ,
	[Birim] [nvarchar] (4) COLLATE Turkish_CI_AS NULL ,
	[BirimFiyat] [decimal](25, 6) NULL ,
	[BirimMiktar] [decimal](25, 6) NULL ,
	[Iskonto] [decimal](25, 6) NULL ,
	[IskontoOran] [real] NULL ,
	[ToplamIskonto] [decimal](25, 6) NULL ,
	[KDV] [decimal](25, 6) NULL ,
	[KDVOran] [real] NULL ,
	[KDVDahilHaric] [smallint] NULL ,
	[Aciklama] [nvarchar] (30) COLLATE Turkish_CI_AS NULL ,
	[Kod1] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[Kod2] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[Kod3] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[Kod4] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[Kod5] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[Kod6] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[Kod7] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[Kod8] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[Kod9] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[Kod10] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[Kod11] [smallint] NULL ,
	[Kod12] [smallint] NULL ,
	[Kod13] [decimal](25, 6) NULL ,
	[Kod14] [decimal](25, 6) NULL ,
	[EvrakTarih] [int] NULL ,
	[Miktar2] [decimal](25, 6) NULL ,
	[Tutar2] [decimal](25, 6) NULL ,
	[Tarih2] [int] NULL ,
	[VadeTarih] [int] NULL ,
	[Depo] [nvarchar] (3) COLLATE Turkish_CI_AS NULL ,
	[Vasita] [nvarchar] (12) COLLATE Turkish_CI_AS NULL ,
	[SeriNo] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[SiparisNo] [nvarchar] (8) COLLATE Turkish_CI_AS NULL ,
	[SiparisTarih] [int] NULL ,
	[SiparisSiraNo] [smallint] NULL ,
	[PromosyonMiktar] [decimal](25, 6) NULL ,
	[Aciklama2] [nvarchar] (30) COLLATE Turkish_CI_AS NULL ,
	[AsilEvrakNo] [nvarchar] (8) COLLATE Turkish_CI_AS NULL ,
	[Masraf] [decimal](25, 6) NULL ,
	[TeslimMiktar] [decimal](25, 6) NULL ,
	[TahTeslimTarih] [int] NULL ,
	[SonTeslimTarih] [int] NULL ,
	[RezervasyonDurumu] [smallint] NULL ,
	[IskontoOran1] [real] NULL ,
	[IskOran1Net] [smallint] NULL ,
	[IskontoOran2] [real] NULL ,
	[IskOran2Net] [smallint] NULL ,
	[IskontoOran3] [real] NULL ,
	[IskOran3Net] [smallint] NULL ,
	[IskontoOran4] [real] NULL ,
	[IskOran4Net] [smallint] NULL ,
	[IskontoOran5] [real] NULL ,
	[IskOran5Net] [smallint] NULL ,
	[KlmTutarIsk] [decimal](25, 6) NULL ,
	[KlmTutarIskNet] [smallint] NULL ,
	[TeslimChk] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[ButceKod] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[FytListeNo] [nvarchar] (8) COLLATE Turkish_CI_AS NULL ,
	[MasrafMerkez] [nvarchar] (20) COLLATE Turkish_CI_AS NULL ,
	[DvzTL] [smallint] NULL ,
	[RenkBedenKod1] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[RenkBedenKod2] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[RenkBedenKod3] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[RenkBedenKod4] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[BarkodNo] [nvarchar] (40) COLLATE Turkish_CI_AS NOT NULL ,
	[Katsayi] [float] NULL ,
	[Operator] [smallint] NULL ,
	[ValorGun] [smallint] NULL ,
	[SevkTarih] [int] NULL ,
	[SevkNo] [nvarchar] (8) COLLATE Turkish_CI_AS NULL ,
	[KapatilanMiktar] [decimal](25, 6) NULL ,
	[KayitTuru] [smallint] NULL ,
	[Nesne1] [nvarchar] (254) COLLATE Turkish_CI_AS NULL ,
	[Nesne2] [nvarchar] (254) COLLATE Turkish_CI_AS NULL ,
	[Nesne3] [nvarchar] (254) COLLATE Turkish_CI_AS NULL ,
	[TesTemMalKod] [nvarchar] (30) COLLATE Turkish_CI_AS NULL ,
	[Miktar3] [decimal](25, 6) NULL ,
	[Tutar3] [decimal](25, 6) NULL ,
	[SiraNo2] [smallint] NULL ,
	[BlkMiktar] [decimal](25, 6) NULL ,
	[BlkTarih] [int] NULL ,
	[BlkDurumu] [smallint] NULL ,
	[KurTarihi] [int] NULL ,
	[GuvenlikKod] [nvarchar] (1) COLLATE Turkish_CI_AS NULL ,
	[Kaydeden] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[KayitTarih] [int] NULL ,
	[KayitSaat] [int] NULL ,
	[KayitKaynak] [smallint] NULL ,
	[KayitSurum] [nvarchar] (12) COLLATE Turkish_CI_AS NULL ,
	[Degistiren] [nvarchar] (5) COLLATE Turkish_CI_AS NULL ,
	[DegisTarih] [int] NULL ,
	[DegisSaat] [int] NULL ,
	[DegisKaynak] [smallint] NULL ,
	[DegisSurum] [nvarchar] (12) COLLATE Turkish_CI_AS NULL ,
	[Auto_Uret] [int] IDENTITY (1, 1) NOT NULL ,
	[SonIslem] [nvarchar] (50) COLLATE Turkish_CI_AS NULL ,
	[BTarih] [nvarchar] (50) COLLATE Turkish_CI_AS NULL ,
	[BSaat] [nvarchar] (10) COLLATE Turkish_CI_AS NULL ,
	[BSevkNo] [decimal](18, 0) NULL ,
	[STarih] [nvarchar] (50) COLLATE Turkish_CI_AS NULL ,
	[SSaat] [nvarchar] (50) COLLATE Turkish_CI_AS NULL ,
	[Aplication] [nvarchar] (50) COLLATE Turkish_CI_AS NULL ,
	[Plaka] [char] (10) COLLATE Turkish_CI_AS NULL ,
	[CariAdi] [char] (10) COLLATE Turkish_CI_AS NULL 
) ON [PRIMARY]
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

CREATE PROCEDURE [Barkod_Sil]
	(@IslemTur_1 	[smallint],
	 @EvrakNo_2 	[nvarchar],
	 @Tarih_3 	[int],
	 @Chk_4 	[nvarchar],
	 @SiraNo_5 	[smallint],
	 @IslemTip_6 	[smallint],
	 @MalKodu_7 	[nvarchar],
	 @Miktar_8 	[decimal],
	 @Fiyat_9 	[decimal],
	 @Tutar_10 	[decimal],
	 @DovizCinsi_11 	[nvarchar],
	 @DovizKuru_12 	[decimal],
	 @DovizTutar_13 	[decimal],
	 @DvzBirimFiyat_14 	[decimal],
	 @Birim_15 	[nvarchar],
	 @BirimFiyat_16 	[decimal],
	 @BirimMiktar_17 	[decimal],
	 @Iskonto_18 	[decimal],
	 @IskontoOran_19 	[real],
	 @ToplamIskonto_20 	[decimal],
	 @KDV_21 	[decimal],
	 @KDVOran_22 	[real],
	 @KDVDahilHaric_23 	[smallint],
	 @Aciklama_24 	[nvarchar],
	 @Kod1_25 	[nvarchar],
	 @Kod2_26 	[nvarchar],
	 @Kod3_27 	[nvarchar],
	 @Kod4_28 	[nvarchar],
	 @Kod5_29 	[nvarchar],
	 @Kod6_30 	[nvarchar],
	 @Kod7_31 	[nvarchar],
	 @Kod8_32 	[nvarchar],
	 @Kod9_33 	[nvarchar],
	 @Kod10_34 	[nvarchar],
	 @Kod11_35 	[smallint],
	 @Kod12_36 	[smallint],
	 @Kod13_37 	[decimal],
	 @Kod14_38 	[decimal],
	 @EvrakTarih_39 	[int],
	 @Miktar2_40 	[decimal],
	 @Tutar2_41 	[decimal],
	 @Tarih2_42 	[int],
	 @VadeTarih_43 	[int],
	 @Depo_44 	[nvarchar],
	 @Vasita_45 	[nvarchar],
	 @SeriNo_46 	[nvarchar],
	 @SiparisNo_47 	[nvarchar],
	 @SiparisTarih_48 	[int],
	 @SiparisSiraNo_49 	[smallint],
	 @PromosyonMiktar_50 	[decimal],
	 @Aciklama2_51 	[nvarchar],
	 @AsilEvrakNo_52 	[nvarchar],
	 @Masraf_53 	[decimal],
	 @TeslimMiktar_54 	[decimal],
	 @TahTeslimTarih_55 	[int],
	 @SonTeslimTarih_56 	[int],
	 @RezervasyonDurumu_57 	[smallint],
	 @IskontoOran1_58 	[real],
	 @IskOran1Net_59 	[smallint],
	 @IskontoOran2_60 	[real],
	 @IskOran2Net_61 	[smallint],
	 @IskontoOran3_62 	[real],
	 @IskOran3Net_63 	[smallint],
	 @IskontoOran4_64 	[real],
	 @IskOran4Net_65 	[smallint],
	 @IskontoOran5_66 	[real],
	 @IskOran5Net_67 	[smallint],
	 @KlmTutarIsk_68 	[decimal],
	 @KlmTutarIskNet_69 	[smallint],
	 @TeslimChk_70 	[nvarchar],
	 @ButceKod_71 	[nvarchar],
	 @FytListeNo_72 	[nvarchar],
	 @MasrafMerkez_73 	[nvarchar],
	 @DvzTL_74 	[smallint],
	 @RenkBedenKod1_75 	[nvarchar],
	 @RenkBedenKod2_76 	[nvarchar],
	 @RenkBedenKod3_77 	[nvarchar],
	 @RenkBedenKod4_78 	[nvarchar],
	 @BarkodNo_79 	[nvarchar],
	 @Katsayi_80 	[float],
	 @Operator_81 	[smallint],
	 @ValorGun_82 	[smallint],
	 @SevkTarih_83 	[int],
	 @SevkNo_84 	[nvarchar],
	 @KapatilanMiktar_85 	[decimal],
	 @KayitTuru_86 	[smallint],
	 @Nesne1_87 	[nvarchar],
	 @Nesne2_88 	[nvarchar],
	 @Nesne3_89 	[nvarchar],
	 @TesTemMalKod_90 	[nvarchar],
	 @Miktar3_91 	[decimal],
	 @Tutar3_92 	[decimal],
	 @SiraNo2_93 	[smallint],
	 @BlkMiktar_94 	[decimal],
	 @BlkTarih_95 	[int],
	 @BlkDurumu_96 	[smallint],
	 @KurTarihi_97 	[int],
	 @GuvenlikKod_98 	[nvarchar],
	 @Kaydeden_99 	[nvarchar],
	 @KayitTarih_100 	[int],
	 @KayitSaat_101 	[int],
	 @KayitKaynak_102 	[smallint],
	 @KayitSurum_103 	[nvarchar],
	 @Degistiren_104 	[nvarchar],
	 @DegisTarih_105 	[int],
	 @DegisSaat_106 	[int],
	 @DegisKaynak_107 	[smallint],
	 @DegisSurum_108 	[nvarchar],
	 @Auto_Uret_109 	[int],
	 @SonIslem_110 	[nvarchar],
	 @BTarih_111 	[nvarchar],
	 @BSaat_112 	[nvarchar],
	 @BSevkNo_113 	[decimal],
	 @STarih_114 	[nvarchar],
	 @SSaat_115 	[nvarchar],
	 @Aplication_116 	[nvarchar],
	 @Plaka_117 	[char],
	 @CariAdi_118 	[char])

AS DELETE [Barkodlu_Sevkiyat].[dbo].[Barkod] 

WHERE 
	( [IslemTur]	 = @IslemTur_1 AND
	 [EvrakNo]	 = @EvrakNo_2 AND
	 [Tarih]	 = @Tarih_3 AND
	 [Chk]	 = @Chk_4 AND
	 [SiraNo]	 = @SiraNo_5 AND
	 [IslemTip]	 = @IslemTip_6 AND
	 [MalKodu]	 = @MalKodu_7 AND
	 [Miktar]	 = @Miktar_8 AND
	 [Fiyat]	 = @Fiyat_9 AND
	 [Tutar]	 = @Tutar_10 AND
	 [DovizCinsi]	 = @DovizCinsi_11 AND
	 [DovizKuru]	 = @DovizKuru_12 AND
	 [DovizTutar]	 = @DovizTutar_13 AND
	 [DvzBirimFiyat]	 = @DvzBirimFiyat_14 AND
	 [Birim]	 = @Birim_15 AND
	 [BirimFiyat]	 = @BirimFiyat_16 AND
	 [BirimMiktar]	 = @BirimMiktar_17 AND
	 [Iskonto]	 = @Iskonto_18 AND
	 [IskontoOran]	 = @IskontoOran_19 AND
	 [ToplamIskonto]	 = @ToplamIskonto_20 AND
	 [KDV]	 = @KDV_21 AND
	 [KDVOran]	 = @KDVOran_22 AND
	 [KDVDahilHaric]	 = @KDVDahilHaric_23 AND
	 [Aciklama]	 = @Aciklama_24 AND
	 [Kod1]	 = @Kod1_25 AND
	 [Kod2]	 = @Kod2_26 AND
	 [Kod3]	 = @Kod3_27 AND
	 [Kod4]	 = @Kod4_28 AND
	 [Kod5]	 = @Kod5_29 AND
	 [Kod6]	 = @Kod6_30 AND
	 [Kod7]	 = @Kod7_31 AND
	 [Kod8]	 = @Kod8_32 AND
	 [Kod9]	 = @Kod9_33 AND
	 [Kod10]	 = @Kod10_34 AND
	 [Kod11]	 = @Kod11_35 AND
	 [Kod12]	 = @Kod12_36 AND
	 [Kod13]	 = @Kod13_37 AND
	 [Kod14]	 = @Kod14_38 AND
	 [EvrakTarih]	 = @EvrakTarih_39 AND
	 [Miktar2]	 = @Miktar2_40 AND
	 [Tutar2]	 = @Tutar2_41 AND
	 [Tarih2]	 = @Tarih2_42 AND
	 [VadeTarih]	 = @VadeTarih_43 AND
	 [Depo]	 = @Depo_44 AND
	 [Vasita]	 = @Vasita_45 AND
	 [SeriNo]	 = @SeriNo_46 AND
	 [SiparisNo]	 = @SiparisNo_47 AND
	 [SiparisTarih]	 = @SiparisTarih_48 AND
	 [SiparisSiraNo]	 = @SiparisSiraNo_49 AND
	 [PromosyonMiktar]	 = @PromosyonMiktar_50 AND
	 [Aciklama2]	 = @Aciklama2_51 AND
	 [AsilEvrakNo]	 = @AsilEvrakNo_52 AND
	 [Masraf]	 = @Masraf_53 AND
	 [TeslimMiktar]	 = @TeslimMiktar_54 AND
	 [TahTeslimTarih]	 = @TahTeslimTarih_55 AND
	 [SonTeslimTarih]	 = @SonTeslimTarih_56 AND
	 [RezervasyonDurumu]	 = @RezervasyonDurumu_57 AND
	 [IskontoOran1]	 = @IskontoOran1_58 AND
	 [IskOran1Net]	 = @IskOran1Net_59 AND
	 [IskontoOran2]	 = @IskontoOran2_60 AND
	 [IskOran2Net]	 = @IskOran2Net_61 AND
	 [IskontoOran3]	 = @IskontoOran3_62 AND
	 [IskOran3Net]	 = @IskOran3Net_63 AND
	 [IskontoOran4]	 = @IskontoOran4_64 AND
	 [IskOran4Net]	 = @IskOran4Net_65 AND
	 [IskontoOran5]	 = @IskontoOran5_66 AND
	 [IskOran5Net]	 = @IskOran5Net_67 AND
	 [KlmTutarIsk]	 = @KlmTutarIsk_68 AND
	 [KlmTutarIskNet]	 = @KlmTutarIskNet_69 AND
	 [TeslimChk]	 = @TeslimChk_70 AND
	 [ButceKod]	 = @ButceKod_71 AND
	 [FytListeNo]	 = @FytListeNo_72 AND
	 [MasrafMerkez]	 = @MasrafMerkez_73 AND
	 [DvzTL]	 = @DvzTL_74 AND
	 [RenkBedenKod1]	 = @RenkBedenKod1_75 AND
	 [RenkBedenKod2]	 = @RenkBedenKod2_76 AND
	 [RenkBedenKod3]	 = @RenkBedenKod3_77 AND
	 [RenkBedenKod4]	 = @RenkBedenKod4_78 AND
	 [BarkodNo]	 = @BarkodNo_79 AND
	 [Katsayi]	 = @Katsayi_80 AND
	 [Operator]	 = @Operator_81 AND
	 [ValorGun]	 = @ValorGun_82 AND
	 [SevkTarih]	 = @SevkTarih_83 AND
	 [SevkNo]	 = @SevkNo_84 AND
	 [KapatilanMiktar]	 = @KapatilanMiktar_85 AND
	 [KayitTuru]	 = @KayitTuru_86 AND
	 [Nesne1]	 = @Nesne1_87 AND
	 [Nesne2]	 = @Nesne2_88 AND
	 [Nesne3]	 = @Nesne3_89 AND
	 [TesTemMalKod]	 = @TesTemMalKod_90 AND
	 [Miktar3]	 = @Miktar3_91 AND
	 [Tutar3]	 = @Tutar3_92 AND
	 [SiraNo2]	 = @SiraNo2_93 AND
	 [BlkMiktar]	 = @BlkMiktar_94 AND
	 [BlkTarih]	 = @BlkTarih_95 AND
	 [BlkDurumu]	 = @BlkDurumu_96 AND
	 [KurTarihi]	 = @KurTarihi_97 AND
	 [GuvenlikKod]	 = @GuvenlikKod_98 AND
	 [Kaydeden]	 = @Kaydeden_99 AND
	 [KayitTarih]	 = @KayitTarih_100 AND
	 [KayitSaat]	 = @KayitSaat_101 AND
	 [KayitKaynak]	 = @KayitKaynak_102 AND
	 [KayitSurum]	 = @KayitSurum_103 AND
	 [Degistiren]	 = @Degistiren_104 AND
	 [DegisTarih]	 = @DegisTarih_105 AND
	 [DegisSaat]	 = @DegisSaat_106 AND
	 [DegisKaynak]	 = @DegisKaynak_107 AND
	 [DegisSurum]	 = @DegisSurum_108 AND
	 [Auto_Uret]	 = @Auto_Uret_109 AND
	 [SonIslem]	 = @SonIslem_110 AND
	 [BTarih]	 = @BTarih_111 AND
	 [BSaat]	 = @BSaat_112 AND
	 [BSevkNo]	 = @BSevkNo_113 AND
	 [STarih]	 = @STarih_114 AND
	 [SSaat]	 = @SSaat_115 AND
	 [Aplication]	 = @Aplication_116 AND
	 [Plaka]	 = @Plaka_117 AND
	 [CariAdi]	 = @CariAdi_118)
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

Yukarıdaki Şekilde Yaptığımda

Kod: Tümünü seç

Delete From Barkod

bu kodun yaptığı işemi yapıyor peki. şartları nereye ekeleyeceğiz ve bu şartların delphiden alınmasını nasıl sağlayabilirim acaba

Saygılarımla
Teşekkürler.

ylmz · Mesaj gönderen **ylmz** » 10 Mar 2006 12:34

merhaba,

yazdığınız procedure den bişey anlamadım ama procedure parametre geçirmek için eğer ADOStoredProc kullanıyorsanız aşağıdaki gibi yapabilirsiniz..

ADOStoredProc1.Parameters.ParamByName('Parametre adi').Value := '????'
ADOStoredProc1.ExecSQL;

select sorgusu içinde
ADOStoredProc1.active := True yapabilirsiniz.

eğer Query yada dataset kullanıyorsanız
firebirdte şöyle yapıyorum : 'EXECUTE PROCEDURE ' 'procedure ismi' 'değişken değeri'

sql server da şöyle olabilir :'EXEC' 'procedure ismi' 'değişken değeri'

kolay gelsin.

Mesaj gönderen **pro_imaj** » 10 Mar 2006 07:02

Merhaba;
Anlamadığınız nokta nedir acaba yani Silmek için böyle bir SP oluşturdum düzgünde çalışıyor!

Not: Sp Konusunda acemiyim

Saygılarımla
Teşekkür ederim

YouTube · Mesaj gönderen **Kuri_YJ** » 13 Mar 2006 09:09

Selamlar,

Ben sorunuzdan çok yazdığınız DELETE satırının WHERE koşuluna takıldım.

Siz böyle bir teknik ile Server'ı ne kadar (gereksiz yere) yoracağınızı biliyor musunuz?

Yazdığınız programlar yavaş çalışır. Bir DELETE komutu için 118 Parametre kullanmak !!!!!!!!

Tablonuzda UNIQUE (Tekil-Eşi Benzeri olmayan) bir alan yaratın (bu da muhtemelen Identity alan olmalı.) Bu alan ile WHERE koşuluna sadece 1 adet integer bir parametre geçişi ile procedure'nüzü çalıştırın.

Bu mantıkla ileride daha çok zorlanırsınız !...

Mesaj gönderen **pro_imaj** » 15 Mar 2006 04:22

Merhaba @Kuri_YJ
Doğru söylüyorsun ama dedimya acemiyim gereksiz çok fazla kod var. Tabi sadece anlamadan ezbere bişeyler yapıyorum mantığı anlayamadığım için. Sizlerin yardımıyla işi kavradıktan sonra düzgün bişeyler yazabilirim galiba.

Teşekkürler.