TEXT WIDGET

Cara Mudah Dan Praktis Buat Form Data BarangVB6


Setelah beberapa tahap cara untuk menjembatani project yang sobat buat baik menggunakan berbagai provider atau dengan app-path , tapi banyak juga yang menggunakan MYSQL, sekarang mari bersama-sama membuat form awal untuk project yang sobat buat.
untuk yang awal perlu sobat buat adalah buat form master data yang mana ini berfungsi untuk memasukkan data master yang nanti akan kita gunakan pada form-form selanjutnya. untuk kali ini saya akan ulas sedikit bagaimana membuat form master data barang yang nantinya akan masuk kedatabase
pada table barang/product.
Langsung saja pada intinya :

1. Perhatikan gambar di bawah ini, pada form baru anda tambahkan komponen Image, Label, Textbox dan CommandButton.

2. Lihat table di bawah ini, ubah properties komponen yang tertempel pada lembar form Nama
Control Properties Nilai
Form 1 Name FrmBarang
Caption Data Barang
Label 1 Caption Kode Barang :
Label 2 Caption Nama Barang :
Label 3 Caption Jumlah Barang :
Label 4 Caption Satuan :
Label 5 Caption Jenis Flute
TextBox 1 Name Txtkd
TextBox 2 Name Txtnm
TextBox 3 Name Txtjumlah
TextBox 4 Name Txtsatuan
TextBox 5 Name Txtjenis
CommandButton1 Name Cmdcari Text Cari
CommandButton1 Name Cmdsimpan Text Simpan
CommandButton1 Name Cmdubah Text Ubah
CommandButton1 Name Cmdhapus Text Hapus
CommandButton1 Name Cmdbatal Text Batal
CommandButton1 Name Cmdkeluar Text Keluar
3. Copy pastekan listing kode di bawah ini apabila sobat tidak mau report :


Option Explicit
Dim panjang As Integer
Dim hapus, kode As String
Sub bersih()
txtkd.Text = ""
txtnm.Text = ""
txtjumlah.Text = ""
txtsatuan.Text = ""
txtjenis.Text = ""
cmdsimpan.Enabled = True
cmdubah.Enabled = False
cmdhapus.Enabled = False
End Sub
Private Sub cmdbatal_Click()
Call bersih
txtkd.SetFocus
End Sub
Private Sub cmdcari_Click()
kode = InputBox("Masukkan kode barang", "Pencarian")
If kode = "" Then Exit Sub
On Error Resume Next
Call Koneksi_Database
sql = "select * from barang where kd_barang ='" & kode & "'"
rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic
If rs.EOF = False Then
txtkd.Text = rs.Fields("kd_barang")
txtnm.Text = rs.Fields("nm_barang")
txtjumlah.Text = rs.Fields("jml_barang")
txtsatuan.Text = rs.Fields("satuan")
txtjenis.Text = rs.Fields("jns_flute")
cmdsimpan.Enabled = False
cmdubah.Enabled = True
cmdhapus.Enabled = True
Else
MsgBox "Data tidak ditemukan", vbInformation, "Message"
End If
End Sub
Private Sub cmdhapus_Click()
Call Koneksi_Database
sql = "delete from barang where kd_barang = '" & txtkd.Text & "'"
db.Execute (sql)
Call bersih
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdsimpan_Click()
If txtkd.Text = "" Then txtkd.SetFocus: Exit Sub
If txtnm.Text = "" Then txtnm.SetFocus: Exit Sub
If txtjumlah.Text = "" Then txtjumlah.SetFocus: Exit Sub
If txtsatuan.Text = "" Then txtsatuan.SetFocus: Exit Sub
If txtjenis.Text = "" Then txtjenis.SetFocus: Exit Sub
Call Koneksi_Database
sql = "select * from barang where kd_barang ='" & txtkd.Text & "'"
rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic
If rs.EOF = False Then
MsgBox "Data Sudah Ada", vbInformation + vbOKOnly, "Pesan"
Call bersih: Exit Sub
Else
Call Koneksi_Database
sql = "insert into barang values('" & txtkd.Text & "','" & txtnm.Text & "','" & _
Val(txtjumlah.Text) & "','" & txtsatuan.Text & "','" & txtjenis.Text & "')"
db.Execute (sql)
Call bersih
End If
End Sub
Private Sub cmdubah_Click()
If txtkd.Text = "" Then txtkd.SetFocus: Exit Sub
If txtnm.Text = "" Then txtnm.SetFocus: Exit Sub
If txtjumlah.Text = "" Then txtjumlah.SetFocus: Exit Sub
If txtsatuan.Text = "" Then txtsatuan.SetFocus: Exit Sub
If txtjenis.Text = "" Then txtjenis.SetFocus: Exit Sub
Call Koneksi_Database
sql = "update barang set nm_barang ='" & txtnm.Text & "',jml_barang ='" & _
Val(txtjumlah.Text) & "',satuan='" & txtsatuan.Text & "',jns_flute ='" & _
txtjenis.Text & "' where kd_barang ='" & txtkd.Text & "'"
db.Execute (sql)
Call bersih
End Sub
Private Sub Form_Activate()
txtkd.SetFocus
End Sub
Private Sub Form_Load()
Call bersih
Me.Top = 2500
Me.Left = 3750
End Sub

Private Sub txtjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtsatuan.SetFocus
End Sub
Private Sub txtsatuan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtjenis.SetFocus
End Sub
Private Sub txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtjumlah.SetFocus
End Sub
Private Sub txtjenis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmdsimpan.SetFocus
End Sub

4. Simpan Form Data Barang dengan nama formdatabrg di Folder Persediaan Barang dimana Project & Database Persediaan Barang dibuat

Untuk lebih jelasnya sobat bisa download listing program dengan format .docx didalam kemasan .rar, Apabila belum memiliki software untuk extrac .rar/.zip download disini

Link Download Contoh project, [.dll],[.ocx] 

 


Artikel terkait :

3 komentar:

Anonim mengatakan...

mau tanya min,,kalo kita memasukan kode barang apa langsung otomatis nama barangnya muncul???saya butuh yang seperti itu

Unknown mengatakan...

Itu langsung muncul gan...
tinggal rubah pada : "Private Sub cmdcari_Click()"
dimana ini saya menggunakan commond button, kalo mau langsung terisi apabila recordcount > 0 silahkan gunakan parameter tersebut pada "private sub text1_change ()" maka setiap agan mengetikkan di kolom text1 maka system akan mencari apakah ada dalam daftar db_nya, kalo ada akan ditampilkan kalo tidak ada maka akan dikosongkan...
Terimakasih...
semoga membantu...
maaf terlabat balas... karena lagi sok sibuk...
heheheee...canda...

Unknown mengatakan...

saya udah nyoba masukin kode barangnya di pencarian tapi ko gak muncul ya,yang ada malah muncul pesan data tidak ditemukan
mohon petunjuknya

Posting Komentar

Say: Berkomentarlah dengan baik dan sopan...dan jangan gunakan SPAM untuk blog ini...Terima kasih [by.admin]