DataBase dalam Visual Basic 6.0. DataBase merupakan
sekumpulan informasi data yang disimpan secara matematis di dalam komputer dan
dapat diolah atau dimanipulasi menggunakan perangkat lunak untuk menghasilkan
informasi. Dalam praktikum kali ini, pembuatan DataBase membutuhkan komponen
khusus yang telah ada dalam aplikasi Visual Basic 6.0 yaitu ADO Data Control 6
dan DataGrid Control 6. ADO Data Control 6 digunakan untuk menghubungkan
aplikasi Visual Basic dengan aplikasi Database, sedangkan DataGrid Control 6
digunakan untuk menampilkan tabel database pada VisualBasic. Pembuatan
DatabBase ini menampilkan dua form, dimana yang pertama form login untuk hak
akses administrator lalu yang kedua form pengisian data yang merupakan tempat
pengolahan data.
Tampilan pertama untuk login sebagai admin :
Tampilan
kedua untuk pengisian DataBase :
Langkah membuat program ini adalah:
1.
MEMBUAT
FORM LOGIN
Sebagai
akses adminstrator untuk mengolah database, diperlukan form login untuk masuk
ke dalam akses tersebut. Agar database tidak sembarangan diolah oleh orang yang
tidak berwenang.
Dalam desain tersebut, terdapat :
1.
Label1 =
Sebagai pemberi nama judul program “LOG IN”
Label2 = Sebagai pemberi nama inputan pada “USERNAME”
Label3 = Sebagai pemberi nama inputan pada
“PASSWORD”
2.
TextBox1 =
Sebagai penginputan “USERNAME”
TextBox2 = Sebagai penginputan “PASWORD”
3.
CommandButton1 = Dengan caption “LOGIN”, sebagai tempat
pengeksekusian inputan dari data yang diinput.
CommandButton2 = Dengan caption “RESET”. Sebagai tempat penghapusan dari data
yang diinput.
Setelah itu double klik pada command
LOGIN lalu masukkan kode program :
Private
Sub login_Click()
If
Text1.Text = "admin" And Text2.Text = "d1t4" Then
MsgBox
"Log In Anda Berhasil"
Form1.Hide
Form2.Show
Else
MsgBox
"Username / Password salah"
End
If
End
Sub
Klik close untuk mengembalikan tampilan
pada form. Setelah itu double klik lagi pada command RESET lalu masukkan kode
program :
Private
Sub reset_Click()
Text1.Text
= ""
Text2.Text
= ""
End
Sub
PENJELASAN KODE PROGRAM :
1.
If
Text1.Text = "admin" And Text2.Text = "d1t4" Then MsgBox
"Log In Anda Berhasil"
Kode program tersebut melakukan pengeksekusian dengan syarat
jika Text1.Text diinput data admin dan Text2.Text diinput data d1t4 maka maka
program akan mengeksekusi MsgBox dengan tampilan Log In Anda Berhasil.
2.
Form1.Hide
Kode program tersebut menyembunyikan form 1 setelah
pengeksekusian dimulai.
3.
Form2.Show
Kode program tersebut menampilkan form 2 setelah
pengeksekuisian dimulai.
4.
Else
MsgBox "Username / Password salah"
Kose program tersebut akan menampilkan MsgBox dengan tampilan
Username/Password salah salah data yang diinput tidak sesuai dengan syarat.
5.
Text1.Text
= ""
Kode program tersebut menampilkan tampilkan kosong dengan
kata lain mengembalikan tampilan kosong saat sebelumnya telah ada data yang
diinput pada TextBox1.
6.
Text2.Text
= ""
Kode program tersebut menampilkan tampilkan kosong dengan
kata lain mengembalikan tampilan kosong saat sebelumnya telah ada data yang
diinput pada TextBox2.
1.
MEMBUAT
DATA DALAM MS.ACCESS
Dilakukan
dengan membuat file baru blank yang selanjutkan akan disimpan terlebih dahulu
dengan nama dan direktori yang diinginkan. Setelah itu akan muncul menu pop up
untuk memberikan nama tabel. Isikan nama tabel(1) secara default atau sesuai
yang dikehendaki. Pilih menu Design View untuk mengisikan NPM, NAMA, KELAS,
ALAMAT (2).
Masukan
data seperti tampilan di atas. Setelah selesai klik close untuk menutup
program.
1.
MEMBUAT
TAMPILAN FORM PENGISIAN DATA
Langkah selanjutnya adalah membuat tampilan pengisian data
sebagai tempat untuk mengolah data.
Sebelum
membuat tampilan form, aktifkan komponen ADO Data
Control 6 dan DataGrid Control 6 untuk menginput bagan di bagian form. Klik
CTRL+T atau pilih menu Project lalu klik Components. Akan muncup tampilan
seperti ini:
Setelah
itu buat tampilan form pengisian data :
Dalam
design tersebut, terdapat :
1.
Label1 = Sebagai pemberi nama
judul program “PENGISIAN DATA”
Label2 =
Sebagai pemberi nama inputan pada “NPM”
Label3 =
Sebagai pemberi nama inputan pada “NAMA”
Label4 =
Sebagai pemberi nama inputan pada “KELAS”
Label5 =
Sebagai pemberi nama inputan pada “ALAMAT”
2.
DataGrid1 = Sebagai tempat menampilkan
tabel yang dibuat dalam Ms.Acess.
1. Adodc1 =
Sebagai penghubung/konektor pada Ms.Access dengan Visual Basic 6.0
3.
TextBox1 = Sebagai penginputan “NPM”
dalam tabel.
TextBox2 =
Sebagai penginputan “NAMA” dalam tabel.
TextBox3 =
Sebagai penginputan “KELAS” dalam tabel.
TextBox4 =
Sebagai penginputan “ALAMAT” dalam tabel.
4.
CommandButton1 = Dengan caption INPUT, sebagai tempat
pengeksekusian data yang diinput.
CommandButton2 = Dengan caption DELETE, sebagai tempat penghapusan yang diinput.
CommandButton3 = Dengan caption UPDATE, sebagai tempat pengupdatean data yang
diinput sebelumnya.
Setelah itu double klik pada command INPUT
lalu masukkan kode program:
Private
Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("NPM")
= Text1.Text
Adodc1.Recordset.Fields("NAMA")
= Text2.Text
Adodc1.Recordset.Fields("KELAS")
= Text3.Text
Adodc1.Recordset.Fields("ALAMAT")
= Text4.Text
End
Sub
Klik close untuk mengembalikan tampilan
pada form. Setelah itu double klik lagi pada command DELETE lalu masukkan kode
program :
Private
Sub Command2_Click()
Adodc1.Recordset.Delete
End
Sub
Klik close untuk mengembalikan tampilan
pada form. Setelah itu double klik lagi pada command UPDATE lalu masukkan kode
program :
Private
Sub Command3_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.Fields("NPM")
= Text1.Text
Adodc1.Recordset.Fields("NAMA")
= Text2.Text
Adodc1.Recordset.Fields("KELAS")
= Text3.Text
Adodc1.Recordset.Fields("ALAMAT")
= Text4.Text
End
Sub
PENJELASAN KODE PROGRAM :
1.
Adodc1.Recordset.AddNew
Kode program tersebut berfungsi untuk membuat record
new/record baru dalam table yang ada di DataGrid.
2.
Adodc1.Recordset.Fields("NPM")
= Text1.Text
Kode program tersebut berfungsi sebagai penginputan NPM yang telah dimasukkan dalam
TextBox1.
3.
Adodc1.Recordset.Fields("NAMA")
= Text2.Text
Kode program tersebut berfungsi sebagai penginputan NAMA yang telah dimasukkan dalam
TextBox2.
4.
Adodc1.Recordset.Fields("KELAS")
= Text3.Text
Kode program tersebut berfungsi sebagai penginputan KELAS yang telah dimasukkan dalam
TextBox3.
5.
Adodc1.Recordset.Fields("ALAMAT")
= Text4.Text
Kode program tersebut berfungsi sebagai penginputan ALAMAT yang telah dimasukkan
dalam TextBox4.
6.
Adodc1.Recordset.Delete
Kode program tersebut berfungsi untuk mendelete data yang
telah diinput dalam table yang ada di DataGrid.
7.
Adodc1.Recordset.Update
Kode program tersebut berfungsi untuk membuat mengupdate data
yang telah diinput sebelumnya dalam table yang ada di DataGrid.
4.
MENGHUBUNGKAN
MS.ACCESS DENGAN PROGRAM VISUAL BASIC 6.0
1.
Klik
kanan pada Adodc1 pilih properties.
2.
Centang
kolom Use Connection String lalu klik Build.
3. Pilih Microsoft Jet 4.0 OLE DB Provider.
Lalu klik Next.
4. Masukan file DataBase yang telah dibuat
lalu klik test Connection untuk pengecekan. Setelah berhasil klik tombol OK.
5. Masuk lagi ke menu Adodc Properties,
pilih menu RecordSource. Pilih 2 – adCmdTable dan nama tabel yang dibuat dalam
Ms.Access. Setelah selesai klik Apply.
6. Klik bagan DataGrid, pada properties DataGrid1
pilih DataSource menjadi Adodc1.
7. Setelah itu pada DataGrid klik kanan dan
pilih Retrieve Field. Maka tampilan DataGrid akan berubah menjadi :
OUTPUT
Tampilan
Form saat berhasil Login.
Tampilan Form Pengisian Data saat proses Input.
0 komentar:
Posting Komentar