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
