Tutorial Membuat Aplikasi Sistem Informasi Inventaris dengan VB 6.0 (ala Rizki)

Beranda
Komunitas
Tech
Programmer Forum
Tutorial Membuat Aplikasi Sistem Informasi Inventaris dengan VB 6.0 (ala Rizki)

mrizkii7

10-11-2013 15:35

Tutorial Membuat Aplikasi Sistem Informasi Inventaris dengan VB 6.0 (ala Rizki)

Quote:

Wah dari judulnya ko ada (ala Rizki)-nya gan? emoticon-Bingung (S)

Oke gan, ane jawab ya, karena tutorial yang ane buat ini, sebenarnya tugas TP dari Asdos Praktikum Promvis ane gan, jadi ane sekalian minta maaf kalau isi konten threadane ini sama dengan beberapa thread lainnya.

Sebelumnya, program yang ane buat ini, dibuatnya pake Visual Basic 6.0 dan Microsoft Access 2010. Bagi yang mau mempraktikan isi dari tutorial ini, silahkan siapkan alat dan bahannya ya gan.

Udah punya alat dan bahannya gan? sekarang kita masuk ke resep (read: tutorial) nya ya hhe

Nama Aplikasi : Sistem Informasi Inventaris
Kategori : Bisnis dan Warabala
Prinsip Kerja :

Untuk menggunakan aplikasi ini, pengguna harus login dengan username dan password yang telah disediakan.

Spoiler for Interface 1:

Tutorial Membuat Aplikasi Sistem Informasi Inventaris dengan VB 6.0 (ala Rizki)

Setelah login, pengguna akan dihadapkan pada dua buah menu, yaitu Isi Datadan Lihat.

Spoiler for Interface 2:

Ketika menu Isi Datadi-klik, maka akan muncul form isian untuk mengisi data barang inventaris.
Ketika tombol submit diklik, maka data akan tersimpan pada database, namun ketika tombol clear diklik, maka form akan kosong kembali.

Spoiler for Interface 3:

Dan, apabila menu Lihat yang di-klik, maka akan muncul data-data inventaris yang telah di-submit (simpan).

Spoiler for Interface 4:

[SPOILER=Membuat Database]
Membuat DatabaseAccess
Database Access yang akan kita buat berguna untuk menanpung data yang diisi pada form “Isi Data” pada aplikasi ini nantinya.

Adapun langkah-langkah untuk membuat database access adalah sebagai berikut:

Buatlah sebuah folder dengan nama inventaris. Folder ini akan kita gunakan untuk menyimpan database dan project yang akan kita buat.
Buka program Microsoft Access, dengan cara klik Start > All Programs > Microsoft Office > Microsoft Office 2010.

Spoiler for Gambar 1.1:
Setelah itu, berilah nama file database, kemudian klik ikon folder yang ada dikanan bawah, kemudian Save as Type-nya ubah ke Microsoft Access Databases (2000-2003 format).

Spoiler for Gambar 1.2:
Kemudian, klik kanan pada tab Table1lalu klik Design View

Spoiler for Gambar 1.3:
Kemudian, akan muncul popup message untuk menyimpan tabel, karena kita kan membuat tabel admin, maka ketikan admin, pada textboxpesan popup message tersebut, dan klik OK.
Kemudian akan muncul form field seperti pada gambar

Spoiler for Gambar 1.4:
Kemudian isilah field name dan data type-nya seperti gambar diatas. Setelah itu, klik Save.
Double-klik pada tabel1 yang ada disebelah kiri. Maka akan muncul field seperti gambar dibawah, isilah field tersebut dengan data berikut:
- id_admin : ID001
- nama : admin
- username : admin
- password : admin
Spoiler for Gambar 1.5:
Buatlah tabel kedua dengan nama barang dengan cara pilih tab menu Create > Table, lalu ulangi tahap 4-6 dengan field name dan data type-nya sebagai berikut:

Spoiler for Gambar 1.6:
Kemudian klik File > Saveuntuk menyimpan database kita. \m/

[/SPOILER]

Spoiler for Membuat Aplikasi:

