Membuat Aplikasi Persediaan Barang Menggunakan Database di Visual Basic 6.0

Assalamu'alaykum Warrahmatullahi Wabarakatuh

   Berikut dijabarkan mengenai prosedur pembuatan program menggunakan database di Visual Basic 6.0. Sebagai contoh pemrograman yang bertema mengenai database persediaan barang untuk stock jual beli. Berdasarkan pemahaman yang dipelajari, dalam pemrograman ini saya menggunakan beberapa komponen sederhana seperti Microsoft Access sebagai basenya dan AdoDC sebagai connector. Akan tetapi masih banyak beberapa kombinasi (concatenation) komponen yang bisa pembaca kreasikan sesuai dengan kebutuhan program.

    Prosedur pembuatannya adalah sebagai berikut :

1. Buka Visual Basic 6.0

2. Pilih standard EXE

3. Tambahkan komponen Microsoft Ado Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) dengan cara klik kanan pada ToolBox >> Components >> Ceklis pada Microsoft Ado Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) >> Apply >> OK

4. Buatlah 3 buah Database. Caranya seperti berikut :

Pada Database pertama :

a. Pilih Add-Ins pada menubar

b. Pilih Visual Data Manager

c. Setelah masuk padaVisData, pilih File >> New >> Microsoft Access >>    Version 7.0 MDB.

d. Selanjutnya akan muncul “Select Microsoft Access Database to Create”. Tentukan tempat atau lokasi untuk menyimpan Database yang akan dibuat.

e. Ketik pada File name untuk nama, kemudian buat nama Database tersebut sesuai keinginan, misalnya “List_Barang”

f. Klik Save

g. Kembali ke program VisData

h. Masukkan pada Database Windows untuk membuat Table dengan cara klik kanan pada Database Windows, pilih New Table

i. Akan muncul menu Table Struktur. Pada Table Name untuk membuat nama Tabel disini kita buat dengan nama “List_Barang”

j. Masuk pada Field dengan klik Add Field, akan muncul menu Add Field

k. Ketik pada Name untuk membuat field, pada Database pertama buat Tanggal, Jam, Kode_Barang, Nama_Barang, Jenis_Barang, Harga_Barang, Stok_Barang, Keterangan (Untuk penulisan nama field tidak boleh memakai spasi, untuk spasi bisa diganti dengan menggunakan underscore). Tentukan type dari field misalnya : Text, Size 13, Klik OK.

l. Setelah selesai menambahkan field, Pilih Close.

m. Maka akan tampil menu Table Struktur, kemudian kembali ke Menu Utama dan Database pertama telah selesai dibuat. Tabel List_Barang yang dibuat tadi telah bisa digunakan. Klik Close.

Pada Database kedua :

a. Pilih Add-Ins pada menubar

b. Pilih Visual Data Manager

c. Setelah masuk padaVisData, pilih File >> New >> Microsoft Access >>    Version 7.0 MDB.

d. Selanjutnya akan muncul “Select Microsoft Access Database to Create”. Tentukan tempat atau lokasi untuk menyimpan Database yang akan dibuat.

e. Ketik pada File name untuk nama, kemudian buat nama Database tersebut sesuai keinginan, misalnya “Hasil_Barang”

f. Klik Save

g. Kembali ke program VisData

h. Masukkan pada Database Windows untuk membuat Table dengan cara klik kanan pada Database Windows, pilih New Table

i. Akan muncul menu Table Struktur. Pada Table Name untuk membuat nama Tabel disini kita buat dengan nama “Kasir”

j. Masuk pada Field dengan klik Add Field, akan muncul menu Add Field

k. Ketik pada Name untuk membuat field, pada Database kedua buat Tanggal, Jam, Nama_Barang, Jenis_Barang, Harga_Barang, Sisa_Stok, Keterangan (Untuk penulisan nama field tidak boleh memakai spasi, untuk spasi bisa diganti dengan menggunakan underscore). Tentukan type dari field misalnya : Text, Size 13, Klik OK.

l. Setelah selesai menambahkan field, Pilih Close.

m. Maka akan tampil menu Table Struktur, kemudian kembali ke Menu Utama dan Database kedua telah selesai dibuat. Tabel Kasir yang dibuat tadi telah bisa digunakan. Klik Close.

Pada Database ketiga:

a. Pilih Add-Ins pada menubar

b. Pilih Visual Data Manager

c. Setelah masuk padaVisData, pilih File >> New >> Microsoft Access >>    Version 7.0 MDB.

d. Selanjutnya akan muncul “Select Microsoft Access Database to Create”. Tentukan tempat atau lokasi untuk menyimpan Database yang akan dibuat.

