Aplikasi Pemesanan dan Penyimpanan Data Software/Game
Penjelasan Program Aplikasi
Pada aplikasi ini, kita dapat menghubungkan project aplikasi untuk input,add atau
delete data yang ada di database ke microsoft access. Aplikasi ini dapat digunakan untuk :
- Menginput data pembelian yang dilakukan oleh pelangga
- Melihat dan meng-update data stok perusahaan
- Melihat preview hasil/total pembelian
Software atau project
aplikasi ini dapat membantu memudahkan pekerja/employee untuk mengatur data pembelian dan stok yang ada
di perusahaan serta menginput data pembelian barang(dvd) yang dipesan/dibeli
oleh para pelanggan.
a
ScreenShoot Aplikasi
- Design Form1 untuk pilihan menu Pembelian atau Stok barang
ToolBox yang digunakan :
Form1:
Button1 = Pembelian
Button2 = Stok
Form2 :
Label1 = ID Pembeli
Label2 = Nama Software/Game
Label3 = Genre
Label4 = Tahun Release
Label5 = Total Pembelian(DVD)
ComboBox1 = Merk DVD
Combobox2 = Design DVD
Button1 = Pesan
Button2 = Prewiew Pembelian
Button3 = Exit
Form3 :
DataGridView
Button1 = Delete Data
Button2 = Save Data
Button3 = Exit
Form4 =
TableDataGridView
Cara Menggunakan Projek Aplikasi Ini :
- . Pilih salah satu button untuk ke form Pembelian atau Stok Barang
*apabila anda sedang menginput data pelanggan pilih
button Form Pembelian
*untuk melihat stok barang perusahan, pilih button
Stok
2 2. Isi Form
Pembelian dengan menginputkan seluruh data yang diperlukan. Setelah itu, klik
button Pesan untuk menyimpan data ke database perusahaan.
3. 3. Untuk
melihat Preview database, klik button Preview Pembelian untuk ke Form3.
4. 4. Pada
Form3 atau form Database Pembelian, ada dua pilihan button. Button Delete untuk
menghapus salah satu data jika ada transaksi pembelian yang dibatalkan. Button
Save data dapat menyimpan data yang telah di edit. Button Exit untuk keluar
dari aplikasi ini(Form 1,Form 2)
5. 5. Ketika
Button Stok diklik, maka langsung terhubung ke Form4 untuk melihat stok barang
yang ada di perusahaan. Button Exit untuk langsung keluar dari projek aplikasi.
Source Code
Form1
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form4.Show()
End Sub
Form2 :
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form2
Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DBSoftware.accdb"
Dim objkoneksi As New OleDb.OleDbConnection(koneksi)
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
objkoneksi.Open()
Dim tambah As String = "INSERT INTO TablePemesanan values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox5.Text & "','" & ComboBox2.Text & "','" & TextBox6.Text & "')"
Dim oCmd = New OleDbCommand(tambah, objkoneksi)
oCmd.ExecuteNonQuery()
MsgBox("Success")
objkoneksi.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
Form 3 :
Public Class Form3
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
On Error GoTo SaveErr
TablePemesananBindingSource.EndEdit()
TablePemesananTableAdapter.Update(DBSoftwareDataSet1)
MessageBox.Show("wess iso")
SaveErr:
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TablePemesananBindingSource.RemoveCurrent()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
Form2.Close()
Form1.Close()
End Sub
End Class
Form4 :
Public Class Form4
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DBStokDataSet.TableStok' table. You can move, or remove it, as needed.
Me.TableStokTableAdapter.Fill(Me.DBStokDataSet.TableStok)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form1.Close()
End Sub
End Class
