Delphi Forum

Umarım yanlış yapmamışımdır, aşağıdaki gibi dener misiniz.
UstGiyim için yapılan döngüyü silin en alt kısma bunu ekleyin

var
.......
GenelToplam : integer;
begin
......
......
GenelToplam := 0;
for a := 1 to ComponentCount-1 do
begin
GenelToplam := GenelToplam + (StrToInt(TEdit(FindComponent ...

Oluşturulan kategorilerin sayıları fazla ise bunlar için bi döngü kurabilirsiniz sanırım.
Bundan önce Form'a koyulan editlerin isimlerini kendinize göre düzenleyin.
Mesela AltGiyim kategorisindeki editler AltGiyim1 AltGiyim2 AltGiyim3... gibi isimlendirilmiş olsun.

var
AltGiyimToplam, a ...

Her kategoriyi kendi içlerinde çarparak ulaşılabilir sanırım.
((ÜstGiyim x AltGiyim) x Dış giyim) x Ayakkabı = Birinci ÜstGiyim kategorisinin giyim kombinasyonu.
AltGiyim, DışGiyim ve Ayakkabı kategorilerinin elemanlarını da kendi aralarında toplamanız gerekecek.

Bunun için girilen her değer için ...

Merhaba arkadaşlar basit bir program geliştiriyorum ancak matematiksel kısmında nasıl hesaplayacağımı bilemedim.

9 tane sayı değişkenin elle girildiği bir kombinasyon programı.

Kategoriler, Değişkenler ve değerleri şunlar:

1. Üst Giyim Kategorisi [Gömlekler(7 Tane),T-Shirtler(3 Tane),Kazaklar(3 ...

Böyle bir şey mümkün mü? Veritabanında StokAdedi olarak belirtilen alan "sayı" olarak kayıtlı.

ADOTable1.FieldByName('StokAdedi').Value:=StrToInt(DBGrid1.SelectedRows.Items[1])+StrToInt(Edit1.Text);

Kodu salladım ama bu mantıkta olacak. (Bu kodda List index out of bounds [1] hatası veriyor zaten ...

Project- View Source a tıkla
sildiğin Kısım en alta begin end bloğunda

Application.Initialize;
Application.Title := 'Book Shop';
Application.CreateForm(tOturum1, Oturum1);
Application.Run;


tamamı

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Oturum1},
Unit2 in 'Unit2.pas ...

Çözebilecek arkadaşlar varsa linkini vereyim: http://www.dosya.tc/server21/YglGRo/BookShop.rar.html

Rapor Fatura Gelen Raporlar formlarını sildim. Bir kaç hata veriyordu implementationslardaki unit isimlerini de sildim. Şimdi hiç tepki vermiyor açılırken projenin unit sayfası geliyor run diyorum ...

Personel kaydı yaptıktan sonra yeni personelin kullanıcı adını ve şifresini yazıyorum lütfen kullanıcı adınızı kontrol edin hatası veriyor. Ama diğer personelleri silersem ve 1 tane personel kalırsa o zaman personel ekranına giriş yapabiliyor.

Kodlar şöyle:

if ((Edit1.text)='')
and ((Edit2.text ...

Merhaba,

Arama yapınızda sıkıntı görmüyorum. "Yazar Adı" na göre arama yaparak yazarı bulduğunuzda, o yazara ait tüm "Kitap Adı" ların listelenmesini istiyor iseniz; önce bu iki alan arasındaki ilişkiyi (muhtemelen yapmışsınızdır) ve bu iki alanı içeren görüntülemeyi kurmalısınız.

Bunu bir kaç ...

Forumda arattım bulamadım.

İsme göre arama yaparken Edit1'in Edit1Change'ine şu kodu yazıp istediğim kitabı bulabiliyorum:

KitapSorgulama4.ADOTable1.Filtered:=true;
KitapSorgulama4.ADOTable1.Locate('KitapAdi',Edit1.Text,[ loPartialKey]);

Ancak yazar adına göre arama yaparken yazarın tüm ...

Yok malesef sadece AnaEkran gösterilecek yazıcı çıktı.

Yahu çalışmış ya...
then ShowMessage('AnaEkran2 gösterilecek') //AnaEkran2.Show

O mesajı neden ekledim, bir şeyi fark etmen için...

then AnaEkran2.Show şeklinde değiştir o satırı...

Tamam tamam sonunda çözdük if satırlarını tek tek ...

Hocam son verdiğim çalıştı mı çalışmadı mı ?

Yok malesef sadece AnaEkran gösterilecek yazıcı çıktı. Veritabanı bağlantılarını bile denedim Gelişmişten sadece Read yaptım, sadece Share Deny None yaptım, sadece ReadWrite yaptım bana mısın demedi. Seni de yordum kusura bakma ama en sonunda if edit1 ...

O zaman bu da çalışacaktır...
(eğer Edit1 ve Edit2'nin isimlerini yanlış yazmamışsanız...)
if ( StrToInt(edit1.text) = ADOTable1.FieldByName('KullaniciAdi').Value )
and ( StrToInt(edit2.text) = ADOTable1.FieldByName('Sifre').Value )
then ShowMessage('AnaEkran2 gösterilecek') //AnaEkran2.Show ...

- Gördüğün gibi aslında sorun daha Tablo bağlantısının sağlıklı olmamasıymış.
- Bize aktardığınız kadarıyla devam etseydik, sanki tablodan veri doğru alınmış da, karşılaştırdığı halde neden olmuyor konusunu tartışıyor olacaktık.

- Şimdi TABLO'nun doğru açıldığını teyid için DBGrid'de görmenizi ...

@darrenjones

- Bu son mesajınız ile söyeleceğiniziz hepsi bu kadar ile sınırlı ve bitti öyle mi :?:

- "Kodlarınızı biraz daha geniş örneklerseniz hatanızı daha kolay buluruz." demiştim, bu son mesajınız kadarını yeterli mi gördünüz...?

- Bu durumda kusura bakmayınız. Ben sorununuza çözüm ...