database 1

Private Sub CMDBR_Click()
Data1.Recordset.AddNew
TXTNAMA.SetFocus
End Sub

Private Sub CMDHP_Click()
TXTNAMA.SetFocus
TXTNAMA.Text = “”
TXTNPM.Text = “”
TXTJUR.Text = “”
TXTPRO.Text = “”
TXTTAH.Text = “”
TXTNOM.Text = “”
End Sub

Private Sub CMDKL_Click()
Unload Me
End Sub

Private Sub CMDSP_Click()
Data1.Recordset.Update
End Sub

Private Sub TXTNAMA_keypress(keyascii As Integer)
If keyascii = 13 Then
TXTNPM.SetFocus
End If
End Sub

Private Sub TXTNPM_keypress(keyascii As Integer)
If keyascii = 13 Then
CMDPR.SetFocus
End If
End Sub

Private Sub CMDPR_Click()
Dim j, p As String
TXTTAH.Text = “20” & Left(TXTNPM.Text, 2)
j = Mid(TXTNPM, 3, 1)
If j = “1” Then
TXTJUR.Text = “Sistem Informasi”
ElseIf j = “2” Then
TXTJUR.Text = “Tehnik Informatika”
ElseIf j = “3” Then
TXTJUR.Text = “Manajemen Informatika”
ElseIf j = “4” Then
TXTJUR.Text = “Manajemen & Komp. Akuntansi”
End If
p = Mid(TXTNPM.Text, 4, 2)
If p = “01” Then
TXTPRO.Text = “Strata Satu”
ElseIf p = “02” Then
TXTPRO.Text = “Diploma Empat”
ElseIf p = “03” Then
TXTPRO.Text = “Diploma Tiga”
ElseIf p = “04” Then
TXTPRO.Text = “Diploma Dua”
End If
TXTNOM.Text = Right(TXTNPM.Text, 3)
End Sub
Gambar

Advertisements

TUGAS KUIS 1 TIPE 4

KUIS 1 TIPE 4

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “A-SIM-01”

Case “I-EDP-02”

Case “S-MNJ-03”

Case “E-CDR-04”

Case “M-RPL-05”

End Select

End Sub

 

Private Sub Cmdb_Click()

cbokode.SetFocus

cbokode.Text = “”

Txtj.Text = “”

Txtk.Text = “”

Txtt.Text = “”

Txtb.Text = “”

Txth.Text = “”

End Sub

 

Private Sub Cmdk_Click()

Unload Me

End Sub

 

Private Sub Cmdl_Click()

cbokode.SetFocus

cbokode.Text = “”

Txtj.Text = “”

Txtk.Text = “”

Txtt.Text = “”

Txtb.Text = “”

Txth.Text = “”

End Sub

 

Private Sub Cmdpro_Click()

Dim j, k, t, b As String

Dim h As Currency

b = Left(cbokode.Text, 1)

If b = “A” Then

b = “Andi Offset Yogyakarta”

ElseIf b = “I” Then

b = “Indah Surabaya”

ElseIf b = “S” Then

b = “Salemba Empat”

ElseIf b = “E” Then

b = “Elek Media Komputindo”

ElseIf b = “M” Then

b = “Maxicom”

End If

Txtb.Text = b

j = Mid(cbokode.Text, 3, 3)

If j = “SIM” Then

j = “Sistem Informasi Manajemen”

k = “Yati Nur Oktavia”

h = “75900”

ElseIf j = “EDP” Then

j = “Elektronik Data Processing”

k = “Imam Tarmizi”

h = “62000”

ElseIf j = “MNJ” Then

j = “Manajemen”

k = “valentina Mariana Adiwianti”

h = “42000”

ElseIf j = “CDR” Then

j = “Corel Draw”

k = “Riyan Suhandi”

h = “53000”

ElseIf j = “RPL” Then

j = “Rekayasa Perangkat Lunak”

k = “Sinta Umpu Singa”

h = “83000”

End If

Txtj.Text = j

Txtk.Text = k

Txth.Text = h

t = “20” & Right(cbokode.Text, 2)

Txtt.Text = t

End Sub

 

Private Sub Form_Load()

cbokode.AddItem “A-SIM-01”

cbokode.AddItem “I-EDP-02”

cbokode.AddItem “S-MNJ-03”

cbokode.AddItem “E-CDR-04”

cbokode.AddItem “M-RPL-05”

End SubGambar

TUGAS KUIS 1 TIPE 3

KUIS 1 TIPE 3

 

Private Sub Cmdbt_Click()

