VB II

Private Sub Command2_Click()
Data1.UpdateRecord

End Sub

Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Combo1 = “”
Combo2 = “”
Combo3 = “”
Combo4 = “”
Combo5 = “”

End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Combo1 = “”
Combo2 = “”
Combo3 = “”
Combo4 = “”
Combo5 = “”

End Sub

Private Sub Form_Load()
Combo1.AddItem “11”
Combo1.AddItem “12”
Combo1.AddItem “13”
Combo1.AddItem “14”
Combo1.AddItem “15”
Combo1.AddItem “16”
Combo1.AddItem “20”
Combo2.AddItem “JANUAR1”
Combo2.AddItem “FEBRUARI”
Combo2.AddItem “MARET”
Combo2.AddItem “APRIL”
Combo2.AddItem “ME1”
Combo2.AddItem “JUNI”
Combo2.AddItem “JULI”
Combo2.AddItem “UGUSTUS”
Combo2.AddItem “SEPTEMBER”
Combo2.AddItem “OKTOBER”
Combo2.AddItem “NOVEMBER”
Combo2.AddItem “DESEMBER”
Combo3.AddItem “1988”
Combo3.AddItem “1990”
Combo3.AddItem “1991”
Combo3.AddItem “1992”
Combo3.AddItem “1993”
Combo3.AddItem “1994”
Combo3.AddItem “1989”
Combo3.AddItem “1985”
Combo5.AddItem “LAKI LAKI”
Combo5.AddItem “PEREMPUAN”
Combo4.AddItem “ISLAM”
Combo4.AddItem “KATOLIK”
Combo4.AddItem “PROTESTAN”
Combo4.AddItem “HINDU”
Combo4.AddItem “BUDHA”
End Sub