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_38_46110021

Posted by Unknown - - 0 komentar

FORM LATIHAN

form ini hampir sama dengan form 37, hanya saja pada form ini ketika text box kode barang di input maka akan muncul form 383940 apabila kode yang diinput idak ada dalam daftar. untuk melihat form latihan_383940_46110021 klik link ini Latihan_383940_46110021
Name : Latihan_38_46110021
Text : Latihan_38_46110021
Object
Properti
9 label
Text :   - No. Transaksi
-    Tanggal
-    Jenis Transaksi
-    Kode Barang
-    Nama Barang
-    Unit
-    Harga
-    Jumlah
-    Total
8 text box
Name: - NT_46110021
-   JT_46110021
-   KB_46110021
-   NB_46110021(readonly)
-   Unit_46110021
-   Harga_46110021
-   Jumlah_46110021(read only)
-   Total_46110021(Readonly)
1 datetimepicker
Name: DTP_46110021
2 button
Name: - Tambah_46110021
-    Simpan_46110021
Text : - Tambah
-  Simpan
1 Datagridview
Name: Showme_46110021
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. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_38_46110021

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim gitik As New DataTable
    Private Sub botto()
        Dim ttotal As Integer
        For Each hasil As DataRow In gitik.Rows
            ttotal += hasil("jumlah")
        Next
        Total_46110021.Text = ttotal
    End Sub
    Private Sub Latihan37_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'mendeklarasikan kendaraan
        Dim bojel As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        bojel = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & NT_46110021.Text & "'", Jalan)

        'bersihkan data
        gitik.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        bojel.Fill(gitik)

        'untuk menampilkan isi datatable ke data grid view
        bojel.Dispose()
        Showme_46110021.DataSource = gitik

        'perintah primarykey
        Dim kabotcibay(2) As DataColumn
        kabotcibay(0) = gitik.Columns("Kodebarang")
        gitik.PrimaryKey = kabotcibay
    End Sub
    Private Sub kb_46110021_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110021.Leave
        If KB_46110021.Text.Length = 0 Then
            Exit Sub
        End If

        'mencari data yang ada di tabel
        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110021.Text, 1, Jalan)
        If Pencari.JumlanBaris > 0 Then
            NB_46110021.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If Latihan_383940_46110021.ShowDialog = Windows.Forms.DialogResult.OK Then
                KB_46110021.Text = Latihan_383940_46110021.view_46110021.CurrentRow.Cells("KodeBarang").Value
                NB_46110021.Text = Latihan_383940_46110021.view_46110021.CurrentRow.Cells("namabarang").Value
                Harga_46110021.Text = Latihan_383940_46110021.view_46110021.CurrentRow.Cells("hargajual").Value
            Else
                KB_46110021.Text = ""
                NB_46110021.Text = ""
            End If
        End If

    End Sub
    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_46110021.Click
        'Memeriksa isi textbox
        If KB_46110021.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If Unit_46110021.Text.Length = 0 Then
            MsgBox("Please, insert the unit_46110021 of goods")
            Exit Sub
        End If

        If Harga_46110021.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If

        'perintah pencarian data
        Dim drlebay As DataRow
        drlebay = gitik.Rows.Find(KB_46110021.Text)
        If Not drlebay Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        'penyimpanan data ke datatable
        gitik.Rows.Add(KB_46110021.Text, NB_46110021.Text, Val(Unit_46110021.Text), Val(Harga_46110021.Text), Jumlah_46110021.Text)

        botto()

        'mengosongkan textbox
        KB_46110021.Text = ""
        NB_46110021.Text = ""
        Unit_46110021.Text = ""
        Harga_46110021.Text = ""
        Jumlah_46110021.Text = ""
    End Sub
    Private Sub unit_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110021.TextChanged, Harga_46110021.TextChanged
        Jumlah_46110021.Text = Val(Unit_46110021.Text) * Val(Harga_46110021.Text)
    End Sub
    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110021.Click
        'Memeriksa isi textbox
        If NT_46110021.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If JT_46110021.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If gitik.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        'Memeriksa nomor transaksi pd master transaksi
        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110021.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        'Proses Penyimpanan ke tabel master transaksi
        Dim kacci As New OleDb.OleDbCommand
        kacci = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110021.Text & "',#" & DTP_46110021.Value.Month & "/" & DTP_46110021.Value.Day & "/" & DTP_46110021.Value.Year & "#,'" & JT_46110021.Text & "')", Jalan)
        Jalan.Open()
        kacci.ExecuteNonQuery()
        Jalan.Close()

        'penyimpanan isi datatable ke detail transaksi
        For Each nhana As DataRow In gitik.Rows
            kacci = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110021.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", Jalan)
            Jalan.Open()
            kacci.ExecuteNonQuery()
            Jalan.Close()

        Next
        kacci.Dispose()

        'Mengosongkan isi text box
        NT_46110021.Text = ""
        JT_46110021.Text = ""

        'Mengosongkan baris datatable
        gitik.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
End Class
Script unik

 'mencari data yang ada di tabel
        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110021.Text, 1, Jalan)
        If Pencari.JumlanBaris > 0 Then
            NB_46110021.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If Latihan_383940_46110021.ShowDialog = Windows.Forms.DialogResult.OK Then
                KB_46110021.Text = Latihan_383940_46110021.view_46110021.CurrentRow.Cells("KodeBarang").Value
                NB_46110021.Text = Latihan_383940_46110021.view_46110021.CurrentRow.Cells("namabarang").Value
                Harga_46110021.Text = Latihan_383940_46110021.view_46110021.CurrentRow.Cells("hargajual").Value
            Else
                KB_46110021.Text = ""
                NB_46110021.Text = ""
            End If
        End If
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A.  Pilih tombol start debugging lalu pilih form Latihan_38_46110021, maka jendela Latihan_38_46110021 akan muncul
B.      Isi sesuai dengan keinginan anda. lalu tekan tambah atau simpan 

Leave a Reply