Modul V.isual_Basic Tentang Database

Desain Formulir

Source Code :

Dim akademik As Database
Dim tbMahasiswa As Recordset

Private Sub cmdlihatmahasiswa_Click()
  TABMAHASISWA.Visible = False
  mnutabel_Click
End Sub

Private Sub Form_Load()
Set akademik = OpenDatabase(App.path & "\Akademik.mdb")
Set tbMahasiswa = akademik.OpenRecordset("mahasiswa")
tbMahasiswa.Index = "indexnpm"

TABMAHASISWA.Visible = False
tabtabelmahasiswa.Visible = False

Combojk.AddItem "L"
Combojk.AddItem "P"

Combojurusan.AddItem "Teknik Informatika"
Combojurusan.AddItem "Sistem Informasi"
Combojurusan.AddItem "Manajemen Informatika"
Combojurusan.AddItem "Komputer Akuntansi"
Combojurusan.AddItem "Teknik Komputer"

Combojenjang.AddItem "D1"
Combojenjang.AddItem "D2"
Combojenjang.AddItem "D3"
Combojenjang.AddItem "S1"
Combojenjang.AddItem "S2"
Combojenjang.AddItem "S3"

End Sub

Private Sub CmdSimpan_Click()
Dim p As String
If (Textnpm.Text = "") Then
    p = MsgBox("Npm harus diisi", vbOKOnly)
    Textnpm.SetFocus
    Exit Sub
End If

If (textnama.Text = "") Then
    p = MsgBox("Nama harus diisi", vbOKOnly)
    textnama.SetFocus
    Exit Sub
End If

If (textalamat.Text = "") Then
    p = MsgBox("Alamat Jangan dikosongkan", vbOKOnly)
    textalamat.SetFocus
    Exit Sub
End If

If (Combojk.Text = "") Then
    p = MsgBox("Jenis kelamin Jangan dikosongkan", vbOKOnly)
    Combojk.SetFocus
    Exit Sub
End If

If (Combojurusan.Text = "") Then
    p = MsgBox("Jurusan kelamin Jangan dikosongkan", vbOKOnly)
    Combojurusan.SetFocus
    Exit Sub
End If

If (Combojenjang.Text = "") Then
    p = MsgBox("Jenjang Jangan dikosongkan", vbOKOnly)
    Combojenjang.SetFocus
    Exit Sub
End If

If (Texttahun.Text = "") Then
    p = MsgBox("Tahun masuk Jangan dikosongkan", vbOKOnly)
    Texttahun.SetFocus
    Exit Sub
End If

tbMahasiswa.AddNew
tbMahasiswa!npm = Textnpm.Text
tbMahasiswa!nama = textnama.Text
tbMahasiswa!alamat = textalamat.Text
tbMahasiswa!jenis_kel = Combojk.Text
tbMahasiswa!jurusan = Combojurusan.Text
tbMahasiswa!jenjang = Combojenjang.Text
tbMahasiswa!tahun_masuk = Texttahun.Text
tbMahasiswa.Update

End Sub



Private Sub mnukeluar_Click()
End
End Sub

Private Sub mnumahasiswa_Click()
Tabmahasiswa.Visible = True
End Sub

Private Sub mnutabel_Click()
tabtabelmahasiswa.Visible = True

End Sub