Membuat Aplikasi
Sekarang kita akan masuk ke tahap pembuatan antarmuka dan coding-an nya. Let’s do It.

Buka program Visual Basic 6.0 dengan cara meng-klik Start > All Programs > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0

Spoiler for Gambar 2.1:
Akan tampil kotak dialog New Project, pilih Stardart EXE, lalu klik Open

Spoiler for Gambar 2.2:
Akan tampil form baru yang masih kosong dengan nama Form1
Sedikit penjelasan tentang layout Microsoft Visual Basic 6.0

Spoiler for Gambar 2.3:
Double-klik nama Form1 pada Project Explorer, maka Form1 akan tampil
Tambahkan 1 buah komponen CommandButton, 2 buah komponen Label, dan 3 buah komponen TextBox yang tersedia pada ToolBox, aturlah seperti gambar berikut:

Spoiler for Gambar 2.4:

Kemudian kita edit properti dari masing-masing komponen, yang tersedia pada Properties Windows.

Spoiler for Gambar 2.4.1:

Spoiler for Gambar 2.4.2:

Spoiler for Gambar 2.4.3:

Sehingga hasilnya adalah sebagai berikut:

Spoiler for Gambar 2.5:

Double-klik pada komponen Text1 dan Text2, kemudian ketikan kode berikut:

Text1

Code:



Private Sub Text1_GotFocus()

 If Text1.Text = "Username" Then

 Text1.Text = ""

 End If

End Sub



Private Sub Text1_LostFocus()

 If Text1.Text = "" Then

 Text1.Text = "Username"

 End If

End Sub

Text2

Code:



Private Sub Text2_GotFocus()

 If Text2.Text = "Password" Then

 Text2.Text = ""

 Text2.PasswordChar = "*"

 End If

End Sub



Private Sub Text2_LostFocus()

 If Text2.Text = "" Then

 Text2.Text = "Password"

 Else

 Text2.PasswordChar = "*"

 End If

End Sub

Fungsi dari kode tersebut adalah memberikan efek “stackholder”

8. Sekarang, kita akan membuat coding-an utuk komponen login dengan algoritma sebagai berikut : ketika tombol login di-klik, maka akan muncul popup message dan 3 buah CommandButton yang bernama Logout, Isi Data dan Lihat (untuk melihat data) dan CommandButton login akan menghilang. Sebelum kita membuat coding-annya, terlebih dahulu kita buat dulu 3 buah CommandButtonnya. Susun seperti pada gambar!

Spoiler for Gambar 2.6:

Aturlah properties-nya seperti berikut:

Spoiler for Gambar 2.6.1:

Kemudian double-klik pada komponen berikut, dan ketikan kodenya:
Login

Code:



MsgBox "Selamat Datang di Program Inventaris"

 Text1.Enabled = False

 Text2.Enabled = False

 

 Command1.Visible = False

 Command2.Visible = True

 Command3.Visible = True

 Command4.Visible = True

Form1

Code:



Command1.Visible = False

Command2.Visible = True

Command3.Visible = True

Command4.Visible = True

Tujuan dari coding-an bagian B diatas adalah agar ketika dijalankan, tombol Logout, Isi Data dan Lihat tidak terlihat. Sedangkan coding-an bagian B adalah untuk menampilkan tombol-tombol tersebut.

Sekarang, kita akan membuat coding-an untuk komponen Isi Data dengan algoritma sebagai berikut : ketika tombol Isi Data di-klik, maka akan muncul 3 buah Textbox dan 2 buah Label. Sebelum kita membuat coding-annya, terlebih dahulu kita buat dulu muncul 3 buah Textbox dan 2 buah Label. Susun seperti pada gambar!

Spoiler for Gambar 2.7:

Aturlah properties-nya seperti berikut:

Spoiler for Gambar 2.7.1:

Spoiler for Gambar 2.7.2:

Setelah itu double-klik pada komponen Text4, Text5, Text6 kemudian ketikan coding-an berikut:

Text4

Code:



Private Sub Text4_GotFocus()

 If Text4.Text = "Nama Barang" Then

 Text4.Text = ""

 End If

End Sub



