• Merhaba Ziyaretçi.
    "Yapay Zeka Objektif " Fotoğraf Yarışması başladı. İlgili konuya  BURADAN  ulaşabilirsiniz. Sizi de bu yarışmada görmek isteriz...

Kütüphane programı

B

By-Hawk

Üye
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
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
İ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.


 
B

By-Hawk

Üye
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..
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
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.png


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.
 
B

By-Hawk

Üye
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.
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Hocam bakıcam ama söz vermiş olmayım vakit bulabilirsem bakıcam. Bu gece nete gelebilirsem bakarım olur mu?
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
Tamam o kadar vaktin varsa hallederiz kkkjj, keşke anlamsız bir nick de almasaydın forumumuzda bu tarz isimleri tasvip etmiyoruz.
 
B

By-Hawk

Üye
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
 
YoRuMSuZ

YoRuMSuZ

Biz işimize bakalım...
İ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 :)
 
Benzer Konular Başlık Forum Cevap Tarih
K sınıf kütüphane 1.2 programı Eğitim Download 5
A Okul Kütüphane Programı Soru - Cevap 7
Y Kütüphane Takip programı Yardım (php içerir :)) Soru - Cevap 1
G Kütüphane programı Tanışma 0
I Kütüphane Programı Soru - Cevap 1

Top Bottom