Deskripsi
1. Objek textbox
terdapat 4 objk textbox pada tombol ini. tujuannya untuk menginput data baru yang ingin dimasukkan kedalam tebla datagridview yang ada di latihan 28a
2. objek button
ada satu objek tombol/button pada form ini. tujuannya untuk mengeksekusi perintah memindahkan data yang diinput di textbox menuju ke tabel yang ada di latihan 28a
even : ButtonClick
Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.
5. buat dulu koneksi antara project visual studio anda dengan file access. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/membuat-koneksi-antara-access-2007.html
6. masukkan reference baru kedalam project anda. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/cara-memasukkan-reference-pada-project.html
7. masukkan script berikut pada button simpan untuk memeriksa data
If kb46110008.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If nb46110008.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(hj46110008.Text) = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(jb46110008.Text) = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
8. lalu masukkan script berikut untuk mengambil data
Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110008.Text, 1, conect)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been exist please insert new data")
9. untuk mengsongkan textbox masukkan script berikut
T1.Text = " "
T2.Text = " "
T3.Text = " "
T4.Text = " "
Exit Sub
10. masukkan script berikut untuk menutup form
Me.Close()
11. utuk menjalankan form ini, klik tombol input pada latihan 28a
Tidak ada komentar:
Posting Komentar