yannastmikpringsewu

Private Sub cmdbatal_Click() txtnk = "" txtmn = "" txtnk.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk = "" txtmn = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgp = "" txttj = "" txttotal = "" txtnk.SetFocus End Sub Private Sub cmdproses_Click() Dim H, BAGIAN, STATUS, KODE, GOL, JABATAN, GP, TJ As String H = Right(txtmn, 3) If H = "KEU" Or H = "keu" Then BAGIAN = "Accounting" ElseIf H = "ADM" Or H = "adm" Then BAGIAN = "administrasi" ElseIf H = "SDM" Or H = "sdm" Then BAGIAN = "general affair" ElseIf H = "EDP" Or H = "edp" Then BAGIAN = "it unit" ElseIf H = "SPM" Or H = "spm" Then BAGIAN

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

Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" End Sub Private Sub cmdproses_Click() Dim C As String C = Left(txtkode, 3) If C = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf C = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf C = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf C = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If txtjt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtht) * Val(txtjt) End If End Sub

Private Sub cmdbatal_Click() Cbokode = "" Cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() Cbokode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtharga = "" End Sub Private Sub cmdproses_Click() Dim H, JB, PENG, HAR, PENER As String txtterbit.Text = "20" & Right(Cbokode.Text, 2) H = Mid(Cbokode.Text, 3, 3) If H = "SIM" Then JB = "SistemInformasi Manajemen" PENG = "Yati Nur Oktavia" HAR = "75900" ElseIf H = "EDP" Then JB = "Elektronik Data Processing " PENG = "Imam Tarmizi" HAR = "62000" ElseIf H = "MNJ" Then JB = "Manajemen" PENG = "Valentina Mariana" HAR = "42000" ElseIf H = "CDR" Then JB = "Corel Draw" PENG = "Riyan Suhandi" HAR = "53000" ElseIf H = &quo

Private Sub cbokode_Click() Dim mt, hs As String Select Case Mid(cbokode, 7, 5) Case "MC965" mt = "Apple MC965 Macbook Air" hs = "12800000" Case "MC966" mt = "Apple MC966 Macbook Air" hs = "15800000" Case "MC968" mt = "Apple MC968 Macbook Air" hs = "9900000" Case "MC969" mt = "Apple MC969 Macbook Air" hs = "11900000" Case "MC700" mt = "Apple MC700 Macbook Air" hs = "10800000" Case "MC721" mt = "Apple MC721 Macbook Air" hs = "15900000" Case "MC723" mt = "Apple MC723 Macbook Air" hs = "19300000" Case "MC724" mt = "Apple MC724 Macbook Air" hs = "13700000" Case "MC7311" mt = "Apple MC7311 Macbook Air" hs = "24200000" Case "MC313" mt = "Apple MC313 Macbook Air" hs = &quo

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtjur.Text = "" txtps.Text = "" txttm.Text = "" txturut.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtjurusan.Text = "" txtprogramstudi.Text = "" txttahunmasuk.Text = "" txtnomorurut.Text = "" End Sub Private Sub cmdproses_click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm, 3, 1) If S = "1" Then txtjur.Text = "sistem informasi" ElseIf S = "2" Then txtjur.Text = "manajemen informatika" ElseIf S = "3" Then txtjur.Text = "teknik informatika" ElseIf S = "4" Then txtjur.Text = "manajemen&komp. akuntasi" End If S = Mid(txtnpm.Te

Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 200000 tunjangan = 20000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = total End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Private Sub Form_Load() cbogolongan.AddItem "I" cbogolongan.AddItem "II" cbogolongan.AddItem "III" cbogolongan.AddItem "Iv" End Sub Private Sub txtnidn_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnp.SetFoc