1. Silahkan
Jalankan Aplikasi Visual Basic 6.0
2. Pilih Standart.exe
3. Siapkan Interface
Seperti Gambar dibawah ini :
a. Siapkan
1 Form dan 5 Label
Form1
-> Form Akademik Ok
Label1
-> NIM :
Label2
-> NAMA :
Label3
-> JENIS KELAMIN :
Label4
-> AGAMA :
Label5
-> TANGGAL :
b. Siapkan
TextBox 2
Text1
-> Kosongkan
Text2
-> Kosongkan
c. Siapkan
Option 2
Option1
-> Laki-laki
Option2
-> Perempuan
d. Siapkan
Combo 1
Combo1
-> Pilih Agama
e. Siapkan
DTPicker1
f. Siapkan
CommandButton 6
Command1
-> TAMBAH
Command2
-> EDIT
Command3
-> HAPUS
Command4
-> BATAL
Command5
-> PENCARIAN
4. Aktifkan References :
Microsoft DAO 2.5/3.51 Compatibility Library
5. Aktifkan Components :
Microsoft Data Bound Grid Control 5.0 (SP 3), Microsoft Windows Commonn
Control-2 6.0
6. Masukkan Source Code :
a.
Source
Code Koneksi
Public
myDbs As Database 'Variabel database
Public
Folder As String 'dir database
Public
Sub Koneksi()
Folder
= App.Path & "\database\akademik.mdb"
Set
myDbs = OpenDatabase(Folder)
End
Sub
b.
Source
Code Form
Dim
rsMhs As Recordset 'variabel tabel
Private
Sub Command1_Click()
'Penggunaan
Select case
Select
Case Command1.Caption
Case "TAMBAH"
Frame1.Enabled = True
Call bersih 'panggil bersih
Text1.SetFocus
Command1.Caption = "SIMPAN"
Case "SIMPAN"
Call simpan 'panggil simpan
Command1.Caption = "TAMBAH"
End
Select
End
Sub
Sub
bersih()
'Mengosongkan
Field
Text1.Text
= Empty: Text2.Text = Empty: Combo1.Text = "Pilih Agama"
End
Sub
Private
Sub Command2_Click()
Select
Case Command2.Caption
Case "EDIT"
Call cari
Command2.Caption = "UPDATE"
Case "UPDATE"
Call edit
Command2.Caption = "EDIT"
End
Select
End
Sub
Sub
cari()
Dim
Xcari, Dialog As String
Dialog
= InputBox("Masukkan Nim Anda!!!", "Pencarian")
Xcari
= "nim='" & Dialog & "'"
With
rsMhs
.FindFirst Xcari
If Not .NoMatch Then
Text1.Text = !nim
Text2.Text = !nama
If !jenis_kelamin = "Laki-laki"
Then
Option1.Enabled = True
Option1.Value = True
Else
Option2.Enabled = True
Option2.Value = True
End If
Combo1.Text = !agama
DTPicker1.Value = !tanggal
Frame1.Enabled = True
Command1.Enabled = False
Else
MsgBox "Not Found",
vbCritical, "Error"
End If
End
With
End
Sub
Private
Sub Command3_Click()
Select
Case Command3.Caption
Case "HAPUS"
Call cari
Command3.Caption = "DELETE"
Case "DELETE"
Call delete
Command3.Caption = "HAPUS"
End
Select
End
Sub
Sub
delete()
'menghapus
data
If
Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Silahkan Lengkapi Data",
vbCritical, "Error"
Else
With rsMhs
If Not .EOF Then
If MsgBox("Apakah Data ingin dihapus
dari Database" _
& Chr(10) &
"____________________________________" _
& Chr(10) & "NIM = "
& !nim _
& Chr(10) & "Nama = "
& !nama _
& Chr(10) & "Jenis Kelamin =
" & !jenis_kelamin _
& Chr(10) & "Agama = "
& !agama _
& Chr(10) &
"____________________________________" _
, vbOKCancel + vbCritical, "Benar Kode
Master") = vbCancel Then
Cancel = 1
Else
.delete
MsgBox "data telah dihapus",
vbInformation, "informasi"
End If
End If
Data1.Refresh
Call bersih
End With
End
If
End
Sub
Private
Sub Command4_Click()
Call
cari
Command1.Enabled
= False
Command2.Caption
= "UPDATE"
Command3.Caption
= "DELETE"
End
Sub
Private
Sub Command5_Click()
Call
bersih
Frame1.Enabled
= False
Command1.Enabled
= True
Command1.Caption
= "TAMBAH"
Command2.Caption
= "EDIT"
Command3.Caption
= "HAPUS"
Data1.Refresh
End
Sub
Private
Sub Command6_Click()
Me.Hide
'hilangkan saya
'Unload
Me 'hilang kan
'End
'semuanya ditutup
End
Sub
Private
Sub DBGrid1_Click()
With
Data1.Recordset
If Not .NoMatch Then
Text1.Text = DBGrid1.Columns(0)
Text2.Text = DBGrid1.Columns(1)
If DBGrid1.Columns(2) =
"Laki-laki" Then
Option1.Enabled = True
Option1.Value = True
Else
Option2.Enabled = True
Option2.Value = True
End If
Combo1.Text = DBGrid1.Columns(3)
DTPicker1.Value = DBGrid1.Columns(4)
Frame1.Enabled = True
Command1.Enabled = False
Command2.Caption = "UPDATE"
Command3.Caption = "DELETE"
Else
MsgBox "Not Found",
vbCritical, "Error"
End If
End
With
End
Sub
Private
Sub Form_Activate()
'pemanggilan
database
Call
Koneksi
Set
rsMhs = myDbs.OpenRecordset("tb_mhs", dbOpenDynaset)
Form1.Caption
= "Form Akademik OK"
End
Sub
Sub
agama()
'list
combobox
With
Combo1
.AddItem "Islam"
.AddItem "Kristen"
.AddItem "Hindu"
.AddItem "Budha"
.AddItem "Konghucu"
End
With
End
Sub
Private
Sub Form_Load()
Call
agama
Frame1.Enabled
= False
End
Sub
Sub
simpan()
If
Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Silahkan Lengkapi Data",
vbCritical, "Error"
Else
With rsMhs
.AddNew
!nim = Text1.Text: !nama = Text2.Text
If Option1.Value = True Then
!jenis_kelamin =
"Laki-laki"
Else
!jenis_kelamin =
"Perempuan"
End If
!agama = Combo1.Text: !tanggal =
DTPicker1.Value
.Update
MsgBox "Disimpan dengan NIM =
" & Text1.Text, vbInformation, "INFO"
Data1.Refresh
Call bersih
Frame1.Enabled = False
End With
End
If
End
Sub
Sub
edit()
If
Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Silahkan Lengkapi Data",
vbCritical, "Error"
Else
With rsMhs
.edit
!nim = Text1.Text: !nama = Text2.Text
If Option1.Value = True Then
!jenis_kelamin =
"Laki-laki"
Else
!jenis_kelamin =
"Perempuan"
End If
!agama = Combo1.Text: !tanggal =
DTPicker1.Value
.Update
MsgBox "Berhasil DiUpdate
dengan NIM = " & Text1.Text, vbInformation, "Info"
Data1.Refresh
Call bersih
Frame1.Enabled = False
End With
End
If
End
Sub
Harapan :
Semoga Tutorial ini dapat membantu teman-teman belajar membuat Simpan, Edit, Hapus dan Pencarian. Tentunya turoial yang penulis buat ini tidak lepas dari kekurangan maka dari itu mohoh kritik dan saran untuk melengkapi tulisan ini.
Harapan Penulis Semoga Tutorial ini bisa dikembangkan dan
dimamfaat.
