Hafiz Faturrachman: 2018

Assalamualaikum
Selamat Malam Kawan Sekalian

Balik lagi di blog saya yang apa adanya ini , kali ini saya akan memposting tentang aplikasi web berbasis vb.net menggunakan visual studio dan terkoneksi dengan data base menggunakan microsoft access

Pertama kita akan membuat data base menggunakan access seperti di gambar di bawah ini , saya membuat 2 tabel yaitu tabel database barang dan tabel login :

selanjutnya buka microsoft visual studio

lalu saya akan menjalankan contoh program sederhana yang saya buat
saya membuat 3 form yaitu login , input dan database

Login

Input

Data Base

diatas adalah program sebelum di run

setelah di run seperti di bawah ini

Login

Input

DataBase

Demikian program sederhana saya . lebih kurang nya saya mohon maaf
source code ada di bawah ini

wasalamualaikum

Login

Imports System.Data

Imports System.Data.OleDb

Public Class Login_HafizF161011401334

Inherits System.Web.UI.Page

Dim oConn As New OleDbConnection

Dim sql As String

Public Sub dbkonek()

Dim server As String

server = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Database_HafizFaturrachman161011401334.accdb"

oConn = New OleDbConnection(server)

oConn.Open()

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

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

If TextBox1.Text = "" Or TextBox2.Text = "" Then

MsgBox("Data Login Belum Lengkap", MsgBoxStyle.Information, "")

Exit Sub

Else

dbkonek()

Dim query = New OleDbCommand("select * from Login_HafizF161011401334 where Username ='" & TextBox1.Text & "' and Password ='" & TextBox2.Text & "'", oConn)

Dim y = query.ExecuteReader

y.Read()

If y.HasRows Then

Response.Redirect("Input_HafizFaturrachman161011401334.aspx")

TextBox1.Text = ""

TextBox2.Text = ""

Else

MsgBox("Username atau Password Salah !", MsgBoxStyle.Critical, "")

End If

End Sub

End Class

Input

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Input_HafizFaturrachman161011401334

Inherits System.Web.UI.Page

Dim constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString

Dim oConn As New OleDbConnection(constring)

Dim oTbl As New DataTable

Dim xReader As OleDbDataReader

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

End Sub

Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Response.Redirect("WebForm_HafizFaturrachman161011401334.aspx")

End Sub

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

If Not Len(TextBox1.Text) = 0 Then

oConn.Close()

oConn.Open()

Dim ocmd As New OleDbCommand("SELECT * FROM DataBase_HafizFaturrachman161011401334 where KodeBarang='" + TextBox1.Text + "'", oConn)

xReader = ocmd.ExecuteReader

If xReader.HasRows Then

xReader.Read()

TextBox2.Text = xReader("NamaBarang")

TextBox3.Text = xReader("Merk")

TextBox4.Text = xReader("Gender")

TextBox5.Text = xReader("TipeBarang")

TextBox6.Text = xReader("Jumlah")

TextBox7.Text = xReader("Harga")

Else

MsgBox("Username atau Password Salah !", MsgBoxStyle.Critical, "")

End If

xReader.Close()

End If

End Sub

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

Dim sql As String = "INSERT INTO Database_HafizFaturrachman161011401334 VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"

Dim oCmd As New OleDbCommand

oConn.Open()

oCmd.Connection = oConn

oCmd.CommandText = sql

oCmd.ExecuteNonQuery()

End Sub

Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Response.Redirect("Login_HafizF161011401334.aspx")

End Sub

End Class

DataBase

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class WebForm_HafizFaturrachman161011401334

Inherits System.Web.UI.Page

Dim constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString

Dim oConn As New OleDbConnection(constring)

Dim oTbl As New DataTable

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

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

Dim sql As String = "DELETE FROM DataBase_HafizFaturrachman161011401334 where KodeBarang = ('" & TextBox1.Text & "');"

Dim oCmd As New OleDbCommand

oConn.Open()

oCmd.Connection = oConn

oCmd.CommandText = sql

oCmd.ExecuteNonQuery()

End Sub

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

Response.Redirect("Input_HafizFaturrachman161011401334.aspx")

End Sub

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

Response.Redirect("WebForm_HafizFaturrachman161011401334.aspx")

