Data Mahasiswa Baru

Public Public Public Public

dbcalon rscalon dbsiswa rssiswa

As As As As

Database Recordset Database Recordset

Private Sub daftar_Click() rscalon.Seek "=", daftar.Text If Not rscalon.NoMatch Then NIS.Text = "" Nama.Text = rscalon(1) Alamat.Text = rscalon(2) kelamin.Text = rscalon(3) tempat.Text = rscalon(4) tanggal.Value = rscalon(5) daftar.Enabled = False Nama.Enabled = False Alamat.Enabled = False kelamin.Enabled = False tempat.Enabled = False tanggal.Enabled = False Else NIS.Text = "" Nama.Text = "" Alamat.Text = "" kelamin.Text = "" tempat.Text = "" tanggal.Value = "" End If End Sub Private Sub DataGrid1_Click() NIS = Data1.Recordset!NIS Nama = Data1.Recordset!Nama Alamat = Data1.Recordset!alt kelamin = Data1.Recordset!je_kel tempat = Data1.Recordset!tmpt_l tanggal = Data1.Recordset!tgl_l wali = Data1.Recordset!wali End Sub Private Sub Form_Load() Set dbcalon = OpenDatabase(App.Path & "\dbsiswabaru.mdb") Set rscalon = dbcalon.OpenRecordset("c dbcalon.OpenRecordset("calon") alon") rscalon.Index = "no_daf" Set dbsiswa = OpenDatabase(App.Path & "\dbsiswabaru.mdb") Set rssiswa = dbsiswa.OpenRecordset("s dbsiswa.OpenRecordset("siswa") iswa") rssiswa.Index = "nis" rscalon.MoveFirst While Not rscalon.EOF daftar.AddItem (rscalon(0)) rscalon.MoveNext Wend End Sub Private Sub Hapus_Click() Data1.Recordset.Delete Data1.Refresh Call bersih End Sub

Private Sub Keluar_Click() Dim X X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title) If X = vbYes Then Unload Me Else Cancel = 1 End If End Sub Private Sub Koreksi_Click() Data1.Recordset.Edit Data1.Recordset!NIS = NIS.Text Data1.Recordset!Nama = Nama.Text Data1.Recordset!alt = Alamat.Text Data1.Recordset!je_kel = kelamin.Text Data1.Recordset!tmpt_l = tempat.Text Data1.Recordset!tgl_l = tanggal.Value Data1.Recordset!wali = wali.Text Data1.Recordset.Update DBGrid1.Refresh Call bersih End Sub Private Sub NIS_Change() rssiswa.Seek "=", NIS.Text If rssiswa.NoMatch Then wali = "" Simpan.Enabled = True Hapus.Enabled = False Koreksi.Enabled = False ElseIf Not rssiswa.NoMatch Then Nama.Text = rssiswa(1) Alamat.Text = rssiswa(2) kelamin.Text = rssiswa(3) tempat.Text = rssiswa(4) tanggal.Value = rssiswa(5) wali.Text = rssiswa(6) Nama.Enabled = True kelamin.Enabled = True Alamat.Enabled = True tempat.Enabled = True tanggal.Enabled = True Simpan.Enabled = False Hapus.Enabled = True Koreksi.Enabled = True End If End Sub Private Sub NIS_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then wali.SetFocus End If End Sub Private Sub Simpan_Click() If NIS.Text = "" Or Nama.Text = "" Or Alamat.Text = "" Or kelamin.Text = "" Or t empat.Text = "" Or wali.Text = "" Then MsgBox "Data Tidak Boleh Kosong ..!!", vbInformation, "PESAN" Else

rssiswa.AddNew rssiswa(0) = NIS.Text rssiswa(1) = Nama.Text rssiswa(2) = Alamat.Text rssiswa(3) = kelamin.Text rssiswa(4) = tempat.Text rssiswa(5) = tanggal.Value rssiswa(6) = wali.Text MsgBox "Data Sudah Tersimpan!!!", vbOKOnly, pesan rssiswa.Update Data1.Refresh DBGrid1.Refresh Call bersih End If End Sub Private Sub bersih() daftar.Text = "" NIS.Text = "" Nama.Text = "" Alamat.Text = "" kelamin.Text = "" tempat.Text = "" wali.Text = "" daftar.Enabled = True daftar.SetFocus End Sub Private Sub wali_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Simpan.SetFocus End If End Sub