Posted on

TUGAS 4 (DATA BASE)

Gambar

Private Sub cmdproses_Click()

kode = Mid(txtnpm.Text, 3, 1)

If kode = “1” Then

txtjur.Text = “SistemInformasiManajemen”

ElseIfkode = “2” Then

txtjur.Text = “ManajemenInformatika”

ElseIfkode = “3” Then

txtjur.Text = “TehnikInformatika”

ElseIfkode = “4” Then

txtjur.Text = “KomputerAkutansi”

End If

txtnpm.SetFocus

kode = Mid(txtnpm.Text, 4, 2)

If kode = “01” Then

txtprodi.Text = “Strata Satu”

ElseIfkode = “02” Then

txtprodi.Text = “Diploma Empat”

ElseIfkode = “03” Then

txtprodi.Text = ” DiplomaTiga”

ElseIfkode = “04” Then

txtprodi.Text = “Diploma Dua”

End If

txttm.Text = “20” &Left(txtnpm.Text, 2)

txtno.Text = Right(txtnpm.Text, 3)

 

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtno.Text = “”

 

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

Data1.Recordset.AddNew

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtno.Text = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s