Minggu, 27 Mei 2012

Lat. Visual Basic II

Private Sub Command1_Click()
Data1.Recordset.AddNew
Text3.SetFocus
End Sub
Private Sub Command2_Click()
Data1.Recordset.Edit
End Sub
Private Sub Command3_Click()
Data1.Recordset.Update
Text3.SetFocus
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Text3.SetFocus
End Sub

Private Sub Form_Load()
Combo2.AddItem “Laki-Laki”
Combo2.AddItem “Perempuan”
Combo1.AddItem “Islam”
Combo1.AddItem “Katholik”
Combo1.AddItem “Kristen”
Combo1.AddItem “Hindu”
Combo1.AddItem “Budha”
Combo4.AddItem “MO 1″
Combo4.AddItem “MO 2″
Combo4.AddItem “MO 3″
Combo4.AddItem “MO 4″
Combo4.AddItem “TKJ 1″
Combo4.AddItem “TKJ 2″
Combo4.AddItem “TKJ 3″
Combo5.AddItem “Anak Kandung”
Combo5.AddItem “Anak Angkat”
Combo5.AddItem “Anak tiri”
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If
End Sub
Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text10.SetFocus
End If
End Sub