PT.SEJAHTRA ABADI

PTSEJAHTRAABADI

Private Sub ComdBATAL_Click()
TextNAMA.SetFocus
TextNAMA.Text = “”
TextNIK.Text = “”
TextGOL.Text = “”
TextKODE.Text = “”
TextSTAT.Text = “”
TextTAHU.Text = “”
TextJABA.Text = “”
TextBAGI.Text = “”
TextGAPOK.Text = “”
TextTUNJA.Text = “”
TextTOTAL.Text = “”
End Sub

Private Sub ComdKELUAR_Click()
Form2.Show
End Sub

Private Sub ComdLAGI_Click()
TextNAMA.SetFocus
TextNAMA.Text = “”
TextNIK.Text = “”
TextGOL.Text = “”
TextKODE.Text = “”
TextSTAT.Text = “”
TextTAHU.Text = “”
TextJABA.Text = “”
TextBAGI.Text = “”
TextGAPOK.Text = “”
TextTUNJA.Text = “”
TextTOTAL.Text = “”
End Sub

Private Sub ComdPROSES_Click()
Dim GOL, KODE, GAPOK, TOTAL, Y, TUNJA As Variant
TextTAHU.Text = Left(TextNIK.Text, 4)
Y = Mid(TextNIK.Text, 5, 1)
If Y = “A” Then
TextGOL.Text = “A”
TextJABA.Text = “MANAJER”
TextGAPOK.Text = “4000000”
TextTUNJA.Text = “1025000”
ElseIf Y = “B” Then
TextGOL.Text = “B”
TextJABA.Text = “KA.SEKSI”
Text.APOK.Text = “3500000”
TextTUNJA.Text = “975000”
ElseIf Y = “C” Then
TextGOL.Text = “C”
TextJABA.Text = “STAFF”
TextTUNJA.Text = “925000”
TextGAPOK.Text = “3000000”
End If
Y = Right(TextNIK.Text, 3)
If Y = “ADM” Then
TextBAGI.Text = “Administrasi”
ElseIf Y = “KEU” Then
TextBAGI.Text = “Accounting”
ElseIf Y = “SDM” Then
TextBAGI.Text = “General Affair”
ElseIf Y = “EDP” Then
TextBAGI.Text = “IT Unit”
ElseIf Y = “SPM” Then
TextBAGI.Text = “Security”
End If
Y = Mid(TextNIK.Text, 7, 1)
If Y = “S” Then
TextKODE.Text = “S”
TextSTAT.Text = “Single”
ElseIf Y = “M” Then
TextKODE.Text = “M”
TextSTAT.Text = “Menikah”
ElseIf Y = “J” Then
TextKODE.Text = “”
TextSTAT.Text = “Janda”
ElseIf Y = “D” Then
TextKODE.Text = “D”
TextSTAT.Text = “Duda”
End If
TextTOTAL.Text = Val(TextGAPOK) + Val(TextTUNJA)

End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
TextGOL.SetFocus
End Sub

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

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub TextNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextNIK.SetFocus
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Iklan

PT.PULANG PETANG

DB9
Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textkodeset = “”
Textstatus = “”
Textahun = “”
Textjabaatan = “”
Textbagian = “”
Textgajipok = “”
Texttunjangan = “”
Texttotal = “”
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textkodeset = “”
Textstatus = “”
Texttahun = “”
Textjabatan = “”
Textbagian = “”
Textgajipok = “”
Texttunjangan = “”
Texttotal = “”
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Mid(Textnik.Text, 5, 1)
If A = “A” Then
Textgolongan.Text = “A”
Textjabatan.Text = “MANAGER”
Textgajipok.Text = “4000000”
Texttunjangan.Text = “1025000”
ElseIf A = “B” Then
Textgolongan.Text = “B”
Textjabatan.Text = “Ka.SEKSI”
Textgajipok.Text = “3500000”
Texttunjangan.Text = “975000”
ElseIf A = “C” Then
Textgolongan.Text = “C”
Textjabatan.Text = “STAFF”
Textgajipok.Text = “3000000”
Texttunjangan.Text = “925000”
End If
A = Right(Textnik.Text, 3)
If A = “KEU” Then
Textbagian.Text = “ACCOUNTING”
ElseIf A = “ADM” Then
Textbagian.Text = “ADMINISTRASI”
ElseIf A = “SDM” Then
Textbagian.Text = “GENERAL AFFAIR”
ElseIf A = “EDP” Then
Textbagian.Text = “IT UNIT”
ElseIf A = “SPM” Then
Textbagian.Text = “SECURITY”
End If
A = Mid(Textnik.Text, 7, 1)
If A = “S” Then
kode = “S”
Status = “SINGLE”
ElseIf A = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf A = “J” Then
kode = “J”
Status = “JANDA”
ElseIf A = “D” Then
kode = “D”
Status = “DUDA”
End If
Textkodeset.Text = kode
Textstatus.Text = Status
Texttahun.Text = Left(Textnik.Text, 4)
Texttotal.Text = Val(Textgajipok.Text) + Val(Texttunjangan.Text)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Textgolongan.SetFocus
End Sub

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

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

