data buku stmik pringsewu 6
Private Sub cmdbatal_Click() txtkode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtpenerbit txtharga = "" txtkode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtpenerbit = "" txtharga = "" txtkode.SetFocus End Sub Private Sub cmdproses_Click() Dim H, JB, PENG, HAR, PENER As String txtterbit = "20" & Mid(txtkode, 5, 2) H = Left(txtkode, 3) If H = "SIM" Or H = "sim" Then JB = "sistem informasi manajemen" PENG = "fadiya ulfa" HAR = "75900" ElseIf H = "EDP" Or H = "edp" Then JB = "eletronik data processing" PENG = "nurul agustina" HAR = "62000" ElseIf H = "MNJ" Or H = "mnj" Then JB = "manajem...