Script Form Kasir VB 6.0

Belajar Visual Basic 6.0 memang membutuhkah kesabaran. Males ngoceh Q, langsung aja OK,,!
Sekarang kita akan membuat form data Kasir, tampilan seperti samping,,

sekarang kita menggunakan koneksi Data Environment yang namanya saya ganti menjadi "de"

cara membuat Data Environment, klik kanan projek, add, Data Environment(setingan laptopQ gitu), klik kanan di Connectionnya, propertise,connection, datasourcenya masukkan path datbasenya, OK, kemudian klik kanan connection di Data Environment,  add command, kemudian klik kanan command yg dibuat N propertise, general, data base object pilih tabel data objectnya pilih table data basenya, kemudian pindah ke advanced, locked typenya pilih optimistic, OK dh

Coding

Di lst As ListItem deklarasi listviewnya

dulu "lst" bebas karena dia variable
Dim edt As Boolean deklarasi lagi "edt" adlh variable, "Boolean" cuma 2 pilihan ya atw tidak
Private Sub Command1_Click(Index As Integer) sama seperti navigasi di data barang, ttp pake "de"
With de.rsKasir "de" koneksinya "Kasir" Tabel sourcenya, "jdi rsKasir" tu kayak semacam rumus
Select Case Index
 Case 0
  .MoveFirst
 Case 1
 .MovePrevious
  If .BOF Then
  MsgBox "First Record"
  .MoveFirst
  End If
 Case 2
  .MoveNext
  If .EOF Then
   MsgBox "Last Record"
   .MoveLast
  End If
 Case 3
 .MoveLast
End Select
Call isifield
End With
End Sub

Private Sub Command2_Click(Index As Integer) Ini tuk tamba, edt, hpus, dll, array uga
Select Case Index
    Case 0
    Call hidup
        Text1(0).Text = "" membuat textbox ksong
        Text1(1).Text = ""membuat textbox ksong
        Text1(2).Text = ""membuat textbox ksong
        Text1(3).Text = ""membuat textbox ksong
        Text1(4).Text = ""membuat textbox ksong
        Text1(5).Text = ""membuat textbox ksong
        Call autonumber
        Text1(1).SetFocus
    Case 1
    Call hidup
        edt = True
    Case 2
        If MsgBox("Are You Sure?", vbYesNo + vbInformation, "Information") = vbYes Then
            de.rsKasir.Delete
        Else
        End If
        Call isifield
    Case 3
    Call mati
    Call kunci
        If edt = False Then
           de.rsKasir.AddNew
        End If
        yang ini fungsinya meynimpan ke table kasir itu
        de.rsKasir("kode_ksr") = Text1(0).Text yang berada dlm tanda ("") tu adlh nma field dtbel kasir
        de.rsKasir("nama_ksr") = Text1(1).Text yang akan di isi berdasarkan isi text yang ada di textbox
        de.rsKasir("alamat") = Text1(2).Text
        de.rsKasir("kota") = Text1(3).Text
        de.rsKasir("jk") = Text1(4).Text
        de.rsKasir("notelp") = Text1(5).Text
        de.rsKasir.Update
        MsgBox "Saved"
    Case 4
    Call mati
    Call kunci
            de.rsKasir.MoveFirst
            Call isifield
End Select
End Sub

Private Sub Form_Load() beberapa procedure yang akan dijalankan pertamkali saat form RUN
Call isifield
Call isilist
Call mati
Call kunci
End Sub

Public Sub isifield() ini akan menampilkan data sesuai record yang ada ke textboxnya "Procedure"
With de.rsKasir
 If .State = 0 Then .Open
 Text1(0).Text = .Fields("kode_ksr")
 Text1(1).Text = .Fields("nama_ksr")
 Text1(2).Text = .Fields("alamat")
 Text1(3).Text = .Fields("kota")
 Text1(4).Text = .Fields("jk")
 Text1(5).Text = .Fields("notelp")
End With
End Sub

Public Sub isilist() kalau yang ini akan menampilkan data di ListViewnya "Procedure"
For k = 1 To de.rsKasir.RecordCount
 Set lst = ListView1.ListItems.Add(, , de.rsKasir("kode_ksr"))
 lst.SubItems(1) = de.rsKasir("nama_ksr")
 lst.SubItems(2) = de.rsKasir("alamat")
 lst.SubItems(3) = de.rsKasir("kota")
 lst.SubItems(4) = de.rsKasir("jk")
 lst.SubItems(5) = de.rsKasir("notelp")
 de.rsKasir.MoveNext
Next
de.rsKasir.MoveFirst
End Sub
Public Sub autonumber()
 If de.rsKasir.RecordCount <= 0 Then
    Text1(0).Text = "K0001"
 Else
    Text1(0).Text = "K" & Right("000" & LTrim(Str(Val(de.rsKasir.RecordCount) + 1)), 5)
End If
End Sub

Public Sub mati() "Procedure"
Command2(0).Enabled = True tombol tambah aktif
Command2(1).Enabled = True tombol hapus aktif
Command2(2).Enabled = True tombol edit aktif
Command2(3).Enabled = False tombol simpan mati

Command2(4).Enabled = False tombol cancel  mati

End Sub

Public Sub hidup() "Procedure"  tombol yang aktif kebalikan dari procedure mati

Command2(0).Enabled = False
Command2(1).Enabled = False
Command2(2).Enabled = False
Command2(3).Enabled = True
Command2(4).Enabled = True
End Sub

Public Sub kunci() "Procedure"  mengunci textbox supaya tidak bisa diubah saat tampil data

Text1(0).Locked = True
Text1(1).Locked = True
Text1(2).Locked = True
Text1(3).Locked = True
Text1(4).Locked = True
Text1(5).Locked = True
End Sub