Stok No Değiştirme Proplemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Stok No Değiştirme Proplemi

Mesaj gönderen pro_imaj »

Merhaba Arkadaşlar.

Stok No Değiştiren bir program yazdım. hiçbir sorun olmadan.


20 10 (10-15-45) Bu kodu
2010--10-15-45 Haline çeviriyorum.


Sorunum şu kullanıcı bazı stok noları kendisi değiştirmek yerine yeniden kod açmış yani programın yapması gereken işleri kendisi bazı kayıtlar için yaomış ama eski stok noyu silmemiş programda bu stoknoyu değiştirirken hata veriyor. Stokno alanına aynı kayıtın girilmesi veri tabanın için kısıtlanmış.

(yapmam gereken eğer programın değiştireceği kayıttan veri tabanında varsa ya veri tabanındakini silecek programın yaptığını yazacak yada okayıt için bişey yapmicak.)


10.000 adet kayıt var.
Mssql veri tabanı kullanıyorum

Yardımlarınızı Bekliyorum.

Saygılarımla
Çalışmalarınızda başarılar.
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
mkysoft
Kıdemli Üye
Mesajlar: 3110
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Mesaj gönderen mkysoft »

kod değiştirme işlemini try... except arasına koy. uniq olduğudan dolayı hata verecektir. except kısmında istersen bu kaydıda silebilirsin.
metinkorkmaz
Üye
Mesajlar: 46
Kayıt: 25 May 2005 09:08
Konum: izmir

Mesaj gönderen metinkorkmaz »

function Pos(Substr: string; S: string): Integer;

Bu fonksiyonu kullanarak parantez arat ve parantez varsa, sonraki kayda devam et, yoksa kaydı düzelt.
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a.
eğer ttable kullandıysan keyviolation hatasını kontrol ettir. onposterror ile bu işlemi yaptırabilirsin.
eğer hata keyviolation ise işlemi iptal ettirirsin.
ama bu durumda kayıt işlemini iptal etmeden önce eski kaydı(yenisi var oldğu için) silmeyi unutma.
Kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Olmuyor

Mesaj gönderen pro_imaj »

Arkadaşlar Olmuyor.

begin
STKQuery.First;
while NOT STKQuery.eof do
try
begin
STKQuery.Edit;
STKQueryMalKodu.Text:=STKQueryDegistir.Text;
STKQuery.Post;
STKQuery.next;
end;
except
STKQuery.Next;
end;
end;


Şu kodu yazıyorum hata verirse bir sonraki kayıta git diye onu bile yapmıyor :(
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Kullanıcı avatarı
pro_imaj
Kıdemli Üye
Mesajlar: 1364
Kayıt: 18 Oca 2005 05:45
Konum: Dünyadan

Teşekkür

Mesaj gönderen pro_imaj »

Merhaba Arkadaşlar.

Söylediklerinizi denedi mama olmadı.

Bende farklı bir biçimde yaptım. Oluşan sorunuda farklı bir soru şeklinde

Sorgulama Proplemi (Stok No) başlığı altına yazdım.

İlginenirseniz çok mutlu olurum.

Teşekkür ederim.
Kolay gelsin
Gün gelecek, dilleri, elleri ve ayakları yapmış oldukları bütün kötülükleri tek tek bildirerek aleyhlerinde şahitlik edecektir. [Nur Suresi 24]
_________________
Cevapla