Scribd
Upload
1K views

Form Pengisian Nilai 1. Buat Tabel KHS Seperti Berikut Ini

The document contains code for a form used to input student grades. It includes code to: 1. Create a table to display student courses, credits, semester, instructor code, instructor name, grade letter, and numeric grade. 2. Add dropdown lists for academic years, semesters, courses, and instructor codes to select input values. 3. Save, delete, or update student grade records in a database based on selections from the form fields and dropdown lists.

Uploaded by

EforiBu'ulolo
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
1K views

Form Pengisian Nilai 1. Buat Tabel KHS Seperti Berikut Ini

The document contains code for a form used to input student grades. It includes code to: 1. Create a table to display student courses, credits, semester, instructor code, instructor name, grade letter, and numeric grade. 2. Add dropdown lists for academic years, semesters, courses, and instructor codes to select input values. 3. Save, delete, or update student grade records in a database based on selections from the form fields and dropdown lists.

Uploaded by

EforiBu'ulolo
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 7

Form Pengisian Nilai

1. Buat tabel KHS seperti berikut ini :

2. Desain Form Seperti berikut ini:

3. Setelah itu ketik kode program berikut :

Public Class Form4


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
bukadatabase()
buattabel()
addta()
addsemester()
adddosen()
End Sub
Sub buattabel()
With lv.Columns
.Add("Kode MK", 100, HorizontalAlignment.Center)
.Add("Matakuliah", 200, HorizontalAlignment.Center)
.Add("SKS", 60, HorizontalAlignment.Center)
.Add("Semester", 80, HorizontalAlignment.Center)

.Add("Kode Dosen", 100, HorizontalAlignment.Center)


.Add("Dosen", 100, HorizontalAlignment.Center)
.Add("N.Huruf", 80, HorizontalAlignment.Center)
.Add("N.Angka", 80, HorizontalAlignment.Center)
End With
lv.GridLines = True
lv.View = View.Details
End Sub
Sub addta()
With ta.Items
.Add("2013/2014")
.Add("2014/2015")
.Add("2015/2016")
.Add("2016/2017")
.Add("2017/2018")
End With
End Sub
Sub addsemester()
With semester.Items
.Add("I")
.Add("II")
.Add("III")
.Add("IV")
.Add("V")
.Add("VI")
.Add("VII")
.Add("VIII")
.Add("IX")
.Add("X")
End With
End Sub
Sub addmatakuliah()
sql = "select kode from matakuliah"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
rs = cmd.ExecuteReader
While rs.Read
kodemk.Items.Add(rs("kode"))
End While
rs.Close()
End Sub
Sub adddosen()
sql = "select nidn from dosen"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
rs = cmd.ExecuteReader
While rs.Read
NIDN.Items.Add(rs("nidn"))

End While
rs.Close()
End Sub
Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress
If Asc(e.KeyChar) = 13 Then
sql = "select npm,nama,jurusan from mahasiswa where npm='" & npm.Text &
"'"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
rs = cmd.ExecuteReader
If rs.Read <> 0 Then
nama.Text = rs("nama")
jurusan.Text = rs("jurusan")
Else
MsgBox("NPM Anda tidak terdaftar", MsgBoxStyle.Information)
End If
rs.Close()
End If
End Sub
Private Sub kodemk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles kodemk.SelectedIndexChanged
'sql = "select *from matakuliah where kode='" & kodemk.Text & "'"
sql = "SELECT
krs.tanggal,krs.npm,krs.ta,krs.semester,krs.kodemk,krs.nidn,dosen.nama,matakuliah.
matakuliah," & _
"matakuliah.sks,matakuliah.semester FROM krs,dosen,matakuliah where
matakuliah.kode = krs.kodemk and krs.nidn = dosen.nidn and krs.npm='" & npm.Text
& "' and krs.ta='" & ta.Text & "' and krs.semester='" & semester.Text & "' and
krs.kodeMK='" & kodemk.Text & "'"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
rs = cmd.ExecuteReader
If rs.Read <> 0 Then
matakuliah.Text = rs("matakuliah")
sks.Text = rs("sks")
semestermk.Text = rs("semester")
NIDN.Text = rs("NIDN")
Namadosen.Text = rs("nama")
End If
Nilai.Focus()
rs.Close()
End Sub
Sub CekTotal()
Dim t, xt As Long
For i = 0 To lv.Items.Count - 1
xt = lv.Items(i).SubItems(2).Text
t = t + xt

