A.
Object-object
dalam Latihan_383940_46110001
DESKRIPSI FORM LATIHAN_383940_46110001
Pada form latihan 383940 hanya ada satu object yaitu Data
Grid View.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel
“Data Majemuk”.
Script Unique
Lebih
lengkap dan jelasnya silahkan dilihat pada script di atas.
B.
Even
load
C.
Prosedur Penyelesaian
Langkah
pertama dalam membuat form/ latihan 38,39,40 ialah, pada desktop anda, pilih
microsoft visual studio 2008.seperti pada langkah dibawah ini
·
Setelah
itu pilih file kemudian New setelah itu pilih project, maka akan muncul
tampilan seperti dibawah ini
·
Setelah
langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut
silahkan anda mengganti nama form sesuai dengan yang anda inginkan
·
atau
jika anda pernah membuat form sebelumnya, maka langkah selanjutnya yang perlu anda lakukan adalah hanya dengan
membuat buat form baru dengan memilih project kemudian pilih add windows form, seperti pada gambar dibawah
ini.
·
Buatlah form seperti
gambar dibawah ini,
·
Berikut
ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_38_39_40_46110001
Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Public Sub bojel()
'mendeklarasikan kendaraan
Dim Mobil As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
Mobil = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", Jalan)
gitik.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
Mobil.Fill(gitik)
Mobil.Dispose()
End Sub
Private Sub Latihan383940_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bojel()
view_46110001.DataSource = gitik
End Sub
End Class
Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Public Sub bojel()
'mendeklarasikan kendaraan
Dim Mobil As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
Mobil = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", Jalan)
gitik.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
Mobil.Fill(gitik)
Mobil.Dispose()
End Sub
Private Sub Latihan383940_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bojel()
view_46110001.DataSource = gitik
End Sub
End Class
·
langkah
selanjutnya Jalankan program dengan cara klik kanan pada project, lalu
pilih Kumpulan_Latihan 46110001 properties, kemudian akan muncul tampilan
seperti gambar dibawah ini:
·
Setelah mengatur startup form/ jika anda
memiliki form navigator maka langkah yang perlu anda lakukan adalah ganti nama
startup dengan nama navigator yang telah anda buat setelah itu, klik start debug untuk
menjalankan form latihan 38,39,40 seperti dibawah ini :
·
Setelah menekan tombol debug maka tampilan
latihan 38,39,40 sebagai berikut :
·
Jika terdapat kesalahan, maka program akan
menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan
peringatan.





0 komentar:
Posting Komentar