efek salju

Minggu, 30 Juni 2013

DATA PENJUALAN RUMAH



DATA PENJUALAN RUMAH

1.Menu strip

Public Class Form1

    Private Sub DataRumahToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataRumahToolStripMenuItem.Click
        Data_Rumah.Show()
    End Sub

    Private Sub DataPelangganToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPelangganToolStripMenuItem.Click
        Data_pelanggan.Show()
    End Sub

    Private Sub PenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenjualanToolStripMenuItem.Click
        penjualan.Show()
    End Sub

    Private Sub AngsuranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AngsuranToolStripMenuItem.Click
        angsuran.Show()
    End Sub

    Private Sub PembayaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranToolStripMenuItem.Click
        Pembayaran.Show()
    End Sub

    Private Sub RelasiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RelasiToolStripMenuItem.Click
        CETAK.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
        Me.Close()
    End Sub

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

    End Sub
End Class

2. Data Rumah
Imports MySql.Data.MySqlClient
Public Class Data_Rumah
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public rs As MySqlDataReader
    Sub opendb()
        sql = "server=localhost;uid=root;pwd;database=pjrumah"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub bersih()
        koderumah.Text = ""
        typerumah.Text = ""
        harga.Text = ""
        alamat.Text = ""
        rubahbutton(True, False, False, False, False, True)
        koderumah.Enabled = True
    End Sub
    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        btnbaru.Enabled = btn1
        btnsimpan.Enabled = btn2
        btnedit.Enabled = btn3
        btnhapus.Enabled = btn4
        btnbatal.Enabled = btn5
        btnkeluar.Enabled = btn6
    End Sub

    Sub buattable()
        lv.Columns.Add("Kode Rumah", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Type Rumah", 130, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitable()
        lv.Items.Clear()
        sql = "select * from data_rumah"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("kode_rumah")
                lst.SubItems.Add(rs("type_rumah"))
                lst.SubItems.Add(rs("harga"))
                lst.SubItems.Add(rs("alamat"))
                lv.Items.Add(lst)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub prosesdb(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "insert into data_rumah(kode_rumah,type_rumah,harga,alamat)" & _
                "values('" & koderumah.Text & _
                "','" & typerumah.Text & _
                "','" & harga.Text & _
                "','" & alamat.Text & "')"
                pesan = "data telah tersimpan"
            Case 1
                sql = "update data_rumah set type_rumah='" & typerumah.Text & "'," & _
                "harga='" & harga.Text & "'," & _
                "alamat='" & alamat.Text & "' " & _
                "where kode_rumah='" & koderumah.Text & "'"
                pesan = "data telah terupdate"
            Case 2
                sql = "delete from data_rumah where kode_rumah='" & koderumah.Text & "'"
                pesan = "data telah dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")
            Call bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showdb()
        rs.Read()
        koderumah.Text = rs("kode_rumah")
        typerumah.Text = rs("type_rumah")
        harga.Text = rs("harga")
        alamat.Text = rs("alamat")
        rubahbutton(False, False, True, True, True, False)
        koderumah.Enabled = False
    End Sub

    Private Sub Data_Rumah_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call bersih()
        Call buattable()
        Call isitable()

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call bersih()
        koderumah.Focus()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
        koderumah.Focus()
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call prosesdb(2)
        End If
    End Sub

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

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

    Private Sub koderumah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles koderumah.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If koderumah.Text = "" Then
                MsgBox("isi KODE RUMAH terlebih dahulu")
            Else
                sql = "select * from data_rumah where kode_rumah='" & koderumah.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showdb()
                Catch ex As Exception
                    x = koderumah.Text
                    bersih()
                    koderumah.Text = x
                    rubahbutton(False, True, False, False, True, False)
                    btnsimpan.Text = "SIMPAN"
                End Try
                typerumah.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class

3. Data Pelanggan

Imports MySql.Data.MySqlClient
Public Class Data_pelanggan
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public rs As MySqlDataReader
    Sub opendb()
        sql = "server=localhost;uid=root;pwd;database=pjrumah"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub bersih()
        kd_pelanggan.Text = ""
        nm_pelanggan.Text = ""
        alamat.Text = ""
        telepon.Text = ""
        rubahbutton(True, False, False, False, False, True)
        kd_pelanggan.Enabled = True
    End Sub
    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        btnbaru.Enabled = btn1
        btnsimpan.Enabled = btn2
        btnedit.Enabled = btn3
        btnhapus.Enabled = btn4
        btnbatal.Enabled = btn5
        btnkeluar.Enabled = btn6
    End Sub

    Sub buattable()
        lv.Columns.Add("Kode Pelanggan", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Pelanggan", 130, HorizontalAlignment.Left)
        lv.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
        lv.Columns.Add("telepon", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitable()
        lv.Items.Clear()
        sql = "select * from data_pelanggan"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("kode_pel")
                lst.SubItems.Add(rs("nama_pel"))
                lst.SubItems.Add(rs("alamat"))
                lst.SubItems.Add(rs("telp"))
                lv.Items.Add(lst)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub prosesdb(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "insert into data_pelanggan(kode_pel,nama_pel,alamat,telp)" & _
                "values('" & kd_pelanggan.Text & _
                "','" & nm_pelanggan.Text & _
                "','" & alamat.Text & _
                "','" & telepon.Text & "')"
                pesan = "data telah tersimpan"
            Case 1
                sql = "update data_pelanggan set nama_pel='" & nm_pelanggan.Text & "'," & _
                "alamat='" & alamat.Text & "'," & _
                "telp='" & telepon.Text & "' " & _
                "where kode_pel='" & kd_pelanggan.Text & "'"
                pesan = "data telah terupdate"
            Case 2
                sql = "delete from data_pelanggan where kode_pel='" & kd_pelanggan.Text & "'"
                pesan = "data telah dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")
            Call bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showdb()
        rs.Read()
        kd_pelanggan.Text = rs("kode_pel")
        nm_pelanggan.Text = rs("nama_pel")
        alamat.Text = rs("alamat")
        telepon.Text = rs("telp")
        rubahbutton(False, False, True, True, True, False)
        kd_pelanggan.Enabled = False
    End Sub

    Private Sub Data_pelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call bersih()
        Call buattable()
        Call isitable()
    End Sub
    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call bersih()
        kd_pelanggan.Focus()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
        kd_pelanggan.Focus()
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call prosesdb(2)
        End If
    End Sub

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

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

    Private Sub kd_pelanggan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kd_pelanggan.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If kd_pelanggan.Text = "" Then
                MsgBox("isi KODE  terlebih dahulu")
            Else
                sql = "select * from data_pelanggan where kode_pel='" & kd_pelanggan.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showdb()
                Catch ex As Exception
                    x = kd_pelanggan.Text
                    bersih()
                    kd_pelanggan.Text = x
                    rubahbutton(False, True, False, False, True, False)
                    btnsimpan.Text = "SIMPAN"
                End Try
                nm_pelanggan.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class

4. Penjualan

Imports MySql.Data.MySqlClient
Public Class penjualan
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public rs As MySqlDataReader
    Sub opendb()
        sql = "server=localhost;uid=root;pwd;database=pjrumah"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub bersih()
        kd_pel.Text = ""
        kd_rumah.Text = ""
        typerumah.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        rubahbutton(True, False, False, False, False, True)
        kd_pel.Enabled = True
    End Sub
    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        btnbaru.Enabled = btn1
        btnsimpan.Enabled = btn2
        btnedit.Enabled = btn3
        btnhapus.Enabled = btn4
        btnbatal.Enabled = btn5
        btnkeluar.Enabled = btn6
    End Sub
    Sub buattable()
        lv.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Rumah", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Type Rumah", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitable()
        lv.Items.Clear()
        sql = "select * from penjualan"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("kode_pel")
                lst.SubItems.Add(rs("kode_rumah"))
                lst.SubItems.Add(rs("type_rumah"))
                lst.SubItems.Add(rs("harga"))
                lst.SubItems.Add(rs("jumlah"))
                lv.Items.Add(lst)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub prosesdb(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "insert into penjualan(kode_pel,kode_rumah,type_rumah,harga,jumlah)" & _
                "values('" & kd_pel.Text & _
                "','" & kd_rumah.Text & _
                "','" & typerumah.Text & _
                "','" & harga.Text & _
                "','" & jumlah.Text & "')"
                pesan = "data telah tersimpan"
            Case 1
                sql = "update penjualan set kode_rumah='" & kd_rumah.Text & "'," & _
                "type_rumah='" & typerumah.Text & "'," & _
                "harga='" & harga.Text & "'," & _
                "jumlah='" & jumlah.Text & "' " & _
                "where kode_pel='" & kd_pel.Text & "'"
                pesan = "data telah terupdate"
            Case 2
                sql = "delete from penjualan where kode_pel='" & kd_pel.Text & "'"
                pesan = "data telah dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")
            Call bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showdb()
        rs.Read()
        kd_pel.Text = rs("kode_pel")
        kd_rumah.Text = rs("kode_rumah")
        typerumah.Text = rs("type_rumah")
        harga.Text = rs("harga")
        jumlah.Text = rs("jumlah")
        rubahbutton(False, False, True, True, True, False)
        kd_pel.Enabled = False
    End Sub


    Private Sub penjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call bersih()
        Call buattable()
        Call isitable()
    End Sub
    Private Sub btnbaru_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call bersih()
        kd_pel.Focus()
    End Sub

    Private Sub btnbatal_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
        kd_pel.Focus()
    End Sub

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

    Private Sub btnhapus_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call prosesdb(2)
        End If
    End Sub

    Private Sub btnsimpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Call prosesdb(0)
    End Sub

    Private Sub btnedit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        Call prosesdb(1)
    End Sub

    Private Sub kd_pel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kd_pel.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If kd_pel.Text = "" Then
                MsgBox("isi KODE terlebih dahulu")
            Else
                sql = "select * from penjualan where kode_pel='" & kd_pel.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showdb()
                Catch ex As Exception
                    x = kd_pel.Text
                    bersih()
                    kd_pel.Text = x
                    rubahbutton(False, True, False, False, True, False)
                    btnsimpan.Text = "SIMPAN"
                End Try
                kd_rumah.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class
5. Angsuran
Imports MySql.Data.MySqlClient
Public Class angsuran
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public rs As MySqlDataReader
    Sub opendb()
        sql = "server=localhost;uid=root;pwd;database=pjrumah"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub bersih()
        kd_angsuran.Text = ""
        kd_rumah.Text = ""
        typerumah.Text = ""
        harga_lunas.Text = ""
        bunga_cicilan.Text = ""
        lama_cicilan.Text = ""
        rubahbutton(True, False, False, False, False, True)
        kd_angsuran.Enabled = True
    End Sub
    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        btnbaru.Enabled = btn1
        btnsimpan.Enabled = btn2
        btnedit.Enabled = btn3
        btnhapus.Enabled = btn4
        btnbatal.Enabled = btn5
        btnkeluar.Enabled = btn6
    End Sub
    Sub buattable()
        lv.Columns.Add("Kode Angsuran", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Rumah", 130, HorizontalAlignment.Left)
        lv.Columns.Add("Type Rumah", 130, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Bunga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Lama", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitable()
        lv.Items.Clear()
        sql = "select * from angsuran"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("kode_angsuran")
                lst.SubItems.Add(rs("kode_rumah"))
                lst.SubItems.Add(rs("type_rumah"))
                lst.SubItems.Add(rs("harga"))
                lst.SubItems.Add(rs("bunga"))
                lst.SubItems.Add(rs("lama"))
                lv.Items.Add(lst)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub prosesdb(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "insert into angsuran(kode_angsuran,kode_rumah,type_rumah,harga,bunga,lama)" & _
                "values('" & kd_angsuran.Text & _
                "','" & kd_rumah.Text & _
                "','" & typerumah.Text & _
                "','" & harga_lunas.Text & _
                "','" & bunga_cicilan.Text & _
                "','" & lama_cicilan.Text & "')"
                pesan = "data telah tersimpan"
            Case 1
                sql = "update angsuran set kode_rumah='" & kd_rumah.Text & "'," & _
                "type_rumah='" & typerumah.Text & "'," & _
                "harga='" & harga_lunas.Text & "'," & _
                "bunga='" & bunga_cicilan.Text & "'," & _
                "lama='" & lama_cicilan.Text & "' " & _
                "where kode_angsuran='" & kd_angsuran.Text & "'"
                pesan = "data telah terupdate"
            Case 2
                sql = "delete from angsuran where kode_angsuran='" & kd_angsuran.Text & "'"
                pesan = "data telah dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")
            Call bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showdb()
        rs.Read()
        kd_angsuran.Text = rs("kode_rumah")
        kd_rumah.Text = rs("type_rumah")
        typerumah.Text = rs("type_rumah")
        harga_lunas.Text = rs("harga")
        bunga_cicilan.Text = rs("bunga")
        lama_cicilan.Text = rs("lama")
        rubahbutton(False, False, True, True, True, False)
        kd_angsuran.Enabled = False
    End Sub
    Private Sub angsuran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call bersih()
        Call buattable()
        Call isitable()
    End Sub
    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call bersih()
        kd_angsuran.Focus()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
        kd_angsuran.Focus()
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call prosesdb(2)
        End If
    End Sub

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

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

    Private Sub kd_angsuran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kd_angsuran.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If kd_angsuran.Text = "" Then
                MsgBox("isi KODE terlebih dahulu")
            Else
                sql = "select * from angsuran where kode_angsuran='" & kd_angsuran.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showdb()
                Catch ex As Exception
                    x = kd_angsuran.Text
                    bersih()
                    kd_angsuran.Text = x
                    rubahbutton(False, True, False, False, True, False)
                    btnsimpan.Text = "SIMPAN"
                End Try
                kd_rumah.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class

6. Pembayaran

Imports MySql.Data.MySqlClient
Public Class Pembayaran
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public rs As MySqlDataReader
    Sub opendb()
        sql = "server=localhost;uid=root;pwd;database=pjrumah"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub bersih()
        no_bukti.Text = ""
        no_transaksi.Text = ""
        nm_pel.Text = ""
        dp.Text = ""
        lama.Text = ""
        angsuran.Text = ""
        cicilan.Text = ""
        rubahbutton(True, False, False, False, False, True)
        no_bukti.Enabled = True
    End Sub
    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        btnbaru.Enabled = btn1
        btnsimpan.Enabled = btn2
        btnedit.Enabled = btn3
        btnhapus.Enabled = btn4
        btnbatal.Enabled = btn5
        btnkeluar.Enabled = btn6
    End Sub
    Sub buattable()
        lv.Columns.Add("No Bukti", 150, HorizontalAlignment.Center)
        lv.Columns.Add("No Transaksi", 130, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Pelanggan", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Dp", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Lama", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Angsuran", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Cicilan", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitable()
        lv.Items.Clear()
        sql = "select * from pembayaran2"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("no_bukti")
                lst.SubItems.Add(rs("no_trnsksi"))
                lst.SubItems.Add(rs("nama_pel"))
                lst.SubItems.Add(rs("dp"))
                lst.SubItems.Add(rs("lama"))
                lst.SubItems.Add(rs("angsuran"))
                lst.SubItems.Add(rs("cicilan_k"))
                lv.Items.Add(lst)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub prosesdb(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "insert into pembayaran2(no_bukti,no_trnsksi,nama_pel,dp,lama,angsuran,cicilan_k)" & _
                "values('" & no_bukti.Text & _
                "','" & no_transaksi.Text & _
                "','" & nm_pel.Text & _
                "','" & dp.Text & _
                "','" & lama.Text & _
                "','" & angsuran.Text & _
                "','" & cicilan.Text & "')"
                pesan = "data telah tersimpan"
            Case 1
                sql = "update pembayaran2 set no.tansksi_='" & no_transaksi.Text & "'," & _
                "nama_pel='" & nm_pel.Text & "'," & _
                "dp='" & dp.Text & "'," & _
                "lama='" & lama.Text & "'," & _
                "angsuran='" & angsuran.Text & "'," & _
                "cicilan_k='" & cicilan.Text & "' " & _
                "where no_bukti='" & no_bukti.Text & "'"
                pesan = "data telah terupdate"
            Case 2
                sql = "delete from pembayaran2 where no_bukti='" & no_bukti.Text & "'"
                pesan = "data telah dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")
            Call bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showdb()
        rs.Read()
        no_bukti.Text = rs("no_bukti")
        no_transaksi.Text = rs("no_trnsksi")
        nm_pel.Text = rs("nama_pel")
        dp.Text = rs("dp")
        lama.Text = rs("lama")
        angsuran.Text = rs("angsuran")
        cicilan.Text = rs("cicilan_k")
        rubahbutton(False, False, True, True, True, False)
        no_bukti.Enabled = False
    End Sub


    Private Sub Pembayaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call bersih()
        Call buattable()
        Call isitable()

    End Sub
    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call bersih()
        no_bukti.Focus()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
        no_bukti.Focus()
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call prosesdb(2)
        End If
    End Sub

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

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

    Private Sub no_bukti_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_bukti.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If no_bukti.Text = "" Then
                MsgBox("isi KODE terlebih dahulu")
            Else
                sql = "select * from pembayaran2 where no_bukti='" & no_bukti.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showdb()
                Catch ex As Exception
                    x = no_bukti.Text
                    bersih()
                    no_bukti.Text = x
                    rubahbutton(False, True, False, False, True, False)
                    btnsimpan.Text = "SIMPAN"
                End Try
                no_transaksi.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class

7. Crystal Report

Database Mysql
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)