Membuat Aplikasi Menggunakan Visual Basic (Data Mahasiswa)

nah mungkin teman-teman ingin mencoba membuat aplikasi menggunakan Visual Basic. disini saya ada contoh yaitu tentang Data Mahasiwa, bagi teman teman yang tertarik silahan lihat gambar dibawah, atau silakan dowload langsung file VB Data Mahasiswa.

untuk membuat aplikasi Data mahasiswa sendiri saya menggunakan coding seperti ini. bisa teman teman lihat dibawah ini.

Dim ket As String


Private Sub cmbjurusan_click()
    Select Case cmbjurusan
        Case "Manajemen Informatika"
            If cmdsave Then
                cmdsave_Click
                DataGrid1.Columns(5) = "Manajemen Informatika"
            End If
        Case Else
            If cmdsave Then
                cmdsave_Click
                DataGrid1.Columns(5) = "Komputerisasi Akuntansi"
            End If
    End Select

txtsmt.SetFocus
End Sub

Private Sub cmdadd_Click()
    Call aktif
    Call bersih
    txtnim.SetFocus
    cmdadd.Enabled = False
    cmdsave.Enabled = True
    cmdedit.Enabled = False
    cmddel.Enabled = False
    cmdundo.Enabled = True
    cmdexit.Enabled = True
End Sub
Sub aktif()
    txtnim.Enabled = True
    txtnama.Enabled = True
    txtalamat.Enabled = True
    txttempat.Enabled = True
    txtttl.Enabled = True
    cmbjurusan.Enabled = True
    txtsmt.Enabled = True
    cmdedit.Caption = "&Edit"
End Sub

Private Sub cmddel_Click()
    p = MsgBox("Do you want to delete this record?", vbQuestion + vbYesNo, "Warning")
    If p = vbYes Then
        adodtmhs.Recordset.Delete
        MsgBox "Record was delete succesfully!", vbInformation, "Feed Back"
        bersih
        nonaktif
    End If
End Sub

Private Sub cmdedit_Click()
      
    If cmdedit.Caption = "&Edit" Then
        aktif
        cmdedit.Caption = "&Update"
        cmdundo.Enabled = True
        txtnim.Enabled = False
        txtnama.SetFocus
    ElseIf cmdedit.Caption = "&Update" Then
    txtnim.Enabled = False
    With adodtmhs.Recordset
        !Nama = txtnama.Text
        !Alamat = txtalamat.Text
        !Tempat_Lahir = txttempat.Text
        !Tanggal_Lahir = txtttl.Text
        !Jurusan = cmbjurusan.Text
        !Semester = txtsmt.Text
        .Update
        End With
        MsgBox "Data telah diperbarui", , "Informasi"
        nonaktif
        cmdundo.Enabled = False
        cmdedit.Caption = "&Edit"
      
    If txtnama.Text = "" Or txtttl.Text = "" Then
        MsgBox "Pastikan NIM, Nama dan Tanggal Lahir tidak kosong", , "Penting"
    End If
 
    End If
 
    cmdadd.Enabled = True
    cmdsave.Enabled = False
    cmdedit.Enabled = True
    cmddel.Enabled = False
End Sub

Private Sub cmdexit_Click()
    p = MsgBox("Do you want to exit?", vbQuestion + vbOKCancel, "Data Mahasiswa")
    If p = vbOK Then
        End
    End If
End Sub

Sub tampil()
    DataGrid1_Click
End Sub

Private Sub cmdfind_Click()
adodtmhs.Recordset.Find "NIM = '" & txtfind.Text & "'"
    If Not adodtmhs.Recordset.EOF Then
        tampil
        aktif
        cmdadd.Enabled = True
        cmdsave.Enabled = True
        cmdedit.Enabled = True
        cmdsave.Enabled = True
        cmdundo.Enabled = True
        cmdexit.Enabled = True
        cmddel.Enabled = True
        txtfind.Text = ""
    Else
        MsgBox "kode barang tidak ada", vbInformation, "info"
        txtfind.Text = ""
    End If
End Sub

