tugas 13

Private Sub Command1_Click() Form2.Show End Sub   Private Sub Command2_Click() End End Sub Private Sub cmdbaru_Click() Data1.Recordset.AddNew End Sub     Private Sub cmdhapus_Click() Data1.Recordset.Delete End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdproses_Click() Dim s As String s = Mid(txtkode.Text, 5, 2) If s = “SP” Then txtnb.Text = “SPIDOL” […]

Read more "tugas 13"

tugas 12

Private Sub Command1_Click() End End Sub   Private Sub Command2_Click() Form2.Show End Sub     Private Sub Cmdbatal_Click() Textkode.SetFocus Textkode.Text = “” Textjudul.Text = “” Textpengarang.Text = “” Texttahun.Text = “” Textpenerbit.Text = “” Textharga.Text = “” End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() Textkode.SetFocus Textkode.Text = “” Textjudul.Text […]

Read more "tugas 12"

tugas 11

Private Sub cmdbatal_Click() txtnk.SetFocus txtnk.Text = “” txtnik.Text = “” txtgol.Text = “” txtkstat.Text = “” txtstatUS.Text = “” txttahun.Text = “” txtjbt.Text = “” txtbagian.Text = “” txtgapok.Text = “” txttunjangan.Text = “” txttotg.Text = “” txttbilang.Text = “” End Sub   Private Sub cmdkeluar_Click() End End Sub   Private Sub cmdlagi_Click() txtnk.SetFocus txtnk.Text […]

Read more "tugas 11"

tugas 10

Private Sub Command1_Click() End End Sub   Private Sub Command2_Click() Form2.Show End Sub Private Sub Cmdproses_Click() Dim jur As String Dim ps As String Dim M As String M = Mid(Textnpm, 3, 1) If M = 1 Then jur = “sistem informasi” ElseIf M = 2 Then jur = “teknik informatika” ElseIf M = 3 […]

Read more "tugas 10"

tugas 9

Private Sub Command1_Click() Form2.Show   End Sub   Private Sub Command2_Click() End   End Sub Private Sub Command1_Click() Dim s As String txttahun.Text = “20” & Left(txtnpm.Text, 2) s = Mid(txtnpm.Text, 3, 3) If s = “100” Then txtjurusan.Text = “sistem informasi” txtprodi.Text = “strata satu” txtbp.Text = “1950000” txtterbilang.Text = “satu juta sembilan ratus […]

Read more "tugas 9"

tugas 8

Private Sub Command1_Click() Form2.Show End Sub   Private Sub Command2_Click() End End Sub     Private Sub Cmdbatal_Click() Textkode.SetFocus Textkode.Text = “” Textjudul.Text = “” Textpengarang.Text = “” Texttahun.Text = “” Textpenerbit.Text = “” Textharga.Text = “” End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() Textkode.SetFocus Textkode.Text = “” Textjudul.Text […]

Read more "tugas 8"

tugas 7

Private Sub Command1_Click() Form2.Show End Sub   Private Sub Command2_Click() End End Sub   Private Sub Cbocode_Click() Dim merk, hs As String Select Case Cbocode Case “MC965” merk = “Apple MacBook Air MC965” hs = “12800000” Case “MC966” merk = “Apple MacBook Air MC966” hs = “15800000” Case “MC968” merk = “Apple MacBook Air MC968” […]

Read more "tugas 7"