Txtnm.Text.SetFocus

Txtnm.Text = “”

Txtnik.Text = “”

Txtg.Text = “”

Txtk.Text = “”

Txts.Text = “”

Txttm.Text = “”

txtj.Text = “”

Txtb.Text = “”

Txtgp.Text = “”

Txtt.Text = “”

Txttg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

Unload Me

End Sub

 

Private Sub Cmdlg_Click()

Txtnm.SetFocus

Txtnm.Text = “”

Txtnik.Text = “”

Txtg.Text = “”

Txtk.Text = “”

Txts.Text = “”

Txttm.Text = “”

txtj.Text = “”

Txtb.Text = “”

Txtgp.Text = “”

Txtt.Text = “”

Txttg.Text = “”

 

End Sub

 

Private Sub Cmdpro_Click()

Dim g, k, s, j, b As String

Dim gp, t, tg As Currency

Txttm.Text = Left(Txtnik.Text, 4)

g = Mid(Txtnik.Text, 5, 1)

If g = “A” Then

g = “A”

j = “Manajer”

gp = “4000000”

t = “1025000”

ElseIf g = “B” Then

g = “B”

j = “Ka. Seksi”

gp = “3500000”

t = “975000”

ElseIf g = “C” Then

g = “C”

j = “Staff”

gp = “3000000”

t = “925000”

End If

Txtg.Text = g

txtj.Text = j

Txtgp.Text = gp

Txtt.Text = t

 

k = Mid(Txtnik.Text, 7, 1)

If k = “S” Then

k = “S”

s = “Single”

ElseIf k = “M” Then

k = “M”

s = “Menikah”

ElseIf k = “J” Then

k = “J”

s = “Janda”

ElseIf k = “D” Then

k = “D”

s = “Duda”

End If

Txtk.Text = k

Txts.Text = s

 

tg = Val(Txtgp.Text) + Val(Txtt.Text)

Txttg.Text = tg

 

b = Right(Txtnik.Text, 3)

If b = “KEU” Then

Txtb.Text = “Keuangan”

ElseIf b = “ADM” Then

Txtb.Text = “Adminidtrasi”

ElseIf b = “SDM” Then

Txtb.Text = “General Affair”

ElseIf b = “EDP” Then

Txtb.Text = “IT Unit”

ElseIf b = “SPM” Then

Txtb.Text = “Security”

End If

End Sub

 

 

Private Sub Txtnik_keypress(keyascii As Integer)

If keyascii = 13 Then

Cmdpro.SetFocus

End If

End Sub

 

Private Sub Txtnm_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtnik.SetFocus

End If

End SubGambar

TUGAS KUIS 1 TIPE 2

KUIS 1 TIPE 2

 

Private Sub cmdbt_Click()

Txtkode.SetFocus

Txtkode.Text = “”

txtjudul.Text = “”

Txtkarang.Text = “”

Txtharga.Text = “”

Txttahun.Text = “”

Txtterbit.Text = “”

End Sub

 

Private Sub cmdkl_Click()

Unload Me

End Sub

 

Private Sub Cmdlg_Click()

Txtkode.SetFocus

Txtkode.Text = “”

txtjudul.Text = “”

Txtkarang.Text = “”

Txtharga.Text = “”

Txttahun.Text = “”

Txtterbit.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim k As String

Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)

k = Right(Txtkode.Text, 1)

If k = “A” Then

Txtterbit.Text = “Andi Offset Yogyakarta”

ElseIf k = “I” Then

Txtterbit.Text = “Indah Surabaya”

ElseIf k = “S” Then

Txtterbit.Text = “Salemba Empat”

ElseIf k = “E” Then

Txtterbit.Text = “Elex Media Komputindo”

ElseIf k = “M” Then

Txtterbit.Text = “Maxicom”

End If

k = Left(Txtkode.Text, 3)

If k = “SIM” Then

txtjudul.Text = “SISTEM INFORMASI MANAJEMEN”

Txtkarang.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf k = “EDP” Then

txtjudul.Text = “ELEKTRONIK DATA PROCESSING”

Txtkarang.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf k = “MNJ” Then

txtjudul.Text = “MANAJEMEN”

Txtkarang.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf k = “CDR” Then

txtjudul.Text = “COREL DRAW”

Txtkarang.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf k = “RPL” Then

txtjudul.Text = “REKAYASA PERANGKAT LUNAK”

Txtkarang.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

End Sub

 

Private Sub Txtkode_keypress(keyascii As Integer)

If keyascii = 13 Then

Cmdproses.SetFocus

End If

