FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_34_46110021

Posted by Unknown - - 0 komentar


DESKRIPSI LATIHAN

Pada latihan ini ada 3 form yang akan dibuat, yaitu Latihan_34a_46110021, Latihan_34b_46110021, dan Latihan_34c_46110021
I.          Latihan_34a_46110021
Pada form ini terdapat 3 jenis object, yaitu label, datagridview, dan toolstrip
A.       Object Label.
Pada form ini, terdapat 1 label yang bertuliskan “Barang”
B.       Object Datagridview
Pada form ini terdapat 1 datagrid view yang akan memunculkan datatable yang berasal dari data base.
C.       Object Toolstrip
Pada form ini, terdapat 2 Toolstrip, yaitu Daftar barang dan Input Barang. Daftar Barang akan memunculkan jendela Latihan_34b_46110021 dan input barang akan menampilkan jendela Latihan_34c_46110021

II.          Latihan_34b_46110021
Pada form ini terdapat 3 jenis object, yaitu label, datagridview, dan button
D.       Object Label.
Pada form ini, terdapat 1 label yang bertuliskan “Daftar Barang”
E.        Object Datagridview
Pada form ini terdapat 1 datagrid view yang akan memunculkan datatable yang berasal dari data base.
F.        Object Button
Pada form ini, terdapat 3 button, yaitu Hapus, Tambah dan Edit. Tambah dan edit berfungsi untuk memunculkan Latihan_34c_46110021, sedangkan tombol hapus berfungsi untuk menghapus data yang dipilih.

III.          Latihan_34c_46110021
Pada form ini terdapat 4 jenis object, yaitu label, Textbox satusstrip dan button
A.       Object Label.
Pada form ini, terdapat 4 label yaitu Kode barang, Nama Barang, Harga jual, dan Jumlah barang
B.       Object TextBox
Terdapat 4 text box yang berfungsi sebagai tempat untuk menginput data
C.       Object Statusstrip
Terdapat 2 status strip yaitu kode barang dan -
D.       Object Button
Terdapat 1 button yaitu simpan yang berfungsi untuk menyimpan data yang telah dimasukkan ke dalam text box

CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.
D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E.       Lakukan kembali point A dan B untuk membuat form Latihan_34b_46110021. Lalu lakukan langkah yang ada dalam point C tetapi desainnya seperti dibawah ini. Lakukan kembali point D.
F.        Untuk membuat form Latihan_34c_46110021, lakukan hal yang sama dengan point E, namun pada Point C desainnya adalah seperti dibawah ini.
G.      Setelah itu masukkan code pada form Latihan_34b_46110021 dan Latihan_34c_46110021 dengan cara klik kanan pada masing2 form dan masukkan kode dibawah ini.
a.         Code untuk Latihan_34b_46110021
Public Class Latihan_34B_46110021

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan34b_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        DataGridView1_46110021.DataSource = ambil
    End Sub

    Private Sub delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_46110021.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & DataGridView1_46110021.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub

    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110021.Click
        'Menampilkan form 33b
        If Latihan_34c_46110021.Visible = False Then
            Latihan_34c_46110021.MdiParent = Me.MdiParent
            Latihan_34c_46110021.Show()
        Else
            Latihan_33b_46110021.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_34c_46110021.ganti_46110021.Text = "-"
        Latihan_34c_46110021.kode_46110021.Text = " "
        Latihan_34c_46110021.nama_46110021.Text = " "
        Latihan_34c_46110021.harga_46110021.Text = " "
        Latihan_34c_46110021.jumlah_46110021.Text = " "
    End Sub

    Private Sub EDit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110021.Click
        Latihan_34c_46110021.Show()
        'Mengisi Text Box
        Latihan_34c_46110021.ganti_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110021.kode_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110021.nama_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("namabarang").Value
        Latihan_34c_46110021.harga_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("hargajual").Value
        Latihan_34c_46110021.jumlah_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("JumlahBarang").Value
    End Sub

End Class 