Next i
jumlahsks.Text = t
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Sub bersihform()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
semester.Text = ""
semestermk.Text = ""
ta.Text = ""
jurusan.Text = ""
kodemk.Text = ""
matakuliah.Text = ""
sks.Text = ""
semester.Text = ""
NIDN.Text = ""
Namadosen.Text = ""
lv.Items.Clear()
End Sub
Sub bersihmasuktabel()
kodemk.Text = ""
matakuliah.Text = ""
sks.Text = ""
semestermk.Text = ""
NIDN.Text = ""
Namadosen.Text = ""
Nilai.Text = ""
End Sub
Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnBatal.Click
bersihform()
End Sub
Sub simpandb()
Dim xkdmk, xnidn, xnilai As String
For i = 0 To lv.Items.Count - 1
xkdmk = lv.Items(i).SubItems(0).Text
xnidn = lv.Items(i).SubItems(4).Text
xnilai = lv.Items(i).SubItems(6).Text
sql = "insert into khs(npm,tanggal,ta,semester,kodemk,nidn,nilai)" & _
"values('" & npm.Text & _
"','" & Format(tanggal.Value, "yyyy-MM-dd") & _
"','" & ta.Text & _
"','" & semester.Text & _

"','" & xkdmk & _


"','" & xnidn & _
"','" & xnilai & "')"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
Next i
MsgBox("Data KRS tersimpan..!!", MsgBoxStyle.Information)
bersihform()
End Sub
Sub hapusdb()
sql = "delete from khs where npm='" & npm.Text & "' and ta='" & ta.Text & "'
and semester='" & semester.Text & "'"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox("Data KHS terhapus..!!", MsgBoxStyle.Information)
bersihform()
End Sub
Sub editdb()
sql = "delete from khs where npm='" & npm.Text & "' and ta='" & ta.Text & "'
and semester='" & semester.Text & "'"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
Dim xkdmk, xnidn, xnilai As String
For i = 0 To lv.Items.Count - 1
xkdmk = lv.Items(i).SubItems(0).Text
xnidn = lv.Items(i).SubItems(4).Text
xnilai = lv.Items(i).SubItems(6).Text
sql = "insert into khs(npm,tanggal,ta,semester,kodemk,nidn,nilai)" & _
"values('" & npm.Text & _
"','" & Format(tanggal.Value, "yyyy-MM-dd") & _
"','" & ta.Text & _
"','" & semester.Text & _
"','" & xkdmk & _
"','" & xnidn & _
"','" & xnilai & "')"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
Next i
MsgBox("Data KHS terupdate..!!", MsgBoxStyle.Information)
bersihform()
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnSimpan.Click
simpandb()

End Sub
Private Sub semester_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles semester.SelectedIndexChanged
lv.Items.Clear()
sql = "SELECT
krs.tanggal,krs.npm,krs.ta,krs.semester,krs.kodemk,krs.nidn,dosen.nama,matakuliah.
matakuliah," & _
"matakuliah.sks,matakuliah.semester FROM krs,dosen,matakuliah where
matakuliah.kode = krs.kodemk and krs.nidn = dosen.nidn and krs.npm='" & npm.Text
& "' and krs.ta='" & ta.Text & "' and krs.semester='" & semester.Text & "'"
cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
rs = cmd.ExecuteReader
kodemk.Items.Clear()
While rs.Read
kodemk.Items.Add(rs("kodeMK"))
End While
rs.Close()
CekTotal()
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnHapus.Click
hapusdb()
End Sub
Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEdit.Click
editdb()
End Sub
Private Sub Nilai_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles Nilai.KeyPress
Dim xhuruf As String
If Asc(e.KeyChar) = 13 Then
Dim lst As New ListViewItem
lst.Text = kodemk.Text
lst.SubItems.Add(matakuliah.Text)
lst.SubItems.Add(sks.Text)
lst.SubItems.Add(semestermk.Text)
lst.SubItems.Add(NIDN.Text)
lst.SubItems.Add(Namadosen.Text)
lst.SubItems.Add(Nilai.Text)
If Nilai.Text >= 80 Then
xhuruf = "A"
ElseIf Nilai.Text >= 75 Then
xhuruf = "B+"
ElseIf Nilai.Text >= 70 Then
xhuruf = "B"
ElseIf Nilai.Text >= 65 Then
xhuruf = "C+"

ElseIf Nilai.Text >= 60 Then


xhuruf = "C"
ElseIf Nilai.Text >= 50 Then
xhuruf = "D"
ElseIf Nilai.Text >= 0 Then
xhuruf = "E"
End If
lst.SubItems.Add(xhuruf)
lv.Items.Add(lst)
CekTotal()
bersihmasuktabel()
End If
End Sub
End Class

You might also like