Visual Basic ( Form Siswa )

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Visual Basic ( Form Siswa ), Diterbitkan oleh scodeaplikasi pada Sabtu, 28 April 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.