Headlines News
Home » » Membuat Program Pembelian Barang Menggunakan VB 6.0

Membuat Program Pembelian Barang Menggunakan VB 6.0



 Program Pembelian Barang

Merelasikan data merupakan suatu hal yang sangat diperlukan
dalam mengolah database. Pada kesempatan kali ini Anda akan 
mencoba membuat relasi data dalam sebuah aplikasi pembelian dan
tabel yang akan digunakan adalah tabel barang, pemasok dan tabel
beli. Jika kode barang diketik maka akan muncul nama barang,
harga satuan dan jumlah stok yang tersedia. Begitu juga jika
mengetik kode pemasok maka akan muncul nama pemasok,
alamat, nomor telepon dan relasi yang dapat dihubungi.

Akan tetapi jika kode barang yang diketik tidak ada, akan muncul
komentar bahwa data barang belum terdaftar, kemudian pertanyaan
apakah data baru ini akan langsung diinput atau tidak. Jadi dengan
program ini kita dapat langsung mengentri data barang tanpa harus
membuka form pengolahan data barang. Hal yang sama terjadi pada
pemasok. Jika kode pemasok tidak terdaftar pada tabel pemasok,
akan muncul pertanyaan apakah data pemasok baru akan langsung
diinput atau tidak. Selain itu data pembelian ini akan langsung
mengubah jumlah data barang yang ada.

Inilah salah satu kelebihan yang ada pada program yang akan
dibuat, dengan satu form (Pembelian) kita dapat langsung mengentri

data barang dan data pemasok jika ternyata kode barang dan kode
pemasoknya belum terdaftar pada kedua tabel tersebut dan jumlah
barang langsung di-update, kemudian data pembelian ini akan
disimpan pada tabel beli.

Perhatikan dengan baik rancangan tabel beli yang pernah dibuat. Di
dalamnya terdapat field kode barang dan kode pemasok dengan
field-field tersebut merupakan field kunci pada tabel barang dan tabel
pemasok. Dengan teknik seperti ini maka tabel beli mampu
mengambil data yang diperlukan dari tabel barang dan tabel
pemasok tersebut. Untuk mencoba program pembelian, rancanglah
sebuah form dengan bentuk seperti gambar di bawah ini: 



Gambar 4.1 Menu Pembelian Barang




Nama  Obyek                                     Properti                                   Seting
Text1                                                     Name                                    TxtNoFaktur
Text2                                                     Name                                    TxtKodeBrg
Text3                                                     Name                                    TxtHarga
Text4                                                     Name                                   TxtKodePms
Text5                                                     Name                                    TxtTelp
Text6                                                     Name                                    TxtJumBeli
Text7                                                     Name                                    TxtTglFaktur
Text8                                                     Name                                    TxtNamaBrg
Text9                                                     Name                                    TxtStokBrg
Text10                                                   Name                                    TxtNamaPms
Text11                                                   Name                                    TxtAlamat
Text12                                                   Name                                    TxtRelasi
Text13                                                   Name                                   TxtTotal
Text14                                                   Name                                    JmlData
Command1                                           Name                                    Cmdinput
             Caption                                 &Input
Command2                                           Name                                    CmdTutup
             Caption                                 &Tutup
Data1                                                    Name                                    Data1
             DatabaseName                     C:\Belajar VB\Master.mdb
             Caption                                 Brg
             RecordSource                       Barang
             RecordsetType                      0 – Table

Data2                                                    Name                                    Data2
              DatabaseName                     C:\Belajar VB\Master.mdb
             Caption                                Pms
             RecordSource                      Pemasok
             RecordsetType                     0-Table
Data3                                                    Name                                   Data3
             DatabaseName                     C:\Belajar VB\Master.mdb
            Caption                                  Beli
            RecordSource                        Beli
            RecordsetType                       0-Table