End Sub

 Gambar

TUGAS KUIS 1 TIPE 1

KUIS 1  TIPE 1

 

Private Sub cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjudul.Text = “”

Txtkarang.Text = “”

Txtharga.Text = “”

Txtterbit.te = “”

Txtharga.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjudul.Text = “”

Txtkarang.Text = “”

Txtharga.Text = “”

Txtterbit.te = “”

Txtharga.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim k As String

Txttahun.Text = “20” & Right(Txtkode.Text, 2)

k = Left(Txtkode.Text, 1)

If k = “A” Then

Txtterbit.Text = “Andi Offset Yogyakarta”

ElseIf k = “I” Then

Txtterbit.Text = “Indah Surabaya”

ElseIf k = “S” Then

Txtterbit.Text = “Salemba Empat”

ElseIf k = “E” Then

Txtterbit.Text = “Elex Media Komputindo”

ElseIf k = “M” Then

Txtterbit.Text = “Maxicom”

End If

k = Mid(Txtkode.Text, 3, 3)

If k = “SIM” Then

Txtjudul.Text = “SISTEM INFORMASI MANAJEMEN”

Txtkarang.Text = “Andra Setiawan”

Txtharga.Text = “75900”

ElseIf k = “EDP” Then

Txtjudul.Text = “ELEKTRONIK DATA PROCESSING”

Txtkarang.Text = “Desi Istiqomah”

Txtharga.Text = “62000”

ElseIf k = “MNJ” Then

Txtjudul.Text = “MANAJEMEN”

Txtkarang.Text = “Sandy Fitrajaya”

Txtharga.Text = “42000”

ElseIf k = “CDR” Then

Txtjudul.Text = “COREL DRAW”

Txtkarang.Text = “Tri Indah Sari”

Txtharga.Text = “53000”

ElseIf k = “RPL” Then

Txtjudul.Text = “REKAYASA PERANGKAT LUNAK”

Txtkarang.Text = “Ernita”

Txtharga.Text = “83000”

End If

End Sub

 

Private Sub Txtkode_keypress(keyascii As Integer)

If keyascii = 13 Then

Cmdproses.SetFocus

End If

End SubGambar

KUIS 1

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnik.Text = “”

Txtgol.Text = “”

Txtkode.Text = “”

Txtstatus.Text = “”

Txttahun.Text = “”

Txtjabat.Text = “”

txtbagian.Text = “”

txtgapok.Text = “”

Txttunj.Text = “”

Txttot.Text = “”

End Sub

 

 

Private Sub Cmdkeluar_Click()

Unload Me

GambarEnd Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnik.Text = “”

Txtgol.Text = “”

Txtkode.Text = “”

Txtstatus.Text = “”

Txttahun.Text = “”

Txtjabat.Text = “”

txtbagian.Text = “”

txtgapok.Text = “”

Txttunj.Text = “”

Txttot.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim s As String

Txttahun.Text = Left(Txtnik.Text, 4)

s = Mid(Txtnik.Text, 5, 1)

If s = “A” Then

Txtgol.Text = “A”

Txtjabat.Text = “MANAGER”

txtgapok.Text = “4000000”

Txttunj.Text = “1025000”

ElseIf s = “B” Then

Txtgol.Text = “B”

Txtjabat.Text = “KEPALA BAGIAN”

txtgapok.Text = “3500000”

Txttunj.Text = “975000”

ElseIf s = “C” Then

Txtgol.Text = “C”

Txtjabat.Text = “STAFF”

txtgapok.Text = “3000000”

Txttunj.Text = “925000”

End If

s = Mid(Txtnik.Text, 7, 1)

If s = “S” Then

Txtkode.Text = “S”

Txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

Txtkode.Text = “M”

Txtstatus.Text = “MENIKAH”

ElseIf s = “J” Then

Txtkode.Text = “J”

Txtstatus.Text = “JANDA”

ElseIf s = “D” Then

Txtkode.Text = “D”

Txtstatus.Text = “DUDA”

End If

s = Right(Txtnik.Text, 3)

If s = “KEU” Then

txtbagian.Text = “KEUANGAN”

ElseIf s = “ADM” Then

txtbagian.Text = “ADMINISTRASI”

ElseIf s = “SDM” Then

txtbagian.Text = “PERSONALIA”

ElseIf s = “EDP” Then

txtbagian.Text = “IT-PROGRAM”

ElseIf s = “SPM” Then

txtbagian.Text = “SATPAM”

End If

Txttot.Text = Val(txtgapok.Text) + Val(Txttunj.Text)

End Sub