- DATA BUKU
Private Sub CmdB_Click()
Data1.Recordset.AddNew
End Sub
Private Sub CmdH_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub CmdBatal_Click()
CboKode.SetFocus
CboKode.Text = “Kode”
TxtJudulBuku.Text = “”
TxtPeng.Text = “”
TxtTahunTer.Text = “”
TxtPenerbit.Text = “”
TxtHarga.Text = “”
End Sub
Private Sub CmdEnd_Click()
Form2.Show
End Sub
Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode.Text = “Kode”
TxtJudulBuku.Text = “”
TxtPeng.Text = “”
TxtTahunTer.Text = “”
TxtPenerbit.Text = “”
TxtHarga.Text = “”
End Sub
Private Sub CmdProses_Click()
Dim JudulB, Peng, Pen, Hg As String
TxtTahunTer.Text = “20” & Right(CboKode, 2)
s = Mid(CboKode, 3, 3)
If s = “SIM” Then
JudulB = “Sistem Informasi Manajemen”
Peng = “Yati Nur Oktavia”
Hg = “75900”
ElseIf s = “EDP” Then
JudulB = “Elektronik Data Processing”
Peng = “Imam Tarmizi”
Hg = “62000”
ElseIf s = “MNJ” Then
JudulB = “Manajemen”
Peng = “Valentina Mariana Adiwianti”
Hg = “42000”
ElseIf s = “CDR” Then
JudulB = “Corel Draw”
Peng = “Riyan Suhandi”
Hg = “53000”
ElseIf s = “RPL” Then
JudulB = “Rekayasa Perangkat Lunak”
Peng = “Sinta Umpu Singa”
Hg = “83000”
End If
TxtJudulBuku = JudulB
TxtPeng = Peng
TxtHarga = Hg
s = Mid(CboKode, 1, 1)
If s = “A” Then
Pen = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
Pen = “Indah Surabaya”
ElseIf s = “S” Then
Pen = “Salemba Empat”
ElseIf s = “E” Then
Pen = “Elek Media Komputindo”
ElseIf s = “M” Then
Pen = “Maxicom”
End If
TxtPenerbit.Text = Pen
End Sub
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
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 Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
2. NIDN
Private Sub CmbGolongan_Click()
Dim Gapok, Pajak, Tunjangan, Total As Variant
Select Case CmbGolongan.Text
Case “I”
Gapok = 1900000
Tunjangan = 130000
Case “II”
Gapok = 2000000
Tunjangan = 200000
Case “III”
Gapok = 2900000
Tunjangan = 290000
Case “IV”
Gapok = 3000000
Tunjangan = 300000
Case Else
Gapok = 0
Tunjangan = 0
End Select
Total = Gapok + Tunjangan
Pajak = Total * 0.1
TxtGapok.Text = Gapok
TxtTj.Text = Tunjangan
TxtPajak.Text = Pajak
TxtTotal.Text = Total – Pajak
End Sub
Private Sub CmdB_Click()
Data1.Recordset.AddNew
TxtNidn.SetFocus
End Sub
Private Sub CmdBatal_Click()
TxtNidn.SetFocus
TxtNidn = “”
TxtNamaP = “”
CmbGolongan = “Golongan”
TxtGapok = “”
TxtPajak = “”
TxtTj = “”
TxtTotal = “”
End Sub
Private Sub CmdH_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub CmdKeluar_Click()
Form2.Show
End Sub
Private Sub CmdLagi_Click()
TxtNidn.SetFocus
TxtNidn = “”
TxtNamaP = “”
CmbGolongan = “Golongan”
TxtGapok = “”
TxtPajak = “”
TxtTj = “”
TxtTotal = “”
End Sub
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub Form_Load()
CmbGolongan.AddItem “I”
CmbGolongan.AddItem “II”
CmbGolongan.AddItem “III”
CmbGolongan.AddItem “IV”
End Sub
Private Sub TxtNidn_keypress(keyascii As Integer)
If keyascii = 13 Then
TxtNamaP.SetFocus
End If
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
3. DATA SISWA
Private Sub CmdB_Click()
Data1.Recordset.AddNew
TxtNm.SetFocus
End Sub
Private Sub CmdHapus_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub CmdLagi_Click()
TxtNm.SetFocus
TxtNm = “”
TxtNpm = “”
TxtJr = “”
TxtPStudi = “”
TxtTMasuk = “”
TxtNUrut = “”
End Sub
Private Sub CmdPr_Click()
Dim Ket As String
Ket = Mid(TxtNpm.Text, 3, 1)
If Ket = “1” Then
TxtJr.Text = “Sistem Informasi”
ElseIf Ket = “2” Then
TxtJr.Text = “Manajemen Informatika”
ElseIf Ket = “3” Then
TxtJr.Text = “Tehnik Informatika”
ElseIf Ket = “4” Then
TxtJr.Text = “Manajemen & Komp. Akuntansi”
End If
Ket = Mid(TxtNpm.Text, 4, 2)
If Ket = “00” Then
TxtPStudi.Text = “Strata Satu”
ElseIf Ket = “01” Then
TxtPStudi.Text = “Diploma Tiga”
ElseIf Ket = “02” Then
TxtPStudi.Text = “Diploma Empat”
ElseIf Ket = “03” Then
TxtPStudi.Text = “Diploma Dua”
End If
TxtNUrut.Text = Right(TxtNpm.Text, 3)
TxtTMasuk.Text = “20” & Left(TxtNpm.Text, 2)
End Sub
Private Sub CmdBatal_Click()
TxtNm.SetFocus
TxtNm = “”
TxtNpm = “”
TxtJr = “”
TxtPStudi = “”
TxtTMasuk = “”
TxtNUrut = “”
End Sub
Private Sub CmdEnd_Click()
Form2.Show
End Sub
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub TxtNm_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
Dim Ket As String
Ket = Mid(TxtNpm.Text, 3, 1)
If Ket = “1” Then
TxtJr.Text = “Sistem Informasi”
ElseIf Ket = “2” Then
TxtJr.Text = “Manajemen Informatika”
ElseIf Ket = “3” Then
TxtJr.Text = “Tehnik Informatika”
ElseIf Ket = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
Ket = Mid(TxtNpm.Text, 4, 2)
If Ket = “00” Then
TxtPStudi.Text = “Strata Satu”
ElseIf Ket = “01” Then
TxtPStudi.Text = “Diploma Tiga”
ElseIf Ket = “02” Then
TxtPStudi.Text = “Diploma Empat”
ElseIf Ket = “03” Then
TxtPStudi.Text = “Diploma Dua”
End If
TxtNUrut.Text = Right(TxtNpm.Text, 3)
TxtTMasuk.Text = “20” & Left(TxtNpm.Text, 2)
End If
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
4. ENTRI PENJUALAN LAPTOP APPLE
Private Sub CboKode_Click()
TxtJJual.SetFocus
Dim Merk, Satuan As Variant
Select Case CboKode.Text
Case “Apple MC965 MacBook Air”
Merk = “Apple MacBook Air MC965”
Satuan = 12800000
Case “Apple MC966 MacBook Air”
Merk = “Apple MacBook Air MC966”
Satuan = 15800000
Case “Apple MC968 MacBook Air”
Merk = “Apple MacBook Air MC965”
Satuan = 9900000
Case “Apple MC969 MacBook Air”
Merk = “Apple MacBook Air MC969”
Satuan = 11900000
Case “Apple MC700 MacBook Pro”
Merk = “Apple MacBook Pro MC700”
Satuan = 10800000
Case “Apple MC721 MacBook Pro”
Merk = “Apple MacBook Pro MC721”
Satuan = 15900000
Case “Apple MC723 MacBook Pro”
Merk = “Apple MacBook Pro MC723”
Satuan = 19300000
Case “Apple MC724 MacBook Pro”
Merk = “Apple MacBook Pro MC724”
Satuan = 13700000
Case “Apple MC311 MacBook Pro”
Merk = “Apple MacBook Pro MC311”
Satuan = 24200000
Case “Apple MC313 MacBook Pro”
Merk = “Apple MacBook Pro MC313”
Satuan = 11900000
Case “Apple MC314 MacBook Pro”
Merk = “Apple MacBook Pro MC314”
Satuan = 14700000
Case “Apple MC318 MacBook Pro”
Merk = “Apple MacBook Pro MC318”
Satuan = 17600000
Case “Apple MC322 MacBook Pro”
Merk = “Apple MacBook Pro MC322”
Satuan = 21300000
Case “Apple MC965 MacBook Air”
Merk = “Apple MacBook Air MC965”
Satuan = 12800000
Case “Apple MC966 MacBook Air”
Merk = “Apple MacBook Air MC966”
Satuan = 15800000
End Select
TxtMerk.Text = Merk
TxtHS.Text = Satuan
End Sub
Private Sub CmdE_Click()
Data1.Recordset.Edit
End Sub
Private Sub CmdH_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub CmdHL_Click()
CboKode.SetFocus
CboKode = “Kode Laptop”
TxtMerk = “”
TxtHS = “”
TxtTotal = “”
TxtHargaPen = “”
TxtDis = “”
TxtTotal = “”
TxtJJual = “”
End Sub
Private Sub CmdKeluar_Click()
Form2.Show
End Sub
Private Sub CmdProses_Click()
TxtHargaPen = Val(TxtHS) * Val(TxtJJual)
If Val(TxtHargaPen) > 140000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.15
Else
If Val(TxtHargaPen) > 135000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.1
Else
If Val(TxtHargaPen) > 130000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.05
Else
If Val(TxtHargaPen) > 125000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.02
Else
If Val(TxtHargaPen) <= 125000000 Then
TxtDis = “0”
End If
End If
End If
End If
End If
TxtTotal = Val(TxtHargaPen) – Val(TxtDis)
End Sub
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub CmdY_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Form_Load()
CboKode.AddItem “Apple MC965 MacBook Air”
CboKode.AddItem “Apple MC966 MacBook Air”
CboKode.AddItem “Apple MC968 MacBook Air”
CboKode.AddItem “Apple MC969 MacBook Air”
CboKode.AddItem “Apple MC700 MacBook Pro”
CboKode.AddItem “Apple MC721 MacBook Pro”
CboKode.AddItem “Apple MC723 MacBook Pro”
CboKode.AddItem “Apple MC724 MacBook Pro”
CboKode.AddItem “Apple MC311 MacBook Pro”
CboKode.AddItem “Apple MC313 MacBook Pro”
CboKode.AddItem “Apple MC314 MacBook Pro”
CboKode.AddItem “Apple MC318 MacBook Pro”
CboKode.AddItem “Apple MC322 MacBook Pro”
CboKode.AddItem “Apple MC965 MacBook Air”
CboKode.AddItem “Apple MC966 MacBook Air”
End Sub
Private Sub TxtJJual_keypress(keyascii As Integer)
If keyascii = 13 Then
TxtHargaPen = Val(TxtHS) * Val(TxtJJual)
If Val(TxtHargaPen) > 140000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.15
Else
If Val(TxtHargaPen) > 135000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.1
Else
If Val(TxtHargaPen) > 130000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.05
Else
If Val(TxtHargaPen) > 125000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.02
Else
If Val(TxtHargaPen) <= 125000000 Then
TxtDis = “0”
End If
End If
End If
End If
End If
TxtTotal = Val(TxtHargaPen) – Val(TxtDis)
End If
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
5. ENTRI PENJUALAN KOMPUTER
Private Sub CboKode_Click()
Dim JK, HS, HB As Integer
Select Case CboKode.Text
Case “P205”
JK = “Pentium II 500 Mega Hz”
HS = “1500000”
Case “P308”
JK = “Pentium III 800 Mega Hz”
HS = “2100000”
Case “P310”
JK = “Pentium III 1.0 Giga Hz”
HS = “3500000”
Case “P415”
JK = “Pentium IV 1.5 Giga Hz”
HS = “4000000”
Case “P417”
JK = “Pentium IV 1.7 Giga Hz”
HS = “4200000”
Case “P419”
JK = “Pentium IV 1.9 Giga Hz”
HS = “5500000”
End Select
TxtJCom = JK
TxtHS = HS
TxtJJual.SetFocus
End Sub
Private Sub CmdB_Click()
Data1.Recordset.AddNew
End Sub
Private Sub CmdH_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub CmdKeluar_Click()
Form2.Show
End Sub
Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode = “Kode”
TxtJCom = “”
TxtHS = “”
TxtJJual = “”
TxtHargaPen = “”
TxtDis = “”
TxtTotal = “”
End Sub
Private Sub CmdProses_Click()
TxtHargaPen.Text = Val(TxtHS) * Val(TxtJJual)
If Val(TxtHargaPen) > 30000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.15
Else
If Val(TxtHargaPen) > 25000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.1
Else
If Val(TxtHargaPen) > 20000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.05
Else
If Val(TxtHargaPen) > 15000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.02
ElseIf Val(TxtHargaPen) <= 15000000 Then
TxtDis = “0”
End If
End If
End If
End If
TxtTotal = Val(TxtHargaPen) – Val(TxtDis)
End Sub
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub Form_Load()
CboKode.AddItem “P205”
CboKode.AddItem “P308”
CboKode.AddItem “P310”
CboKode.AddItem “P415”
CboKode.AddItem “P417”
CboKode.AddItem “P419”
End Sub
Private Sub TxtJJual_Keypress(keyascii As Integer)
If keyascii = 13 Then
TxtHargaPen.Text = Val(TxtHS) * Val(TxtJJual)
If Val(TxtHargaPen) > 30000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.15
Else
If Val(TxtHargaPen) > 25000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.1
Else
If Val(TxtHargaPen) > 20000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.05
Else
If Val(TxtHargaPen) > 15000000 Then
TxtDis = Val(TxtHargaPen.Text) * 0.02
ElseIf Val(TxtHargaPen) <= 15000000 Then
TxtDis = “0”
End If
End If
End If
End If
End If
TxtTotal = Val(TxtHargaPen) – Val(TxtDis)
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
6. PENJUALAN TIKET KERETA API
Private Sub CmdB_Click()
Data1.Recordset.AddNew
End Sub
Private Sub CmdH_Click()
Data1.Recordset.MoveLast
Data1.Recordset.Delete
End Sub
Private Sub CmdKeluar_Click()
Form2.Show
End Sub
Private Sub CmdLagi_Click()
TxtKt.SetFocus
TxtKt.Text = “”
TxtHt.Text = “”
TxtJk.Text = “”
TxtJb.Text = “”
TxtJt.Text = “”
TxtTotalP.Text = “”
End Sub
Private Sub CmdProses_Click()
Dim Jk, Ht, Jb As String
I = Left(TxtKt, 3)
If I = “BIM” Then
Jk = “BIMA”
Ht = “50000”
Jb = “16.00”
ElseIf I = “EKO” Then
Jk = “EKONOMI”
Ht = “35000”
Jb = “19.00”
ElseIf I = “MUT” Then
Jk = “MUTIARA”
Ht = “23000”
Jb = “17.00”
ElseIf I = “SEN” Then
Jk = “SENJA”
Ht = “15000”
Jb = “20.00”
End If
TxtJk = Jk
TxtHt = Ht
TxtJb = Jb
TxtJt.SetFocus
End Sub
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub TxtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTotalP = Val(TxtHt) * Val(TxtJt)
End If
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
7. DATA BUKU STMIK 2
Private Sub CmdBatal_Click()
TxtKodeBuku.SetFocus
TxtKodeBuku = “”
TxtJudulBuku = “”
TxtPeng = “”
TxtTahunTer = “”
TxtPenerbit = “”
TxtHarga = “”
End Sub
Private Sub CmdEnd_Click()
Form2.Show
End Sub
Private Sub CmdLagi_Click()
TxtKodeBuku.SetFocus
TxtKodeBuku = “”
TxtJudulBuku = “”
TxtPeng = “”
TxtTahunTer = “”
TxtPenerbit = “”
TxtHarga = “”
End Sub
Private Sub CmdProses_Click()
Dim JudulB, Peng, Pen, Hg As Variant
TxtTahunTer.Text = “20” & Mid(TxtKodeBuku, 5, 2)
s = Left(TxtKodeBuku, 3)
If s = “SIM” Then
JudulB = “Sistem Informasi Manajemen”
Peng = “Fadiya Ulfa”
Hg = “75900”
ElseIf s = “EDP” Then
JudulB = “Elektronik Data Processing”
Peng = “Nurul Agustina”
Hg = “62000”
ElseIf s = “MNJ” Then
JudulB = “Manajemen”
Peng = “Rian Hidayat”
Hg = “42000”
ElseIf s = “CDR” Then
JudulB = “Corel Draw”
Peng = “Siti Nur Khotimah”
Hg = “53000”
ElseIf s = “RPL” Then
JudulB = “Rekayasa Perangkat Lunak”
Peng = “Winda Erlianti”
Hg = “83000”
End If
TxtJudulBuku = JudulB
TxtPeng = Peng
TxtHarga = Hg
s = Right(TxtKodeBuku, 1)
If s = “A” Then
Pen = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
Pen = “Indah Surabaya”
ElseIf s = “S” Then
Pen = “Salemba Empat”
ElseIf s = “E” Then
Pen = “Elek Media Komputindo”
ElseIf s = “M” Then
Pen = “Maxicom”
End If
TxtPenerbit.Text = Pen
End Sub
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub CmdB_Click()
Data1.Recordset.AddNew
End Sub
Private Sub CmdH_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub TxtKodeBuku_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim JudulB, Peng, Pen, Hg As Variant
TxtTahunTer.Text = “20” & Mid(TxtKodeBuku, 5, 2)
s = Left(TxtKodeBuku, 3)
If s = “SIM” Then
JudulB = “Sistem Informasi Manajemen”
Peng = “Fadiya Ulfa”
Hg = “75900”
ElseIf s = “EDP” Then
JudulB = “Elektronik Data Processing”
Peng = “Nurul Agustina”
Hg = “62000”
ElseIf s = “MNJ” Then
JudulB = “Manajemen”
Peng = “Rian Hidayat”
Hg = “42000”
ElseIf s = “CDR” Then
JudulB = “Corel Draw”
Peng = “Siti Nur Khotimah”
Hg = “53000”
ElseIf s = “RPL” Then
JudulB = “Rekayasa Perangkat Lunak”
Peng = “Winda Erlianti”
Hg = “83000”
End If
TxtJudulBuku = JudulB
TxtPeng = Peng
TxtHarga = Hg
s = Right(TxtKodeBuku, 1)
If s = “A” Then
Pen = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
Pen = “Indah Surabaya”
ElseIf s = “S” Then
Pen = “Salemba Empat”
ElseIf s = “E” Then
Pen = “Elek Media Komputindo”
ElseIf s = “M” Then
Pen = “Maxicom”
End If
TxtPenerbit.Text = Pen
End If
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
8. PT PULANG PETANG
Private Sub CmdS_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub CmdB_Click()
Data1.Recordset.AddNew
TxtNamaKar.SetFocus
End Sub
Private Sub CmdH_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub CmdBatal_Click()
TxtNamaKar.SetFocus
TxtNamaKar = “”
TxtNik = “”
TxtGol = “”
TxtKode = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtProf = “”
TxtGapok = “”
TxtTunj = “”
TxtTotalG = “”
End Sub
Private Sub CmdKeluar_Click()
Form2.Show
End Sub
Private Sub CmdLagi_Click()
TxtNamaKar.SetFocus
TxtNamaKar = “”
TxtNik = “”
TxtGol = “”
TxtKode = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtProf = “”
TxtGapok = “”
TxtTunj = “”
TxtTotalG = “”
End Sub
Private Sub CmdProses_Click()
Dim S As String
TxtTahun.Text = Left(TxtNik, 4)
S = Mid(TxtNik, 5, 1)
If S = “A” Then
TxtGol = “A”
TxtJabatan = “Manager”
TxtGapok = “4000000”
TxtTunj = “1025000”
ElseIf S = “B” Then
TxtGol = “B”
TxtJabatan = “Ka. Seksi”
TxtGapok = “3500000”
TxtTunj = “975000”
ElseIf S = “C” Then
TxtGol = “C”
TxtJabatan = “Staff”
TxtGapok = “3000000”
TxtTunj = “925000”
End If
S = Right(TxtNik, 3)
If S = “KEU” Then
TxtProf = “Accounting”
ElseIf S = “ADM” Then
TxtProf = “Administrasi”
ElseIf S = “SDM” Then
TxtProf = “General Affair”
ElseIf S = “EDP” Then
TxtProf = “IT Unit”
ElseIf S = “SPM” Then
TxtProf = “Security”
End If
S = Mid(TxtNik, 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
TxtTotalG = Val(TxtGapok) + Val(TxtTunj)
End Sub
Private Sub TxtNamaKar_KeyPress(keyascii As Integer)
If keyascii = 13 Then
TxtNik.SetFocus
End If
End Sub
Private Sub TxtNik_Keypress(keyascii As Integer)
If keyascii = 13 Then
If keyascii = 13 Then
Dim S As String
TxtTahun.Text = Left(TxtNik, 4)
S = Mid(TxtNik, 5, 1)
If S = “A” Then
TxtGol = “A”
TxtJabatan = “Manager”
TxtGapok = “4000000”
TxtTunj = “1025000”
ElseIf S = “B” Then
TxtGol = “B”
TxtJabatan = “Ka. Seksi”
TxtGapok = “3500000”
TxtTunj = “975000”
ElseIf S = “C” Then
TxtGol = “C”
TxtJabatan = “Staff”
TxtGapok = “3000000”
TxtTunj = “925000”
End If
S = Right(TxtNik, 3)
If S = “KEU” Then
TxtProf = “Accounting”
ElseIf S = “ADM” Then
TxtProf = “Administrasi”
ElseIf S = “SDM” Then
TxtProf = “General Affair”
ElseIf S = “EDP” Then
TxtProf = “IT Unit”
ElseIf S = “SPM” Then
TxtProf = “Security”
End If
S = Mid(TxtNik, 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
TxtTotalG = Val(TxtGapok) + Val(TxtTunj)
End If
End If
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub
9. TOKO ALAT TULIS SALSABILA
Private Sub CmdProses_Click()
Dim Kode As Variant
Kode = Mid(Txtkode.Text, 5, 2)
If Kode = “SP” Then
TxtNb.Text = “Spidol”
TxtHb.Text = “9500”
ElseIf Kode = “BT” Then
TxtNb.Text = “Buku Tulis”
TxtHb.Text = “12500”
ElseIf Kode = “TP” Then
TxtNb.Text = “TIP EX”
TxtHb.Text = “3000”
ElseIf Kode = “PG” Then
TxtNb.Text = “PENGGARIS”
TxtHb.Text = “25000”
ElseIf Kode = “PT” Then
TxtNb.Text = “PAPAN TULIS”
TxtHb.Text = “50000”
End If
TxtJb.SetFocus
End Sub
Private Sub TxtAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub TxtHitung_Click()
TxtBr = Val(TxtHb) * Val(TxtJb)
If Val(TxtJb) > 5 Then
TxtPot = Val(TxtBr.Text) * 0.02
ElseIf Val(TxtJb.Text) <= 5 Then
TxtPot = “0”
End If
TxtTb = Val(TxtBr) – Val(TxtPot)
End Sub
Private Sub TxtKeluar_Click()
Form2.Show
End Sub
Private Sub Txtkode_Change()
End Sub
Private Sub TxtSave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
End Sub
Private Sub CmdN_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub CmdY_Click()
End
End Sub