TUGAS 3.7
Private Sub cmdbatal_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim R As String txttahun = Left(txtnik, 4) R = Mid(txtnik, 5, 1) If R = "A" Then txtgolongan = "A" txtjabatan = "Manajer" txtgaji = "4000000" txttunjangan = "1025000" ElseIf R = "B...