e. Ketik pada File name untuk nama, kemudian buat nama Database tersebut sesuai keinginan, misalnya “Pendapatan”

f. Klik Save

g. Kembali ke program VisData

h. Masukkan pada Database Windows untuk membuat Table dengan cara klik kanan pada Database Windows, pilih New Table

i. Akan muncul menu Table Struktur. Pada Table Name untuk membuat nama Tabel disini kita buat dengan nama “Pendapatan”

j. Masuk pada Field dengan klik Add Field, akan muncul menu Add Field

k. Ketik pada Name untuk membuat field, pada Database ketiga buat Tanggal, Jam, Pendapatan (Untuk penulisan nama field tidak boleh memakai spasi, untuk spasi bisa diganti dengan menggunakan underscore). Tentukan type dari field misalnya : Text, Size 13, Klik OK.

l. Setelah selesai menambahkan field, Pilih Close.

m. Maka akan tampil menu Table Struktur, kemudian kembali ke Menu Utama dan Database ketiga telah selesai dibuat. Tabel Pendapatan yang dibuat tadi telah bisa digunakan. Klik Close.

5. Buatlah 1 buah module, kemudian tuliskan kode di bawah ini :

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 = List_Barang.mdb ; Persist Security Info = False"

con.CursorLocation = adUseClient

End Sub

Public Sub penjualanbarang()

Set rs = New ADODB.Recordset

rs.Open "select * from List_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, Stok_Barang As String, Keterangan As String)

'aktifkan koneksi

com.ActiveConnection = con

'insert ke dalam tabel

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

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

'type perintah

com.CommandType = adCmdText

'eksekusi

com.Execute

'refresh

rs.Requery

Dim caridata As String

End Sub

Private Sub bukabarang()

If rs.State = adStateOpen Then rs.Close

rs.Open "select * from List_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(!Stok_Barang), "", !Stok_Barang))

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

End With

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

6. Buatlah 3 buah Form

Pada Form 1 :

Atur Propertiesnya sebagai berikut :

No.	Object	Properties	Nilai
1.	Label1	Caption	Data Persediaan Barang
2.	Label2	Caption	Kode Barang
3.	Label3	Caption	Nama Barang
4.	Label4	Caption	Jenis Barang
5.	Label5	Caption	Harga Barang
6.	Label6	Caption	Stok Barang
7.	Label7	Caption	Keterangan
8.	Label8	Caption	Toko Buku dan ATK Endarto
9.	Label9	Caption
10.	Text1	Text
11.	Text2	Text
12.	Text3	Text
13.	Text4	Text
14.	Text5	Text
15.	Text6	Text
16.	Timer1	Interval	100
17.	Adodc	Name	Adodc1
		Visible	False
18.	DataGrid	Name	DataGrid1

Buat Pop-Up Menu dengan cara tekan Ctrl+E pada keyboard dan atur Propertiesnya sebagai berikut :

Caption	Name	Letak
&File	mnFile	&File
Exit	mnExit	....Exit
&Edit	mnEdit	&Edit
Cari	mnCari	....Cari
Simpan	mnSimpan	....Simpan
Tambah	mnTambah	....Tambah
Refresh	mnRefresh	....Refresh
Hapus	mnHapus	....Hapus
&View	mnView	&View
Penghitungan Barang	mnPenghitunganBarang	....Penghitungan Barang

Kemudian koneksikan Database yang kita buat tadi dengan menggunakan Adodc, caranya sebagai berikut :

1. Aktifkan Adodc

2. Pada Properties Window pilih Connection String

3. Akan muncul menu Property Pages

4. Pilih Build

5. Akan muncul menu Data Link Properties, pilih Microsoft Jet 4.0 OLE DB Provider, pilih Next >>

6. Selanjutnya akan muncul menu Connection, kemudian pada icon Browse silakan cari tempat Database tadi disimpan, maka akan muncul menu Select Access Database, cari Database (misalnya : List_Barang)

7. Kembali ke menu utama Data Link Properties, pilih Test Connection dan tunggu sampai Success lalu OK.

8. Kembali ke menu utama Property Pages, pilih Apply, kemudian pilih RecordSource, maka akan muncul tampilan Record Source, pada Command Type ganti menjadi : 2. adCmdTable, pada Table or Stored Procedure Nama tentukanlah nama Tabel yang akan dikoneksikan (misalnya : List_Barang)

9. Pilih Apply lalu OK.

