Minggu, 30 Juni 2013

SISTEM INFORMASI PENDAPATAN TAMU PADA PERMATA INDAH KARAOKE(2)


(Form Pesanan, Paket Dan Ruangan)

 Design Form Pesanan Dan Hasil Setelah Dijalankan

Listing Program

Imports System.Data.OleDb
Public Class Form3
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Sub TampilRecordpesanan()
        ADP = New OleDbDataAdapter("SELECT * FROM Pesanan", DB)
        DS = New DataSet
        ADP.Fill(DS, "Pesanan")
        DataGridView1.DataSource = DS.Tables("Pesanan")
    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()
        Kd_Pesan.Text = ""
        Nm_Pesan.Text = ""
        Harga.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 Pesanan Where Kd_Pesan='" & Kd_Pesan.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordpesanan()
    End Sub

    Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click
        Call HapusText()
        Kd_Pesan.Focus()
    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 Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call HapusText()
        Call TampilRecordpesanan()
    End Sub

    Private Sub Kd_Pesanan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kd_Pesan.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String

        If tombol = 13 Then
            SQL = "SELECT *FROM Pesanan where Kd_Pesan='" & Kd_Pesan.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()

            If DR.HasRows = True Then
                Nm_Pesan.Text = DR("Nm_Pesan")
                Harga.Text = DR("Harga")
                Call buttonedit()
                MsgBox("Data ditemukan...! ")
            Else
                xkode = Kd_Pesan.Text
                Call HapusText()
                Kd_Pesan.Text = xkode
                Call buttonsimpan()
            End If
            Nm_Pesan.Focus()
        End If
    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        Call HapusText()
        Kd_Pesan.Focus()
    End Sub

    Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click
        SQL = "UPDATE Pesanan SET Nm_Pesan='" & Nm_Pesan.Text & "'," & _
                            " Harga='" & Harga.Text & "' " & _
                            " Where Kd_Pesan='" & Kd_Pesan.Text & "'"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordpesanan()
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        SQL = "INSERT INTO Pesanan(Kd_Pesan, Nm_Pesan, Harga) " & _
                    " values('" & Kd_Pesan.Text & "','" & _
                                   Nm_Pesan.Text & "','" & _
                                   Harga.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordpesanan()
    End Sub
End Class


 Hasil Laporan




Design Form Paket Dan Hasil Setelah Dijalankan
 

Listing Program

Imports System.Data.OleDb
Public Class Form4
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Sub TampilRecordPaket()
        ADP = New OleDbDataAdapter("SELECT * FROM Paket", DB)
        DS = New DataSet
        ADP.Fill(DS, "Paket")
        DataGridView1.DataSource = DS.Tables("Paket")
    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()
        Kd_Paket.Text = ""
        Nm_Paket.Text = ""
        Jenis.Text = ""
        Harga.Text = ""
        Jlh_Orang.Text = ""
        Lm_Waktu.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 Paket Where Kd_Paket='" & Kd_Paket.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordPaket()
    End Sub

    Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click
        Call HapusText()
        Kd_Paket.Focus()
    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 Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call HapusText()
        Call TampilRecordPaket()
    End Sub

    Private Sub Kd_Paket_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kd_Paket.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String

        If tombol = 13 Then
            SQL = "SELECT *FROM Paket where Kd_Paket='" & Kd_Paket.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()

            If DR.HasRows = True Then
                Nm_Paket.Text = DR("Nm_Paket")
                Jenis.Text = DR("Jenis")
                Harga.Text = DR("Harga")
                Jlh_Orang.Text = DR("Jlh_Orang")
                Lm_Waktu.Text = DR("Lm_Waktu")
                Call buttonedit()
                MsgBox("Data ditemukan...! ")
            Else
                xkode = Kd_Paket.Text
                Call HapusText()
                Kd_Paket.Text = xkode
                Call buttonsimpan()
            End If
            Nm_Paket.Focus()
        End If
    End Sub
   
    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        Call HapusText()
        Kd_Paket.Focus()
    End Sub

    Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click
        SQL = "UPDATE Paket SET Nm_Paket='" & Nm_Paket.Text & "'," & _
                            " Jenis='" & Jenis.Text & "'," & _
                            " Harga='" & Harga.Text & "'," & _
                            " Jlh_Orang='" & Jlh_Orang.Text & "'," & _
                            " Lm_Waktu='" & Lm_Waktu.Text & "' " & _
                            " Where Kd_Paket='" & Kd_Paket.Text & "'"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordPaket()
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        SQL = "INSERT INTO Paket(Kd_Paket, Nm_Paket, Jenis, Harga, Jlh_Orang, Lm_Waktu) " & _
                     " values('" & Kd_Paket.Text & "','" & _
                                    Nm_Paket.Text & "','" & _
                                    Jenis.Text & "','" & _
                                    Harga.Text & "','" & _
                                    Jlh_Orang.Text & "','" & _
                                    Lm_Waktu.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordPaket()
    End Sub
End Class


Hasil Laporan





Design Form Ruangan Dan Hasil Setelah Dijalankan


Listing Program

Imports System.Data.OleDb
Public Class Form5
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Sub TampilRecordruangan()
        ADP = New OleDbDataAdapter("SELECT * FROM ruangan", DB)
        DS = New DataSet
        ADP.Fill(DS, "ruangan")
        DataGridView1.DataSource = DS.Tables("ruangan")
    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()
        Kd_Ruangan.Text = ""
        Nm_Ruangan.Text = ""
        Jenis.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 ruangan Where Kd_Ruangan='" & Kd_Ruangan.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordruangan()
    End Sub

    Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click
        Call HapusText()
        Kd_Ruangan.Focus()
    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 Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Opendb()
        Call HapusText()
        Call TampilRecordruangan()
    End Sub

    Private Sub Kd_Ruangan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kd_Ruangan.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String

        If tombol = 13 Then
            SQL = "SELECT *FROM ruangan where Kd_Ruangan='" & Kd_Ruangan.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()

            If DR.HasRows = True Then
                Nm_Ruangan.Text = DR("Nm_Ruangan")
                Jenis.Text = DR("Jenis")
                Call buttonedit()
                MsgBox("Data ditemukan...! ")
            Else
                xkode = Kd_Ruangan.Text
                Call HapusText()
                Kd_Ruangan.Text = xkode
                Call buttonsimpan()
            End If
            Nm_Ruangan.Focus()
        End If
    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        Call HapusText()
        Kd_Ruangan.Focus()
    End Sub

    Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click
        SQL = "UPDATE ruangan SET Nm_Ruangan='" & Nm_Ruangan.Text & "'," & _
                            " Jenis='" & Jenis.Text & "' " & _
                            " Where Kd_Ruangan='" & Kd_Ruangan.Text & "'"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordruangan()
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        SQL = "INSERT INTO ruangan(Kd_Ruangan, Nm_Ruangan, Jenis) " & _
                     " values('" & Kd_Ruangan.Text & "','" & _
                                    Nm_Ruangan.Text & "','" & _
                                    Jenis.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call Btnbaru_Click(sender, e)
        Call TampilRecordruangan()
    End Sub
End Class


Hasil Laporan



Demikilahlah postingan saya  Nama : Yusni Dewi NPM : 1102088
Kelas : MI - P - 1101

Selamat Belajar VB Net