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

Popular Posts