data mahasiswa tanpa keypress


Private Sub cmdbatal_Click()
txtnpm = ""
txtnama = ""
txtalamat = ""
txtnpm.SetFocus
End Sub


Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnpm = ""
txtnama = ""
txtalamat = ""
txtnpm.SetFocus
End Sub

Private Sub txtnpm_Change()

End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

tugas 3.7

Gambar
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnik = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim S As String txttahun = Left(txtnik, 4) S = Mid(txtnik, 5, 1) If S = "A" Then txtgol = "A" txtjabatan = "Manager" txtgaji = "4000000" txttunjangan = "1025000" ElseIf S = "B" Then txtgol = "B" txtjabatan = ...
Baca selengkapnya

STMIK PRINGSEWU GELARA UPACARA HARI SUMPAH PEMUDA KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA

Gambar
Setiap kali memperingati hari Sumpah Pemuda, semua stake holder berbondong-bondong menggelar berbagai acara, salah satunya yang dilakukan civitas akademik STMIK Pringsewu dengan menggelar Upacara Hari Sumpah Pemuda ke 89 di halaman kampus setempat, Sabtu (28/10) selaku Inspektur Upacara mengatakan, dihari Sumpah Pemuda yang ke-89 pada tahun 2017 ini, Resimen Mahasiswa dan rekan-rekan dari BEM, Mahasiswa, dan Pimpinan Perguruan Tinggi STMIK Pringsewu beserta Staff dan jajarannya memperingati hari Sumpah Pemuda dengan melaksanakan upacara pengibaran Bendera di halaman kampus setempat. Beliau juga menegaskan bahwa sumpah pemuda merupakan satu tonggak utama dalam sejarah pergerakan kemerdekaan bangsa Indonesia. Kepada mahasiswa mahasiswi STMIK Pringsewu agar mempererat persatuan di tengah perbedaan, jaga nilai-nilai sumpah pemuda, terutama satu bangsa satu tanah air, jangan khianati sumpah pemuda, melalui sumpah pemuda, tanah air, bangsa dan bahasa dapat diwujudkan untuk...
Baca selengkapnya