10. Setelah terkoneksi, tampilkan Database pada Tabel DataGrid caranya Aktifkan DataGrid >> Klik DataSource pada Properties Window >> Koneksikan Database pada DataGrid dengan cara meletakkan pointer tepat pada DataGrid lalu klik kanan dan pilih Retrieve Fields.

11. Setelah semuanya selesai, tuliskan kode dibawah ini dan Form 1 telah selesai dibuat.

Kode pada Form 1 :

Dim caridata As String

Private Sub mnCari_Click()

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

If rs.State = adStateOpen Then rs.Close

rs.Open "select * from List_Barang where Nama_Barang='" & caridata & "'", con, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = rs

End Sub

Private Sub mnExit_Click()

Endarto = MsgBox("Yakin Ingin Keluar ??", vbInformation + vbOKCancel, "Perhatian!!")

If Endarto = vbCancel Then

Exit Sub

Else

If Endarto = vbOK Then

End

End If

End If

End Sub

'hapus data

Private Sub mnHapus_Click()

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

rs.Delete

Else

MsgBox "Data tidak ada. . !"

End If

'hapus

End Sub

Private Sub mnPenghitunganBarang_Click()

Form2.Show

End Sub

Private Sub bukabarang()

If rs.State = adStateOpen Then rs.Close

rs.Open "select * from List_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(!Stok_Barang), "", !Stok_Barang))

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

End With

End Sub

Private Sub mnRefresh_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

'simpan data

Private Sub mnSimpan_Click()

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

End Sub

'tambah data

Private Sub mnTambah_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = "0"

Text5.Text = "0"

Text6.Text = ""

Text1.SetFocus

End Sub

Pada Form 2 :

Atur Propertiesnya sebagai berikut :

No.	Object	Properties	Nilai
1.	Label1	Caption	Transaksi Penjualan
2.	Label2	Caption	Nama Barang
3.	Label3	Caption	Jenis Barang
4.	Label4	Caption	Harga Barang
5.	Label5	Caption	Jumlah
6.	Label6	Caption	Stok
7.	Label7	Caption	Keterangan
8.	Label8	Caption	Total Bayar
9.	Label9	Caption	Sisa Stok
10.	Label10	Caption
11.	Label11	Caption
12.	Text1	Text
13.	Text2	Text
14.	Text3	Text
15.	Text4	Text
16.	Text5	Text
17.	Text6	Text
18.	Command1	Caption	HITUNG
19.	Adodc	Name Visible	Adodc2 False
20.	DataGrid	Name	DataGrid2

Buat Pop-Up Menu dengan cara tekan Ctrl+E pada keyboard dan atur Propertiesnya sebagai berikut :

Caption	Name	Letak
&Kembali	mnKembali	&Kembali
&Edit	mnEdit	&Edit
Simpan	mnSimpan	....Simpan
Hapus	mnHapus	....Hapus

Kemudian koneksikan Database yang kita buat tadi dengan menggunakan Adodc, caranya sebagai berikut :

1. Aktifkan Adodc

2. Pada Properties Window pilih Connection String

3. Akan muncul menu Property Pages

4. Pilih Build

5. Akan muncul menu Data Link Properties, pilih Microsoft Jet 4.0 OLE DB Provider, pilih Next >>

6. Selanjutnya akan muncul menu Connection, kemudian pada icon Browse silakan cari tempat Database tadi disimpan, maka akan muncul menu Select Access Database, cari Database (misalnya : Hasil_Barang)

7. Kembali ke menu utama Data Link Properties, pilih Test Connection dan tunggu sampai Success lalu OK.

8. Kembali ke menu utama Property Pages, pilih Apply, kemudian pilih RecordSource, maka akan muncul tampilan Record Source, pada Command Type ganti menjadi : 2. adCmdTable, pada Table or Stored Procedure Nama tentukanlah nama Tabel yang akan dikoneksikan (misalnya : Kasir)

9. Pilih Apply lalu OK.

10. Setelah terkoneksi, tampilkan Database pada Tabel DataGrid caranya Aktifkan DataGrid >> Klik DataSource pada Properties Window >> Koneksikan Database pada DataGrid dengan cara meletakkan pointer tepat pada DataGrid lalu klik kanan dan pilih Retrieve Fields.

11. Setelah semuanya selesai, tuliskan kode dibawah ini dan Form 2 telah selesai dibuat.

Kode pada Form 2 :

Private sub_rs As New ADODB.Recordset

Private Sub Command1_Click()

Label10.Caption = Val(Text3.Text) * Val(Text4.Text)

Label11.Caption = Val(Text5.Text) - Val(Text4.Text)

If Val(Label11.Caption) < 0 Then

