Cara Membuat Aplikasi Sederhana dengan Menggunakan Visual Basic 6.0

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.