Source Code Atau Coding Perintah Untuk Tombol pada VB 6.0

Semua Source Code (Coding) di bawah ini adalah Source Code pada Program yang saya Buat seperti Pada Program yang saya Upload pada video di Blogs saya ini..

Source Code tersebut saya pergunakan dengan menggunakan data tabel dari My SQL yang saya Sort ke Datagrid tanpa menggunakan Component Adocd1 pada Form nya. 

Jika data yang anda tampilkan pada Datagrid Form Anda menggunakan Component Adocd1, maka Source Code di bawah ini tidak bisa di gunakan,karena seluruh Program yang saya buat tidak menggunakan Adocd1.

Coding Button Add New (Membuat Data Baru)

Private Sub cmdNew_Click()

rsdata.AddNew

rsdata!nm_fields = Text1.Text

rsdata!nm_fields = Text2.Text

rsdata!nm_fields = Text3.Text

rsdata!nm_fields = Text4.Text

rsdata!nm_fields = Text5.Text

rsdata.Update

Text1.Text = kosong

Text2.Text = kosong

Text3.Text = kosong

Text4.Text = kosong

Text5.Text = kosong

Text1.SetFocus

X = MsgBox("Data sudah Di Simpan", vbQuestion + vbYes, "Simpan Data")

end sub

Coding Button Save (Menyimpan Data)

Perintah Coding untuk "CMDSave" dapat kita ambil setelah nya kita membuat coding button untuk "CMDNew",karena antara "CmdNew" dan "CmdSave" perintah nya saling berhubungan.

 Perhatikan Coding "CmdNew" di atas,maka Source Code untuk "CmdSave" nya adalah :

Private Sub cmdSave_Click()

rsdata.AddNew

rsdata.AddNew

rsdata!nm_fields = Text1.Text

rsdata!nm_fields = Text2.Text

rsdata!nm_fields = Text3.Text

rsdata!nm_fields = Text4.Text

rsdata!nm_fields = Text5.Text

rsdata.Update

text1.setfocus

X = MsgBox("Data sudah Di Simpan", vbQuestion + vbYes, "Simpan Data")

end sub

Coding Button Pencarian (Mencari Data)

Private Sub CmdCari_Click()

Txtcari.SetFocus

rsdata.Find "Nm_fields='" + Txtcari.Text + "'", , adSearchForward, 1

With DataGrid1

If Not rsdata.EOF Then

X = MsgBox("Data Barang Di Temukan", vbYes + vbQuestion, "Pencarian Data")

End If

End With

Txtcari = kosong

txtcari.setfocus

End Sub

Coding Button Edit (Mengubah Data)

Private Sub CmdEdit_Click()

with DataGrid1

Text1 = rsdata!nm_fields

Text2 = rsdata!nm_fields

Text3 = rsdata!nm_fields

Text4 = rsdata!nm_fields

Text5 = rsdata!nm_fields

end with

end sub

Coding Button Hapus (Menghapus Data)

Private Sub CmdHapus_Click()

X = MsgBox("Anda Yakin Ingin Menghapus Data ini..?", vbQuestion + vbYesNo, "Hapus Data")

If X = vbYes Then

Set DataGrid1.DataSource = rsdata

rsdata.Delete

X = MsgBox("Data Sudah Terhapus", vbQuestion + vbYes, "Hapus Data")

Else

Cancel = 1

X = MsgBox("Data Tidak Terhapus", vbQuestion + vbYes, "Hapus Data")

End If

End Sub

Coding Button Keluar (Keluar Dari Aplikasi)

Private Sub CmdHapus_Click()

Unload me

end sub

===============================

Atau Anda bisa menggunakan Coding di bawah ini agar perintah nya lebih keren.

Private Sub Form_Unload(Cancel As Integer)

    tutup = MsgBox("Aplikasi Akan Di Keluarkan", vbYesNo + vbQuestion, "Sign Out")

   If tutup = vbYes Then

        Cancel = 0

    Else

        Cancel = 1

    End If

End Sub

Selamat Mencoba..!!