Sub JK() cbo_jk.Text = ---PILIH JENIS KELAMIN--- - TopicsExpress

Sub JK() cbo_jk.Text = ---PILIH JENIS KELAMIN--- cbo_jk.AddItem = Laki - Laki cbo_jk.AddItem = Peyempuan End Sub Sub isi_jk() cbo_jk.Text = ---PILIH JENIS KELAMIN--- cbo_jk.AddItem Laki Laki cbo_jk.AddItem Peyempuan End Sub Sub siap_isi() txt_nis.SetFocus txt_nis.Enabled = True txt_noabsen.Enabled = True txt_nama.Enabled = True txt_tempat.Enabled = True dtp_tgl.Enabled = True cbo_jk.Enabled = True txt_alamat.Enabled = True txt_telp.Enabled = True txt_nis.BackColor = &H80000005 txt_noabsen.BackColor = &H80000005 txt_nama.BackColor = &H80000005 txt_tempat.BackColor = &H80000005 cbo_jk.BackColor = &H80000005 txt_alamat.BackColor = &H80000005 txt_alamat.BackColor = &H80000005 End Sub Sub tidak_siap_isi() txt_nis.SetFocus txt_nis.Enabled = False txt_noabsen.Enabled = False txt_nama.Enabled = False txt_tempat.Enabled = False dtp_tgl.Enabled = False cbo_jk.Enabled = False txt_alamat.Enabled = False txt_telp.Enabled = False txt_nis.BackColor = &H8000000F txt_noabsen.BackColor = &H8000000F txt_nama.BackColor = &H8000000F txt_tempat.BackColor = &H8000000F cbo_jk.BackColor = &H8000000F txt_alamat.BackColor = &H8000000F txt_alamat.BackColor = &H8000000F End Sub Sub bersih() txt_nis.Text = txt_noabsen.Text = txt_nama.Text = txt_tempat.Text = cbo_jk.Text = ---PILIH JENIS KELAMIN--- txt_alamat.Text = txt_telp.Text = End Sub Sub tampil() On Error Resume Next With RsSiswa txt_nis.Text = !nis txt_noabsen.Text = !no_absen txt_nama.Text = !nama txt_tempat.Text = !tempat_lahir dtp_tgl.Value = !tgl_lahir cbo_jk.Text = !jenis_kelamin txt_alamat.Text = !alamat txt_telp.Text = !telp End With End Sub Sub ubah() siap_isi cmdproses(2).Enabled = False cmdproses(3).Enabled = False cmdproses(4).Enabled = False End Sub Sub batal() txt_nis.Text = tidak_siap_isi bersih cmdproses(0).Enabled = True cmdproses(1).Enabled = False cmdproses(2).Enabled = False cmdproses(3).Enabled = False cmdproses(4).Enabled = False End Sub Sub perbaiki() With RsSiswa .Clone !nis = txt_nis.Text !no_absen = txt_noabsen.Text !nama = txt_nama.Text !tempat_lahir = txt_tempat.Text !tgl_lahir = dtp_tgl.Value !jenis_kelamin = cbo_jk.Text !alamat = txt_alamat.Text !telp = txt_telp.Text .Update End With Call batal End Sub Sub hapus() On Error Resume Next Dim hapus As String hapus = MsgBox(Yakin data akan dihapus?, vbInformation + vbOKCancel, informasi) If hapus = vbOK Then With RsSiswa .Delete .MoveNext End With Else Exit Sub End If txt_nis.Enabled = False txt_nis.Text = Call tidak_siap_isi Call bersih cmdproses(1).Enabled = False cmdproses(2).Enabled = False cmdproses(3).Enabled = False RsSiswa.Requery On Error GoTo 0 End Sub Sub simpan() If txt_nis.Text = Or txt_noabsen.Text = Or txt_tempat.Text = Or txt_nama = Or txt_alamat.Text = Or txt_telp.Text = Then MsgBox Masukkan Data dengan Lengkap coy !!, vbInformation + vbOKOnly, informasi Else On Error Resume Next With RsSiswa .AddNew !nis = txt_nis.Text !no_absen = txt_noabsen.Text !nama = txt_nama.Text !tempat_lahir = txt_tempat.Text !tgl_lahir = dtp_tgl.Value !jenis_kelamin = cbo_jk.Text !alamat = txt_alamat.Text !telp = txt_telp.Text .Update .MoveFirst End With MsgBox Data Telah Disimpan, vbOKOnly + vbInformation, informasi On Error GoTo 0 End If End Sub Private Sub form_activate() Call BukaDatabase isi_jk tidak_siap_isi txt_nis.Enabled = True txt_nis.SetFocus Set DataGrid1.DataSource = RsSiswa End Sub Private Sub cmdproses_click(Index As Integer) Select Case Index Case 0 If cmdproses(0).Caption = Baru Then cmdproses(0).Visible = False cmdproses(6).Visible = True cmdproses(1).Enabled = True Call siap_isi End If Case 1 Call batal Call bersih cmdproses(0).Visible = True cmdproses(1).Enabled = False txt_nis.SetFocus Case 2 Call ubah cmdproses(3).Enabled = True cmdproses(4).Enabled = True Case 3 Call perbaiki Case 4 Call hapus Case 5 Unload Me Case 6 If cmdproses(6).Caption = simpan Then Call simpan cmdproses(0).Visible = True cmdproses(6).Visible = True cmdproses(1).Enabled = True Call bersih End If End Select End Sub Private Sub txt_nis_change() If Len(txt_nis) < 14 Then Exit Sub Else RsSiswa.Find nis = & txt_nis.Text & , , adSearchForward, 1 If Not RsSiswa.EOF Then Call tampil Call tidak_siap_isi cmdproses(0).Enabled = False cmdproses(1).Enabled = True cmdproses(2).Enabled = True cmdproses(3).Enabled = False cmdproses(4).Enabled = False Else cmdproses(0).Enabled = True cmdproses(1).Enabled = True cmdproses(2).Enabled = False cmdproses(3).Enabled = False cmdproses(4).Enabled = False Call siap_isi Call bersih txt_nama.SetFocus End If End If End Sub Private Sub txt_nis_KeyPress(keyAscii As Integer) keyAscii = Asc(UCase(Chr(keyAscii))) If keyAscii = 13 Then If txt_nis = Then Unload Me Else RsSiswa.Find nis = & txt_nis.Text & , , adSearchForward, 1 DataGrid1.SetFocus Call tampil If Not RsSiswa.EOF Then Call ubah cmdproses(0).Enabled = False cmdproses(1).Enabled = True cmdproses(2).Enabled = False cmdproses(3).Enabled = True cmdproses(4).Enabled = True End If End If End If End Sub

