Assalamu'alaikum, wr.wb
Cara Membuat Aplikasi Penjualan Sederhana Dengan VB - Selamat datang rekan-rekan di blog ini. Program penjualan sederhana yang kita buat kali ini menggunakan database acces 2007 dengan koneksi model AdoDc. Kita akan mengambil studi kasus pada form master barang. Pada tulisan ini saya tidak akan jelaskan bagaimana cara membuat database dan menghubungkannya dengan program master barang yang akan kita buat. Jadi bagi rekan yang masih ragu silahkan baca postingan terdahulu dibawah ini :
--> Koneksi database acces 2007 dengan metode AdoDc
Sebelum membuat form master barang pada program penjualan dengan bahasa visual basic ini, pastikan dulu dua komponen dibawah ini sudah diaktifkan dengan cara Ctrl + T
- Microsoft ADO Data Control 6.0 (OLEDB)
- Microsoft Datagrid Control 6.0 (OLEDB)
Komponen ADO Data untuk mengaktifkan AdoDC dan Datagrid control untuk menampilkan data dalam bentuk tabel pada form program yang kita buat. Keterangan untuk database acces 2007 :
nama database : databarang.accdb
kodebarang text
namabarang text
hargabarang text
stokbarang text
desain programmnya seperti dibawah ini :
Copykan mantera dibawah ini dengan cara seksama dan dalam tempo yang sesingkat-singkatnya :
Lagi-lagi saya menuliskan bentuk coding pada command programnya dengan metode select case dengan menetapkan index pada setiap commandnya. Karena menurut saya kita akan lebih menghemat baris dan codingnya lebih terlihat simple. Untuk menyembunyikan AdoDc sebagai jembatan penghubung database kita maka silahkan rubah pada propertinya visible dengan false.
Dengan telah berhasilnya kita membuat aplikasi penjualan yaitu master barang ini maka tentu pembuatan master data supplier juga mempunyai teknik yang sama dengan diatas. Moga bermanfaat. Begitulah.
Baca juga --> Cara isi combobox dengan list data dari database
Cara Membuat Aplikasi Penjualan Sederhana Dengan VB - Selamat datang rekan-rekan di blog ini. Program penjualan sederhana yang kita buat kali ini menggunakan database acces 2007 dengan koneksi model AdoDc. Kita akan mengambil studi kasus pada form master barang. Pada tulisan ini saya tidak akan jelaskan bagaimana cara membuat database dan menghubungkannya dengan program master barang yang akan kita buat. Jadi bagi rekan yang masih ragu silahkan baca postingan terdahulu dibawah ini :
--> Koneksi database acces 2007 dengan metode AdoDc
Sebelum membuat form master barang pada program penjualan dengan bahasa visual basic ini, pastikan dulu dua komponen dibawah ini sudah diaktifkan dengan cara Ctrl + T
- Microsoft ADO Data Control 6.0 (OLEDB)
- Microsoft Datagrid Control 6.0 (OLEDB)
Komponen ADO Data untuk mengaktifkan AdoDC dan Datagrid control untuk menampilkan data dalam bentuk tabel pada form program yang kita buat. Keterangan untuk database acces 2007 :
nama database : databarang.accdb
kodebarang text
namabarang text
hargabarang text
stokbarang text
desain programmnya seperti dibawah ini :
Copykan mantera dibawah ini dengan cara seksama dan dalam tempo yang sesingkat-singkatnya :
Private Sub Form_Load()
TombolHidup
Set Me.DataGrid1.DataSource = Adodc1
End Sub
Sub TombolMati()
'NonAktif Nav
For i = 0 To 3
Me.jos(i).Enabled = False
Next
'NonAktifAksi
For i = 0 To 4
Me.ok(i).Enabled = False
Next
Me.ok(2).Enabled = True
Me.ok(4).Enabled = True
'Kunci TextBox
Me.kodebarang1.Locked = False
Me.namabarang1.Locked = False
Me.hargabarang1.Locked = False
Me.stokbarang1.Locked = False
End Sub
Private Sub ok_Click(Index As Integer)
With Me.Adodc1.Recordset
Select Case Index
Case 0
'tambah
.AddNew
Me.kodebarang1.SetFocus
TombolMati
Case 1
'Edit
Me.namabarang1.SetFocus
TombolMati
Case 2
'Simpan
If MsgBox("Data ingin diSimpan", vbQuestion + vbYesNo, "Tanya") = vbYes Then
.Update
MsgBox "Data Tersimpan"
Else
.CancelBatch
MsgBox "Data Tidak Disimpan"
End If
TombolHidup
Case 4
.CancelBatch
.MoveFirst
TombolHidup
Case 3
'hapus
If MsgBox("Yakin ingin diHapus", vbQuestion + vbYesNo, "Mau??") = vbYes Then
.Delete
.MoveLast
MsgBox "Data Terhapus"
Else
MsgBox "Data Tidak Terhapus"
End If
End Select
End With
End Sub
Private Sub jos_Click(Index As Integer)
With Me.Adodc1.Recordset
'koneksi
Select Case Index
Case 0
.MoveFirst
Case 1
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox "Awal Record", vbExclamation + vbOKOnly, "Info Penting"
End If
Case 2
.MoveNext
If .EOF Then
.MoveLast
MsgBox "Record Terakhir", vbCritical + vbOKOnly, "Konf Me"
End If
Case 3
.MoveLast
End Select
End With
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub kodebarang1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Me.namabarang1.SetFocus
End Sub
Private Sub namabarang1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Me.hargabarang1.SetFocus
End Sub
Private Sub hargabarang1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Me.stokbarang1.SetFocus
End Sub
TombolHidup
Set Me.DataGrid1.DataSource = Adodc1
End Sub
Sub TombolMati()
'NonAktif Nav
For i = 0 To 3
Me.jos(i).Enabled = False
Next
'NonAktifAksi
For i = 0 To 4
Me.ok(i).Enabled = False
Next
Me.ok(2).Enabled = True
Me.ok(4).Enabled = True
'Kunci TextBox
Me.kodebarang1.Locked = False
Me.namabarang1.Locked = False
Me.hargabarang1.Locked = False
Me.stokbarang1.Locked = False
End Sub
Private Sub ok_Click(Index As Integer)
With Me.Adodc1.Recordset
Select Case Index
Case 0
'tambah
.AddNew
Me.kodebarang1.SetFocus
TombolMati
Case 1
'Edit
Me.namabarang1.SetFocus
TombolMati
Case 2
'Simpan
If MsgBox("Data ingin diSimpan", vbQuestion + vbYesNo, "Tanya") = vbYes Then
.Update
MsgBox "Data Tersimpan"
Else
.CancelBatch
MsgBox "Data Tidak Disimpan"
End If
TombolHidup
Case 4
.CancelBatch
.MoveFirst
TombolHidup
Case 3
'hapus
If MsgBox("Yakin ingin diHapus", vbQuestion + vbYesNo, "Mau??") = vbYes Then
.Delete
.MoveLast
MsgBox "Data Terhapus"
Else
MsgBox "Data Tidak Terhapus"
End If
End Select
End With
End Sub
Private Sub jos_Click(Index As Integer)
With Me.Adodc1.Recordset
'koneksi
Select Case Index
Case 0
.MoveFirst
Case 1
.MovePrevious
If .BOF Then
.MoveFirst
MsgBox "Awal Record", vbExclamation + vbOKOnly, "Info Penting"
End If
Case 2
.MoveNext
If .EOF Then
.MoveLast
MsgBox "Record Terakhir", vbCritical + vbOKOnly, "Konf Me"
End If
Case 3
.MoveLast
End Select
End With
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub kodebarang1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Me.namabarang1.SetFocus
End Sub
Private Sub namabarang1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Me.hargabarang1.SetFocus
End Sub
Private Sub hargabarang1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Me.stokbarang1.SetFocus
End Sub
Lagi-lagi saya menuliskan bentuk coding pada command programnya dengan metode select case dengan menetapkan index pada setiap commandnya. Karena menurut saya kita akan lebih menghemat baris dan codingnya lebih terlihat simple. Untuk menyembunyikan AdoDc sebagai jembatan penghubung database kita maka silahkan rubah pada propertinya visible dengan false.
Dengan telah berhasilnya kita membuat aplikasi penjualan yaitu master barang ini maka tentu pembuatan master data supplier juga mempunyai teknik yang sama dengan diatas. Moga bermanfaat. Begitulah.
Baca juga --> Cara isi combobox dengan list data dari database
ingin juga ni mas belajar visual basic, tapi masih minim ilmunya ni heehee
ReplyDeletesaya juga tak begitu pandai pak dosen :)
ReplyDeleteapa ini sudah ada databasenya ?
ReplyDeletesudah kok om.tuh kan ada penjelasannya diatas dengan acces 2007
Delete