Docstoc

MembuatFormDaftarBarang

Document Sample
MembuatFormDaftarBarang Powered By Docstoc
					                         http://www.vbawam.com/
  Tutorial vb, Source code vb, Request Program Visual Basic
                                 Oleh : Moh. A Azis


       Membuat Form Daftar Barang Program Persediaan Barang
Form Daftar barang digunakan untuk menampilkan data barang yang tersimpan di table
barang dan akan memudahkan pengguna dalam pencarian barang sesuai dengan kode
barang, nama barang, jumlah barang maupun jenis barang. Form barang berikut
menggunakan component vb listview untuk menampilkan data barang, Untuk itu ikuti
langkah-langkah di bawah ini




                                         1

             (Step By Step membuat program persediaan barang)
                               http://www.vbawam.com/
1. Untuk membuat component listview buka dialog component dengan cara klik
   menu Project > Component.
2. Pada kotak dialog Components beri tanda centang pada pilihan Microsoft
   Windows Commont Control 6.0 (sp6). Lihat gambar dibawah ini :




3. Perhatikan gambar di bawah ini, pada form baru anda tambahkan komponen
   seperti dibawah ini :




                                      2

         (Step By Step membuat program persediaan barang)
                           http://www.vbawam.com/
4. Lihat table di bawah ini, ubah properties komponen yang tertempel pada lembar
   form
   Nama Control                Properties                Nilai
   Form 1                      Name                      FrmDataBarang
                               Caption                   Daftar Barang
   Label 1                     Caption                   Cari :
   TextBox 1                   Name                      TxtPencarian
   ComboBox1                   Name                      cmbkategori
                               Text                      (dikosongkan)




                                      3

          (Step By Step membuat program persediaan barang)
                          http://www.vbawam.com/
5. Klik icon view code lalu copy pastekan listing kode di bawah ini :

   Sub Tabel_barang()
    With ListView1
        .View = lvwReport
        .FullRowSelect = True
        .HotTracking = True
        With .ColumnHeaders
           .Add , , "Kode Barang", 1500
           .Add , , "Nama Barang", 2500
           .Add , , "Jumlah", 1250
           .Add , , "Satuan", 1250
           .Add , , "Jenis flute", 1250
        End With
   End With
   End Sub
   Sub Data_Barang()
   Call Koneksi_Database
   sql = "select * from Barang"
   rs.Open sql, db
   If rs.EOF = False Then
   ListView1.ListItems.Clear
   rs.MoveFirst
   Do While Not rs.EOF
   Set list = ListView1.ListItems.Add(, , rs.Fields("kd_barang"))
   list.SubItems(1) = rs.Fields("nm_barang")
   list.SubItems(2) = rs.Fields("jml_barang")
   list.SubItems(3) = rs.Fields("satuan")
   list.SubItems(4) = rs.Fields("jns_flute")
   rs.MoveNext
                                          4

          (Step By Step membuat program persediaan barang)
                            http://www.vbawam.com/
Loop
End If
End Sub
Private Sub CmbKategori_Click()
txtpencarian.SetFocus
End Sub


Private Sub CmbKategori_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub


Private Sub Form_Load()
cmbkategori.AddItem "Kode Barang"
cmbkategori.AddItem "Nama Barang"
cmbkategori.AddItem "jumlah"
cmbkategori.AddItem "jenis flute"
cmbkategori.Text = "Nama Barang"
Call Tabel_barang
Call Data_Barang
End Sub


Private Sub TxtPencarian_Change()
Call Koneksi_Database
Select Case cmbkategori.Text
Case "Kode Barang"
sql = "select * from Barang where kd_barang like '%" & _
txtpencarian.Text & "%' order by kd_barang asc"
rs.Open sql, db
If rs.EOF = False Then
ListView1.ListItems.Clear
                                    5

         (Step By Step membuat program persediaan barang)
                         http://www.vbawam.com/
rs.MoveFirst
Do While Not rs.EOF
Set list = ListView1.ListItems.Add(, , rs.Fields("kd_barang"))
list.SubItems(1) = rs.Fields("nm_barang")
list.SubItems(2) = rs.Fields("jml_barang")
list.SubItems(3) = rs.Fields("satuan")
list.SubItems(4) = rs.Fields("jns_flute")
rs.MoveNext
Loop
End If
Case "Nama Barang"
sql = "select * from Barang where nm_barang like '%" & _
txtpencarian.Text & "%' order by kd_barang asc"
rs.Open sql, db
If rs.EOF = False Then
ListView1.ListItems.Clear
rs.MoveFirst
Do While Not rs.EOF
Set list = ListView1.ListItems.Add(, , rs.Fields("kd_barang"))
list.SubItems(1) = rs.Fields("nm_barang")
list.SubItems(2) = rs.Fields("jml_barang")
list.SubItems(3) = rs.Fields("satuan")
list.SubItems(4) = rs.Fields("jns_flute")
rs.MoveNext
Loop
End If
Case "jumlah"
sql = "select * from Barang where jml_barang like '%" & _
txtpencarian.Text & "%' order by kd_barang asc"
rs.Open sql, db
                                      6

         (Step By Step membuat program persediaan barang)
                         http://www.vbawam.com/
If rs.EOF = False Then
ListView1.ListItems.Clear
rs.MoveFirst
Do While Not rs.EOF
Set list = ListView1.ListItems.Add(, , rs.Fields("kd_barang"))
list.SubItems(1) = rs.Fields("nm_barang")
list.SubItems(2) = rs.Fields("jml_barang")
list.SubItems(3) = rs.Fields("satuan")
list.SubItems(4) = rs.Fields("jns_flute")
rs.MoveNext
Loop
End If
Case Else
sql = "select * from Barang where jns_flute like '%" & _
txtpencarian.Text & "%' order by kd_barang asc"
rs.Open sql, db
If rs.EOF = False Then
ListView1.ListItems.Clear
rs.MoveFirst
Do While Not rs.EOF
Set list = ListView1.ListItems.Add(, , rs.Fields("kd_barang"))
list.SubItems(1) = rs.Fields("nm_barang")
list.SubItems(2) = rs.Fields("jml_barang")
list.SubItems(3) = rs.Fields("satuan")
list.SubItems(4) = rs.Fields("jns_flute")
rs.MoveNext
Loop
End If
End Select
End Sub
                                      7

         (Step By Step membuat program persediaan barang)
                         http://www.vbawam.com/
6. Simpan Form Daftar Barang dengan nama FrmDataBarang di Folder Persediaan
   Barang dimana Project & Database Persediaan Barang dibuat




                                     8

         (Step By Step membuat program persediaan barang)
                         http://www.vbawam.com/

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:31
posted:7/26/2012
language:Indonesian
pages:8