Le roi Houédogni Béhanzin Deuil au Palais royal de Djimè : Le

EDMONTON — Internal government reports say Alberta will have to

Totally insatiable tonight. Dinner four times so far. As I just

Oregon State Beavers Suntime Mens Sports Watch w/ Leather Band -

Oklahomans Claim Fracking Waste Polluted Their Water By

All salseros and mamberos are heading to the Salsa Underground HQ

Finley Home Shabby Chic Antique Jewelry Armoire, White, Wood Black

اقتصاديون ضد الانقلاب Economists against the

PRÉ CADASTRO LIBERADO SUA CONTA NO PagSeguro inundada com

Good Morning. Yuck!, cold damp and rainy outside. Well thats

I got into a conversation tonight with A frequent regular at my

Black Friday Deals on Luigi Bormioli Set of 2 Duos Pilsner

#Nollyland - Young Screenwriter, You can sit on ur ideas for years

Isaías 7 - 1. SUCEDEU, pois, nos dias de Acaz, filho de Jotão,

I just want to say Happy Birthday to the best mom in the world we

thanks so much po sa mga nagbayad at nag update po.. xoxoxo.. here

I am in a place right now where Im tired of the bull crap Im tired

HOLD GRUDGES..FOR WHAT! HURT YOU BECAUSE YOU HURT ME? UMMMMM!

William Onyeabor Vinyl Box Sets Just Released From Luaka Bop! Hot

Persecution comes through people...sometimes through those we love

Europe’s Intensifying Immigration Debate

Luk 14:25 Now large crowds were traveling with Jesus. He turned

I also spun Televisions Marquee Moon again for the first time in a

I would like to apologize publicly for a terrible wrong I have

Perfect Condition. Gender Neutral Aquarium Themed. Son slept in my

#NeedAjob #ComehollaAtMe #NeedExtracash Gurls can hustle to