Membuat Aplikasi Cek Barang

TUGAS UTS PEMROGRAMAN VISUAL

TUGAS UTS

ACHMAD ALDYANSYAH

PEMROGRAMAN VISUAL

161011700068

APLIKASI CEK BARANG GUDANG

==============================================

Assalamualikum warohmatullohi wabarokatuh.

     Saya Achmad Aldyansyah sini saya memenuhi Tugas UTS untuk Matakuliah UTS Pemrograman Visual. Dengan ini saya akan membuat Project Sistem Informasi mulai dari 1.Deskripsi dan analisa kebutuhan,Screeshot, Source Code. Judul program saya adalah "Aplikasi Cek Gudang". Dan disini saya mereport ke EXCEL ATAU WORD. Untuk memenuhi Nilai  UTS saya maka disini saya akan membuat sebuah program dengan vb.

Kita di bawah ini dengan "BISMILLAH".

1.Deskripsi dan Analisa Kebutuhan:

        Aplikasi Cek Barang dimana sebuah aplikasi tersebut untuk mempermudah kebutuhan Pegawai gudang dengan hemat tenaga, waktu, dan pikiran. Dengan aplikasi tersebut saya dapat memperjelas step-step pembuatan aplikasi tersebut dengan sejelas mengungkin (Insya Allah) .Terdapat 2 Form pada Aplikasi tersebut, yaitu form Login dan Form Cek Barang,dan mempunyai Konesi untuk mengkoneksi ke database dalam stok barang (Tapi saya tidak membahas Koneksi).

1.Form Login

2.Form Cek Barang

3.Konfigurasi WORD dan EXCEL

4.Output to WORD

5.Output to EXCEL

6.Penutup

=============================================================

2.Screen Shoot dan Source Code

        2.1. Form Login: 

              Terdapat komponen dari Form Table yaitu :

                      1) Terdapat Tiga buah Label (Label=Kode User,Label2=Username,Label3=Password)

                      2)  Terdapat Tiga buah TextBox (Textbox=TxtKodeUser, TextBox2=TxtUsername, TxtPassword)

                      3)  Terdapat 1 Buah PictureBox (PictureBox1)

                      4)   Terdapat 2 Buah Button (Button=BtnLogin, Button2=BtnCancel)

              Dari Form Tersebut Mempunyai Koding di bawah ini :

Imports System.Data.OleDb

