Showing posts with label Delphi. Show all posts
Showing posts with label Delphi. Show all posts

Sistem Informasi Pegawai ( Delphi 7 ) Sederhana

Unknown | 8:19 AM | 284comments
Rasanya sudah lama sekali tidak menambah postingan di blog ini. Dikarenakan aktivitas sekarang lumayan padat merayap. hehehe. Jadi tidak bisa menulis artikel. Tapi untunglah saat ini ada sedikit waktu buat nulis artikel, dan saya akan membagikan aplikasi Sistem Infomasi Pegawai yang sangat sederhana, saya rasa cocok untuk belajar para pemula seperti saya ini. Bagi yang sudah master dalam pembuatan aplikasi dengan delphi ataupun yang lain mohon memberikan kritik dan saran agar aplikasi ini dapat dikembangkan lagi sesuai kebutuhan.

Aplikasi Sistem Informasi Pegawai adalah suati aplikasi yang digunakan untuk mengolah data pegawai atau karyawan pada suatu perusahaan. Aplikasi ini dibuat dengan tujuan , memudahkan bagian HRD untuk mengolah data karyawan yang sebelumnya mungkin kesulitan dalam pemberkasan data-data karyawan. 

Menu-menu yang terdapat pada aplikasi sebagai berikut :

1. File
Dalam menu file ini terdapat submenu Keluar yang di fungsikan untuk keluar aplikasi
2. Master
    Dalam menu master terdapat Submenu :
    - Data Kantor
       Data Kantor digunakan untuk mengolah data kantor/data kantor cabang perusahaan.
    - Data Jabatan
       Data Jabatang digunakan untuk mengolah data jabatan yang terdapat di perusahaan.
    - Data Pegawai
       Data Pegawai digunakan untuk mengolah informasi pegawai di perusahaan.
    - Data Group
     Data group digunakan untuk mengolah data Group
3.  Menu View
     Menu view digunakan untuk melihat informasi data pegawai yang sudah di inputkan kedalam sistem.
4. Laporan
   Menu laporan terdapat Submenu :
  -  Laporan Seluruh SKPD
     laporan seleuruh SKPD difungsikan untuk menampilkan laporan data pegawai seluruh SKPD
 - Laporan Per SKPD
   Laporan Per SKPD di fungsikan untuk menampilkan laporan data pegawai per SKPD


Untuk penampakan aplikasinya bisa lihat gambar dibawah ini.

 1. Form Data Jabatan

Form Data Jabatan


 2. Form Data Kantor


Form Data Kantor



3. Form Pegawai

Form Data Pegawai




4. Form View Data Pegawai 

Form View Data Pegawai


 Sekian dulu artikel untuk kali ini. semoga bermanfaat untuk belajar pemrograman delphi.
bagi yang menginginkan Source Code nya silahkan tinggalkan email di komen. password nanti dikirim via email.

Membuat Aplikasi Penjualan Part9 ( Membuat Nota dengan FastReport)

Unknown | 9:15 PM | 25comments
Akhirnya ada waktu juga untuk meneruskan artikel ini. hampir sebulan artikel ini gak update, karena ngerjain project gak selesai-selesai ... hehhe.

Artikel ini akan membahas pembuatan nota menggunakan fastereport, walaupun banyak cara untuk pembuatan nota, tapi saya lebih senang dengan fastreport karena kemudahaan dalam ketika mendesain nota.

Langsung saja langkah-langkah pembuatannya.

1. Tambahkan 2 Komponen ZQuery dan 2 Dataset seperti gambar dibawah ini.

Nota Penjualan

2. Mengatur property SQL pada Qpenjualan. Lihat gambar dibawah


3. Mengatur Property SQL Pada QdetailPenjualan. Lihat gambar dibawah



4. Menambahkan komponen fastreport . 1 FrxReport dan 2 FrxDBDataset


5. Mengatur Properti FrxDBDataset ( Data Penjualan ).

NotaPenjualan

6. Mengatur Properti pada DetailPenjualan

Nota Penjualan

7. Membuat Desain Nota ( Klik 2 kali pada komponen FrxReport1) 

Nota Penjualan

8. Menambahkan Dataset pada master Data dan detail data

Nota Penjualan


9. Menamabahkan TFrxMemoView untuk menampilkan Data Penjualanya. buat  format Sepert gambar dibawah.


Nota Penjualan

10. Setelah semua sudah diseting kemudian simpan dalam folderaplikasi\laporan\nota.fr3.
11. Preview Nota seperti pada gambar dibawah ini.



12. Pemanggilan pada form penjualan.

 -Tambahkan procedure cetakNota. lihat gambar

- Tekan Ctrl+shift+C. Kemudian tambahkan kode dibawah ini.

procedure TFpenjualan.CetakNota;
begin
  with dm.Qpenjualan  do
  begin
     Close;
     SQL.Clear;
     SQL.Add('select * from tb_penjualan where kodepenjualan="'+Enotapenjualan.Text+'"');
     Open;
  end;
  DM.QdetailPenjualan.Active:=False;
  DM.QdetailPenjualan.Active:=True;
  dm.frxReport1.LoadFromFile(ExtractFilePath(Application.ExeName)+'Laporan\nota.fr3');
  dm.frxReport1.ShowReport();
end;

- pada tombol simpan sisipkan kode dibawah ini.


13. Proses pembuatan nota sudah selesai. kemudian jalankan program. kemudian lakukan proses transaksi penjualan.

Aplikasi Data Mining Dengan Algoritma C4.5

Unknown | 7:24 PM | 558comments
Algoritma C4.5 merupakan algoritma yang digunakan untuk melakukan pembentukan pohon keputusan. Pohon keputusan tersebut mampu menghasilkan keputusan kompleks menjadi lebih sederhana.
Secara umum algoritma C4.5 untuk membangun  pohon keputusan adalah sebagai berikut.
a.          Pilih atribut sebagai akar.
b.         Buat cabang untuk tiap-tiap nilai.
c.          Bagi kasus dalam cabang.
d.         Ulangi proses untuk setiap cabang sampai semua kasus pada cabang memiliki kelas yang sama.

Untuk memilih atribut sebagai akar, didasarkan pada nilai gain tertinggi dari atribut-atribut yang ada. Untuk menghitung gain digunakan rumus .

Algoritma C4.5

Setelah mendapatkan nilai gain, ada satu hal lagi yang perlu dilakukan perhitungan yaitu mencari nilai Entropy. Entropy digunakan untuk menentukan seberapa informative sebuah input atribut untuk menghasilkan output atribut.

Algoritma C4.5
 
Copyright © 2011. TUTORIAL DELPHI DAN DATABASE - All Rights Reserved