Membuat WebForm Database Pemesanan Kamar Hotel dengan vb.net

~Salam

Pada postingan ini saya ingin memberi tahu bagaimana cara membuat sebuah webform yang tersambung dengan database microsoft access dengan vb.net

berikut deskripsi project

Project ini di buat untuk memesan hotel. Dengan design yang sederhana, membuat pengguna lebih mudah dalam menggunakan aplikasi ini. Aplikasi ini berguna untuk memasukan database ke dalam access. Pengguna dapat menambahkan, menghapus menyimpan, mengedit, dan mencari database. Untuk menambahkan database, pengguna hanya harus meng input-identitas pemesan dan jenis kamar yang di pilih serta berapa lama ingin tinggal. Tombol-tombolnya memudahkan dan membantu penggunanya.  Untuk membuat suatu record, pengguna harus memasukan nomor identitas, nama pemesan, jenis kamar yang ingin di pilih sesuai dengan yang disediakan, jumlah kamar, tanggal checkin dan tanggal check out. setelah menekan tombol simpan maka record akan otomatis tersimpan di database. Untuk menghapus dan mengedit data, pengguna harus mencari terlebih dahulu nomor id dari record yang inign di hapus ataupun di edit. Setelah menekan tombol cari, maka record yang sesuai dengan id yang dimasukan tadi akan muncul. Setelah itu pengguna dapat menghapus dengan menekan tombol hapus atau mengedit dengan mengedit data yang telah di cari dan menekan tombol edit. Dengan menekan tombol tampilkan, maka database akan tampil pada layar.

Flowchart

Berikut ini adalah SourceCode nya

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class WebForm_RivalAchmadani161011400853
    Inherits System.Web.UI.Page
    Dim transaksi As OleDbConnection
    Dim constring As String = ConfigurationManager.ConnectionStrings("dbhotelConnectionString").ConnectionString
    Dim oConn As New OleDbConnection(constring)
    'Dim oTbl new database 
    Dim xReader As OleDbDataReader
    Dim Sql As String

    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
        txtkode.Text = ""
        txtnama.Text = ""
        txtjenis.Text = ""
        txtcin.Text = ""
        txtcout.Text = ""
        txtkode.Focus()
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim sql As String = "INSERT INTO hotel VALUES ('" & txtkode.Text & "','" & txtnama.Text & "','" & txtjenis.Text & "','" & txtcin.Text & "','" & txtcout.Text & "');"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Response.Redirect("RivalAchmadani161011400853.aspx")
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim sql As String = "delete from hotel where kode_pemesan=('" & txtkode.Text & "');"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If Not Len(txtkode.Text) = 0 Then
            oConn.Close()
            oConn.Open()
            Dim ocmd As New OleDbCommand("SELECT * FROM hotel where kode_pemesan='" + txtkode.Text + "'", oConn)
            xReader = ocmd.ExecuteReader
            If xReader.HasRows Then
                xReader.Read()
                txtnama.Text = xReader("nama_pemesan")
                txtjenis.Text = xReader("jenis_kamar")
                txtcin.Text = xReader("tanggal_checkin")
                txtcout.Text = xReader("tanggal_checkout")

            Else
                txtnama.Text = "Nama Karyawan Tidak ada"
                Exit Sub
            End If
            xReader.Close()

        End If
    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim sql As String = "update hotel set kode_pemesan=('" & txtkode.Text & "'),nama_pemesan=('" & txtnama.Text & "'),jenis_kamar=('" & txtjenis.Text & "'),tanggal_checkin=('" & txtcin.Text & "'),tanggal_checkout=('" & txtcout.Text & "') where kode_pemesan=('" & txtkode.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub
End Class

Dan Berikut ini bukti screenshoot hasil run

Dan itulah hasil project yang telah saya buat. Simple agar mudah dipergunakan oleh penggunanya. Sekian dan terimakasih semoga bermanfaat.

Salam~

Read More

PICTUREBOX, RADIOBUTTON, COMBOBOX, CHECKBOX, TEXTBOX DAN LINK KE MICROSOFT WORD PADA VB.NET

~Salam..
Pada kesemptan kali ini, saya akan menjelaskan cara menggunaka radiobutton, combobox, checkbox dan link ke microsoft word pada vb.net

Deskripsi project

Project ini berguna untuk membantu pengguna dalam melakukan pemesanan dan pembayaran kamar hotel. Dengan memilih jenis kamar yang di inginkan dengan radiobutton yang telah di sediakan maka akan muncul gambar kamar yang di pilih pada picturebox .Memasukan lamanya tinggal pada combobox  dan  jumlah kamar pada textbox yang hanya di batasi 5 kamar. Terdapat juga Checkbox diskon yang akan memotong total harga sebesar 20% dari total harga jika menggunakan member card. Button hitung akan menghitung total harga yang harus di bayar. Tersedia Textbox nama pemesan dan nomor identitas pemesan serta memasukkan tanggal check-in pada combobox yang tersedia. Tombol Cetak yang akan melink data yang di input dan menampilkannya pada microsoft word,