Private Sub Text4_LostFocus()

 If Text4.Text = "" Then

 Text4.Text = "Nama Barang"

 End If

End Sub

Text5

Code:



Private Sub Text5_GotFocus()

 If Text5.Text = "Jumlah Barang" Then

 Text5.Text = ""

 End If

End Sub



Private Sub Text5_LostFocus()

 If Text5.Text = "" Then

 Text5.Text = "Jumlah Barang"

 End If

End Sub

Text6

Code:



Private Sub Text6_GotFocus()

 If Text6.Text = "Harga Satuan" Then

 Text6.Text = ""

 End If

End Sub



Private Sub Text6_LostFocus()

 If Text6.Text = "" Then

 Text6.Text = "Harga Satuan"

 End If

End Sub

Sekarang kita membuat algoritma apabila Label3 diklik, maka akan muncul total harga secara otomatis dengan rumus jumlah barang * harga barang

Sebelumnya, kita deklarasikan terlebih dahulu variable-variabelnya, seperti berikut:

Code:

Dim total, jumlahBarang, hargaBarang As Double

Label3

Code:



Private Sub Label3_Click()

 jumlahBarang = Val(Text5.Text)

 hargaBarang = Val(Text6.Text)

 total = jumlahBarang * hargaBarang

 Label3.Caption = "Total Harga : " & Format(total, "Rp #,#.00")

End Sub

Kemudian, kita buat algoritma ketika Label4 diklik, maka akan muncul kalender dan user diminta untuk memilih tanggal.

Terlebih dahulu kita harus menambahkan elemen kalender, dengan cara klik kanan pada daerah kosong di Toolbox, lalu pilih Components, kemudian centang Microsoft Calender Control 8.0 > Apply > OK
Lalu gambarlah kalender di Form1, seperti pada gambar!

Spoiler for Gambar 2.8:

Pada Form1 kita atur agar pada saat di-run, kalender tidak muncul, dan hanya muncul ketika Label4 diklik.
Form1

Code:

Calendar.Visible = False

Label4

Code:



Private Sub Label4_Click()

 Calendar.Visible = True

End Sub

[code]



Double-klik pada Calender

[code]

Private Sub Calendar_Click()

 Label4.Caption = Calendar.Value

 Calendar.Visible = False

End Sub

[code]



Lalu, double klik pada textbox "Isi Data\"

[code]

Private Sub Command3_Click()

 Text3.Visible = False

 Text4.Visible = True

 Text5.Visible = True

 Text6.Visible = True

 Label3.Visible = True

 Label4.Visible = True

 Label5.Visible = False 

 Command5.Visible = True

 Command6.Visible = True 

 DataGrid1.Visible = False

End Sub

Sekarang kita akan membuat coding untuk tombol Clear, ketika tombol Clear diklik, maka seluruh form isian akan pada kondisi default.
Double-klik pada tombol Clear, lalu ketikan coding-an berikut:

Code:



Private Sub Command5_Click()

 Text4.Text = "Nama Barang"

 Text5.Text = "Jumlah Barang"

 Text6.Text = "Harga Satuan"

 Label3.Caption = "Total Harga :"

 Label4.Caption = "Klik disini untuk Mengisi Tanggal"

End Sub

Kemudian kita buat coding-an untuk tombol Submit, algoritmanya adalah ketika tombol ini di klik, maka data akan tersimpan dan akan muncul popup message.
Sebelumnya, kita buat dulu sebuah Module dan Data Emvironment, dengan cara klik kanan pada Project1 (kanan atas) > Add > Module

Spoiler for Gambar 2.9:

Double klik pada Module

Code:



Public konek As New ADODB.Connection

Public RS As New ADODB.Recordset

Public RSdata As New ADODB.Recordset



Sub koneksi()

 Set konek = New ADODB.Connection

 Set RSdata = New ADODB.Recordset

 konek.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = database.mdb; Persist Security Info = False"

End Sub

Tambahkan Data Emvironment, dengan cara persis sama dengan cara kita menambahkan sebuah Form baru atau sebuah Module.
Lalu, double-klik pada tombol Submit, kemudian ketikan coding-an berikut:

