PT. ANGGADA FINANCE perusahaan pembiayaan (leasing) ingin membuat kemudahan untuk
pembelian kredit Mobil merk Suzuki dengan membuat sistem aplikasi berbasis
Desktop menggunakan Database Access dan Visual Studio 2010. Dimana data-data
pembeli dan type mobil sudah disimpan dalam database KREDIT yang terdiri
dari Tabel Pembeli dan Type seperti contoh :
Buat modul lalu ketikan koding seperti berikut: Module Module1
Public constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Utsmeli.accdb"
Public kon As New OleDb.OleDbConnection(constring)
Public cmd As New OleDb.OleDbCommand
Public dr As OleDb.OleDbDataReader
Public sql As String
Public konfirm As String
End Module
Setelah itu buat tampilan utama seperti berikut ini :
Setelah itu buat desain untuk pembeli dan type mobil 
- Setelah itu pada from menu utama ketikan koding sebagai berikut :Imports System.Windows.Forms
Public Class MDImenu
Private Sub DataMobilToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataMobilToolStripMenuItem.Click
frmtypemobil.Show()
End Sub
Private Sub DataPembeliToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPembeliToolStripMenuItem.Click
frmpembeli.Show()
End Sub
Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
' TODO: Add code here to save the current contents of the form to a file.
End If
End Sub
Private Sub LaporanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanToolStripMenuItem.Click
laporan.Show()
End Sub
End Class
- Untuk form type mobil
Private Sub clear()
txttype.Text = ""
txtmerk.Text = ""
txtharga.Text = ""
txtuangmuka.Text = ""
txtjmlcicilan.Text = ""
txtcicilan.Text = ""
txttype.Enabled = True
txttype.Focus()
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtharga.TextChanged
End Sub
Private Sub frmtypemobil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'UtsmeliDataSet2.tyepemobil' table. You can move, or remove it, as needed.
Me.TyepemobilTableAdapter.Fill(Me.UtsmeliDataSet2.tyepemobil)
End Sub
Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
clear()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
sql = "insert into tyepemobil (type, merk, HargaOTR, Uangmuka, Jmlcicil, cicilan) values ('" & txttype.Text & "', '" & txtmerk.Text & "','" & txtharga.Text & "', '" & txtuangmuka.Text & "', '" & txtjmlcicilan.Text & "', '" & txtcicilan.Text & "')"
kon.Open()
cmd = New OleDb.OleDbCommand(sql, kon)
Dim x As Integer = cmd.ExecuteNonQuery
If x = 1 Then
MsgBox("Data berhasil disimpan")
clear()
Me.TyepemobilTableAdapter.Fill(Me.UtsmeliDataSet2.tyepemobil)
Else
MsgBox("Data gagal disimpan")
End If
kon.Close()
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
clear()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
sql = "delete from tyepemobil where Type = '" & txttype.Text & "'"
kon.Open()
cmd = New OleDb.OleDbCommand(sql, kon)
Dim x As Integer = cmd.ExecuteNonQuery
MsgBox("Data Anda berhasil dihapus")
clear()
Me.TyepemobilTableAdapter.Fill(Me.UtsmeliDataSet2.tyepemobil)
End Sub
Private Sub btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnubah.Click
sql = "update tyepemobil set Type = '" & txttype.Text & _
"',merk = '" & txtmerk.Text & _
"',HargaOTR = '" & txtharga.Text & _
"',Uangmuka = '" & txtuangmuka.Text & _
"',Jmlcicil = '" & txtjmlcicilan.Text & _
"',cicilan = '" & txtcicilan.Text & _
"' where NoId = '" & txttype.Text & "'"
kon.Open()
cmd = New OleDb.OleDbCommand(sql, kon)
Dim x As Integer = cmd.ExecuteNonQuery
If x = 1 Then
MsgBox("Data Anda berhasil diRubah")
clear()
Me.TyepemobilTableAdapter.Fill(Me.UtsmeliDataSet2.tyepemobil)
Else
MsgBox("Data Anda gagal diRubah")
End If
kon.Close()
End Sub
Private Sub TyepemobilBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TyepemobilBindingSource.CurrentChanged
End Sub
Private Sub TMobilBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TMobilBindingNavigatorSaveItem.Click
Me.Validate()
Me.TyepemobilBindingSource.EndEdit()
Me.TyepemobilTableAdapter.Update(Me.UtsmeliDataSet2)
End Sub
End Class
Untuk form pembeli
Public Class frmpembeli
Private Sub frmpembeli_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'UtsmeliDataSet1.Pembeli' table. You can move, or remove it, as needed.
Me.PembeliTableAdapter.Fill(Me.UtsmeliDataSet1.Pembeli)
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
sql = "insert into Pembeli (NoId, Nama, Alamat, Pekerjaan, Type) values ('" & txtnoid.Text & "', '" & txtnama.Text & "','" & txtalamat.Text & "', '" & txtpekerjaan.Text & "', '" & txttype.Text & "')"
kon.Open()
cmd = New OleDb.OleDbCommand(sql, kon)
Dim x As Integer = cmd.ExecuteNonQuery
If x = 1 Then
MsgBox("Data Anda Berhasil diSimpan")
txtnoid.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtpekerjaan.Text = ""
txttype.Text = ""
txtnoid.Enabled = True
txtnoid.Focus()
Me.PembeliTableAdapter.Fill(Me.UtsmeliDataSet1.Pembeli)
Else
MsgBox("Data Anda Gagal diSimpan !!!")
End If
kon.Close()
End Sub
Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
Me.PembeliTableAdapter.Fill(Me.UtsmeliDataSet1.Pembeli)
txtnoid.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtpekerjaan.Text = ""
txttype.Text = ""
txtnoid.Enabled = True
txtnoid.Focus()
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
Me.PembeliTableAdapter.Fill(Me.UtsmeliDataSet1.Pembeli)
txtnoid.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtpekerjaan.Text = ""
txttype.Text = ""
txtnoid.Enabled = True
txtnoid.Focus()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
sql = "delete from Pembeli where NoId = '" & txtnoid.Text & "'"
kon.Open()
cmd = New OleDb.OleDbCommand(sql, kon)
Dim x As Integer = cmd.ExecuteNonQuery
MsgBox("Data berhasil dihapus")
txtnoid.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtpekerjaan.Text = ""
txttype.Text = ""
txtnoid.Enabled = True
txtnoid.Focus()
Me.PembeliTableAdapter.Fill(Me.UtsmeliDataSet1.Pembeli)
End Sub
Private Sub btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnubah.Click
sql = "update Pembeli set Nama = '" & txtnama.Text & _
"',Alamat = '" & txtalamat.Text & _
"',Pekerjaan = '" & txtpekerjaan.Text & _
"',type = '" & txttype.Text & _
"' where NoId = '" & txtnoid.Text & "'"
kon.Open()
cmd = New OleDb.OleDbCommand(sql, kon)
Dim x As Integer = cmd.ExecuteNonQuery
If x = 1 Then
MsgBox("Data berhasil diRubah")
txtnoid.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtpekerjaan.Text = ""
txttype.Text = ""
txtnoid.Enabled = True
txtnoid.Focus()
Me.PembeliTableAdapter.Fill(Me.UtsmeliDataSet1.Pembeli)
Else
MsgBox("Data Gagal diRubah", vbInformation, "Pesan")
End If
kon.Close()
End Sub
Private Sub PembeliBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembeliBindingSource.CurrentChanged
End Sub
End Class
- Untuk Laporan
Public Class laporan
Private Sub generateHTML()
Cursor = Cursors.WaitCursor
Dim pathfile As String = Application.StartupPath & "\laporanpembeli.html"
Dim HTMLstr As String = "<HTML> " & _
" <head> " & _
" <tittle> Pembeli Kredit </tittle> " & _
" </head> " & _
" <BODY> " & _
" <TABLE WIDTH= '80%' BORDER='1'> " & _
" <tr> " & _
"<td> No </td>" & _
" <td> NoId </td> " &
"<td> Nama </td> " & _
" <td> Alamat </td> " & _
" <td> Pekerjaan </td> " & _
" <td> Type </td> " & _
" </tr> "
kon.Open()
Dim strSQL As String = " SELECT * FROM Pembeli"
'strSQL = strSQL & "ORDER BY nama DESC"
cmd.CommandText = strSQL
cmd.Connection = kon
dr = cmd.ExecuteReader
Dim no As Integer = 1
If dr.HasRows Then
While dr.Read
HTMLstr = HTMLstr & "<tr>" & _
"<td>" & no & "</td>" & _
"<td>" & dr.Item(0) & "</td>" & _
"<td>" & dr.Item(1) & "</td>" & _
"<td>" & dr.Item(2) & "</td>" & _
"<td>" & dr.Item(3) & "</td>" & _
"<td>" & dr.Item(4) & "</td>" & _
"</tr>"
no += 1
End While
End If
kon.Close()
HTMLstr = HTMLstr & " </TABLE> " & _
" </BODY> " & _
" </HTML> "
File.WriteAllText(pathfile, HTMLstr)
Cursor = Cursors.Default
End Sub
Private Sub generateHTML1()
Cursor = Cursors.WaitCursor
Dim pathfile As String = Application.StartupPath & "\laporanmobil.html"
Dim HTMLstr As String = "<HTML> " & _
" <head> " & _
" <tittle>Type Mobil </tittle> " & _
" </head> " & _
" <BODY> " & _
" <TABLE WIDTH= '80%' BORDER='1'> " & _
" <tr> " & _
"<td> No </td>" & _
" <td> Type </td> " &
"<td> Merk </td> " & _
" <td> HargaOTR</td> " & _
" <td> Uang Muka </td> " & _
" <td> Jml Cicil </td> " & _
" <td> Cicilan </td> " & _
" </tr> "
kon.Open()
Dim strSQL As String = " SELECT * FROM tyepemobil"
'strSQL = strSQL & "ORDER BY nama DESC"
cmd.CommandText = strSQL
cmd.Connection = kon
dr = cmd.ExecuteReader
Dim no As Integer = 1
If dr.HasRows Then
While dr.Read
HTMLstr = HTMLstr & "<tr>" & _
"<td>" & no & "</td>" & _
"<td>" & dr.Item(0) & "</td>" & _
"<td>" & dr.Item(1) & "</td>" & _
"<td>" & dr.Item(2) & "</td>" & _
"<td>" & dr.Item(3) & "</td>" & _
"<td>" & dr.Item(4) & "</td>" & _
"<td>" & dr.Item(4) & "</td>" & _
"</tr>"
no += 1
End While
End If
kon.Close()
HTMLstr = HTMLstr & " </TABLE> " & _
" </BODY> " & _
" </HTML> "
File.WriteAllText(pathfile, HTMLstr)
Cursor = Cursors.Default
End Sub
Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim namafile As String = Application.StartupPath & "\laporanpembeli.html"
Dim nmf As String = Application.StartupPath & "\laporanmobil.html"
Select Case ComboBox1.SelectedIndex
Case 0
Call generateHTML()
WebBrowser1.Navigate(namafile)
Case 1
Call generateHTML1()
WebBrowser1.Navigate(nmf)
End Select
End Sub
End Class
Selamat Mencoba yahhh , sukses :)
