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..!!


Popular Posts