Membuat From Input Barang dengan Menggunakan Virtual Basic

Daftar Isi [Tampilkan]

Membuat From Input Barang dengan Menggunakan Virtual Basic - Mengulang yang telah ada, mencoba membuat program iventory barang dengan menggunakan Virtual Basic dan menggunakan data base Microsoft Access, dan ini tahap demi tahapnya :

1. buat dahulu database dalam ms. access  dengan nama dblatihan, dan buatlah sebuah tabel dengan nama tbarang

2. kemudian kita coba isi beberapa record pada tbarang yang telah kita buat tadi, seperti berikut. . .

3. ok, setelah ini temen – temen bisa tutup program ms.access nya, sekarang kita beralih ke program visual basic kita dan buatlah sebuah form seperti ini ( dalam form ini temen – temen bisa mengeditnya sendiri sesuai selera. 

4. agar tidak memberatkan program pada nantinya field text dan command butttonnya saya menggunakan copy paste, dan penamaannya adalah sebagai berikut :

• text1(0) ====> untuk text input pada kode barang
• text1(1) ====> untuk text input pada nama barang
• text1(2) ====> untuk text input pada harga satuan
• text1(3) ====> untuk text input pada stok
• cmdbarang(0) ====> untuk command button simpan
• cmdbarang(1) ====> untuk command button edit
• cmdbarang(2) ====> untuk command button hapus
• cmdbarang(3) ====> untuk command button batal

5. setelah itu buatlah sebuah modul untuk melakukan koneksi pada database ms.access yang telah kita buat sebelumnya, klik kanan pada project kemudian pilih add->module

6. tambahkan script untuk melakukan koneksi kedatabase kita

Public conn As New ADODB.Connection
Public record1 As New ADODB.Recordset
Public rsbarang As New ADODB.Recordset
Public sql As String
Public lis As ListItem

Public Sub koneksi()
If conn.State = adStateOpen Then conn.Close
conn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dblatihan.mdb;Persist Security Info=False”
conn.Open
End Sub

7. kembali ke form visual basic kita, kali ini kita akan mencoba menampilkan data tabel pada database tbarang ke dalam sebuah list view, double klik pada area form yang kosong dan tambahkan script berikut

Private Sub Form_Load()
lv.ListItems.Clear
text1(0).Locked = False
cmdbarang(1).Enabled = False
cmdbarang(2).Enabled = False
cmdbarang(3).Enabled = False
koneksi ‘memanggil koneksi

‘membuka tabel barang
rsbarang.CursorLocation = adUseClient
rsbarang.CursorType = adOpenStatic
rsbarang.LockType = adLockOptimistic
rsbarang.ActiveConnection = conn
sql = “Select * from tbarang”
rsbarang.Open (sql)

‘menampilkan data ke dalam listview ( ls )
While Not rsbarang.EOF
Set lis = lv.ListItems.Add
lis.Text = rsbarang!kode_brg
lis.SubItems(1) = rsbarang!nama_brg
lis.SubItems(2) = rsbarang!hrg_satuan
lis.SubItems(3) = rsbarang!stok
rsbarang.MoveNext
Wend
End Sub

kurang lebih tampilannya seperti berikut :

8. untuk keperluan selanjutnya kita akan membuat beberapa fungsi untuk menyimpan, mengedit dan menghapus data dalam database dan sebuah fungsi untuk membersihkan text – text inputan kita, berikut source codenya :

Private Sub simpan()
rsbarang.AddNew
rsbarang!kode_brg = text1(0).Text
rsbarang!nama_brg = text1(1).Text
rsbarang!hrg_satuan = text1(2).Text
rsbarang!stok = text1(3).Text
rsbarang.Update
bersih
End Sub

Private Sub edit()
rsbarang!kode_brg = text1(0).Text
rsbarang!nama_brg = text1(1).Text
rsbarang!hrg_satuan = text1(2).Text
rsbarang!stok = text1(3).Text
rsbarang.Update
cmdbarang(1).Enabled = False
cmdbarang(2).Enabled = False
cmdbarang(3).Enabled = False
cmdbarang(0).Enabled = True
text1(0).Locked = False
bersih
End Sub

Private Sub hapus()
Dim cdf As String
cdf = MsgBox(” apakah data ‘” & (text1(1).Text) & “‘ akan dihapus”, vbYesNo, “Hapus Data”)
If vbYes Then
sql = “delete from tbarang where kode_brg='” & text1(0) & “‘”
conn.Execute (sql)
cmdbarang(1).Enabled = False
cmdbarang(2).Enabled = False
cmdbarang(3).Enabled = False
cmdbarang(0).Enabled = True
text1(0).Locked = False
bersih
Else
bersih
End If
End Sub

Private Sub pencarian()
If rsbarang.RecordCount > 0 Then rsbarang.MoveFirst
rsbarang.Find (“kode_brg='” + Trim(text1(0).Text) + “‘”)
If Not rsbarang.EOF Then
text1(1).Text = rsbarang!nama_brg
text1(2).Text = rsbarang!hrg_satuan
text1(3).Text = rsbarang!stok
text1(1).SetFocus
text1(0).Locked = True
cmdbarang(1).Enabled = True
cmdbarang(2).Enabled = True
cmdbarang(3).Enabled = True
cmdbarang(0).Enabled = False
End If
End Sub

Private Sub bersih()
For i = 0 To 3
text1(i).Text = “”
text1(0).SetFocus
Form_Load
Next i
End Sub

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Index
Case 0
If KeyAscii = 13 Then
pencarian
text1(1).SetFocus
End If
End Select
End Sub

9. langkah yang terakhir double klik pada button simpan dan tambahkan source code berikut :

Private Sub cmdbarang_Click(Index As Integer)
Select Case Index
Case 0
simpan
Case 1
edit
Case 2
hapus
Case 3
bersih
Case 4
Unload Me
End Select
End Sub

sekarang anda bisa mencoba menjalankan program yang sudah kita buat dengan menekan f5 pada keyboard.

Maaf saya belum bisa memberikan Progamnya secara langsung, tetapi bila ingin programnya saya akan berikan hub : G+ : PelangiServer

vb

• Share