Public Class Login

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        TxtKodeUser.Focus()

    End Sub

    Private Sub TxtKodeUser_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtKodeUser.KeyPress

        If e.KeyChar = Chr(13) Then

            Call Koneksi()

            cmd = New OleDbCommand("SELECT * FROM LOGIN WHERE KODE_USER='" & TxtKodeUser.Text & "'", conn)

            dr = cmd.ExecuteReader

            dr.Read()

            If dr.HasRows Then

                TxtKodeUser.Enabled = False

                TxtUsername.Enabled = False

                TxtUsername.Text = dr.Item("NAMA_USER")

                TxtPassword.Focus()

            Else

                MessageBox.Show("NAMA USER tidak ditemukan di database", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

                TxtKodeUser.Clear()

                TxtKodeUser.Focus()

            End If

        End If

    End Sub

    Private Sub TxtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtPassword.KeyPress

        If e.KeyChar = Chr(13) Then

            BtnLogin.Focus()

        End If

    End Sub

    Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click

        If TxtPassword.Text = "" And TxtKodeUser.Text = "" Then

            MessageBox.Show("Nama User dan Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

            TxtKodeUser.Focus()

        ElseIf TxtPassword.Text = "" Then

            MessageBox.Show("Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

            TxtPassword.Focus()

        ElseIf TxtKodeUser.Text = "" Then

            MessageBox.Show("Nama User harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

            TxtKodeUser.Focus()

        Else

            Call Koneksi()

            cmd = New OleDbCommand("SELECT * FROM LOGIN WHERE KODE_USER='" & TxtKodeUser.Text & "'AND PASSWORD_USER='" & TxtPassword.Text & "'", conn)

            dr = cmd.ExecuteReader

            dr.Read()

            If dr.HasRows Then

                Dim f_CekBarang As New CekBarang

                f_CekBarang.Show()

                Me.Hide()

            Else

                MessageBox.Show("Mohon Maaf,Akses di Tolak", "Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Stop)

                TxtPassword.Clear()

                TxtPassword.Focus()

            End If

        End If

    End Sub

    Private Sub BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click

        Dim keluar As String

        keluar = MessageBox.Show("Yakin Batal Login Aplikasi", "informasi", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

        If keluar = MsgBoxResult.Yes Then

            Application.Exit()

        End If

    End Sub

End Class

           2.2. FORM CEK BARANG

                          Terdapat Komponen dari Form Cek Barang yaitu :

                                   1) Terdapat Satu buah Date Time Picker(DateTimePicker1)

                                   2)  Terdapat Satu buah PictureBox  (PictureBox1)

                                   3)  Terdapat Tiga Belas Label (Label=Aplikasi Cek Barang, Label2=Code Barang, Label3=Nama                                   Barang, Label4=Spesifikasi, Label5=Harga Barang, Label6=Kondisi Barang,                                                             Label7=Kebutuhan Barang, Label8=Sisa Barang, Label9=Stok Barang,Label10=Total                                             Harga,Label11=Bayar Barang,Label12=Sisa Barang,Label13=AchmadAldyansyah |                                                161011700068)

                                    4)  Terdapat Empat Buah Button                                                                                                                                             (Button=btnhitung,Button2=Button1,Button3=Button2,Button4=Button3)Dari Form                                       Tersebut Mempunyai Koding di bawah ini :

Imports System.Data.OleDb

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

Public Class CekBarang

    Sub Ketemu()

        txtnamabarang.Text = dr.Item(1)

        rtxtspesifikasi.Text = dr.Item(2)

        txthargabarang.Text = dr.Item(3)

        txtkondisibarang.Text = dr.Item(4)

        txtstok.Text = dr.Item(5)

        txtcodbarang.Focus()

    End Sub

    Private Sub txtcodbarang_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtcodbarang.KeyPress

        If e.KeyChar = Chr(13) Then

            Call Koneksi()

            cmd = New OleDb.OleDbCommand("SELECT * FROM DATA WHERE CodeBarang='" & txtcodbarang.Text & "'", conn)

            dr = cmd.ExecuteReader

            dr.Read()

            If dr.HasRows Then

                Call Ketemu()

            End If

        End If

    End Sub

    Private Sub txtkebutuhan_TextChanged(sender As Object, e As EventArgs) Handles txtkebutuhan.TextChanged

        Dim kebutuhan, stok, sisabarang As Double

        kebutuhan = Val(txtkebutuhan.Text)

        stok = Val(txtstok.Text)

        sisabarang = (stok - kebutuhan)

        txtsisa.Text = sisabarang

    End Sub

    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click

        Dim hargabarang1, kebutuhanbarang, totalharga1, sisauang1, bayarbarang As Double

        hargabarang1 = Val(txthargabarang.Text)

        kebutuhanbarang = Val(txtkebutuhan.Text)

        bayarbarang = Val(txtbayarbarang.Text)

        totalharga1 = (hargabarang1 * kebutuhanbarang)

        sisauang1 = (bayarbarang - totalharga1)

        txttotalharga.Text = totalharga1

        txtsisauang.Text = sisauang1

    End Sub

    Private Sub txttotalharga_LostFocus(sender As Object, e As EventArgs) Handles txttotalharga.LostFocus

        Dim hargabarang1, kebutuhanbarang, totalharga1 As Double

        hargabarang1 = Val(txthargabarang.Text)

        kebutuhanbarang = Val(txtkebutuhan.Text)

        totalharga1 = (hargabarang1 * kebutuhanbarang)

        txttotalharga.Text = totalharga1

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim keluar As String

        keluar = MessageBox.Show("Anda Yakin ingin menghapus?", "informasi", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

        If keluar = MsgBoxResult.Yes Then

            txtcodbarang.Clear()

            txtnamabarang.Clear()

            rtxtspesifikasi.Clear()

            txthargabarang.Clear()

            txtkondisibarang.Clear()

            txtkebutuhan.Clear()

            txtstok.Clear()

            txtsisa.Clear()

            txtbayarbarang.Clear()

            txtsisauang.Clear()

            txttotalharga.Clear()

            txtcodbarang.Focus()

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim aplikasi As New word.Application

        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("C:\Users\Squalent\Documents\UTSPakAgusWORD1.docx")

        dokumen.Bookmarks("BCODEBARANG").Select()

        aplikasi.Selection.TypeText(txtcodbarang.Text)

        dokumen.Bookmarks("BNAMABARANG").Select()

        aplikasi.Selection.TypeText(txtnamabarang.Text)

        dokumen.Bookmarks("BSPESIFIKASI").Select()

        aplikasi.Selection.TypeText(rtxtspesifikasi.Text)

        dokumen.Bookmarks("BHARGABARANG").Select()

        aplikasi.Selection.TypeText(txthargabarang.Text)

        dokumen.Bookmarks("BKEBUTUHANBARANG").Select()

        aplikasi.Selection.TypeText(txtkebutuhan.Text)

        dokumen.Bookmarks("BTOTALHARGA").Select()

        aplikasi.Selection.TypeText(txttotalharga.Text)

        dokumen.Bookmarks("BBAYARBARANG").Select()

        aplikasi.Selection.TypeText(txtbayarbarang.Text)

        dokumen.Bookmarks("BSISAUANG").Select()

        aplikasi.Selection.TypeText(txtsisauang.Text)

        dokumen.SaveAs2("C:\Users\Squalent\Documents\UTSPakAgus\WORD\UTSPakAgusWORDNew.docx")

        aplikasi.Visible = True

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim aplikasiexcel As New excel.Application

        Dim fileexcel As excel.Workbook

        fileexcel = aplikasiexcel.Workbooks.Open("C:\Users\Squalent\Documents\UTSPakAgusEXCEL.xlsx")

        aplikasiexcel.Range("A3").Value = txtcodbarang.Text

        aplikasiexcel.Range("B3").Value = txtnamabarang.Text

        aplikasiexcel.Range("C3").Value = rtxtspesifikasi.Text

        aplikasiexcel.Range("D3").Value = txthargabarang.Text

        aplikasiexcel.Range("E3").Value = txtkebutuhan.Text

        aplikasiexcel.Range("F3").Value = txttotalharga.Text

        aplikasiexcel.Range("G3").Value = txtbayarbarang.Text

        aplikasiexcel.Range("H3").Value = txtsisauang.Text

        fileexcel.SaveAs("C:\Users\Squalent\Documents\UTSPakAgus\EXCEL\UTSPakAgusEXCELNew.xlsx")

        MsgBox("BERHASIL")

        aplikasiexcel.Visible = True

    End Sub

End Class

   2.3 Configurasi Library WORD dan EXCEL

          Pertama kita dapat mencari Tools Project => Add Reference => dan ketik “WORD”           Lakukan dengan cara yang sama mengetikan “EXCEL”.

                         2.4  Report To Word

              Dari Gambar di atas kita dapat membuat Source Code di batton Cetak to word(Button2):

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim aplikasi As New word.Application

        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("C:\Users\Squalent\Documents\UTSPakAgusWORD2.docx")

        dokumen.Bookmarks("BCODEBARANG").Select()

        aplikasi.Selection.TypeText(txtcodbarang.Text)

        dokumen.Bookmarks("BNAMABARANG").Select()

        aplikasi.Selection.TypeText(txtnamabarang.Text)

        dokumen.Bookmarks("BSPESIFIKASI").Select()

        aplikasi.Selection.TypeText(rtxtspesifikasi.Text)

        dokumen.Bookmarks("BHARGABARANG").Select()

        aplikasi.Selection.TypeText(txthargabarang.Text)

        dokumen.Bookmarks("BKEBUTUHANBARANG").Select()

        aplikasi.Selection.TypeText(txtkebutuhan.Text)

        dokumen.Bookmarks("BTOTALHARGA").Select()

        aplikasi.Selection.TypeText(txttotalharga.Text)

        dokumen.Bookmarks("BBAYARBARANG").Select()

        aplikasi.Selection.TypeText(txtbayarbarang.Text)

        dokumen.Bookmarks("BSISAUANG").Select()

        aplikasi.Selection.TypeText(txtsisauang.Text)

        dokumen.SaveAs2("C:\Users\Squalent\Documents\UTSPakAgus\WORD\UTSPakAgusWORDNew.docx")

        aplikasi.Visible = True

    End Sub

2.4 REPORT TO EXCEL

                     Dari Gambar di atas kita dapat membuat Source Code di batton Cetak to Excel (Button3):

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim aplikasiexcel As New excel.Application

        Dim fileexcel As excel.Workbook

        fileexcel = aplikasiexcel.Workbooks.Open("C:\Users\Squalent\Documents\UTSPakAgusEXCEL.xlsx")

        aplikasiexcel.Range("A3").Value = txtcodbarang.Text

        aplikasiexcel.Range("B3").Value = txtnamabarang.Text

        aplikasiexcel.Range("C3").Value = rtxtspesifikasi.Text

        aplikasiexcel.Range("D3").Value = txthargabarang.Text

        aplikasiexcel.Range("E3").Value = txtkebutuhan.Text

        aplikasiexcel.Range("F3").Value = txttotalharga.Text

        aplikasiexcel.Range("G3").Value = txtbayarbarang.Text

        aplikasiexcel.Range("H3").Value = txtsisauang.Text

        fileexcel.SaveAs("C:\Users\Squalent\Documents\UTSPakAgus\EXCEL\UTSPakAgusEXCELNew.xlsx")

        MsgBox("BERHASIL")

        aplikasiexcel.Visible = True

    End Sub

-------------------------------

===========================

3. PENUTUP

Sekian Dari Pejelasan saya Jika ada kata-kata yang Kurang Mohon Di maafkan .Dan Mohon di koregsi lagi jika ada kurang.Sekian TERIMA KASIH.

NAMA: ACHMAD ALDYANSYAH

NIM :161011700068

SISTEM INFORMASI

05SIFM001

========================

---------------------------------