Private Sub cmdsave_Click()
    cmdadd.Enabled = False
    cmdsave.Enabled = True
    adodtmhs.Recordset.Find "NIM= '" & txtnim.Text & "'"
    If txtnim.Text = "" Or txtnama.Text = "" Or txtttl.Text = "" Then
        MsgBox "Mohon isi data dengan lengkap", vbInformation, "Penting"
      
    ElseIf Len(txtnim.Text) < 8 Then
        MsgBox "NIM Harus 8 angka!", , "Penting"
    Else
        If adodtmhs.Recordset.EOF Then
            simpan
            MsgBox "Data tersimpan", , "Informasi"
            cmdsave.Enabled = False
            cmdadd.Enabled = True
            bersih
            nonaktif
        Else
            MsgBox "NIM sudah ada!", vbCritical, "Informasi"
            txtnim.Text = Empty
            txtnim.SetFocus
        End If
    End If
  
    cmdundo.Enabled = False
End Sub
Sub simpan()
    With adodtmhs.Recordset
        .AddNew
        !NIM = txtnim.Text
        !Nama = txtnama.Text
        !Alamat = txtalamat.Text
        !Tempat_Lahir = txttempat.Text
        !Tanggal_Lahir = txtttl.Text
        !Jurusan = cmbjurusan.Text
        !Semester = txtsmt.Text
        .Update
    End With
End Sub

Private Sub cmdundo_Click()
    bersih
    nonaktif
    cmdadd.Enabled = True
    cmdexit.Enabled = True
    cmdsave.Enabled = False
    cmdundo.Enabled = False
End Sub

Private Sub DataGrid1_Click()
    txtnim.Text = DataGrid1.Columns(0)
    txtnama.Text = DataGrid1.Columns(1)
    txtalamat.Text = DataGrid1.Columns(2)
    txttempat.Text = DataGrid1.Columns(3)
    txtttl.Text = DataGrid1.Columns(4)
    cmbjurusan.Text = DataGrid1.Columns(5)
    txtsmt.Text = DataGrid1.Columns(6)
    If DataGrid1 = ActiveControl Then
        cmdedit.Enabled = True
        cmddel.Enabled = True
        cmdsave.Enabled = False
    End If
    nonaktif
End Sub
Sub bersih()
    txtnim.Text = Empty
    txtnama.Text = Empty
    txtalamat.Text = Empty
    txttempat.Text = Empty
    txtttl.Text = Empty
    cmbjurusan.Text = Empty
    txtsmt.Text = Empty
End Sub

Sub nonaktif()
    txtnim.Enabled = False
    txtnama.Enabled = False
    txtalamat.Enabled = False
    txttempat.Enabled = False
    txtttl.Enabled = False
    cmbjurusan.Enabled = False
    txtsmt.Enabled = False
End Sub

Private Sub Form_Activate()
    txtfind.SetFocus
    ket = "  " & Label10.Caption
    cmbjurusan.AddItem "Manajemen Informatika"
    cmbjurusan.AddItem "Komputerisasi Akuntansi"
    Label12.Caption = Time
Label11.Caption = Format(Date, "dddd,dd-mmmm-yyyy")
End Sub

Private Sub Form_Load()
    Call nonaktif
    cmdadd.Enabled = True
    cmdsave.Enabled = False
    cmdedit.Enabled = False
    cmddel.Enabled = False
    cmdundo.Enabled = False
    cmdexit.Enabled = True
End Sub


Private Sub Timer1_Timer()
ket = Right(ket, Len(ket) - 1) & Left(ket, 1)
Label10.Caption = ket
End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txttempat.SetFocus
    End If
End Sub

Private Sub txtjur_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtsmt.SetFocus
    End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtalamat.SetFocus
    End If
End Sub

Private Sub txtnim_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtnama.SetFocus
    End If
End Sub

Private Sub txttempat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtttl.SetFocus
    End If
End Sub

Private Sub txtttl_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        cmbjurusan.SetFocus
    End If
End Sub

silakan langsung dowload disini : Mari Dowload