tugas 3-program 8
Private Sub cmdbatal_Click() txtnik = "" txtnama = "" txtnik.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() txtnik = "" txtnama = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjab = "" txtbag = "" txtgp = "" txttj = "" txttotal = "" txtnik.SetFocus End Sub Private Sub cmdproses_Click() Dim A, bag, stat, kode, gol, jab, gp, tj As String A = Right(txtnik, 3) If A = "KEU" Or A = "keu" Then bag = "Accounting" ElseIf A = "ADM" Or A = "adm" Then bag = "Administrasi" ElseIf A = "SDM" Or A = "sdm" Then bag = "General Affair" ElseIf A = "EDP" Or A = "edp" Then bag = "IT Unit" ElseIf A = "SPM" Or A = "spm" Then bag = "Securi
