Visual Basic ( Form Siswa )

Komponen Yang Digunakan :

1. Microsoft Ado Data Control 6.0 (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)
3. Microsoft Windows Common Controls-2 6.0 (SP6)

Listing Modul :


Public conn As New ADODB.Connection
Public rssiswa As New ADODB.Recordset

Public Sub openDB()
Set conn = New ADODB.Connection
Set rssiswa = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Sekolah.mdb"
End Sub

Listing/Coding :

Sub aktif()

txtnis.Enabled = True

txtnama.Enabled = True

txtalamat.Enabled = True

txttempat.Enabled = True

tgllahir.Enabled = True

cmbjenis.Enabled = True

cmbagama.Enabled = True

cmbjurusan.Enabled = True

txtkeahlian.Enabled = True

txtkelas.Enabled = True

End Sub

Sub nonaktif()

txtnis.Enabled = False

txtnama.Enabled = False

txtalamat.Enabled = False

txttempat.Enabled = False

tgllahir.Enabled = False

cmbjenis.Enabled = False

cmbagama.Enabled = False

cmbjurusan.Enabled = False

txtkeahlian.Enabled = False

txtkelas.Enabled = False

End Sub

Sub bersih()

txtnis.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

txttempat.Text = ""

cmbjenis.Text = "--Silakan Pilih--"

cmbagama.Text = "--Silakan Pilih--"

cmbjurusan.Text = "--Silakan Pilih--"

txtkeahlian.Text = ""

txtkelas.Text = ""

End Sub

Sub tampil()

With rssiswa

If Not .EOF Then

txtnis.Text = !nis

txtnama.Text = !nama

txtalamat.Text = !alamat

txttempat.Text = !tempat_lahir

tgllahir.Value = !tanggal_lahir

cmbjenis.Text = !jenis_kelamin

cmbagama.Text = !agama

cmbjurusan.Text = !jurusan

txtkeahlian.Text = !keahlian

txtkelas.Text = !kelas

End If

End With

End Sub

Private Sub Form_Load()

Call openDB

conn.CursorLocation = adUseClient

rssiswa.Open "select * from Siswa", conn

Set gridsiswa.DataSource = rssiswa.DataSource

End Sub

Private Sub Form_Activate()

nonaktif

bersih

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdcancel.Enabled = False

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

cmdinput.SetFocus

cmbjenis.AddItem "Pria"

cmbjenis.AddItem "Wanita"

cmbagama.AddItem "Islam"

cmbagama.AddItem "Kristen"

cmbagama.AddItem "Hindu"

cmbagama.AddItem "Budha"

cmbjurusan.AddItem "Teknik Mesin"

cmbjurusan.AddItem "Teknik Informatika"

cmbjurusan.AddItem "Teknik Sipil"

End Sub

Private Sub cmdinput_Click()

aktif

bersih

txtnis.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdedit.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdsave_Click()

If cmdsave.Caption = "&Save" Then

Dim sqlsave As String

sqlsave = "insert into Siswa values('" & txtnis & "','" & txtnama & "','" & txtalamat & "','" & txttempat & "','" & tgllahir & "','" & cmbjenis & "','" & cmbagama & "','" & cmbjurusan & "','" & txtkeahlian & "','" & txtkelas & "')"

conn.Execute sqlsave

MsgBox "Data Telah Tersimpan"

Form_Load

Else

Dim sqledit As String

sqledit = "update Siswa set nama='" & txtnama & "',alamat='" & txtalamat & "',tempat_lahir ='" & txttempat & "',tanggal_lahir='" & tgllahir & "',jenis_kelamin='" & cmbjenis & "',agama='" & cmbagama & "',jurusan='" & cmbjurusan & "',keahlian = '" & txtkeahlian & "',kelas='" & txtkelas & "' where nis = '" & txtnis & "'"

conn.Execute sqledit

MsgBox "Data Telah Diperbaharui"

Form_Load

End If

nonaktif

cmdsave.Enabled = True

cmdsave.Caption = "&Save"

cmdsave.Enabled = False

cmdinput.Enabled = True

cmdcancel.Enabled = True

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdedit_Click()

aktif

tampil

txtnis.Enabled = False

txtnama.SetFocus

cmdsave.Caption = "&Update"

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdexit.Enabled = True

cmdcancel.Enabled = True

End Sub

Private Sub cmdcancel_Click()

p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

bersih

nonaktif

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmdcancel.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

End Sub

Private Sub cmddelete_Click()

Call openDB

rssiswa.Open "delete from Siswa where nis = '" & txtnis & "'", conn

MsgBox "Data Telah Terhapus"

Form_Load

bersih

nonaktif

cmdinput.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdsave.Enabled = False

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdexit_Click()

p = MsgBox("Yakin Ingin Keluar Dari Program Ini..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

End

End If

End Sub

Private Sub cmdcari_Click()

Call openDB

rssiswa.Open "select * from Siswa where nis='" & txtcari & "'", conn

If rssiswa.EOF Then

MsgBox "Data Tidak Ditemukan"

txtcari.Text = ""

Else

MsgBox "Data Sudah Ada"

tampil

nonaktif

txtcari.Text = ""

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmbjurusan_Click()

If cmbjurusan.Text = "Teknik Mesin" Then

txtkeahlian.Text = "Mekanik Otomotif"

ElseIf cmbjurusan.Text = "Teknik Informatika" Then

txtkeahlian.Text = "Programing"

Else

txtkeahlian.Text = "Konstruksi"

End If

txtkelas.SetFocus

End Sub

Private Sub txtnis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call openDB

rssiswa.Open "select * from Siswa where nis = '" & txtnis & "'", conn

If Not rssiswa.EOF Then

MsgBox "Data Sudah Ada"

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdinput.SetFocus

Else

p = MsgBox("Data Tidak Ada, Apa Mau Menambah Data..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

aktif

txtnis.Enabled = False

txtnama.Text = ""

txtalamat.Text = ""

txttempat.Text = ""

cmbjenis.Text = "--Silakan Pilih--"

cmbagama.Text = "--Silakan Pilih--"

cmbjurusan.Text = "--Silakan Pilih--"

txtkeahlian.Text = ""

txtkelas.Text = ""

txtnama.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

Else

nonaktif

bersih

End If

End If

End If

End Sub