DATA BUKU STMIK PRINGSEWU

DB8

Private Sub Cmdbatal_Click()
Textkode.SetFocus
Textkode.Text = “”
Textjudul.Text = “”
Textpengarang.Text = “”
Texttahun.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textkode.SetFocus
Textkode.Text = “”
Textjudul.Text = “”
Textpengarang.Text = “”
Texttahun.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim M As String
M = Left(Textkode, 3)
If M = “SIM” Then
Textjudul.Text = “Sistem Informasi Manajemen”
Textpengarang.Text = “Fadiya Ulfa”
Textharga.Text = “75900”
ElseIf M = “EDP” Then
Textjudul.Text = “Elektronik Data Processing”
Textpengarang.Text = “Nurul Agustina”
Textharga.Text = “62000”
ElseIf M = “MNJ” Then
Textjudul.Text = “Manajemen”
Textpengarang.Text = “Rian Hidayat”
Textharga.Text = “42000”
ElseIf M = “CDR” Then
Textjudul.Text = “Corel Draw”
Textpengarang.Text = “Siti Nur Khotimah”
Textharga.Text = “53000”
ElseIf M = “RPL” Then
Textjjudul.Text = “Rekayasa Perangkat Lunak”
Textpengarang.Text = “Winda Erlianti”
Textharga.Text = “83000”
End If
M = Right(Textkode, 1)
If M = “A” Then
Textpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf M = “I” Then
Textpenerbit.Text = “Indah Surabaya”
ElseIf M = “S” Then
Textpenerbit.Text = “Salemba Empat”
ElseIf M = “E” Then
Textpenerbit.Text = “Elek Media Komputindo”
ElseIf M = “M” Then
Textpenerbit.Text = “Maxicom”
End If
Texttahun.Text = “20” & Mid(Textkode, 5, 2)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Textkode.SetFocus
End Sub
Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

PENJUALAN TIKET KERETA API

DB7

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textkt.SetFocus
Textkt = “”
Textht = “”
Textjk = “”
Textjb = “”
Textjt = “”
Texttp = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
S = Left(Textkode.Text, 3)
If S = “BIM” Then
Textjenis.Text = “BIMA”
Texthartik.Text = “50000”
Textjam.Text = “16.00 WIB”
ElseIf S = “EKO” Then
Textjenis.Text = “EKONOMI”
Texthartik.Text = “35000”
Textjam.Text = “19.00 WIB”
ElseIf S = “MUT” Then
Textjenis.Text = “MUTIARA”
Texthartik.Text = “23000”
Textjam.Text = “17.00 WIB”
ElseIf S = “SEN” Then
Textjenis.Text = “SENJA”
Texthartik.Text = “15000”
Textjam.Text = “20.00 WIB”
End If
Texttotal.Text = Val(Texthartik.Text) * Val(Textjumlah.Text)
Textjumlah.SetFocus
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Cmdkeluar.SetFocus
End Sub

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

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Textjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttotal = Val(Texthartik) * Val(Textjumlah)
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

ENTRI PEN JUALAN KOMPUTER

DB5

Private Sub Cbocode_Click()
Dim jenis, hs As String
Select Case Cbocode
Case “P205”
jenis = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jenis = “Pentium III 800 Mega Hz ”
hs = “2100000 ”
Case “P310”
jenis = “pentium III 1.0 Giga Hz”
hs = “3500000 ”
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
hs = “4000000 ”
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz ”
hs = “4200000 ”
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
hs = “5500000 ”
End Select
Textjenis = jenis
Texths = hs
Textjumlah.SetFocus
End Sub
Private Sub Cmdclose_Click()
Form2.Show

End Sub
Private Sub Cmdhl_Click()
Cbocode.SetFocus
Cbocode = “”
Textjenis = “”
Texths = “”
Textjumlah = “”
Textdiskont = “”
Texthb = “”
End Sub

Private Sub Cmdproses_Click()
Texthp = Val(Textjumlah) * Val(Texths)
If Val(Texthp) > “30000000” Then
Textdiscont = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > “25000000” Then
Textdiscont = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > “20000000” Then
Textdiscont = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > “15000000” Then
Textdiscont = Val(Texthp) * 2 / 100
End If
Texthb = Val(Texthp) – Val(Textdiscont)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Cbocode.SetFocus
End Sub

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

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Textjenis = “”
Texths = “”
Textjumlah = “”
Textdiskont = “”
Texthb = “”
End Sub