b.         Code untuk latihan_34c_46110021
 Public Class Latihan_34c_46110021

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode_46110021.Text & "','" & nama_46110021.Text & "', " & Val(harga_46110021.Text) & "," & Val(jumlah_46110021.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110021.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode_46110021.Text & "', namabarang = '" & nama_46110021.Text & "', hargajual=" & Val(harga_46110021.Text) & ", jumlahbarang=" & Val(jumlah_46110021.Text) & " where kodebarang='" & ganti_46110021.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110021.ambildata()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110021.Click
        'perintah periksa data
        If kode_46110021.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nama_46110021.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(harga_46110021.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jumlah_46110021.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode_46110021.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            kode_46110021.Text = " "
            nama_46110021.Text = " "
            harga_46110021.Text = " "
            jumlah_46110021.Text = " "
            Exit Sub
        End If

        If ganti_46110021.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        'mengosongkan text box
        kode_46110021.Text = " "
        nama_46110021.Text = " "
        harga_46110021.Text = " "
        jumlah_46110021.Text = " "

        'menutup form
        Me.Close()

    End Sub
End Class

H.      Setelah itu, masukkan kode untuk Latihan_34a_46110021
 Public Class Latihan_34a_46110021


    Private Sub TSL1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts1_46110021.Click
        Latihan_34B_46110021.Show()
    End Sub

    Private Sub TSL2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts2_46110021.Click
        If Latihan_34c_46110021.Visible = False Then
            Latihan_34c_46110021.MdiParent = Me.MdiParent
            Latihan_34c_46110021.Show()
        Else
            Latihan_34c_46110021.Activate()
        End If


    End Sub

    Private Sub DaftarBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Latihan_34B_46110021.Show()
    End Sub

    Private Sub InputBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If Latihan_34c_46110021.Visible = False Then
            Latihan_34c_46110021.MdiParent = Me
            Latihan_34c_46110021.Show()
        Else
            Latihan_34c_46110021.Activate()
        End If
    End Sub

    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked

    End Sub
End Class

SCRIPT UNIK
TIDAK ADA SCRIT UNIK

New Toolbox
Toolstrip

LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A.  Pilih tombol start debugging lalu pilih form Latihan_34_46110021, maka jendela Latihan_34a_46110021 akan muncul
B.       Jika anda ingin melihat daftar barang, tekan lah daftar barang dan jendela Latihan_34b_46110021 akan muncul, tpi jika anda menekan tombol Input barang, maka jendela Latihan_34c_46110021 akan muncul
C.     Pada Latihan_34b_46110021, ada beberapa button , pilih lah, jika anda memili tombol Tambah dan Edit, maka jendela Latihan_34c_46110021 akan muncul dan jika ingin menghapus tekan tombol Hapus. Pada Latihan-34c-46110021, Isi text box yang ada pada form tersebut, lalu tekan button simpan.
[ Read More ]

Latihan_33_46110021

Posted by Unknown - - 0 komentar


DESKRIPSI LATIHAN
Pada latihan ini ada 2 form yang akan dibuat, yaitu Latihan_33a_46110021, dan Latihan_33b_46110021
I.          Latihan_33a_46110021
Pada form ini terdapat 3 jenis object, yaitu label, datagridview, dan button
A.       Object Label.
Pada form ini, terdapat 1 label yang bertuliskan “Daftar Barang”
B.       Object Datagridview
Pada form ini terdapat 1 datagrid view yang akan memunculkan datatable yang berasal dari data base.
C.       Object Button
Pada form ini, terdapat 3 button, yaitu Hapus, Tambah dan Edit. Tambah dan edit berfungsi untuk memunculkan Latihan_33b_46110021, sedangkan tombol hapus berfungsi untuk menghapus data yang dipilih.

II.          Latihan_33b_46110021
Pada form ini terdapat 4 jenis object, yaitu label, Textbox satusstrip dan button
A.       Object Label.
Pada form ini, terdapat 4 label yaitu Kode barang, Nama Barang, Harga jual, dan Jumlah barang
B.       Object TextBox
Terdapat 4 text box yang berfungsi sebagai tempat untuk menginput data
C.       Object Statusstrip
Terdapat 2 status strip yaitu kode barang dan -
D.       Object Button
Terdapat 1 button yaitu simpan yang berfungsi untuk menyimpan data yang telah dimasukkan ke dalam text box

CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…
B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.
D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E.       Lakukan kembali point A dan B untuk membuat form Latihan_33b_46110021. Lalu lakukan langkah yang ada dalam point C tetapi desainnya seperti dibawah ini. Lakukan kembali point D.
F.        Setelah itu masukkan code pada form Latihan_33b_46110021 dengan cara klik kanan pada masing2 form dan masukkan kode dibawah ini.
Public Class Latihan_33b_46110021

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode_46110021.Text & "','" & nama_46110021.Text & "', " & Val(harga_46110021.Text) & "," & Val(jumlah_46110021.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33a_46110021.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode_46110021.Text & "', namabarang = '" & nama_46110021.Text & "', hargajual=" & Val(harga_46110021.Text) & ", jumlahbarang=" & Val(jumlah_46110021.Text) & " where kodebarang='" & ganti_46110021.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33a_46110021.ambildata()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110021.Click
        'perintah periksa data
        If kode_46110021.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nama_46110021.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(harga_46110021.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jumlah_46110021.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode_46110021.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            kode_46110021.Text = " "
            nama_46110021.Text = " "
            harga_46110021.Text = " "
            jumlah_46110021.Text = " "
            Exit Sub
        End If

        If ganti_46110021.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        'mengosongkan text box
        kode_46110021.Text = " "
        nama_46110021.Text = " "
        harga_46110021.Text = " "
        jumlah_46110021.Text = " "



        'menutup form
        Me.Close()

    End Sub
End Class


G.      Setelah itu, masukkan kode untuk Latihan_33a_46110021
 Public Class Latihan_33a_46110021

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        
        Dim data As New OleDb.OleDbDataAdapter

       
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        
        ambil.Rows.Clear()

       
        data.Fill(ambil)
        data.Dispose()

    End Sub
    Private Sub Latihan33a_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        DataGridView1_46110021.DataSource = ambil
    End Sub
    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_46110021.Click
        
        If Latihan_33b_46110021.Visible = False Then
            Latihan_33b_46110021.Show()
        Else
            Latihan_33b_46110021.Activate()
        End If

  
        Latihan_33b_46110021.ganti_46110021.Text = "-"
        Latihan_33b_46110021.kode_46110021.Text = " "
        Latihan_33b_46110021.nama_46110021.Text = " "
        Latihan_33b_46110021.harga_46110021.Text = " "
        Latihan_33b_46110021.jumlah_46110021.Text = " "
    End Sub
    Private Sub EDit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110021.Click
        
        If Latihan_33b_46110021.Visible = False Then
            Latihan_33b_46110021.Show()
        Else
            Latihan_33b_46110021.Activate()
        End If

        
        Latihan_33b_46110021.ganti_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
        Latihan_33b_46110021.kode_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
        Latihan_33b_46110021.nama_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("namabarang").Value
        Latihan_33b_46110021.harga_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("hargajual").Value
        Latihan_33b_46110021.jumlah_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("JumlahBarang").Value
    End Sub

    Private Sub delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_46110021.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & DataGridView1_46110021.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        
        ambildata()
    End Sub

End Class 


SCRIPT UNIK
TIDAK ADA SCRIPT UNIK

LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A.  Pilih tombol start debugging lalu pilih form Latihan_33_46110021, maka jendela Latihan_33a_46110021 akan muncul
B.       Jika anda ingin menambahkan data maka pilih button Tambah yang ada pada Latihan_33a_46110021, maka jendela Latihan_33b_46110021 akan muncul.  jika ingin mengedit data maka pilih button edit yang ada pada Latihan_33a_46110021, maka jendela Latihan_33b_46110021 akan muncul. Tetapi jika ingin menghapus klik button Hapus , dan data yang anda pilih akan terhapus
C.       Isi text box yang ada pada form tersebut, lalu tekan button simpan

[ Read More ]