nama npm

Untitled

Private Sub cmdbatal_Click()

Textnama = “”

Textnpm = “”

Textjurusan = “”

Textprogram = “”

Texttahun = “”

Texturut = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Form1.Show

End Sub

 

Private Sub cmdlagi_Click()

Textnama = “”

Textnpm = “”

Textjurusan = “”

Textprogram = “”

Texttahun = “”

Texturut = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim jur As String

Dim ps As String

Dim M As String

M = Mid(Textnpm, 3, 1)

If M = 1 Then

jur = “sistem informasi”

ElseIf M = 2 Then

jur = “teknik informatika”

ElseIf M = 3 Then

jur = “menejemen informatika”

ElseIf M = 4 Then

jur = “komputer akuntansi”

End If

Textjurusan = jur

 

M = Mid(Textnpm, 4, 2)

If M = “01” Then

ps = “strata 1”

ElseIf M = “02” Then

ps = “diploma 4”

ElseIf M = “03” Then

ps = “diploma 3”

ElseIf M = “04” Then

ps = “diploma 2”

End If

Textprogram = ps

Texttahun = “20” & Left(Textnpm, 2)

Texturut = Right(Textnpm, 3)

End Sub

 

 

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

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

Textnpm.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

Iklan

alat tulis

DATA10DATA10KELUAR

Private Sub cmdadd_Click()

 

Data1.Recordset.AddNew

End Sub

 

Private Sub cmdcancel_Click()

Unload Me

End Sub

 

Private Sub cmdhitung_Click()

Txtby.Text = Val(Txthb) * Val(Txtjb)

Txttb.Text = Val(Txtby) – Val(Txtpot)

If Txtjb.Text >= 5 Then

 

Txtpot.Text = Val(Txthb * 2 / 100)

End If

 

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

 

End Sub

 

Private Sub Cmdproses_Click()

Dim nama, harga As String

 

A = Mid(Txtkode.Text, 5, 2)

If A = “SP” Then

Txtnb = “SPIDOL”

Txthb = “9500”

ElseIf A = “BT” Then

Txtnb = “buku tulis”

Txthb = “12500”

ElseIf A = “tp” Then

Txtnb = “tipe ex”

Txthb = “3000”

ElseIf A = “PT” Then

Txtnb = “papan tulis”

Txthb = “50000”

 

 

End If

 

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Delete

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

kode buku

kodebukukodebukukeluar

Private Sub Cmdadd_Click()

Data1.Recordset.AddNew

 

End Sub

 

Private Sub cmddelete_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdkeluar_Click()

Form2.Show

 

End Sub

 

Private Sub cmdlagi_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

Private Sub cmdproses_Click()

Dim judul, pengarang, tahun, penerbit, harga As String

Select Case Cmbcode

Case “A-SIM-01”

judul = “SistemInformasiManajemen”

pengarang = “YatiNurOktavia”

tahun = “2001”

penerbit = “Andi Offset Yogyakarta”

harga = “75900”

Case “I-EDP-02”

judul = “ElektronikData Processing”

pengarang = “Imam Tarmizi”

tahun = “2002”

penerbit = “Indah Surabaya”

harga = “62000”

Case “S-MNJ-03”

judul = “Manajemen”

pengarang = “Valentina Mariana Adiwianti”

tahun = “2003”

penerbit = “SalembaEmpat”

harga = “42000”

Case “E-CDR-04”

judul = “Corel Draw”

pengarang = “RiyanSuhandi”

tahun = “2004”

penerbit = “Elek Media Komputindo”

harga = “53000”

Case “M-RPL-05”

judul = “RekayasaPerangkatLunak”

pengarang = “SintaUmpuSinga”

tahun = “2005”

penerbit = “Maxicom”

harga = “83000”

End Select

Textjb = judul

Textpeng = pengarang

Texttt = tahun

Textpen = penerbit

Textharga = harga

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Cndbatal_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

 

 

 

 

Private Sub Form_Load()

Cmbcode.AddItem “A-SIM-01”

Cmbcode.AddItem “I-EDP-02”

Cmbcode.AddItem “S-MNJ-03”

Cmbcode.AddItem “E-CDR-04”

Cmbcode.AddItem “M-RPL-05”

End Sub

 

 

 

Private Sub Command1_Click()

End

 

End Sub

 

Private Sub Command2_Click()

Form1.Show

 

End Sub

 

 

 

 

 

 

 

npm saya

 

Untitled.jpg

Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Form2.Show

 

End Sub

 

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim A As String

Texttm = “20” & Left(Textnpm, 2)

A = Mid(Textnpm, 3, 3)

If A = “100” Then

Textjur = “sistem informasi”

Textps = “strata 1”

ElseIf A = “200” Then

Textjur = “manajemen informatika”

Textps = “diploma 3”

ElseIf A = “300” Then

Textjur = “teknik informatika”

Textps = “diploma 4”

ElseIf A = “400” Then

Textjur = “komputer administrasi”

Textps = “diploma 2”

End If

Textnu = Right(Textnpm, 3)

End Sub

 

 

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

 

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

Textnpm.SetFocus

End If

End Sub

nama npm

NPM10NPM10KELUAR

Private Sub cmdbatal_Click()

Textnama = “”

Textnpm = “”

Textjurusan = “”

Textprogram = “”

Texttahun = “”

Texturut = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Form1.Show

End Sub

 

Private Sub cmdlagi_Click()

Textnama = “”

Textnpm = “”

Textjurusan = “”

Textprogram = “”

Texttahun = “”

Texturut = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim jur As String

Dim ps As String

Dim M As String

M = Mid(Textnpm, 3, 1)

If M = 1 Then

jur = “sistem informasi”

ElseIf M = 2 Then

jur = “teknik informatika”

ElseIf M = 3 Then

jur = “menejemen informatika”

ElseIf M = 4 Then

jur = “komputer akuntansi”

End If

Textjurusan = jur

 

M = Mid(Textnpm, 4, 2)

If M = “01” Then

ps = “strata 1”

ElseIf M = “02” Then

ps = “diploma 4”

ElseIf M = “03” Then

ps = “diploma 3”

ElseIf M = “04” Then

ps = “diploma 2”

End If

Textprogram = ps

Texttahun = “20” & Left(Textnpm, 2)

Texturut = Right(Textnpm, 3)

End Sub

 

 

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

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

Textnpm.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

 

 

 

 

 

 

 

 

 

 

nidn

db nidndb nidn

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan

Case “I”

gapok = 3500000

tunjangan = 350000

Case “II”

gapok = 2400000

tunjangan = 240000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 1000000

tunjangan = 100000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok = gapok

txttunjangan = tunjangan

txtpajak = pajak

txttotal = total – pajak

End Sub

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

 

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

pt pulang petang setiap hari

PULANG PETANGpulang petang keluar

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

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