VB6 : Database & Form Kasir (Lanjutan Form Barang)
Database & Form Kasir
Listing programnya :
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
Private Sub cmdadd_Click()
Call nomor
Call hidup
cmdsave.Enabled = True
cmdadd.Enabled = False
cmdundo.Enabled = True
txtkdkasir.Enabled = False
txtnmksr.SetFocus
End Sub
Private Sub cmddelete_Click()
a = MsgBox(“Yakin Mau Dihapus???”, vbYesNo + vbInformation, “Konfirmasi”)
If a = vbYes Then
adokasir.Recordset.Delete
Call mati
Call bersih
End If
End Sub
Private Sub cmdedit_Click()
Call hidup
txtkdkasir.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdundo.Enabled = True
cmddelete = False
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdfind_Click()
adokasir.Recordset.Find “kdkasir='” & Me.txtcari.Text & “'”, , adSearchForward
If Not adokasir.Recordset.EOF Then
Call tampil
Call mati
cmdadd.Enabled = False
cmdedit.Enabled = True
cmdsave.Enabled = False
txtkdkasir.Enabled = False
txtcari.Text = “”
Else
MsgBox “kode kasir tidak ada”, vbInformation, “info”
txtcari.Text = “”
End If
End Sub
Private Sub cmdfirst_Click()
adokasir.Recordset.MoveFirst
tampil
End Sub
Private Sub cmdlast_Click()
adokasir.Recordset.MoveLast
tampil
End Sub
Private Sub cmdnext_Click()
adokasir.Recordset.MoveNext
If adokasir.Recordset.EOF Then
MsgBox “DATA SUDAH DIAKHIR RECORD”, vbInformation, “INFO”
adokasir.Recordset.MoveLast
End If
Call tampil
End Sub
Private Sub cmdprevious_Click()
adokasir.Recordset.MovePrevious
If adokasir.Recordset.BOF Then
MsgBox “DATA SUDAH DIAWAL RECORD”, vbInformation, “INFO”
adokasir.Recordset.MoveFirst
End If
Call tampil
End Sub
Private Sub cmdsave_Click()
With adokasir.Recordset
adokasir.Recordset.Find “kdkasir='” & Me.txtkdkasir.Text & “'”, , adSearchForward
.AddNew
If adokasir.Recordset.EOF Then
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
Else
!kdkasir = txtkdkasir.Text
!nmkasir = txtnmksr.Text
!telp = txttelp.Text
!alamat = txtalamat.Text
.Update
End If
End With
Call mati
Call bersih
cmdsave.Enabled = False
cmdadd.Enabled = True
cmddelete.Enabled = True
cmdundo.Enabled = False
cmdedit.Enabled = True
End Sub
Private Sub cmdundo_Click()
Call bersih
Call mati
cmdundo.Enabled = False
cmdadd.Enabled = True
cmdsave.Enabled = False
cmddelete.Enabled = True
End Sub
Private Sub Form_Activate()
Call mati
cmdedit.Enabled = False
cmdsave.Enabled = False
cmdundo.Enabled = False
cmdedit.Enabled = True
jam.Caption = Time
tanggal.Caption = Date
End Sub
Private Sub txtkdkasir_Change()
txtkdkasir.MaxLength = 6
End Sub
Jangan Lupa like dan share.
Belajar Pemrograman di fajaryusuf.com aja. 🙂
MATERI VB6
Jika anda baru Belajar VB 6 silakan belajar dari materi pertama :
Materi ke-2 : Membuat Form
Materi ke-3 : Variabel dan Konstanta
Materi ke-4 : Operator
Materi ke-5 : Fungsi Operator
Materi ke-6 : Fungsi Standar Visual Basic
Materi ke-7 : Percabangan
Materi ke-8 : Percabangan Lanjutan
Materi ke-9 : Procedure dan Function
Materi ke-10 : Module
Materi ke-11 : Array
Materi ke-12 : Efek Form dan Control Componen
Materi ke-13 : Database Form Barang
Materi ke-14 : Database Form Kasir
Materi ke-15 : Transaksi One To One
Materi ke-16 : Laporan Dengan Data Report