Code Program Vb Tolong Di perhatikan Ya:
‘Fungsi untuk mencari jumlah data
Function JumlahData()
mjumlah = Data3.Recordset.RecordCount
JmlData = mjumlah
End Function
Private Sub Form_activate()
txtnofaktur.MaxLength = 6
txtkodebrg.MaxLength = 6
txtharga.MaxLength = 8
txtkodepms.MaxLength = 6
txttelpon.MaxLength = 8
txtjumbeli.MaxLength = 4
txttglfaktur.MaxLength = 8
txtnamabrg.MaxLength = 30
txtstokbrg.MaxLength = 4
txtnamapms.MaxLength = 30
txtalamat.MaxLength = 30
txtrelasi.MaxLength = 15
txttotal.MaxLength = 8
tidaksiapisi
cmdinput.SetFocus
JumlahData
End Sub
Private Sub cmdinput_click()
If cmdinput.Caption = "&Input" Then
cmdinput.Caption = "&Simpan"
cmdtutup.Caption = "&Batal"
siapisi
txtnofaktur.SetFocus
Else
If txtnofaktur = Empty Then
pesan = MsgBox("Nomor Faktur Tidak Boleh Kosong", & _
0, "Informasi")
txtnofaktur.SetFocus
Else
With Data3.Recordset
.AddNew
!NoFaktur = txtnofaktur
!TglFaktur = txttglfaktur
!kodebrg = txtkodebrg
!kodepms = txtkodepms
!jmlbeli = txtjumbeli
.Update
End With
With Data1.Recordset
.Index = "barangdex"
.Seek "=", txtkodebrg
If .NoMatch Then
.AddNew
!kodebrg = txtkodebrg
!namabrg = txtnamabrg
!harga = txtharga
!Jumlah = txtjumbeli
.Update
Else
.Edit
!Jumlah = !Jumlah + txtjumbeli
.Update
End If
End With
With Data2.Recordset
.Index = "Pemasokdex"
.Seek "=", txtkodepms
If .NoMatch Then
.AddNew
!kodepms = txtkodepms
!namapms = txtnamapms
!AlamatPms = txtalamat
!TelponPms = txttelpon
!RelasiPms = txtrelasi
.Update
End If
End With
Data1.Refresh
Data2.Refresh
Data3.Refresh
End If
End If
End Sub
Private Sub txtnofaktur_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
txttglfaktur = Date
txtkodebrg.SetFocus
End If
End Sub
Private Sub txttglfaktur_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtkodebrg.SetFocus
End If
End Sub
Private Sub txtkodebrg_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
With Data1.Recordset
.Index = "barangdex"
.Seek "=", txtkodebrg
If Not .NoMatch Then
txtnamabrg.Enabled = False
txtharga.Enabled = False
txtstokbrg.Enabled = False
txtnamabrg = Data1.Recordset!namabrg
txtharga = Data1.Recordset!harga
txtstokbrg = Data1.Recordset!Jumlah
txtkodepms.SetFocus
Else
x = MsgBox("Kode Barang Tidak Ada, Data Barang & _
Langsung Dientri...!", vbYesNo, "Konfirmasi")
If x = vbYes Then
txtnamabrg.Enabled = True
txtharga.Enabled = True
txtstokbrg.Enabled = True
txtnamabrg = ""
txtharga = ""
txtstokbrg = ""
txtnamabrg.SetFocus
Else
txtkodebrg.SetFocus
End If
End If
End With
End If
End Sub
Private Sub txtkodepms_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
With Data2.Recordset
.Index = "pemasokdex"
.Seek "=", txtkodepms
If Not .NoMatch Then
txtnamapms.Enabled = False
txttelpon.Enabled = False
txtalamat.Enabled = False
txtrelasi.Enabled = False
txtnamapms = Data2.Recordset!namapms
txttelpon = Data2.Recordset!TelponPms
txtalamat = Data2.Recordset!AlamatPms
txtrelasi = Data2.Recordset!RelasiPms
txtjumbeli.Enabled = True
txtjumbeli.SetFocus
Else
x = MsgBox("Kode Pemasok Tidak Ada, Apakah & _
akan Langsung Diinput...?", vbYesNo, "Konfirmasi")
If x = vbYes Then
siapisi
txtnamapms.SetFocus
Else
txtkodepms.SetFocus
End If
End If
End With
End If
End Sub
Private Sub txtnamabrg_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
txtharga.SetFocus
End If
End Sub

Private Sub txtharga_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
With Data1.Recordset
.Index = "barangdex"
.Seek "=", txtkodebrg
If .NoMatch Then
txtkodepms.SetFocus
End If
End With
End If
End Sub

Private Sub txtnamapms_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
txttelpon.SetFocus
End If
End Sub

Private Sub txttelpon_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub
Private Sub txtalamat_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
txtrelasi.SetFocus
End If
End Sub

Private Sub txtrelasi_keypress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
txtjumbeli.SetFocus
End If
End Sub

Private Sub cmdtutup_Click()
Select Case cmdtutup.Caption
Case "&Tutup"
End
Case "&Batal"
kosongkan
tidaksiapisi
semula
End Select
End Sub

Private Sub kosongkan()
Dim Ctl As Control
For Each Ctl In Me
If TypeName(Ctl) = "TextBox" Then
Ctl.Text = ""
End If
Next
End Sub

Private Sub tampilkan()
tidaksiapisi
With Data3.Recordset
txtnofaktur = !NoFaktur
txtkodebrg = !kodebrg
txtharga = !harga
txttelpon = !TelponPms
txtrealsi = !RelasiPms
End With
End Sub

Private Sub siapisi()
Dim x As Control
For Each x In Me


If TypeName(x) = "TextBox" Then
x.Enabled = True
End If
Next
End Sub
Private Sub tidaksiapisi()
Dim x As Control
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = True
End If
Next
End Sub
Private Sub semula()
cmdinput.Caption = "&Input"
cmdtutup.Caption = "&Tutup"
cmdinput.Enabled = True
cmdtutup.Enabled = True
End Sub

Private Sub txtjumbeli_Change()
txttotal.Enabled = False
txttotal = Val(txtjumbeli) * Val(txtharga)
End Sub

Private Sub txtjumbeli_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdinput.SetFocus
End If
End Sub

Penjelasan Program:
With Data1.Recordset
.Index = "barangdex"
.Seek "=", txtkodebrg
If .NoMatch Then
.AddNew
!kodebrg = txtkodebrg
!namabrg = txtnamabrg
!harga = txtharga
!Jumlah = txtjumbeli
.Update
Else
.Edit
!Jumlah = !Jumlah + txtjumbeli
.Update
End If
End With

Potongan program ini berarti pada saat cmdinput diklik dan data
barang tidak ditemukan maka entrilah data baru tersebut, tapi jika
data barang ditemukan maka editlah jumlahnya dengan cara
menambahkan jumlah pembelian ke tabel barang (field jumlah).

Private Sub kosongkan()
Dim Ctl As Control
For Each Ctl In Me
If TypeName(Ctl) = "TextBox" Then
Ctl.Text = ""
End If
Next
End Sub

Sub program ini menyimpan semua control ke dalam variabel Ctl,
dan jika nama control tersebut terbuat dari TextBox, kosongkanlah
isi yang ada di dalamnya. Cara ini lebih efektif digunakan
dibandingkan dengan mengosongkan semua text seperti cara yang
pernah dibicarakan pada Bab I. Jika ada control lain yang digunakan
dalam form ini, Anda tinggal menambahkan nama dari control yang
digunakan itu. Misalnya Combobox, DBCombo dan lain-lain.
Contoh:
Private Sub kosongkan()
Dim Ctl As Control
For Each Ctl In Me
If TypeName(Ctl) = "TextBox" Then
Ctl.Text = ""
End If
If TypeName(Ctl) = "ComboBox" Then
Ctl.Text = ""
End If
If TypeName(Ctl) = "DBCombo" Then
Ctl.Text = ""
End If
Next
End Sub

Private Sub siapisi()
Dim x As Control
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = True
End If
Next
End Sub

Perhatikan sub program di atas. Pada dasarnya sub program tersebut
sama dengan sub program Kosongkan. Perbedaanya terletak pada
kondisi apa yang diinginkan pada control tersebut, dalam hal ini
semua control dapat digunakan, maka perintah yang diberikan
adalah Enabled=True.
Nah Begitu Sobat Blogger Isi dari Materi kita kali ini gimana Mudah dan sulit kan heheheh jangan menyerah kalau kita mau berusaha serius untuk belajar pasti bias kan walau Copy Pass setidak nya kita berusaha belajar sedikit-sedikit pasti bias dari pada tidak mempelajari sama sekali Benar tidaka ok kalu ingin Materi lebih lanjut dan terperinci Silahkan Download Di sini


Sobat sedang membaca artikel Aplikasi Online tentang Membuat Program Pembelian Barang Menggunakan VB 6.0 dan Sobat bisa menemukan artikel Membuat Program Pembelian Barang Menggunakan VB 6.0 ini dengan url Sobat boleh menyebar luaskannya atau mengcopy paste-nya jika artikel Membuat Program Pembelian Barang Menggunakan VB 6.0 ini sangat bermanfaat bagi teman-teman, namun jangan lupa untuk meletakkan link Membuat Program Pembelian Barang Menggunakan VB 6.0 sumbernya.

Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di Creating Website

1 comments:

Post a Comment

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Free Aplikasi Full Version - All Rights Reserved
Template Modify by Creating Website
Proudly powered by Blogger