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