End Sub

End Class

Assalamualaikum

Kali ini saya memposting tugas pemprograman 1 , yaitu membuat aplikasi penjualan toko olahraga "SPORT STATION" , menggunakan Visual Basic 2013 , dan Vb.net , dalam Aplikasi ini kita dapat memasukan kode barang untuk memunculkan gambar dan informasi barang yang kita inginkan , dan akan mendapat diskon jika member sebesar 10% , lalu juga akan memprint di microsoft word dan laporan di microsoft excel .

Berikut adalah screenshoot dari aplikasi yang saya buat

Ini adalah program sebelum di Run

Lalu tekan tombol F5 untuk menjalankan program

Masukan nama customer dan kode barang lalu klik cari

Setelah di klikk cari maka akan muncul gambar dan infomasi produk seperti diatas

Jika mempunyai member klik check box dan masukan no member dan akan memdapatkan diskon 10 % , lalu masukan jumlah yang ingin di beli , lalu masukan metode pembayaran dan masukan jumlah bayar , lalu klik hitung maka akan muncul kembalian nya , lalu klik PRINT

Ini hasil klik print dan menjadi berupa struk

Ini adalah tampilan laporan penjualan di excel

Sekian dari saya lebih kurang nya mohon maaf , Terima kasih
Wassalamualikum

Berikut source code nya

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim jumlah As Integer
        For jumlah = 1 To 10 Step +1
            TbJumlah.Items.Add(jumlah)
        Next
    End Sub

Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click

End Sub

Private Sub BtPrint_Click(sender As Object, e As EventArgs) Handles BtPrint.Click
        Dim appword As New word.Application
        Dim fileword As New word.Document
        fileword = appword.Documents.Open("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation.docx")

fileword.Bookmarks("Nama").Select()
        appword.Selection.TypeText(TbNama.Text)

fileword.Bookmarks("NoMember").Select()
        appword.Selection.TypeText(TbMember.Text)

fileword.Bookmarks("KodeBarang").Select()
        appword.Selection.TypeText(TbKodeBarang.Text)

fileword.Bookmarks("NamaBarang").Select()
        appword.Selection.TypeText(TbNamaBarang.Text)

fileword.Bookmarks("Harga").Select()
        appword.Selection.TypeText(TbHarga.Text)

fileword.Bookmarks("Jumlah").Select()
        appword.Selection.TypeText(TbJumlah.Text)

fileword.Bookmarks("Diskon").Select()
        appword.Selection.TypeText(TbDiskon.Text)

fileword.Bookmarks("Total").Select()
        appword.Selection.TypeText(TbTotal.Text)

fileword.Bookmarks("MetodePembayaran").Select()
        If RbCash.Checked = True Then
            appword.Selection.TypeText(RbCash.Text)
        ElseIf RbCard.Checked = True Then
            appword.Selection.TypeText(RbCard.Text)

End If

fileword.Bookmarks("Bayar").Select()
        appword.Selection.TypeText(TbBayar.Text)

fileword.Bookmarks("Kembalian").Select()
        appword.Selection.TypeText(TbKembalian.Text)

fileword.SaveAs2("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation1.docx")
        MsgBox("Thanks For Shoping")
        appword.Visible = True

Dim appexcel As New excel.Application
        Dim fileexcel As excel.Workbook
        fileexcel = appexcel.Workbooks.Open("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation.xlsx")

appexcel.Range("A4").Value = TbNama.Text
        appexcel.Range("B4").Value = TbMember.Text
        appexcel.Range("C4").Value = TbNamaBarang.Text
        appexcel.Range("D4").Value = TbKodeBarang.Text
        appexcel.Range("E4").Value = TbHarga.Text
        appexcel.Range("F4").Value = TbJumlah.Text
        appexcel.Range("G4").Value = TbDiskon.Text
        appexcel.Range("H4").Value = TbTotal.Text

If RbCash.Checked = True Then
            appexcel.Range("I4").Value = RbCash.Text
        ElseIf RbCard.Checked = True Then
            appexcel.Range("I4").Value = RbCard.Text
        End If

appexcel.Range("J4").Value = TbBayar.Text
        appexcel.Range("K4").Value = TbKembalian.Text

