I.
Pengertian
Visual basic 6.0 adalah salah satu aplikasi
untuk membuat system informasi database. Visual basic 6.0 ini adalah terusan
dari visual basic 1 sampai 5. walau agak tertinggal, tapi aplikasi software ini
masih digunakan untuk pengimplementaisannya di dalam pembuatan sistem database.
Visual basic 6.0 ini pun berkembang menjadi visual studio, visual basic 2008
sampai visual basic. net.
Visual basic 6.0 ini sering juga di gunakan dalam
perhitungan gaji, penjualan barang dan lain-lain. visual basic ini support
dengan operating sistem windows. dan untuk databasenya bisa menggunakan
microsoft access, SQL server dan oracle.
Dalam menu visual basic terdapat
komponen-komponen yang tentu saja di perlukan untuk menentukan coding atau
syntax yang akan digunakan. karena salah titik atau koma dalam visual basic
akan mengakibatkan program sistem debug atau error.
Berikut ini adalah sedikit perkenalan
tentang visual basic 6.0
diatas adalah contoh aplikasi program visual basic 6.0, dalam
penggunaannya biasanya di awali dengan project. dan form1.
Dalam pengimplementasian aplikasi program visual basic ada 5 pokok
yang penting di dalam komponennya. yaitu :
A. Project
B. Sub Form/MDI Form
C. Form
D. Coding/sytax
E. Report
F.Module
B. Sub Form/MDI Form
C. Form
D. Coding/sytax
E. Report
F.Module
A. Project
Project adalah nama file yang akan dikenal
dalam pemanggilan program aplikasi. kita dapat merubahnya sesuai dengan
nama file atau sistem database yang kita inginkan. project ini juga menentukan
direktori form aplikasi yang akan dibuat. karena, keseluruhan projek yang
dibuat, itu diwakili atas nama project. pada saat kita memembuat aplikasi data,
project lah yang jadi perwakilan keseluruhan aplikasi yang anda buat di dalam
visual basic. Berikut ini adalah gambar/ icon project pada saat tersimpan di
dalam komputer anda :
B. Sub Form/MDI Form
MDI form ini
adalah form utama dalam microsoft visual basic. karena MDI form ini mewakili
form-form yang ada di dalam aplikasi database yang kita buat. dalam MDI form
biasanya hanya terdapat coding pemanggilan form-form yang lain. kita tidak bisa
membuat sistem database tabel di dalamnya. karena MDI form dirancang/di desain
untuk pengatur form-form yang lain. berikut di bawah ini adalah contoh MDI form
:
C. Form
Form
Aplikasi dibuat untuk pengimplementasian sistem yang dapat melakukan beberapa
perintah eksekusi sesuai yang di inginkan. dalam Form ini juga kita dapat
mengkodingkan aplikasi untuk memanggil database, menampilkan data, menghapus
data, mengupdate data, mengedit data dan mencetak data yang telah kita
eksekusi. Berikut dibawah ini adalah contoh gambar Form yang telah didesain
sesuai kebutuhan :
D. Coding Atau Syntax
Adalah
perintah-perintah dalam bahasa program aplikasi visual basic yang telah
ditentukan.dalam coding ini juga yang mempengaruhi sistem dapat berjalan atau
tidak. dalam pembuatan coding harus berhati-hati, karena jika salah titik atau
koma, akan berakibat program aplikasi yang kita buat mengalami debug atau
error.
berikut ini adalah contoh gambar
coding untuk form diatas. :
E. Report
Dalam
Desain Report juga mempengaruhi hasil output yang telah kita eksekusi. dalam
pembuatan report harus berhati-hati, karena jika salah, maka laporan yang akan
di cetak tidak akan sesuai harapan.
berikut adalah contoh report dalam
visual basic :
F. Module
Module adalah
suatu perintah untuk mengkoneksikan antara pogram visual basic dengan database
yang akan di gunakan di dalam mengaplikasikan program. berikuit ini adalah
gambar module :
Note :
Contoh Soal :
1. Buatlah sebuah aplikasi program
form login. dengan menggunakan visual basic 6.0 dan database MS. access :
Jawaban :
Buatlah desain untuk login form
seperti gambar dibawah ini :
setelah membuat form silahkan
masukan coding di dalam form sebagai berikut :
Private Sub cmdCancel_Click()
Unload Me
End Sub
Unload Me
End Sub
Private Sub cmdOK_Click()
If Combo1 = rsad!pengguna And txtPassword = rsad!sandi Then
FORMUTAMA.Show
Else
MsgBox "Unknown user", vbExclamation, "DATA ERROR..!!"
Unload Me
End If
End Sub
If Combo1 = rsad!pengguna And txtPassword = rsad!sandi Then
FORMUTAMA.Show
Else
MsgBox "Unknown user", vbExclamation, "DATA ERROR..!!"
Unload Me
End If
End Sub
Private Sub tampil()
Combo1 = rsad!pengguna
End Sub
Combo1 = rsad!pengguna
End Sub
Private Sub Form_Load()
bukadata
tampil
End Sub
bukadata
tampil
End Sub
kemudian buatlah database dengan
microsoft akses dengan format sebagai berikut :
kemudian add module seperti gambar
dibawah ini, dan isikan coding sebagai berikut :
Global cn As Connection
Global Rsuser As Recordset
Global Rscpu As Recordset
Global Rsprinter As Recordset
Global Rsservicecpu As Recordset
Global rsservicep As Recordset
Global rsad As Recordset
Global Vcari As String
Global Rscpu As Recordset
Global Rsprinter As Recordset
Global Rsservicecpu As Recordset
Global rsservicep As Recordset
Global rsad As Recordset
Global Vcari As String
Sub bukadata()
Set cn = New ADODB.Connection
Set Rsuser = New ADODB.Recordset
Set Rscpu = New ADODB.Recordset
Set Rsprinter = New ADODB.Recordset
Set Rsservicecpu = New ADODB.Recordset
Set rsservicep = New ADODB.Recordset
Set rsad = New ADODB.Recordset
Set cn = New ADODB.Connection
Set Rsuser = New ADODB.Recordset
Set Rscpu = New ADODB.Recordset
Set Rsprinter = New ADODB.Recordset
Set Rsservicecpu = New ADODB.Recordset
Set rsservicep = New ADODB.Recordset
Set rsad = New ADODB.Recordset
Luthfi = App.Path +
"/itinventory.mdb"
cn.Open "provider=MSDASQL.1;Persist Security Info=False;Data Source=it"
Rsuser.Open "select*from pengguna", cn, 1, 2
Rscpu.Open "select*from cpuid", cn, 1, 2
Rsprinter.Open "select*from printer", cn, 1, 2
Rsservicecpu.Open "select*from servicecpu", cn, 1, 2
cn.Open "provider=MSDASQL.1;Persist Security Info=False;Data Source=it"
Rsuser.Open "select*from pengguna", cn, 1, 2
Rscpu.Open "select*from cpuid", cn, 1, 2
Rsprinter.Open "select*from printer", cn, 1, 2
Rsservicecpu.Open "select*from servicecpu", cn, 1, 2
End Sub
Selamat Mencoba
-----------------------------------------------------------------------------------------------------------------------
Sumber Artikel : http://ilmukomputerindonesia-komputer.blogspot.com/p/visual-basic-60.html
that's work ..... thankyou !
ReplyDelete