Visual Basic 6.0
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
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 :
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
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
0 komentar:
Posting Komentar