Membuat Program penjualan barang menggunakan vb dan access

Pertama-tama kita akan membuat database dengan Microsoft access. kita membuat database dengan nama database.accdb, kita simpan di folder sendiri. Buat table dengan nama barang dengan field-field antara lan :

Field Name	Data Type	Field Size
Kode_Barang	Text	255
Nama_Barang	Text	255
Jenis_Barang	Text	255
Harga_Barang	Text	255
Jumlah_Barang	Text	255
Keterangan	Text	255

Jadikan Jenis_Barang, Harga_Barang, Jumlah_Barang, dan Keterangan sebagai primary key. Kemudian di save

SEKARANG KITA MULAI BEKERJA DENGAN VB

Contoh gambar yang akan kita buat:

Form1

1.    Buka VB 6

2.    Pilih Standard exe

3.    Klik OK

4.    Tambahkan komponen datagrid caranya

5.    Klik Menu Project

6.    Pilih Components

7.    Kemudian Checkbox Microsoft DataGrid Control 6.0 (OLEDB)

8.    Klik OK

9.    Tambahkan library : Klik project -> references

10.  Pilih Microsoft ActiveX data Object 2.0 Library dan Microsoft ActiveX data Object Recordset 2.8 Library-> OK.

11.  Kemudian tambahkan Module caranya klik kanan pada projek explorer lihat pada gambar

12.  Kemudian klik OK

 

13.  Masukan Objek-objek ini pada form1 :

No	Tool	Name	Caption/Text
1	Form	Form1	PROGRAM PENJUALAN BARANG
1	Label	Label1	PROGRAM PENJUALAN BARANG DI PETRA COMPUTER
2	Label	Label2	Kode Barang
3	Label	Label3	Nama Barang
4	Label	Label4	Jenis Barang
5	Label	Label5	Harga Barang
6	Label	Label6	Jumlah Barang
7	Label	Label6	Keterangan
8	TextBox	Text1	-
9	TextBox	Text2	-
10	TextBox	Text3	-
11	TextBox	Text4	-
12	TextBox	Text5	-
13	TextBox	Text6	-
14	CommandButton	Command1	Tambah
15	CommandButton	Command2	Simpan
16	CommandButton	Command3	Hapus
17	CommandButton	Command4	Keluar
18	CommandButton	Command5	Penghitung Barang
19	CommandButton	Command6	Cari
20	CommandButton	Command7	Refresh
21	DataGrid	DataGrid1	-

14.  Kita buka modul, kita tambahkan syntax sebagai berikut :

Public con As New ADODB.Connection

Public rs As New ADODB.Recordset

Public com As New ADODB.Command

'Prosedure untuk koneksi ke access

Public Sub konekdb()

Set con = New ADODB.Connection

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=database.accdb;Persist Security Info=False"

con.CursorLocation = adUseClient

End Sub

Public Sub penjualanbarang()

Set rs = New ADODB.Recordset

rs.Open "select * from barang", con, adOpenDynamic, adLockOptimistic

End Sub

Public Sub insert(Kode_Barang As String, Nama_Barang As String, Jenis_Barang As String, Harga_Barang As String, Jumlah_Barang As String, Keterangan As String)

'aktifkan koneksi

com.ActiveConnection = con

'insert ke dalam tabel

com.CommandText = "insert into Barang(Kode_Barang,Nama_Barang,Jenis_Barang,Harga_Barang,Jumlah_Barang,Keterangan)" & _

"values('" & Kode_Barang & "','" & Nama_Barang & "','" & Jenis_Barang & "','" & Harga_Barang & "','" & Jumlah_Barang & "','" & Keterangan & "')"

'type perintah

com.CommandType = adCmdText

'eksekusi

com.Execute

'refresh

rs.Requery

End Sub

15.  Nah dan ini listing program untuk formnya :

Dim caridata As String

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Command5_Click()

Form2.Show

End Sub

Private Sub Command6_Click()

caridata = InputBox("Masukkan Nama Barang", "Cari Data")

If rs.State = adStateOpen Then rs.Close

rs.Open

 "select * from barang where Nama_Barang='" & caridata & "'", con, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = rs

End Sub

Private Sub bukabarang()

    If rs.State = adStateOpen Then rs.Close

    rs.Open "select * from Barang ", con, adOpenDynamic, adLockOptimistic

    Set DataGrid1.DataSource = rs

End Sub

Private Sub tampilbarang()

  With rs

    Text1.Text = IIf(.BOF Or .EOF, "", IIf(IsNull(!Kode_Barang), "", !Kode_Barang))

    Text2.Text = IIf(.BOF Or .EOF, "", IIf(IsNull(!Nama_Barang), "", !Nama_Barang))

    Text3.Text = IIf(.BOF Or .EOF, "", IIf(IsNull(!Jenis_Barang), "", !Jenis_Barang))

    Text4.Text = IIf(.BOF Or .EOF, "", IIf(IsNull(!Harga_Barang), "", !Harga_Barang))

    Text5.Text = IIf(.BOF Or .EOF, "", IIf(IsNull(!Jumlah_Barang), "", !Jumlah_Barang))

    Text6.Text = IIf(.BOF Or .EOF, "", IIf(IsNull(!Keterangan), "", !Keterangan))

  End With

End Sub

Private Sub Command7_Click()

bukabarang

tampilbarang

End Sub

Private Sub Form_Load()

'panggil procedure konek

konekdb

'seleksi tabel

penjualanbarang

'konekkan dengan object rs

    bukabarang

    tampilbarang

Set DataGrid1.DataSource = rs

End Sub

'tambah data

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = "0"

Text5.Text = "0"

Text6.Text = ""

Text1.SetFocus

End Sub

'simpan data

Private Sub Command2_Click()

Call insert(Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text5.Text, Text6.Text)

End Sub

'hapus data

Private Sub Command3_Click()

If Not (rs.EOF Or rs.BOF) Then

rs.Delete

Else

MsgBox "data tidak ada"

End If

End Sub

16.  Kemudian di save

17.  Run  (F5) Maka akan Tampil

Form1 Selesai

Selanjutnya Kita Buat Form Program Penghitungan Baraang

Conto Tampilan Form2 :

1.    Klik kanan pada Projct explorer  > add > Form

2.    Kemudian Klik OK

3.    Masukan Objek-objek ini pada form2 :

No	Tool	Name	Caption/Text
1	Form	Form2	Program Penghitungan Barang
2	Label	Label1	Program Penghitungan Barang
3	Label	Label2	Jumlah Barang
4	Label	Label3	Harga Barang
5	Label	Label4	Diskon
6	Label	Label6	Jam
7	TextBox	Text1	-
8	TextBox	Text2	-
9	TextBox	Text3	-
10	TextBox	Text4	-
11	CommandButton	Command1	Proses
12	CommandButton	Command2	Kembali

4.    Masukan listing program  pada form2 :

Private Sub Command1_Click()

Dim a, b, c As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Text4.Text = (a * b) - (a * b * c) / 100

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

5.    Run  (F5) Maka akan Tampil

Form2 Selesai