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
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