fileexcel.SaveAs("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation1.xlsx")
        MsgBox("Thanks For Shoping")
        appexcel.Visible = True

End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            TbMember.Text = "0"
            TbMember.ReadOnly = True
        ElseIf CheckBox1.Checked = True Then
            MsgBox("Diskon 10% Untuk Member")
            TbMember.Text = ""
            TbMember.ReadOnly = False

End If

End Sub

Private Sub TbMember_TextChanged(sender As Object, e As EventArgs) Handles TbMember.TextChanged

End Sub

Private Sub BtCari_Click(sender As Object, e As EventArgs) Handles BtCari.Click
        Select Case TbKodeBarang.Text
            Case 1
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\1.png")
                TbNamaBarang.Text = "Nike Free"
                TbBahan.Text = "Nylon"
                TbJenis.Text = "Sepatu Lari"
                TbGender.Text = "Laki-Laki"
                TbHarga.Text = "999000"
                TbHarga1.Text = "999000"
            Case 2
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\2.png")
                TbNamaBarang.Text = "Adidas Samba"
                TbBahan.Text = "Suede"
                TbJenis.Text = "Sepatu Casual"
                TbGender.Text = "Laki-Laki"
                TbHarga.Text = "899000"
                TbHarga1.Text = "899000"
            Case 3
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\3.png")
                TbNamaBarang.Text = "Reebok MeshRun"
                TbBahan.Text = "Nylon Mesh"
                TbJenis.Text = "Sepatu Lari"
                TbGender.Text = "Perempuan"
                TbHarga.Text = "859000"
                TbHarga1.Text = "859000"
            Case 4
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\4.png")
                TbNamaBarang.Text = "Converse Tee"
                TbBahan.Text = "Katun"
                TbJenis.Text = "Kaus Kasual"
                TbGender.Text = "Unisex"
                TbHarga.Text = "299000"
                TbHarga1.Text = "299000"
            Case 5
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\5.png")
                TbNamaBarang.Text = "Asics Pants"
                TbBahan.Text = "Polyster"
                TbJenis.Text = "Celana Olahraga"
                TbGender.Text = "Unisex"
                TbHarga.Text = "359000"
                TbHarga1.Text = "359000"
            Case Else
                MsgBox(" Kode Barang Tidak Ada ")

End Select
    End Sub

Private Sub BtHitung_Click(sender As Object, e As EventArgs) Handles BtHitung.Click
        If RbCash.Checked = True Then
            TbKembalian.Text = TbTotal.Text - TbBayar.Text

ElseIf RbCard.Checked = True Then
            TbBayar.Text = TbTotal.Text
            TbKembalian.Text = "0"

End If
    End Sub

Private Sub RbCash_CheckedChanged(sender As Object, e As EventArgs) Handles RbCash.CheckedChanged
        Dim total As Integer
        total = TbHarga.Text * TbJumlah.Text
        If CheckBox1.Checked = True Then
            TbDiskon.Text = total * 0.1
        ElseIf CheckBox1.Checked = False Then
            TbDiskon.Text = "0"
        End If
        TbTotal.Text = total - TbDiskon.Text

If RbCash.Checked = True Then
            TbBayar.Text = ""
            TbKembalian.Text = ""
            TbBayar.ReadOnly = False

End If
    End Sub

Private Sub RbCard_CheckedChanged(sender As Object, e As EventArgs) Handles RbCard.CheckedChanged
        Dim total As Integer
        total = TbHarga.Text * TbJumlah.Text
        If CheckBox1.Checked = True Then
            TbDiskon.Text = total * 0.1
        ElseIf CheckBox1.Checked = False Then
            TbDiskon.Text = "0"
        End If
        TbTotal.Text = total - TbDiskon.Text

If RbCard.Checked = True Then
            TbBayar.Text = ""
            TbKembalian.Text = ""
            TbBayar.ReadOnly = True

End If

End Sub
End Class

Hafiz Faturrachman

Thursday, July 5, 2018

Aplikasi Kasir Sport Station Berbasis Web/ASP Visual Studio (VB.Net)

Wednesday, April 25, 2018

Membuat Aplikasi Penjualan Toko Olahraga | Menggunakan Vb.net