Code:



Private Sub Command6_Click()

 jumlahBarang = Val(Text5.Text) 

 hargaBarang = Val(Text6.Text)

 total = jumlahBarang * hargaBarang 

 

 Dim SQLsimpan As String 

 [color=red]If Text4.Text = "Nama Barang" Or Text5.Text = "Jumlah Barang" Or Text6.Text = "Harga Satuan" Then

 MsgBox "Isi Data Dengan Lengkap" 



 If Text4.Text = "Nama Barang" Then

 Text4.SetFocus 

 ElseIf Text5.Text = "Jumlah Barang" Then

 Text5.SetFocus 

 ElseIf Text6.Text = "Harga Satuan" Then

 Text6.SetFocus

 End If 

[/color]

 Else 

 [color=purple]If Not IsNumeric(Text5.Text) Then

 MsgBox "Jumlah Barang Harus Angka"

 Text5.Text = ""

 Text5.SetFocus

 Exit Sub 

 If Not IsNumeric(txtHarga.Text) Then

 MsgBox "Harga Satuan Harus Angka"

 Text6.Text = ""

 Text6.SetFocus

 Exit Sub 

End If

End If[/color]

 [color=blue]Call koneksi

 Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = database.mdb;Persist Security Info = False"

 Adodc1.RecordSource = "select * from barang"

 Adodc1.Refresh

 Adodc1.Recordset.AddNew

 Adodc1.Recordset.Fields("nama_barang") = Text4.Text

 Adodc1.Recordset.Fields("tanggal_masuk") = Label4.Caption

 Adodc1.Recordset.Fields("jumlah") = Text5.Text

 Adodc1.Recordset.Fields("harga_satuan") = Text6.Text

 Adodc1.Recordset.Fields("total_harga") = total

 Adodc1.Recordset.Update 

 MsgBox "Selamat Data Telah Diisi"

 Text4.Text = "Nama Barang"

 Text5.Text = "Jumlah Barang"

 Text6.Text = "Harga Satuan"

 Label3.Caption = "Total Harga :”

 Label4.Caption = "Klik disini untuk Mengisi Tanggal"

 End If[/color]

End Sub

Coding-an diatas berfungsi untuk mengecek apakah form telah diisi semua, mengecek apakah untuk form isian jumlah barang dan harga satuan diisi oleh huruf atau angka, lalu menyimpan data pada database yang telah kita buat sebelumnya.

Sekarang kita akan membuat algoritma apabila tombol Lihat diklik, maka akan muncul tabel dan menampilkan data yang ada pada database.

Sebelumnya, kita buat terlebih dahulu tabelnya (DataGrid), dengan cara klik kanan pada daerah kosong di Toolbox, lalu pilih Components, kemudian centang Microsoft DataGrid Control 6.0 > Apply > OK, lalu tambahkan komponen Adodc dengan cara yang sama saat kita menambahkan Microsoft DataGrid Control 6.0, hanya saja yang dicentang adalah Microsoft ADO Data Control 6.0.

Lalu gambarlah sebuah DataGrid dan Adodc pada Form1,

Spoiler for Gambar 2.10:

Dan atur agar DataGrid ini hanya akan tampil ketika tombol Lihat diklik sedangkan Adodc tidak akan pernah ditampilkan, maka double-klik pada Form1 lalu ketikan kode berikut:

Code:
```
 DataGrid1.Visible = False

 Adodc1.Visible = False
```
Double klik pada tombol Lihat Data, ketikan kode berikut

Code:
```
Private Sub Command4_Click()

 Text3.Visible = False

 Text4.Visible = False

 Text5.Visible = False

 Text6.Visible = False

 

 Label3.Visible = False

 Label4.Visible = False

 Label5.Visible = True

 

 Command5.Visible = False

 Command6.Visible = False

 

 DataGrid1.Visible = True

 

 Call koneksi

 Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = database.mdb;Persist Security Info = False" 

 Adodc1.RecordSource = "barang"

 Adodc1.RecordSource = "select * from barang"

 Adodc1.Refresh

 Set DataGrid1.DataSource = Adodc1

 DataGrid1.Refresh

End Sub
```
Sejauh ini, aplikasi kita telah bias dijalankan, dengan catatan sebelum dicoba Project1 harus disimpan terlebih dahulu pada folder yang telah kita buat sebelumnya dengan cara klik File > Save Project. (akan nada 4 popup message untuk menyimpan lembar kerja kita, save samuanya pada satu folder yang telah kita buat).

