Visual Basic 6.0
I. Pengertian Visual Basic
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. 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
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
A. Project
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
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
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
Private Sub tampil()
Combo1 = rsad!pengguna
End Sub
Private Sub Form_Load()
bukadata
tampil
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
Private Sub tampil()
Combo1 = rsad!pengguna
End Sub
Private Sub Form_Load()
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
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
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
End Sub
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
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
End Sub
Selamat
Mencoba
Tidak ada komentar:
Posting Komentar