Latihan_31B_46110022

09.51 by Unknown
Deskripsi Form Latihan_31B_46110022
Dalam form ini terdapat 4 buah object yaitu label, textbox, button dan status strip.

Object Label
Terdapat 4 object label yaitu  kode barang, nama barang, harga jual, jumlah barang.

Object Textbox
Terdapat 4 buah object textbox yang berfungsi untuk menginput data ke dalam database.

Object Button
Terdapat sebuah objek button (simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal ini untuk menyimpan data yang telah diinput di textbox ke dalam database.

Object Status Strip
Terdapat 1 buah object status strip yaitu kode barang lama.

Script Unique
 __
Even
Click

Langkah-Langkah Membuat Form Latihan 31B_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :

4. Input script di bawah ini :

Public Class Latihan_31B_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
        If kode46110022.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

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

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

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


        If ega46110022.Text <> kode46110022.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110022.Text, 1, go)

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


                ega46110022.Text = ""
                kode46110022.Text = ""
                nama46110022.Text = ""
                harga46110022.Text = ""
                jml46110022.Text = ""
                Exit Sub
            End If
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode46110022.Text & "', namabarang = '" & nama46110022.Text & "', hargajual=" & Val(harga46110022.Text) & ", jumlahbarang=" & Val(jml46110022.Text) & " where kodebarang='" & ega46110022.Text & "'", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()


        ega46110022.Text = "-"
        kode46110022.Text = ""
        nama46110022.Text = ""
        harga46110022.Text = ""
        jml46110022.Text = ""

      
        Latihan_31A_46110022.ambildata()


        Me.Close()
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 31B seperti berikut :

     7. Isi kolom textbox seperti contoh di atas, kemudian hasil akan tersimpan atau ditampilkan dalam database yang bersangkutan.

      8. Selamat mencoba, semoga berhasil :)




0 komentar

Latihan_31A_46110022

09.30 by Unknown
Deskripsi Form Latihan_31A_46110022
Dalam form ini terdapat 3 buah object yaitu label, DataGriedView dan button.

ObjectLabel
Terdapat satu buah object label yaitu daftar barang.

Object DataGriedView
Terdapat 1 buah object DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Object Button
Terdapat 1 buah objek button (edit) yang berfungsi untuk menjalankan atau menampilkan rumus yang telah dibuat, dalam hal ini untuk mengedit atau mengubah data yang telah ada di database yang bersangkutan.

Script Unique

1  __

Even
Click
Load

Langkah-Langkah Membuat Form Latihan 31A_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :

4. Input script di bawah ini :

Public Class Latihan_31A_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim take As New DataTable
    Public Sub ambildata()

        Dim data As New OleDb.OleDbDataAdapter


        data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)


        take.Rows.Clear()


        data.Fill(take)
        data.Dispose()
    End Sub

    Private Sub Latihan_31A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        dgv46110022.DataSource = take

    End Sub
  
    Private Sub edit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110022.Click
        If Latihan_31B_46110022.Visible = False Then
            Latihan_31B_46110022.Show()
        Else
            Latihan_31B_46110022.Activate()
        End If


        Latihan_31B_46110022.Show()
        Latihan_31B_46110022.ega46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_31B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_31B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
        Latihan_31B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
        Latihan_31B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value


    End Sub
End Class

    5.   Jalankan program dengan cara mengklik start debugging seperti berikut :

    6.  Setelah menekan start debug, maka akan tampil hasil dari latihan 31A seperti berikut :


    7.  Ganti data dengan data yang diinginkan, kemudian klik tombol "edit" maka data yang ada pada database akan terganti.

    8. Selamat mencoba, semoga berhasil :)







0 komentar

Latihan_30B_46110022

09.21 by Unknown
Deskripsi Form Latihan_30B_46110022
Dalam form ini terdapat 4 buah object yaitu label, textbox, button dan group box.

Object Label
Terdapat 6 object label yaitu  kode barang(2), nama barang, harga jual, jumlah barang dan kode barang yang akan diganti datanya.

Object Textbox
Terdapat 5 buah object textbox yang berfungsi untuk menginput data ke dalam database.

