Phinasti Stmik Pringsewu

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 P As String txttahun = Left(txtnik, 4) P = Mid(txtnik, 5, 1) If P = "A" Then txtgolongan = "A" txtjabatan = "Manajer" txtgaji = "4000000" txttun...

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 P, JB, PENG, HAR, PENER As String Txtterbit.Text = "20" & Mid(txtkode.Text, 5,2) P = Left(txtkode.Text, 3) If P = " SIM"   Or P = “ sim” Then JB   = "Sistem Informasi Manajemen" PENG =   "Fadiya Ulfa" HAR =   "75900" ElseIf P = "EDP" Or P = “edp” Then JB   = " Elektronik Data Processing" PENG =   " Nurul Agustina" HAR =   "62000" ElseIf P = "MNJ" Or P = “mnj” Then JB   = "Manajemen" PENG =   "Rian Hidayat" HAR =   ...

Private Sub Cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Txtkt = ”” Txtht = ”” Txtjk = ”” Txtjb = ”” Txtjt = ”” Txttotalp = “” Txtkt.SetFokus End Sub Private Sub cmdproses_Click() Dim P, JK, HT, JB As String P= Left(txtkt.Text,3) If P = ”BIM” Or P = “bim” Then JK = “BIMA” HT = “20000” JB = “15.00” ElseIf P = ”EKO” Or P = “eko” Then JK = “EKONOMI” HT = “25000” JB = “16.00” ElseIf P = ”MUT” Or P = “mut” Then JK = “MUTIARA” HT = “30000” JB = “17.00” ElseIf P = ”SEN” Or P = “sen” Then JK = “SENJA” HT = “35000” JB = “17.00” End If Txtjk.Text   = JK Txtht. Text = HT Txtjb. Text = JB Txtjt.SetFocus End Sub Private Sub Form_Activate() Txtkt. SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txttotalp = Val(txtht.Text) * val (txtjt. Text) End If End Sub