Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama C++ Builder Kütüphane Otomasyonu


Kütüphane Otomasyonu

 

Kütüphane Otomasyonu

 

Bu otomasyonda C++ Builder üzerinden Mysql veritabanına bağlanılmıştır ve çeşitli işlemler yapılmaya çalışılmıştır. Programa girişte
 
Kullanıcı Adı : personel
Şifre          : 1111
 
Kullanıcı Adı : perso
Şifre          : 2222
 
Kullanıcı Adı : buro
Şifre          : 121212
 
 
 
kullanılmalıdır. 
 
Kitap İşlemleri Altından
 
- Yeni Kitap Kaydı
- Kitap Kaydı Düzenle
- Kitap Kaydı Sil
- Kitap Teslimi
- Kitap İade
- Özet Ekle
 
Müşteri İşlemleri Altından
 
-Müşteri Kaydı Ekle
-Müşteri Kaydı Düzenle
-Müşteri Kaydı Sil
 
Personeli İşlemleri Altından
 
-Personel Kaydı Ekle
-Personel Kaydı Düzenle
-Personel Kaydı Sil 
 
Parasal İşlemler Altından
 
- Müşteri
  - Borç Görüntüle
  - Ödeme Bildir
 
- Kasa
  - Bugün
  - Bu Ay
  - Kasa Durum
  - Ödeme Bildir
 
Kullanıcı Altından
 
-  Kullanıcı Değiştir
-  Kayıt Güncelle
 
 gibi işlemler yapılabilmektedir.
 

Programın çalışabilmesi için veritabanı klasörünü bilgisayarınızdaki kurulu Mysql altındaki data klasörü içine koymalı ve mysql'i yeniden başlatmalısınız.  Yeniden başlatma komutları;

cmd-> net stop mysql

cmd->net start mysql

 

Kullanılan Veritabanını Aşağıdaki Linkten İndirebilirsiniz.

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

 

Unit1.cpp Kodu:

  1.  
  2.  
  3. //---------------------------------------------------------------------------
  4.  
  5. #include <vcl.h>
  6. #pragma hdrstop
  7.  
  8. #include "Unit1.h"
  9. #include "Unit2.h"
  10. #include "Unit3.h"
  11. //---------------------------------------------------------------------------
  12. #pragma package(smart_init)
  13. #pragma link "DBAccess"
  14. #pragma link "MemDS"
  15. #pragma link "MyAccess"
  16. #pragma resource "*.dfm"
  17. TForm1 *Form1;
  18. //---------------------------------------------------------------------------
  19. __fastcall TForm1::TForm1(TComponent* Owner)
  20.         : TForm(Owner)
  21. {
  22. }
  23. //---------------------------------------------------------------------------
  24.  
  25. void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
  26. {
  27. Form3->Show();
  28. int i=0;
  29. MyTable1->Active=true;
  30. String as="ADMIN";
  31.  MyTable1->First();
  32.  while (!MyTable1->Eof)
  33.  {
  34.  if (MyTable1->FieldValues["kuladi"]==Edit1->Text  )
  35.    {
  36.         if (MyTable1->FieldValues["sifre"]==Edit2->Text)
  37.         {
  38.           i=1;
  39.          if (MyTable1->FieldValues["durum"]==as)
  40.          {Form2->Personellemleri1->Enabled=true;}
  41.          Form2->Edit1->Text=MyTable1->FieldByName("adsoyad")->AsString;
  42.          Form2->Edit2->Text=MyTable1->FieldByName("tcno")->AsString;
  43.          //Form3->Hide();
  44.          //Sleep(2000);
  45.          Form2->Show();
  46.          Form1->Hide();
  47.          MyTable1->Active=false;
  48.  
  49.  
  50.          break;
  51.          }
  52.          else {Application->MessageBox("Girilen Şifre Hatalı","HATA MESAJI",MB_ICONWARNING); i++; MyTable1->Active=false; break;   }
  53.    }
  54.  else
  55. MyTable1->Next();
  56. }
  57.  if (i==0)
  58.  {
  59.   MyTable1->Active=false;
  60. Application->MessageBox("Kullanıcı Adı veya Şifre Hatalı","HATA MESAJI",MB_ICONWARNING);
  61.  }
  62. }
  63. //---------------------------------------------------------------------------
  64.  
  65. void __fastcall TForm1::FormShow(TObject *Sender)
  66. {
  67. Form3->Show();
  68. Form3->Hide();
  69. Edit1->Text="personel";
  70. Edit2->Text="1111";
  71. }
  72. //---------------------------------------------------------------------------
  73.  
  74. void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
  75. {
  76. if (Key==13) SpeedButton1->Click();       
  77. }
  78. //---------------------------------------------------------------------------
  79.  
  80. void __fastcall TForm1::iptalClick(TObject *Sender)
  81. {
  82. int a=Application->MessageBox("Çıkmak İstediğinizden Eminmisiniz","Çıkış İşlemi", MB_YESNO + MB_ICONINFORMATION);
  83. switch  (a)
  84. {
  85.    case IDYES : Form1->Close(); break;
  86.    case IDNO : Action=caNone;   break;
  87. }
  88. }
  89. //---------------------------------------------------------------------------
  90.  
  91.  
  92.  

 
Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Pazar, 02 Eylül 2012 23:08 )