Perhitungan Tabel Dengan Query Pada Delphi 7

Uhuk-uhuk (batuk , karena ngunjungin blog yang udah berdebu lantaran lama kagak di update) ..

Saya gak tau apa judulnya tepat atau enggak , tapi silahkan baca aja dehPerhitungan Tabel Dengan Query Pada Delphi 7.

Begin , kali ini saya menemukan permasalahan ketika hendak menjumlahkan isi dari field pada tabel.Lihat gambar dibawah ini 

itu adalah report yang saya buat menggunakan Quick Report pada delphi 7.MySQLDac sebagai konektornya , dan XAMPP sebagai server SQL-nya.Aplikasi yang saya bernama Saritel - Basic Edition V.1.0.0 ini merupakan permintaan dari sebuah bengkel di daerah saya.Dibawah ini penampakan laporan sebelum di Run

Niatnya , saya ingin menjumlahkan semua field harga beli , harga jual dan stock.Dengan tujuan agar ketauan berapa jumlah total stock dan modal biaya yang di keluarkan untuk membeli barang tersebut.Juga perkiraan laba bila semua barang tersebut laku terjual.Trus , mulai darimanakah !?

Pertama , saya rubah tampilan laporannya menjadi seperti ini

Lalu biar lebih simple , saya bikin procedure dengan nama cetakSemua.Kodenya , kayak gini nih :

procedure cetakSemua;
var totalBeli,totalJual,jual,beli,stock:Integer; //variabel untuk perhitungan
begin
  with FstockBarang do //nama formnya
    begin
      totalJual:=0;  //inisialisasi awal
      totalBeli:=0;
      with Q_stock_barang do  //saya menggunakan Query pada tab data Acces.
        begin
          Close;
          SQL.Clear;
          SQL.Add('select * from t_master_barang');  //inisialisasi query
          Prepare;
          if Prepared=true then
            begin
              Open;
            end;
          end;
      with Q_total_harga_beli do  //query perhitungan data harga beli , dengan query string sama dengan Q_stock_barang
        begin
          try //fungsi try , untuk membangkitkan eksepsi
          First;  //memposisikan kursor pada field pertama dari tabel
          while not Eof do  //Eof=end of field , bila belum sampai pada field terakhir , maka perintah setelahnya akan terus dieksekusi
            begin
              beli:=StrToInt(fieldbyname('harga_beli').AsString);   //var beli diisi dengan field harga_beli
              stock:=StrToInt(fieldbyname('stock_barang').AsString);  //var stock diisi dengan field stock
              totalBeli:=totalBeli+(beli*stock); //menjumlahkan hasil perkalian tiap field
              Next; // berfungsi agar kursor berpindah pada field selanjutnya
            end;
          finally //fungsi finally , di eksekusi bila fungsi  try telah mencapai kondisi tertentu , dalam hal ini Eof.
            lblTotalHargaBeli.Caption:=IntToStr(totalBeli); //mengisi lblTotalHargaBeli dengan var totalBeli
          end;
        end;
      with Q_total_harga_jual do
        begin
          try
          First;
          while not Eof do
            begin
              jual:=StrToInt(fieldbyname('harga_jual').AsString);
              stock:=StrToInt(fieldbyname('stock_barang').AsString); // penjelasannya sama dengan query total beli
              totalJual:=totalJual+(jual*stock);
              Next;
            end;
          finally
            lblTotalHargaJual.Caption:=IntToStr(totalJual);
          end;
        end;
    with Q_total_stock_barang do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select SUM(stock_barang) AS total from t_master_barang'); //menjumlahkan semua stock barang
        Prepare;
        if Prepared=true then // agar lebih afdol query siap di eksekusi.
          begin
            Open;
            lblTotalStockBarang.Caption:=fieldbyname('total').AsString;
          end;
      end;
    lblTotalPerkiraanLaba.Caption:=IntToStr(totalJual-totalBeli); //menghitung perkiraan laba
    end;
end;

Selanjutnya , saya men-triger procedure tadi pada tombol cetak , seperti di bawah ini :

procedure TFstockBarang.btnCetakClick(Sender: TObject);
begin
      cetakSemua;
      if Q_stock_barang.Prepared=true  then
        begin
          QRstockBarang.Refresh;
          QRstockBarang.Prepare;
          QRstockBarang.PreviewModal;
        end;
end;
 

Maka , penampakan laporan stock barang tersebut setelah di rubah menjadi seperti ini ::

Taraaa !!!

Hehe , akhirnya beres juga.Dan setelah itu , saya mulai melanjutkan lagi proses testing dari saritel yang masih dalam tahap on going test.Okey , bila saya menemukan masalah yang terpecahkan lainnya , pasti saya share lagi.

Sekian untuk posting kali ini , semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya:

MySQL

• Koneksi XAMPP , DAC MySQL dan Delphi 7
• Membuat Pencarian Data Super Cepat Pada Delphi 7 - MySQL
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-2
• Instalasi Komponen DAC MySQL Pada Delphi
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-1

Info

• Cara Mencegah Flash CS4 Terkunci DI Windows 7
• Mesin Penukar Koin
• Masuk Bengkel , Motor Malah Gosong
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Proses Hamil Yang Bikin Ngakak
• Pesawat Terbang Yang Jadi Pajangan Di Halaman Rumah
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Membuat Kue Dengan Photoshop
• Uniknya Photoshop Di Dunia Nyata
• Rush di Tabrak Mio Sampai Nungging
• Cara Membuat Animasi Sederhana Di Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Mengetahui lama komputer dinyalakan dengan delphi 7
• Cara filter input karakter pada komponen edit di delphi 7
• Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik
• Mengenal Procedure dan Function Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-4
• Tutorial Cara Install Komponen Quick Report 4 Pro Pada Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3
• Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7
• Koneksi XAMPP , DAC MySQL dan Delphi 7
• Enkripsi Yang Bisa Difungsikan Untuk Serial Number Ala Saya
• Menyembunyikan File *.rar Di Dalam File Foto..

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7