Nomor urut otomatis
Posted by Devz Andrean | Posted in Foxpro |
Suka lupa sama urutan nomor transaksi yang udah tersimpan, harus di liat lagi ke database-nya. Dari pada kaya gitu lebih baik di buat nomor urut otomatis, jadi saat tombol input/tambah di klik nomor urutnya tampil sesuai urutan nomornya.
Kita coba yuk..
1. Buat method baru dengan nama create_number
2. Ketikkan code dibawah ini :
SELECT 6
GO BOTTOM
a=VAL(RIGHT((no_terima),4))+1000001
thisform.txtno.Value="TR09" + RIGHT(STR(a),4)
note : select 6 (memilih tabel transaksi)
3. Tambahkan method create_number kedalam code tombol input
WITH thisform
IF .cmdinput.caption="\
.cmdinput.caption="\
.cmdok.enabled=.t.
.aktif
.bersih
.create_number() // panggil disini
.txttgl.value=(DATE())
.txtnofak.setfocus
.cmdkeluar.enabled=.f.
.cmdsimpan.enabled=.t.
ELSE
.cmdinput.caption="\
.kondisiawal
.cmdkeluar.enabled=.t.
.txttgl.value=(DATE())
ENDIF
ENDWITH
THISFORM.Refresh
Selamat mencoba..
Comments (0)
Posting Komentar