• Merhaba Ziyaretçi.
    "Hoşgeldin sonbahar "
    konulu resim yarışması başladı. İlgili konuya BURADAN ulaşabilirsiniz. Sizi de beğendiğiniz 2 resmi oylamanız için bekliyoruz...

Kütüphane programı

Acil bir ödevim var. Yardımcı olmanızı istiyorum. projede Görsellik Önemli değildir.Sanırım bu proje bu sitede yayınlanmıştı ancak çalışmıyor. Yardımlarınızı Bekliyorum

Kütüphane Programı
Veri Tabanı: Access
Kullanılacak İtemsler: ADO Elemanları
Üye Kayıt Sayfası Olacak.
Kitap kayıt sayfası olacak.
Ödünç Ver kısmından Üye ve Kitap seçilecek ve bunu raporlayacak bir program lazım.

20 Tl ye kadar ücret ödemesi yapılabilir. ( Ücret İstenmemesi makbule geçer :) )
Ödeme Türleri:
Turkcell,Avea,Vodafone Tl

Saygılar

mail: by-hawk[at] hotmail [dot] com [dot] tr
 
İletişim site üzerinden kurun hocam mail adresine gerek yok. Ayrıca burası Çerezforum sanırım bir yanılgı oldu.

Benim kodladığım 2 adet kütüphane program mevcut (Sınıf Kütüphane ve Okul Kütüphane). ADO bileşenleri ve access veritabanı kullanıldı. Programları inceleyebilirsiniz. Tasarım ve çalışma prensibi açısından incelemeniz yararlı olabilir. Ancak kodları paylaşmayı ya da ücret karşılığı vermeyi düşünmüyorum.

Takıldığınız yerde yardımcı olmaya çalışırım.


 
Ben Kitap ekle,Listeme kısmını ve yeni üye ve listele kısmını yaptım. Ödünç ver kısmında seçilen üyenin ve seçilen kitabı nasıl birleştireceğimi ve yeni tabloda nasıl göstereceğimi bilmiyorum yardımcı olur musunuz

Rahatsız ediyorum ama siz bana kitap ödünç ver kitap al kısmının teknik bilgilerini ve kodlarını verseniz..

Projeyi yapamazsam sınıfta kalacam.. Lütfen Yardım Edin..
 
Bunlar için yeni tablolar oluşturmalısınız hocam. Master tabloda kullandığını otomotik artan alan id ile detail tablolarda ayarladığınız ID no'ları eşleştirmelisiniz ki sorunsuz iletişim kurulsun.

Master detail tablo yapısını bildiğinizi varsayıyorum.

Böylece kitap ver bölümünde ayarladığınız buton yordamına yazacağınız kodlarla tablolardan gerekli alanları aktarırsanız sorunsuz kullanabilirsiniz.

Benim bu program için kullandığım tablolar şu şekilde...

ngrcr8.webp

Kitap ver buton yordamına yazdığım kodları kopyalıyorum.
Kod:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg(QuotedStr(Form1.Query1.FieldByName('KitapAdi').AsString)
  + ' adlı kitap '+'"'+DBText16.Caption+'"'+ ' adlı üyeye verilecek. ' + chr(13) + chr(13) +' Onaylıyor musunuz?',mtWarning,[mbYes,mbNo],0) = mrYes then
  begin
    QOdunc.Insert;
    QOduncOgrenciNo.AsInteger := StrToInt(Edit3.Text);
    QOduncOgrenciAdi.AsString := QUyeUyeAdi.AsString;
    QOduncDemirbasNo.AsString :=  Query1DemirbasNo.AsString;
    QOduncKitapAdi.AsString := Query1KitapAdi.AsString;
    QOduncCiltSayisi.AsInteger := Query1CiltSayisi.AsInteger;
    QOduncAdet.AsInteger := Query1Adet.AsInteger;
    QOduncYazari.AsString := Query1Yazari.AsString;
    QOduncCeviren.AsString := Query1Ceviren.AsString;
    QOduncBasimYili.AsInteger := Query1BasimYili.AsInteger;
    QOduncBasimYeri.AsString := Query1BasimYeri.AsString;
    QOduncFiyat.AsString := Query1Fiyat.AsString;
    QOduncEbat.AsString := Query1Ebat.AsString;
    QOduncSayfa.AsString := Query1Sayfa.AsString;
    QOduncATarih.AsDateTime := StrToDate(Label26.Caption);
    QOduncVTarih.AsDateTime := StrToDate(Label27.Caption);
    QOdunc.Post;
    Query1.Delete;
  end;
end;
Kodları kendinize göre değiştirebilirsiniz. Kullandığım tablo ve alanlara göredir.

Benzer şekilde de kitabı geri alıyoruz.
 
Programı versem siz halletseniz olur mu. Veritabanı kendi programınızda kullandığınız veri tabanını kullanıyorum(Kusura Bakmayın) ?

Gerçekten bir el atarsanız çok makbule geçer.
 
Hocam bakıcam ama söz vermiş olmayım vakit bulabilirsem bakıcam. Bu gece nete gelebilirsem bakarım olur mu?
 
Tamam o kadar vaktin varsa hallederiz kkkjj, keşke anlamsız bir nick de almasaydın forumumuzda bu tarz isimleri tasvip etmiyoruz.
 
tamam isterseniz "By-Hawk" ile değiştirebilirsiniz. Birde Bu kitap alındıkça adet kısmı bir azalacak eğer adet 0 ise kitap verilemeycek bunu da yapabilirseniz çok mutlu olurum
 
İlettiğin program üzerinde çalışacak vakti maalesef bulamadım kendi yazdığım programdaki gereksiz birkaç özelliği kaldırarak iletiyorum. Gerekli alanlar mevcut, sadece veritabanı onarma, yedekleme, yazdırma ve ini dosyasına kayıt olayları vs extraları kaldırdım. Arama kriterleri de aynen mevcut.

Birkaç component kullanmıştım default ile değiştirdim ancak kalıntıları kalmışsa ilgili satırları silersin kkkjj. ilettiğim programda hem kaynak kodları hem de çalışan exe dosyası öevcut. Güle güle kullan işini rahatlıkla göreceğini umuyorum. Tasarım aynı şekilde mevcut. Kendine göre bunları da düzenleyebilirsin.

Veritabanı şifresi "kutuphane10" önceden olduğu gibi yani, istersen kaldırabilirsin.

Forumda kalıcı olursan artık nickini de yukarıdaki mesajda belirttiğin şekilde değiştiririz :)
 
Geri
Top