Toolbox yang dibutuhkan adalah

1. Picturebox
2. Combobox
3. Radiobutton
4. Checkbox
5. Textbox
6. Button
7. Label

Langsung ke tutorial pembuatannya. Pertama file microsoft word seperti gambar di bawah ini

Simpan dengan nama Pemesanan

Kemudian buat form projectnya. Dan design form nya seperti yang anda inginkan seperti contoh di bawah ini

a

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

    Private Sub rbvvip_CheckedChanged(sender As Object, e As EventArgs) Handles rbvvip.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Flashco\Desktop\vvip.jpg")
    End Sub

    Private Sub rbvip_CheckedChanged(sender As Object, e As EventArgs) Handles rbvip.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Flashco\Desktop\vip.jpg")
    End Sub

    Private Sub rbreguler_CheckedChanged(sender As Object, e As EventArgs) Handles rbreguler.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Flashco\Desktop\reguler.jpg")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim jumkam As Integer
        Dim tanggal As Integer
        Dim tahun As Integer
        For jumkam = 1 To 5
            cbjumkam.Items.Add(jumkam)
        Next
        For tanggal = 1 To 30
            cbtanggal.Items.Add(tanggal)
        Next
        For tahun = 2018 To 2025
            cbtahun.Items.Add(tahun)
        Next

        cbbulan.Items.Add("Januari")
        cbbulan.Items.Add("Februari")
        cbbulan.Items.Add("Maret")
        cbbulan.Items.Add("April")
        cbbulan.Items.Add("Mei")
        cbbulan.Items.Add("Juni")
        cbbulan.Items.Add("Juli")
        cbbulan.Items.Add("Agustus")
        cbbulan.Items.Add("September")
        cbbulan.Items.Add("Oktober")
        cbbulan.Items.Add("November")
        cbbulan.Items.Add("Desember")

    End Sub

    Private Sub bthitung_Click(sender As Object, e As EventArgs) Handles bthitung.Click
        Dim harga As Integer
        Dim totalharga As Integer
        Dim diskon As Integer

        If rbvvip.Checked = True Then
            harga = 12000000

        ElseIf rbvip.Checked = True Then
            harga = 8000000

        ElseIf rbreguler.Checked = True Then
            harga = 5500000

        End If

        totalharga = cbjumkam.Text * harga * txtlama.Text

        If cbdiskon.Checked = True Then
            diskon = totalharga * 0.2
        Else
            diskon = 0
        End If

        txttotal.Text = totalharga - diskon

    End Sub

    Private Sub btcetak_Click_1(sender As Object, e As EventArgs) Handles btcetak.Click
        Dim a As New word.Application()
        Dim f As New word.Document()


        f = a.Documents.Open("C:\Users\Flashco\Documents\pemesanan.docx")

        f.Bookmarks("nama").Select()
        a.Selection.TypeText(txtnama.Text)

        f.Bookmarks("ktp").Select()
        a.Selection.TypeText(txtindentitas.Text)

        f.Bookmarks("tanggal").Select()
        a.Selection.TypeText(cbtanggal.Text + " ")
        a.Selection.TypeText(cbbulan.Text + " ")
        a.Selection.TypeText(cbtahun.Text)

        f.Bookmarks("jumlah").Select()
        a.Selection.TypeText(cbjumkam.Text)

        f.Bookmarks("total").Select()
        If cbdiskon.Checked = True Then
            a.Selection.TypeText(txttotal.Text + " ")
            a.Selection.TypeText("(Diskon 20% with Member Card)")
        Else
            a.Selection.TypeText(txttotal.Text)
        End If

        f.Bookmarks("lama").Select()
        a.Selection.TypeText(txtlama.Text)

        f.Bookmarks("jenis").Select()
        If rbvvip.Checked = True Then
            a.Selection.TypeText(rbvvip.Text)
        ElseIf rbvip.Checked = True Then
            a.Selection.TypeText(rbvip.Text)
        ElseIf rbreguler.Checked = True Then
            a.Selection.TypeText(rbreguler.Text)
        End If
        MsgBox("Sukses")
        f.SaveAs2("C:\Users\Flashco\Documents\pemesanan2.docx")
        a.Visible = True
    End Sub
End Class

coba start dan masukan data kemudian cetak hasilnya. dan data input akan otomatis ter link ke microsoft word.
Dibawah ini adalah contoh project yang di run

Data Input

• Jenis kamar
• Lamanya Tinggal
• Jumlah Kamar
• Nama Pemesan
• Nomor Identitas Pemesan
• Tanggal Check-in

Proses

• Button Hitung akan memproses perhitungan total harga yang harus di bayar dan akan tertera pada textbox total harga
• Button Cetak akan memproses data input yang akan di output pada microsoft word

Data Output

• Gambar akan mucul pada picturebox setelah radiobutton jenis kamar di pilih
• Data input akan teroutput dan terlink pada microsoft word

Itulah penjelasan project dari saya. semoga bermanfaat

Adiosss...~

Read More