Analisa Error Panel VB6.0

Sekarang kita akan menangani error yang mungkin terjadi di Data Barang, tetapi saya modifikasi sedikit, tampilannya saya ubah dan saya akan jelaskan perubahan ini, lihat Gambar di bawah ini.!

 Ok, itu dia, penjelasannya kita mulai,,

Command TAMBAH untuk menambahkan entri data
Command HAPUS untuk menghapus record
Command EDIT untuk mengedit data
Command SIMPAN untuk menyimpan data
Command BATAL untuk membatalkan perintah
Command LANJUT untuk menyimpan data secara terus menerus tanpa harus menekan Command TAMBAH, untuk lebih lanjutnya akan saya jelaskan kalau kodingnya dah muncul,, coding bisa kita lihat dan analisa di bawah ini,,
Beberapa yang harus diingat terlebih dahulu,
1. Tombol kemarin kita copy sehingga codingnya menjadai array
2. ADODC kita rename menjadi "conbrg"

Private Sub Command1_Click(Index As Integer)
Select Case Index karena di array, SELECT CASE INDEX ini sudah menjadi sebuah keharusan.
Case 0 ( Case 0 ini mengacu kepada tombol Command Tambah )
    conbgr.Recordset.AddNew Perintah untuk menambah data
    Call bukakunci adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Call kosong adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Call mati adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Text1.SetFocus setelah kita klik Command TAMBAH kursor berada di text1/kode barang
Case 1 ( Case 1 ini mengacu kepada tombol Command HAPUS )
    conbgr.Recordset.Delete Untuk menghapus data
Case 2 ( Case 2 ini mengacu kepada tombol Command EDIT )
    Call mati adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Command1(4).Enabled = False Untuk menonaktifkan tombol BATAL supaya tidak terjadi debug
    Call bukakunci adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
Case 3 ( Case 3 ini mengacu kepada tombol Command SIMPAN )
    conbgr.Recordset.Update untuk simpan data yang diinput
    Call mati adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Call kunci adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Call hidup adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    MsgBox "Data Tersempan" Menampilkan pemberitahuan kalau data sudah disimpan
Case 4 ( Case 4 ini mengacu kepada tombol Command BATAL )
    conbgr.Recordset.MoveLast Untuk menempatkan pada record terakhir yang akan dibuat dan akan di batalkan, karena entri baru berada di akhir record
    conbgr.Recordset.Delete eksekusi di jalankan
    Call hidup adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Call kunci adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
Case 5 ( Case 5 ini mengacu kepada tombol Command LANJUT )
    conbgr.Recordset.Update Menyimpan
    conbgr.Recordset.AddNew Menambah baru tanpa harus menekan tombol TAMBAH
    Call bukakunci adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Call kosong adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Call mati adalah procedure, kita bisa menambahkan dgn klik  Tools dan pilih Add Procedure
    Text1.SetFocus kursor berada di text1/kode barang
End Select Mengakhiri select case index
End Sub

wah terlihat rumit jadinya di edit tu,, maaf ya :)
Procedure2 di atas akan saya jelaskan di bawah,

Public Sub hidup() inilah Call hidup itu, memanggil procedur hidup, itulah maksudnya.
Command1(0).Enabled = True Command 1(0)=Tambah enable=true maksudnya tombol itu aktif
Command1(1).Enabled = True Command 1(1)=Hapus enable=true maksudnya tombol itu aktif
Command1(2).Enabled = True Command 1(2)= Edit=true maksudnya tombol itu aktif
Command1(3).Enabled = False Command 1(3)=Simpan false maksudnya tombol itu nonaktif
Command1(4).Enabled = False Command 1(4)=Batal enable=false maksudnya tombol itu nonaktif
Command1(5).Enabled = False Command 1(5)=Lanjut enable=false maksudnya tombol itu nonaktif
End Sub
procedur ini harus dijalankan pada saat form barang di jalankan,caranya, klik form, tekan F7 dan ketikkan Call hidup

Public Sub mati() Sedangkan yang ini adalah kebalikan dari call hidup di atas
Command1(0).Enabled = False
Command1(1).Enabled = False
Command1(2).Enabled = False
Command1(3).Enabled = True
Command1(4).Enabled = True
Command1(5).Enabled = True
End Sub

Public Sub kosong() ini fungsinya untuk mengosongkan textbox, pasti temen2 ngerti kok,
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Public Sub kunci() pada saat load form, textbox bisa di rubah oleh karena itu harus di kunci
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub
Sebenarnya menggunakan fungsi LOCKED juga bisa, so jika Text1.Locked=true itu sah sah aja :)
Public Sub bukakunci() kebalikan dari call kunci, kalau textboxnya terkunci, kita tidak bs input data
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub

Cuma itu aja penjelasannya, Terima Kasih sudah mampir ke Blog Kampungan ini, jika temen tambah mumet, saya minta maaf sebesar besarnya.