MsgBox "Jumlah Barang yang dibeli melampaui Stok !!", vbInformation, "Perhatian"

Text3.Text = ""

Text4.Text = ""

Label10.Caption = ""

Label11.Caption = ""

Exit Sub

End If

Form3.Show

With Adodc2.Recordset

.AddNew

    !Tanggal = Format(Now, "DD MMM YYYY")

    !Jam = Time$

    !Nama_Barang = Text1.Text

    !Jenis_Barang = Text2.Text

    !Harga_Barang = Text3.Text

    !Sisa_Stok = Label11.Caption

    !Keterangan = Text6.Text

.Update

End With

Dim nilai As Currency

Form3.Label3.Caption = Label10.Caption

With Form3.Adodc3.Recordset

.AddNew

    !Tanggal = Format(Now, "DD MMM YYYY")

    !Jam = Time$

    !Pendapatan = "Rp " & Val(Label10.Caption)

.Update

End With

End Sub

Private Sub mnHapus_Click()

With Adodc2.Recordset

.Delete

End With

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

MsgBox "Data telah dihapus. .!", vbInformation, "Perhatian:"

'Hapus

Exit Sub

End If

End Sub

Private Sub mnKembali_Click()

Form2.Hide

Form3.Hide

End Sub

Private Sub mnSimpan_Click()

With Form1.Adodc1.Recordset

.AddNew

    !Tanggal = Format(Now, "DD MMM YYYY")

    !Jam = Time$

    !Kode_Barang = ""

    !Nama_Barang = Text1.Text

    !Jenis_Barang = Text2.Text

    !Harga_Barang = Text3.Text

    !Stok_Barang = Label11.Caption

    !Keterangan = Text6.Text

.Update

End With

End Sub

Pada Form 3 :

Atur Propertiesnya sebagai berikut :

No.	Object	Properties	Nilai
1.	Label1	Caption	Data Pendapatan
2.	Label2	Caption	Pendapatan
3.	Label3	Caption
4.	Adodc	Name Visible	Adodc3 False
5.	DataGrid	Name	DataGrid1

Buat Pop-Up Menu dengan cara tekan Ctrl+E pada keyboard dan atur Propertiesnya sebagai berikut :

Caption	Name	Letak
&Edit	mnEdit	&Edit
Hapus	mnHapus	....Hapus

Kemudian koneksikan Database yang kita buat tadi dengan menggunakan Adodc, caranya sebagai berikut :

1. Aktifkan Adodc

2. Pada Properties Window pilih Connection String

3. Akan muncul menu Property Pages

4. Pilih Build

5. Akan muncul menu Data Link Properties, pilih Microsoft Jet 4.0 OLE DB Provider, pilih Next >>

6. Selanjutnya akan muncul menu Connection, kemudian pada icon Browse silakan cari tempat Database tadi disimpan, maka akan muncul menu Select Access Database, cari Database (misalnya : Pendapatan)

7. Kembali ke menu utama Data Link Properties, pilih Test Connection dan tunggu sampai Success lalu OK.

8. Kembali ke menu utama Property Pages, pilih Apply, kemudian pilih RecordSource, maka akan muncul tampilan Record Source, pada Command Type ganti menjadi : 2. adCmdTable, pada Table or Stored Procedure Nama tentukanlah nama Tabel yang akan dikoneksikan (misalnya : Pendapatan)

9. Pilih Apply lalu OK.

10. Setelah terkoneksi, tampilkan Database pada Tabel DataGrid caranya Aktifkan DataGrid >> Klik DataSource pada Properties Window >> Koneksikan Database pada DataGrid dengan cara meletakkan pointer tepat pada DataGrid lalu klik kanan dan pilih Retrieve Fields.

11. Setelah semuanya selesai, tuliskan kode dibawah ini dan Form 3 telah selesai dibuat.

Kode pada Form 3 :

Private Sub mnHapus_Click()

With Adodc3.Recordset

.Delete

End With

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

MsgBox "Data telah dihapus. .!", vbInformation, "Perhatian:"

'Hapus

Exit Sub

End If

End Sub

7. Jalankan aplikasi dengan cara klik klik run dan pilih start atau tekan F5 pada keyboard.

   Proses pembuatan program database selesai dan dipastikan tidak ada debug. Berikut adalah tutorial dan template-nya jika masih terdapat debug : 

Tutorial

UNDUH

   Jika program kalian mengalami debug, bisa bertanya lewat line id : endarto_  . Terimakasih banyak telah berkunjung, semoga bermanfaat.

Wassalamu'alaykum Warrahmatullahi Wabarakatuh