Menampilkan Form Untuk Merubah Data Dalam Datagrid Dengan Klick 2x Pada Data Yang Ingin Di Ubah

Tutorial ini melengkapi kelanjutan dari tutorial sebelumnya yang sudah saya buat jika anda melakukan Experimen dengan Program "Pulsa" yang saya buat, untuk Button-button lain nya nanti akan saya buat kan juga pada tutorial berikut nya.

Kali ini saya akan menjelaskan bagaimana kita Merubah Data yang ada di dalam datagrid yang sudah kita Input sebelum nya.

Perhatikan Gambar di bawah ini.

Buatlah Button Ubah,kemudian ganti Caption nya menjadi "CmdUbah",setelah  itu buat pula Form3 pada "Project - Form1" dengan cara seperti biasa

Klick kanan pada mouse >> Add >> Form >> Exe >> Enter.

Buatlah Form3 tersebut tampilan nya seperti pada form2 yang telah anda buat seperti pada gambar di bawah ini

Kemudian Setelah itu Masukan Source Code di bawah ini pada Button Ubah di Form1.

Private Sub CmdUbah_Click()

Form3.Show

With Form1.DataGrid1

Form3.Text1 = rsdata!operator

Form3.Text2 = rsdata!nominal

Form3.Text3 = rsdata!No_tujuan

Form3.Text4 = rsdata!harga

End With

End Sub

Sebelum Program nya Anda "run", masukan terlebih dahulu Source Code Dibawah ini ke dalam Datagrid Form1.

Private Sub DataGrid1_Click() ganti dengan

Private Sub DataGrid1_DblClick() dengan menyorot "Procedure"

kemudian masukan Source Code nya Seperti ini.

Private Sub DataGrid1_DblClick()

Form3.Show

Form3.Text1 = rsdata!operator

Form3.Text2 = rsdata!nominal

Form3.Text3 = rsdata!No_tujuan

Form3.Text4 = rsdata!harga

rsdata.Update

End Sub

Kemudian Masukan Source Code Di bawah ini ke dalam "Button Simpan" pada Form3.

Private Sub cmdsimpan_Click()

Form1.rsdata.Update

Form1.rsdata!operator = Text1.Text

Form1.rsdata!nominal = Text2.Text

Form1.rsdata!No_tujuan = Text3.Text

Form1.rsdata!harga = Text4.Text

Form1.rsdata.Update

Text1.Text = kosong

Text2.Text = kosong

Text3.Text = kosong

Text4.Text = kosong

Text1.SetFocus

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

End Sub

Untuk "Button Batal/Keluar" pada Form3,silahkan anda masukan Source Code di bawah ini.

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Setelah  semua Source Code nya anda masukan sesuai dengan petunjuk saya,silahkan sekarang Anda "run" Program nya,maka hasilnya akan terlihat seperti gambar di bawah ini.

Silahkan Anda Sorot Data File yang ingin Anda Ubah,tampak seperti pada gambar di atas,kemudian Anda Klick 2x Data File nya atau anda Klick Button Ubah, maka akan tampil Data File yang ingin anda Ubah tersebut pada Form3,terlihat seperti pada gambar di bawah ini.

Silahkan Anda Ubah mana Data yang ingin Anda Ubah,perhatikan gambar di bawah ini,saya mengubah Nama Operator nya,maka data yang saya ubah tersebut akan berubah sesuai dengan data yang kita inginkan.

Setelah nya data tersebut kita ubah,lalu kita Klick "Button Simpan", maka akan terlihat hasil nya seperti pada gambar di bawah ini.

Oke Sobat Blogger... Selamat mencoba.. Semoga tidak ada kendala dalam berexperimen.

Good Luck to you.. Hehehe