Private Sub Command1_Click(Index As Integer)
txtnama.Text = "Sigit Purnama"
txtnim.Text = "09.12.4127"
txtkelas.Text = "S1SI-4H"
txtcoment.Text = "Enyonge Lagi Sinau Data Base"
End Sub
Private Sub Command2_Click()
txtnama.Text = ""
txtnim.Text = ""
txtkelas.Text = ""
txtcoment.Text = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub form_load()
cmbojurusan.AddItem "D3-MI"
cmbojurusan.AddItem "D3-TI"
cmbojurusan.AddItem "S1-SI"
cmbojurusan.AddItem "S1-TI"
cmbojurusan.AddItem "S2-TI"
End Sub
Private Sub IsiData()
cmbojurusan = RsNb(0)
End Sub
txtnama.Text = "Sigit Purnama"
txtnim.Text = "09.12.4127"
txtkelas.Text = "S1SI-4H"
txtcoment.Text = "Enyonge Lagi Sinau Data Base"
End Sub
Private Sub Command2_Click()
txtnama.Text = ""
txtnim.Text = ""
txtkelas.Text = ""
txtcoment.Text = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub form_load()
cmbojurusan.AddItem "D3-MI"
cmbojurusan.AddItem "D3-TI"
cmbojurusan.AddItem "S1-SI"
cmbojurusan.AddItem "S1-TI"
cmbojurusan.AddItem "S2-TI"
End Sub
Private Sub IsiData()
cmbojurusan = RsNb(0)
End Sub
Post a Comment