Visual Basic 6.0 - Program Database Mahasiswa

.::| PROGRAM DATABASE MAHASISWA |::.

Visual Basic 6.0

-=:| Berikut kode Syntax Program Database Mahasiswa |:=-

/////////

Private Sub CANCEL_Click()

End

End Sub

Private Sub CARI_Click()

Data1.Recordset.FindFirst "NIS='" + Text9 + "'"

If Data1.Recordset.NoMatch Then

MsgBox "NIM yang Anda cari Tidak Ditemukan", vbOKOnly, "cari"

Data1.Recordset.MoveFirst

Text9.SetFocus

End If

End Sub

Private Sub HAPUS_Click()

Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus")

If Delete = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Else

Data1.Recordset.MoveFirst

End If

End Sub

Private Sub SIMPAN_Click()

Data1.Recordset.Update

Data1.Recordset.MoveFirst

Call tidaktampil

End Sub

Private Sub TAMBAH_Click()

Data1.Recordset.AddNew

Call tampil

Text1.SetFocus

End Sub

Private Sub Form_Load()

Call tidaktampil

End Sub

Sub tampil()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Text6.Enabled = True

Text7.Enabled = True

Text8.Enabled = True

End Sub

Sub tidaktampil()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

Text8.Enabled = False

End Sub