Jumat, 28 Februari 2014

Membuat Penomoran Otomatis di Delphi

Membuat Penomoran Otomatis di Delphi

Salah Satu Hal yang banyak dimanfaatkan dalam membuat aplikasi Database adalah dengan membuat penomoran secara otomatis. Dengan cara ini End User tentu akan lebih mudah dalam menginputkan Data karena tidak perlu lagi membuat atau mengetikan nomor secara manual. Hal ini juga sering dimanfaatkan untuk membuat nomor transaksi atau nomor registrasi dalam sebuah aplikasi.

Kali ini saya akan berbagi tentang cara membuat penomoran berdasarkan waktu dan jumlah data  yang ada didalam database. jadi, Output Nomor yang akan keluar kurang lebih akan menjadi :

NO-waktutransaksi-datayangke

NO dibuat secara statis sehingga tidak akan dapat dirubah, waktutransaksi digenerate berdasarkan waktu
terjadinya transaksi sehingga akan selalu berubah-ubah, Sedangkan datayangke diambil dari jumlah data yang ada didatabase ditambah 1 Dengan Begitu tidak akan pernah terjadi Duplicate nomor dan User tidak perlu repot mengetikan nomor secara manual. adapaun coding yang saya gunakan adalah seperti dibawah ini
Edit1.Text:='NO-'+FormatDateTime('hms',Now)+'-'+IntToStr(ADOQuery1.recordcount+1);

Contoh Source Code dapat anda Download disini. Selamat mencoba :)

Tidak ada komentar:

Posting Komentar