Aplikasi kita telah jalan looh \m/, namun kita belum menghubungkan tabel admin pada database yang telah kita buat dengan aplikasi, dimana hubungannya adalah user harus login terlebih dahulu sebelum memakai fasilitas didalamnya, apabila user lupa username dan atau password maka dia tidak bias mengakses fasilitas. Nah pertanyaannya dimana kita harus meletakan coding-annya? Yap betul, pada tombol login, update coding-an sebelumnya dengan coding-an berikut:

Login

Code:



Private Sub Command1_Click()

 If konek.State = 1 Then konek.Close

 konek.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=database.mdb; Persist Security Info=False"

 

 If RS.State = 1 Then RS.Close

 RS.Open "select * from admin where username= '" & Text1.Text & "' And password = '" & Text2.Text & "'", konek, 3, 3

 

 If Not RS.EOF Then

 MsgBox "Selamat Datang di Program Inventaris"

 

 Text1.Enabled = False

 Text2.Enabled = False

 

 Command1.Visible = False

 Command2.Visible = True

 Command3.Visible = True

 Command4.Visible = True



 ElseIf (Text1.Text = "Username" Or Text1.Text = "" Or Text2.Text = "Username" Or Text2.Text = "") Then

 MsgBox "Anda Belum Memasukan Username dan Password", vbCritical, "PERINGATAN!"

 Text1.SetFocus

 

 Else

 MsgBox "Username dan atau Password yang Anda Masukan Salah", vbCritical, "LOGIN"

 Text1.Text = "Username"

 Text2.Text = "Password"

 Text1.SetFocus

 End If

End Sub

Tombol logout, apabila diklik akan ada popup message menanyakan apakah user yakin untuk keluar atau tidak, jika mereka pilih YA, maka tampilan aplikasi akan sama seperti awal ketika di-run, namun ketika mereka pilih CANCEL, maka proses akan dibatalakan.

Code:



Private Sub Command2_Click()

 MsgBox "Apakah Yakin Mau Keluar?", vbOKCancel, "Messege"

 

 If vbOK Then

 Text1.Text = "Username"

 Text2.Text = "Password"

 

 Text1.Enabled = True

 Text2.Enabled = True

 

 Text3.Visible = True

 Text4.Visible = False

 Text5.Visible = False

 Text6.Visible = False



 Command1.Visible = True

 Command2.Visible = False

 Command3.Visible = False

 Command4.Visible = False

 

 Label3.Visible = False

 Label4.Visible = False

 Label5.Visible = False

 

 Command1.Visible = True

 Command2.Visible = False

 Command3.Visible = False

 Command4.Visible = False

 Command5.Visible = False

 Command6.Visible = False

 

 Calendar.Visible = False

 DataGrid1.Visible = False

 Adodc1.Visible = False

 End If

End Sub

Selesaiii \m/

Spoiler for Link:

[URL=http://www.4*shared.com/office/mLhC_c-Y/Modul.html]Modul[/URL]
[URL=http://www.4*shared.com/rar/4FMRnDtw/Project.html]Project[/URL]
[URL=http://www.4*shared.com/rar/Qev60ihq/Aplikasi.html]Aplikasi[/URL]

Sekian dari ane gan, hatur nuhun emoticon-Kiss

Polling

Poll ini sudah ditutup. - 1 suara

Bagaimanakah kualiats Modul ini?

Sangat Kurang

Kurang

Cukup

Bagus

Sangat Bagus

100%

Diubah oleh mrizkii7 14-11-2013 17:07

6.4K

Kutip

Balasan

Komentar yang asik ya

Urutan

Terbaru

Terlama

Komentar yang asik ya

Komunitas Pilihan