RANCANGAN JENIS KAMAR HOTEL DENGAN MENGGUNAKAN VISUAL BASIC 2008

RANCANGAN  JENIS KAMAR HOTEL DENGAN MENGGUNAKAN VISUAL BASIC 2008

Data base M.accses.

No	Kode kamar	type	Jenis	harga	fasilitas
1	01	Deluxe	Double room	5000000	electric water jug
2	02	Deluxe	Twin room	1200000	direct dialog local
3	03	Executive	Double room	430000	hot & cold shower
4	04	Superior	Tripe room	450000	LCD televisi
5	05	Deluxee	Singel room	350000	safe deposit box
6	06	Executive	Triple room	450000	hot & cold shower

Imports System.Data.OleDb

Public Class Formkamar

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DR As OleDbDataReader

    Public DS As New DataSet

    Dim SQL As String

    Public Sub opendb()

        Dim lokasi = "provider=microsoft.jet.oledb.4.0;data source=C:\VB2\hotel.mdb"

        DB = New OleDbConnection(lokasi)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub tampilrecordkamar()

        ADP = New OleDbDataAdapter("select * from penginapan", DB)

        DS = New DataSet

        ADP.Fill(DS, "penginapan")

        DataGridView1.DataSource = DS.Tables("penginapan")

    End Sub

    Sub buttonbaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = False

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub buttonedit()

        btnbaru.Enabled = False

        btnsimpan.Enabled = False

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub buttonsimpan()

        btnbaru.Enabled = False

        btnsimpan.Enabled = True

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub hapustext()

        nokamar.Text = ""

        type.Text = ""

        jenis.Text = ""

        harga.Text = ""

        fasilitas.Text = ""

        Call buttonbaru()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        SQL = "delete from penginapan where Nokamar='" & nokamar.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkamar()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub Formkamar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call opendb()

        Call hapustext()

        Call tampilrecordkamar()

        type.Items.Add("SUPERIOR")

        type.Items.Add("DELUXE")

        type.Items.Add("EXECUTIVE")

        jenis.Items.Add("Singel room")

        jenis.Items.Add("Twin room")

        jenis.Items.Add("Double room")

        jenis.Items.Add("Triple room")

        fasilitas.Items.Add("LCD televisi")

        fasilitas.Items.Add("safe deposit box")

        fasilitas.Items.Add("direct dialog local")

        fasilitas.Items.Add("hot & cold shower")

        fasilitas.Items.Add("electric water jug")

        fasilitas.Items.Add("daily coffee & tea bag")

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call hapustext()

        nokamar.Focus()

    End Sub

    Private Sub nokamar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nokamar.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select *from penginapan where Nokamar='" & nokamar.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                type.Text = DR.Item(1)

                jenis.Text = DR.Item(2)

                harga.Text = DR.Item(3)

                fasilitas.Text = DR.Item(4)

                Call buttonedit()

                MsgBox("data ditemukan !!")

            Else

                xkode = nokamar.Text

                Call hapustext()

                nokamar.Text = xkode

                Call buttonsimpan()

            End If

            harga.Focus()

        End If

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call hapustext()

        nokamar.Focus()

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

        SQL = "update penginapan set type='" & type.Text & "'," & _

                                    "jenis='" & jenis.Text & "'," & _

                                    "harga='" & harga.Text & "'," & _

                                    "fasilitas='" & fasilitas.Text & "' " & _

                                    "where Nokamar='" & nokamar.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkamar()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        SQL = "insert into penginapan(Nokamar, type, jenis, harga, fasilitas) " & " values('" & nokamar.Text & "','" & type.Text & "','" & jenis.Text & "','" & harga.Text & "','" & fasilitas.Text & "' )"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkamar()

    End Sub

End Class