MID

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub cmdedit_Click()
Data1.Recordset.AddNew
End Sub

Private Sub cmdkeluar_Click()
PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)
If PSN = vbYes Then
Unload Me
End If
End Sub

Private Sub cmdsimpan_Click()
If Option1.Value = True Then
Data1.Recordset = “laki-laki”
Else
If Option2.Value = True Then
Data1.Recordset = “perempuan”
End If
With Data1.Recordset
.AddNew
End With

End Sub

Private Sub cmdtambah_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Combo4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtwalikelas.SetFocus
End If
End Sub

Private Sub Combo5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdsimpan.SetFocus
End If

End Sub

Private Sub Form_Load()

Combo4.AddItem “VII A”
Combo4.AddItem “VII B”
Combo4.AddItem “VII C”
Combo4.AddItem “VIII A”
Combo4.AddItem “VIII B”
Combo4.AddItem “VIII C”
Combo4.AddItem “IX A”
Combo4.AddItem “IX B”
Combo4.AddItem “IX C”

Combo5.AddItem ” anak kandung”
Combo5.AddItem ” keponakan”
Combo5.AddItem ” adik kandung”
Combo5.AddItem ” sepupu”

Combo1.AddItem ” laki-laki”
Combo1.AddItem ” perempuan”

Combo2.AddItem ” Islam”
Combo2.AddItem ” katolik”
Combo1.AddItem ” protestan”
Combo1.AddItem ” hindu”
Combo1.AddItem ” budha”
Combo1.AddItem ” konghucu”
End Sub

Private Sub Option1_Click()

End Sub

Private Sub txtagama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo5.SetFocus
End If
End Sub

Private Sub txtalamat_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
txtnotlpn.SetFocus
End If

End Sub

Private Sub txtalmwali_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
txtagama.SetFocus
End If

End Sub

Private Sub txtinduk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Private Sub txtkelamin_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
txttmplahir.SetFocus
End If
End Sub

Private Sub txtnmwali_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpekerjaan.SetFocus
End If

End Sub

Private Sub txtnotlpn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnmwali.SetFocus
End If
End Sub

Private Sub txtpekerjaan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalmwali.SetFocus
End If

End Sub

Private Sub txtthnmasuk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo4.SetFocus
End If

End Sub

Private Sub txttmplahir_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtthnmasuk.SetFocus
End If
End Sub