UAS Pemrograman Visual Basic
Program ini dibuat untuk memudahkan suatu universitas dalam pendataan mahasiswa, program ini sudah dapat memanipulasi data seperti create, read, update, delete.
Berikut adalah beberapa screenshoot pada saat program dijalankan.
- Pada saat cari
- Pada saat update
- Pada saat menghapus
Berikut adalah source code nya :
Imports System.Data.OleDb
Public Class FrmMasterMahasiswa
Dim strtemp As String = ""
Dim strvalue As String = ""
Private Function autonumber()
sql = "SELECT * FROM MAHASISWA ORDER BY NIM DESC"
cmmd = New OleDbCommand(sql, cnn)
'On Error Resume Next
dreader = cmmd.ExecuteReader
If dreader.Read Then
strtemp = Mid(dreader.Item("NIM"), 3, 8)
strvalue = Val(strtemp) + 1
strvalue = "MS" & Mid("00000000", 1, 8 - strvalue.Length) & strvalue
Else
strvalue = "MS00000001"
End If
Return strvalue
End Function
Private Sub FrmMasterMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
koneksi()
txtnim.Text = autonumber()
End Sub
Private Sub bersih()
txtnama.Text = ""
rbjkl.Checked = True
txtalamat.Text = ""
txttelepon.Text = ""
txttptlahir.Text = ""
cmbjurusan.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
sql = "INSERT INTO MAHASISWA(NIM,NAMA,JNS_KELAMIN,ALAMAT,TELP,TEMP_LAHIR,TGL_LAHIR,JURUSAN) " & _
" values (?,?,?,?,?,?,?,?)"
cmmd = New OleDbCommand(sql, cnn)
cmmd.CommandType = CommandType.Text
cmmd.Parameters.AddWithValue("NIM", txtnim.Text)
cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
If rbjkl.Checked = True Then
cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
Else
cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
End If
cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)
Dim x As Integer = cmmd.ExecuteNonQuery
If x = 1 Then
MessageBox.Show("DATA BERHASIL ANDA SIMPAN", "informasi", MessageBoxButtons.OK)
txtnim.Text = autonumber()
bersih()
Else
MessageBox.Show("ANDA GAGAL MENYIMPAN DATA", "informasi", MessageBoxButtons.OK)
End If
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
txtnim.Text = autonumber()
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
sql = "DELETE FROM mahasiswa WHERE NIM=?"
cmmd = New OleDbCommand(sql, cnn)
cmmd.CommandType = CommandType.Text
cmmd.Parameters.AddWithValue("NIM", txtnim.Text)
Dim x As Integer = cmmd.ExecuteNonQuery
If x = 1 Then
MessageBox.Show("DATA BERHASIL ANDA HAPUS", "informasi", MessageBoxButtons.OK)
txtnim.Text = autonumber()
bersih()
Else
MessageBox.Show("ANDA GAGAL MENGHAPUS DATA", "informasi", MessageBoxButtons.OK)
End If
End Sub
Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click
sql = "UPDATE MAHASISWA set NAMA=? , JNS_KELAMIN=? , ALAMAT=? ,
TELP=? , TEMP_LAHIR=? , TGL_LAHIR=? , JURUSAN=? " & _
"WHERE NIM=?"
cmmd = New OleDbCommand(sql, cnn)
cmmd.CommandType = CommandType.Text
cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
If rbjkl.Checked = True Then
cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
Else
cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
End If
cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)
cmmd.Parameters.AddWithValue("NIM", txtnim.Text)
Dim x As Integer = cmmd.ExecuteNonQuery
If x = 1 Then
MessageBox.Show("DATA BERHASIL ANDA UBAH", "informasi", MessageBoxButtons.OK)
txtnim.Text = autonumber()
bersih()
Else
MessageBox.Show("ANDA GAGAL MENGUBAH DATA", "informasi", MessageBoxButtons.OK)
End If
End Sub
Private Sub txtnama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnama.TextChanged
txtnama.Focus()
End Sub
Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click
Dim popupmh As New Popup_MasterMahasiswa
popupmh.ShowDialog()
If popupmh.retnim <> "" Then
txtnim.Text = popupmh.retnim
txtnama.Text = popupmh.retnama
If popupmh.retjeniskelamin = "Laki-Laki" Then
rbjkl.Checked = True
Else
rbjkl.Checked = True
End If
txtalamat.Text = popupmh.retalamat
txttelepon.Text = popupmh.rettelepon
txttptlahir.Text = popupmh.rettempatlahir
DateTimePicker1.Value = popupmh.rettanggallahir
cmbjurusan.Text = popupmh.retjurusan
txtnim.Enabled = False
txtnama.Focus()
End If
End Sub
End Class
#source code pop up
Imports System.Data.OleDb
Public Class Popup_MasterMahasiswa
Public retnim, retnama, retjeniskelamin, retalamat, rettelepon, rettempatlahir, rettanggallahir, retjurusan As String
Private Sub isi_view()
Lvdata.Items.Clear()
Dim x As Integer = 1
koneksi()
sql = "SELECT * FROM MAHASISWA WHERE NAMA LIKE '%" & Trim(txtkatakunci.Text) & "%' ORDER BY NIM ASC"
cmmd = New OleDbCommand(sql, cnn)
dreader = cmmd.ExecuteReader
Try
While dreader.Read = True
Lvdata.Items.Add(dreader.Item("NIM").ToString)
Lvdata.Items(x - 1).SubItems.Add(dreader.Item("NAMA").ToString)
Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JNS_KELAMIN").ToString)
Lvdata.Items(x - 1).SubItems.Add(dreader.Item("ALAMAT").ToString)
Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TELP").ToString)
Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TEMP_LAHIR").ToString)
Lvdata.Items(x - 1).SubItems.Add(Format(CDate(dreader.Item("TGL_LAHIR")), "dd-MMMM-yyyy").ToString)
Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JURUSAN").ToString)
x = x + 1
End While
Finally
dreader.Close()
End Try
End Sub
Private Sub pilih()
Try
retnim = Lvdata.SelectedItems(0).SubItems(0).Text.ToString
retnama = Lvdata.SelectedItems(0).SubItems(1).Text.ToString
retjeniskelamin = Lvdata.SelectedItems(0).SubItems(2).Text.ToString
retalamat = Lvdata.SelectedItems(0).SubItems(3).Text.ToString
rettelepon = Lvdata.SelectedItems(0).SubItems(4).Text.ToString
rettempatlahir = Lvdata.SelectedItems(0).SubItems(5).Text.ToString
rettanggallahir = Lvdata.SelectedItems(0).SubItems(6).Text.ToString
retjurusan = Lvdata.SelectedItems(0).SubItems(7).Text.ToString
Me.Close()
Catch ex As Exception
MsgBox("pilih salah satu data", MsgBoxStyle.Information)
End Try
End Sub
Private Sub Popup_MasterMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call isi_view()
End Sub
Private Sub Lvdata_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lvdata.DoubleClick
Call pilih()
End Sub
Private Sub txtkatakunci_TextChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles txtkatakunci.TextChanged
Call pilih()
End Sub
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
Call pilih()
End Sub
Private Sub Lvdata_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Lvdata.SelectedIndexChanged
End Sub
End Class