Private Sub Form_Load()
Cbocode.AddItem “P205”
Cbocode.AddItem “P308”
Cbocode.AddItem “P310”
Cbocode.AddItem “P415”
Cbocode.AddItem “P417”
Cbocode.AddItem “P419”
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

ENTRI PENJUALAN LAPTOP APPLE

DB4
Private Sub Cbocode_Click()
Dim merk, hs As String
Select Case Cbocode
Case “MC965”
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966”
merk = “Apple MacBook Air MC966”
hs = “15800000”
Case “MC968”
merk = “Apple MacBook Air MC968”
hs = “9900000”
Case “MC969”
merk = “Apple MacBook Air MC969”
hs = “11900000”
Case “MC700”
merk = “Apple MacBook Pro MC700”
hs = “10800000”
Case “MC721”
merk = “Apple MacBook Pro MC721”
hs = “15900000”
Case “MC723”
merk = “Apple MacBook Pro MC723”
hs = “19300000”
Case “MC724”
merk = “Apple MacBook Pro MC724”
hs = “13700000”
Case “MC311”
merk = “Apple MacBook Pro MC311”
hs = “24200000”
Case “MC313”
merk = “Apple MacBook Pro MC313”
hs = “11900000”
Case “MC314”
merk = “Apple MacBook Pro MC314”
hs = “14700000”
Case “MC318”
merk = “Apple MacBook Pro MC318”
hs = “17600000”
Case “MC322”
merk = “Apple MacBook Pro MC322”
hs = “21300000”
Case “MC965”
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966 ”
merk = “Apple MacBook Air MC966”
hs = “15800000 ”

End Select
Textmerk = merk
Textharga = hs
Textjumlah.SetFocus
End Sub

Private Sub cmdhitung_Click()
Cbocode.SetFocus
Cbocode = “”
Textmerk = “”
Textharga = “”
Textjumlah = “”
Textharpen = “”
Textdiscount = “”
Texttotal = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdproses_Click()
Textharpen = Val(Textjumlah) * Val(Textharga)
If Val(Textharpen) > 140000000 Then
Textdiscount = Val(Textharga) * 15 / 100
ElseIf Val(Textharpen) > 135000000 Then
Textdiscount = Val(Textharpen) * 10 / 100
ElseIf Val(Textharpen) > 130000000 Then
Textdiscount = Val(Textharpen) * 5 / 100
ElseIf Val(Textharpen) > 125000000 Then
Textdiscount = Val(Textharpen) * 2 / 100
End If
Texttotal = Val(Textharpen) – Val(txtdiscount)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
Cbocode.SetFocus
End Sub

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

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Load()
Cbocode.AddItem “MC965”
Cbocode.AddItem “MC966”
Cbocode.AddItem “MC968”
Cbocode.AddItem “MC969”
Cbocode.AddItem “MC700”
Cbocode.AddItem “MC721”
Cbocode.AddItem “MC723”
Cbocode.AddItem “MC724”
Cbocode.AddItem “MC311”
Cbocode.AddItem “MC313”
Cbocode.AddItem “MC314”
Cbocode.AddItem “MC318”
Cbocode.AddItem “MC322”
End Sub
Private Sub Textjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texthp.SetFocus
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TOKO ALAT TULIS SALSABILA

lala
Private Sub Cmdadd_Click()
Data1.Recordset.AddNew
Txtkode.SetFocus
End Sub

Private Sub Cmdcancel_Click()
Data1.Recordset.Delete
End Sub

Private Sub Cmdhitung_Click()
Txtby.Text = Val(Txthb.Text) * Val(Txtjb.Text)
If Val(Txtjb.Text) > “5” Then
Txtpot.Text = Val(Txtby) * 0.02
Txttb.Text = Val(Txtby.Text) – (Txtpot.Text)
End If
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdproses_Click()
Dim H, nb, hb As String

H = Mid(Txtkode, 5, 2)
If H = “SP” Or H = “sp” Then
Txtnb.Text = “Spidol”
Txthb.Text = “9500”
ElseIf H = “BT” Or H = “bt” Then
Txtnb.Text = “Buku Tulis”
Txthb.Text = “12500”
ElseIf H = “TP” Or H = “tp” Then
Txtnb.Text = “Tip EX”
Txthb.Text = “3000”
ElseIf H = “PG” Or H = “pd” Then
Txtnb.Text = “Penggaris”
Txthb.Text = “2500”
ElseIf H = “PT” Or H = “pt” Then
Txtnb.Text = “Papan Tulis”
Txthb.Text = “5000”
End If
Txtjb.SetFocus
End Sub

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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub