VB6 : Database & Form Kasir (Lanjutan Form Barang)

Database & Form Kasir 

Buatlah sebuah Form Kasir dengan desain sepert dibawah ini
Form ini dibuat untuk mengelola data baik kasir atau petugas yang melayani transaksi penjualan barang. Namun Sebelum merancang form buka terlebih dahulu database penjualan yang pernah kita buat sebelumnya lalu tambahkan tabel kasir sebagai berikut :
Berikut adalah tampilan rancangan form data barang yang akan dibuat
Form Kasir diatas logika programnya hampir sama dengan Form Barang, bedanya pada Form Kasir Kode Kasirnya dapat tampil otomatis sesuai format tertentu.
Setting Properties Objeknya seperti berikut :


Listing programnya :

Sub nomor()
Dim urutan As String
Dim hitung As Integer
With adokasir.Recordset
If .RecordCount = 0 Then
urutan = “KSR01”
txtkdkasir.Text = urutan
Else
.MoveLast
hitung = Val(Right(!kdkasir, 2)) + 1
urutan = “KSR” & Right(“00” & hitung, 2)
txtkdkasir.Text = urutan
End If
End With
End Sub

Sub tampil()
With adokasir.Recordset
txtkdkasir.Text = !kdkasir
txtnmksr.Text = !nmkasir
txttelp.Text = !telp
txtalamat.Text = !alamat
End With
End Sub

Sub bersih()
txtkdkasir.Text = “”
txtnmksr.Text = “”
txttelp.Text = “”
txtalamat.Text = “”
End Sub

Sub mati()
txtkdkasir.Enabled = False
txtnmksr.Enabled = False
txttelp.Enabled = False
txtalamat.Enabled = False
End Sub

Sub hidup()
txtkdkasir.Enabled = True
txtnmksr.Enabled = True
txttelp.Enabled = True
txtalamat.Enabled = True
End Sub

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Previous post Program C# Unity : Materi 4 – Tips Penulisan Variabel dan Method
Next post Contoh18 ( Halaman Index Pengunjung) : Webpro