Sabtu, 13 Oktober 2012

Latihan 28b

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