Object Button
Terdapat sebuah objek button (simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal ini untuk menyimpan data yang telah diinput di textbox ke dalam database.

Object Group Box
Terdapat 2 buah object groupbox yang berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.

Script Unique
 __
Even
Click

Langkah-Langkah Membuat Form Latihan 30B_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :

4. Input script di bawah ini :

Public Class Latihan_30B_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
        If tb46110022.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

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

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

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

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


        If tb46110022.Text <> kode46110022.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110022.Text, 1, go)

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


                tb46110022.Text = ""
                kode46110022.Text = ""
                nama46110022.Text = ""
                harga46110022.Text = ""
                jml46110022.Text = ""
                Exit Sub
            End If
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode46110022.Text & "', namabarang = '" & nama46110022.Text & "', hargajual=" & Val(harga46110022.Text) & ", jumlahbarang=" & Val(jml46110022.Text) & " where kodebarang='" & tb46110022.Text & "'", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()


        tb46110022.Text = ""
        kode46110022.Text = ""
        nama46110022.Text = ""
        harga46110022.Text = ""
        jml46110022.Text = ""


        Latihan_30A_46110022.ambildata()


        Me.Close()
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 30B seperti berikut :

     7. Isi kolom textbox seperti contoh di atas, kemudian hasil akan tersimpan atau ditampilkan dalam database yang bersangkutan.

      8. Selamat mencoba, semoga berhasil :)




0 komentar

Latihan_30A_46110022

09.11 by Unknown
Deskripsi Form Latihan_30A_46110022
Dalam form ini terdapat 3 buah object yaitu label, DataGriedView dan button.

ObjectLabel
Terdapat satu buah object label yaitu daftar barang.

Object DataGriedView
Terdapat 1 buah object DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Object Button
Terdapat 1 buah objek button (edit) yang berfungsi untuk menjalankan atau menampilkan rumus yang telah dibuat, dalam hal ini untuk mengedit atau mengubah data yang telah ada di database yang bersangkutan.

Script Unique

1   1.   Perintah untuk mengisi textbox yang ada pada latihan 30B :
Latihan_30B_46110022.tb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value

Even
Click
Load

Langkah-Langkah Membuat Form Latihan 30A_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :

4. Input script di bawah ini :

Public Class Latihan_30A_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim take As New DataTable
    Public Sub ambildata()

        Dim data As New OleDb.OleDbDataAdapter


        data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)


        take.Rows.Clear()


        data.Fill(take)
        data.Dispose()

    End Sub

    Private Sub Latihan_30A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        dgv46110022.DataSource = take

    End Sub

    Private Sub edit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110022.Click
        If Latihan_30B_46110022.Visible = False Then
            Latihan_30B_46110022.Show()
        Else
            Latihan_30B_46110022.Activate()
        End If


        Latihan_30B_46110022.tb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_30B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_30B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
        Latihan_30B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
        Latihan_30B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value

    End Sub

    Private Sub dgv46110022_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110022.CellContentClick

    End Sub
End Class

    5.   Jalankan program dengan cara mengklik start debugging seperti berikut :

    6.  Setelah menekan start debug, maka akan tampil hasil dari latihan 30A seperti berikut :


    7.  Ganti data dengan data yang diinginkan, kemudian klik tombol "edit" maka data yang ada pada database akan terganti.

    8. Selamat mencoba, semoga berhasil :)






0 komentar

Latihan_29_46110022

08.38 by Unknown
Deskripsi Form Latihan_29_46110022
Dalam form ini terdapat 4 buah object yaitu label, textbox, button dan group box.

Object Label
Terdapat 6 object label yaitu  kode barang(2), nama barang, harga jual, jumlah barang dan kode barang yang akan diganti datanya.

Object Textbox
Terdapat 5 buah object textbox yang berfungsi untuk menginput data ke dalam database.

Object Button
Terdapat sebuah objek button (simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal ini untuk menyimpan data yang telah diinput di textbox ke dalam database.

Object Group Box
Terdapat 2 buah object groupbox yang berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.

Script Unique
 __
Even
Click

Langkah-Langkah Membuat Form Latihan 29_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :

4. Input script di bawah ini :

Public Class Latihan_29_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
        If kode46110022.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

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

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

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

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


        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110022.Text, 1, go)

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


            tb46110022.Text = ""
            kode46110022.Text = ""
            nama46110022.Text = ""
            harga46110022.Text = ""
            jml46110022.Text = ""
            Exit Sub
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode46110022.Text & "', namabarang = '" & nama46110022.Text & "', hargajual=" & Val(harga46110022.Text) & ", jumlahbarang=" & Val(jml46110022.Text) & " where kodebarang='" & tb46110022.Text & "'", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()


        tb46110022.Text = ""
        kode46110022.Text = ""
        nama46110022.Text = ""
        harga46110022.Text = ""
        jml46110022.Text = ""
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 29 seperti berikut :

     7. Isi kolom textbox seperti contoh di atas, kemudian hasil akan tersimpan atau ditampilkan dalam database yang bersangkutan.

      8. Selamat mencoba, semoga berhasil :)




0 komentar
Langganan: Postingan (Atom)