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 BarangLabel 1 Caption Kode Barang :Label 2 Caption Nama Barang :Label 3 Caption Jumlah Barang :Label 4 Caption Satuan :Label 5 Caption Jenis FluteTextBox 1 Name TxtkdTextBox 2 Name TxtnmTextBox 3 Name TxtjumlahTextBox 4 Name TxtsatuanTextBox 5 Name TxtjenisCommandButton1 Name Cmdcari Text CariCommandButton1 Name Cmdsimpan Text SimpanCommandButton1 Name Cmdubah Text UbahCommandButton1 Name Cmdhapus Text HapusCommandButton1 Name Cmdbatal Text BatalCommandButton1 Name Cmdkeluar Text Keluar
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]
Tweet |
3 komentar:
mau tanya min,,kalo kita memasukan kode barang apa langsung otomatis nama barangnya muncul???saya butuh yang seperti itu
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...
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]