Delphi Forum

ek olarak dbedit if ile dolumu boşmu old nasıl kontrol ederin db editimin text özelliği yok. ben şöyle yazdım query1.fieldByName ('ad').value=' ' then
begin


end;

2 TANE DB EDİTİM VAR. 1DB EDEİT MUSTERİ TABLESİNE BAĞLI 2DB EDİT ODALAR TABLESİNE BAĞLI BENİM YAPMAK İSTEDİĞİM 1DB EDİTTEKİ GİRİLEN SAYI DEĞERİNİ 2DB EDİTE ATICAK .YANİ ODALAR DBEDİT ODA_MUS_KİMLİK_NO YA BAĞLI MÜŞTERİ TABLEDEKİ KİMLİK NOSUNU BURAYA AKTARACAK TEXT ÖZELLİĞİ OLMADĞI İÇİN BİLİNDİK KOD ...

veritabanında ürünlerim var bilgisayar ürünleri kullanıcı bunu seçip satın al butonuna tıkladığında seni satış bilgileri sayfasına götürecek orda bilgileri yazdıktan sonra butona tıkladığında veritabanında o ürüne ait adet 10 ise kullanbıcı 5 aldıysa 10 dan 5 e inecek sonra bunu satılanla vt ye ...

doğru söze ne denir.

mantığı yazabiliyom ama koda dökemiyom

başka bir sorum olacak

kullanıcı formda bir ürün seçti ve onu satın alacak satın al butonuna tıklayınca hesap no sunu falan yazacak butona tıkladığında satın alacak satın aldıktan sonra bunu satılanlar veritabanına ekleyecek. yarımızı bekliyorum.

tamam

kod çalışmadı. benim yaptığım programın mantığı

kullanıcı stok adı=masaüstü stok modeli=asus stok adedi=5.... diye vt ye veri girdi

bu verinin aynısını bir daha girecek ama bu sefer stok adedini 1 yaptı.vt de 5 in üstüne +1 yapacak yani 6 yapcak

eğer verilerin iksi aynıysa bunu yapacak.değilse ...

teşekkür ederim saoğolasın

kullanıcı veritabanına 1 adet ürün ekliyor.
ama aynı üründen 5 adet ekliyor.
benim istediğim aynı üründen eklediği zaman 1 adetin üstüne 5 adet ekliyorsa bunu 5 yapmasın sadece 1 üstüne eklesin yani 6 olsun.
İNŞAALLAH açıklayıcı olmuştur.

tamam verdiğin if komutları çalıştı teşekkürler.

kod çalıştı ama sonucu yazarken girdiğin sayı ile sonucu yanyana yazdırıyor

sanırım benim kullandığım programdan kaynaklanıyor.components hatası veriyor

var
i: Integer;
begin
for i := 0 to ComponentCount - 1 do begin
if Components[i] is TEdit then begin
if (TEdit(Components[i]).Text<>'') then .......
end;
end;


for 1 den başlayacak 3 kadar dönecek çünkü 3 editim var ComponentCount burda hata veriyor öyle yaptım mı????

i:integer;
procedure......
for i:=1; to 3 do
begin
if edit.i.text=<>'' then
begin
...
end;

yazdığım kod çalışmıyor. amacım edit1,2,3 textim var kullanıcı edit1'e sayı giriyor.edit2'e sayı giriyor.bunları +yapıp edit 3' e yazdırıyor.for ile yapıp kulllanıcı edit3'e girdiğinde edit1'e de girebilir.ve ...