data base

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Cmdbaru_Click()

Data1.Recordset.AddNew

Txtnama.SetFocus

Txtnama.Text = “”

txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txtno.Text = “”

End Sub

 

Private Sub Cmdhapus_Click()

Data1.Recordset.Delete

Txtnama.SetFocus

Txtnama.Text = “”

txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txtno.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim a, jurusan, prodi, nourut As String

Txttm.Text = “20” & Left(txtnpm.Text, 2)

a = Mid(txtnpm.Text, 3, 1)

If a = “1” Then

jurusan = “sistem informasi”

ElseIf a = “2” Then

jurusan = “tehnik informasi”

ElseIf a = “3” Then

jurusan = “manajemen informasi”

ElseIf a = “4” Then

jurusan = “komputer akuntansi”

End If

Txtjur.Text = jurusan

a = Mid(txtnpm.Text, 4, 2)

If a = “00” Then

prodi = “strata satu”

ElseIf a = “01” Then

prodi = “diploma empat”

ElseIf a = “02” Then

prodi = “diploma tiga”

ElseIf a = “03” Then

prodi = “diploma dua”

End If

Txtprodi.Text = prodi

Txtno.Text = Right(txtnpm.Text, 3)

End Sub

 

Private Sub Cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

 

 

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

C0MBO

Private Sub cmdbatal_Click()
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
txtthn.Text = “20” & Right(txtkode, 2)
A = Mid(cmbkode, 3, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb

A = Mid(cmbkode, 3, 3)
If A = “SIM” Then
pg = “Yati Nur Oktavia”
ElseIf A = “EDP” Then
pg = “Imam Tarmizi”
ElseIf A = “MNJ” Then
pg = “Valentina Mariana Adiwianti”
ElseIf A = “CDR” Then
pg = “Riyan Suhandi”
ElseIf A = “RPL” Then
pg = “Sinta Umpu Singa”
End If
txtpg.Text = pg

A = Left(cmbkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb

A = Mid(cmbkode, 3, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub

Private Sub Form_Load()
cmbkode.AddItem “A-SIM-01”
cmbkode.AddItem “I-EDP-02”
cmbkode.AddItem “S-MNJ-03”
cmbkode.AddItem “E-CDR-04”
cmbkode.AddItem “M-RPL-05”
End Sub

 

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim A, jb, pg, th, pb, h As Integer

txtthn.Text = “20” & Right(txtkode, 2)

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

jb = “sistem informasi manajemen”

ElseIf A = “EDP” Then

jb = “elektronik data processing”

ElseIf A = “MNJ” Then

jb = “manajemen”

ElseIf A = “CDR” Then

jb = “coreldraw”

ElseIf A = “RPL” Then

jb = “rekayasa perangkat lunak”

End If

txtjb.Text = jb

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

pg = “andra setiawan”

ElseIf A = “EDP” Then

pg = “desi ostiqomah”

ElseIf A = “MNJ” Then

pg = “sandy fitra jaya”

ElseIf A = “CDR” Then

pg = “tri indah sari”

ElseIf A = “RPL” Then

pg = “ernita sari”

End If

txtpg.Text = pg

A = Left(txtkode, 1)

If A = “A” Then

pb = “andi offset jogjakarta”

ElseIf A = “I” Then

pb = “indah surabaya”

ElseIf A = “S” Then

pb = “salemba empat”

ElseIf A = “E” Then

pb = “elexmedia komputindo”

ElseIf A = “M” Then

pb = “maxicom”

End If

txtpb.Text = pb

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

hg = “79500”

ElseIf A = “EDP” Then

hg = “62000”

ElseIf A = “MNJ” Then

hg = “42000”

ElseIf A = “CDR” Then

hg = “53000”

ElseIf A = “RPL” Then

hg = “83000”

End If

txtharga.Text = hg

End Sub

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtjb.Text = “”

txtpg.Text = “”

txtthn.Text = “”

txtpb.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim A, jb, pg, th, pb, h As Integer

txtthn.Text = “20” & Right(txtkode, 2)

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

jb = “sistem informasi manajemen”

ElseIf A = “EDP” Then

jb = “elektronik data processing”

ElseIf A = “MNJ” Then

jb = “manajemen”

ElseIf A = “CDR” Then

jb = “coreldraw”

ElseIf A = “RPL” Then

jb = “rekayasa perangkat lunak”

End If

txtjb.Text = jb

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

pg = “andra setiawan”

ElseIf A = “EDP” Then

pg = “desi ostiqomah”

ElseIf A = “MNJ” Then

pg = “sandy fitra jaya”

ElseIf A = “CDR” Then

pg = “tri indah sari”

ElseIf A = “RPL” Then

pg = “ernita sari”

End If

txtpg.Text = pg

A = Left(txtkode, 1)

If A = “A” Then

pb = “andi offset jogjakarta”

ElseIf A = “I” Then

pb = “indah surabaya”

ElseIf A = “S” Then

pb = “salemba empat”

ElseIf A = “E” Then

pb = “elexmedia komputindo”

ElseIf A = “M” Then

pb = “maxicom”

End If

txtpb.Text = pb

A = Mid(txtkode, 3, 3)

If A = “SIM” Then

hg = “79500”

ElseIf A = “EDP” Then

hg = “62000”

ElseIf A = “MNJ” Then

hg = “42000”

ElseIf A = “CDR” Then

hg = “53000”

ElseIf A = “RPL” Then

hg = “83000”

End If

txtharga.Text = hg

End Sub

 

Private Sub cmdbatal_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim A, jb, pg, th, pb, h As Integer
txtthn.Text = “20” & Mid(txtkode, 5, 2)
A = Left(txtkode, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb

A = Left(txtkode, 3)
If A = “SIM” Then
pg = “fadiya ulfa”
ElseIf A = “EDP” Then
pg = “nurul agustina”
ElseIf A = “MNJ” Then
pg = “riyan hidayat”
ElseIf A = “CDR” Then
pg = “siti nur khotimah”
ElseIf A = “RPL” Then
pg = “winda ertianti”
End If
txtpg.Text = pg

A = Right(txtkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb

A = Left(txtkode, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub

Private Sub Command1_Click()

Dim a, GOLONGAN, KODESTATUS, STATUS, JABATAN, BAGIAN, GAJIPOKOK, TUNJANGAN, totalgaji, asstring

Text4.Text = “” & Left(Text11.Text, 4)

a = Mid(Text11.Text, 5, 1)

If a = “A” Then

GOLONGAN = “A”

ElseIf a = “B” Then

GOLONGAN = “B”

ElseIf a = “C” Then

GOLONGAN = “C”

End If

Text1.Text = GOLONGAN

a = Mid(Text11.Text, 5, 1)

If a = “A” Then

JABATAN = “MANAJER”

ElseIf a = “B” Then

JABATAN = “Ka Seksi”

ElseIf a = “C” Then

JABATAN = “Staff”

End If

Text5.Text = JABATAN

a = Mid(Text11.Text, 5, 1)

If a = “A” Then

GAJIPOKOK = “4000000”

ElseIf a = “B” Then

GAJIPOKOK = “3500000”

ElseIf a = “C” Then

GAJIPOKOK = “3000000”

End If

Text7.Text = GAJIPOKOK

a = Mid(Text11.Text, 5, 1)

If a = “A” Then

TUNJANGAN = “1025000”

ElseIf a = “B” Then

TUNJANGAN = “975000”

ElseIf a = “C” Then

TUNJANGAN = “925000”

End If

Text8.Text = TUNJANGAN

a = Mid(Text11.Text, 7, 1)

If a = “S” Then

KODESTATUS = “S”

ElseIf a = “M” Then

KODESTATUS = “M”

ElseIf a = “J” Then

KODESTATUS = “J”

ElseIf a = “D” Then

KODESTATUS = “D”

End If

Text2.Text = KODESTATUS

a = Mid(Text11.Text, 7, 1)

If a = “S” Then

STATUS = “single”

ElseIf a = “M” Then

STATUS = “menikah”

ElseIf a = “J” Then

STATUS = “janda”

ElseIf a = “D” Then

STATUS = “duda”

End If

Text3.Text = STATUS

a = Right(Text11.Text, 3)

If a = “KEU” Then

BAGIAN = “Accounting”

ElseIf a = “ADM” Then

BAGIAN = “Administrasi”

ElseIf a = “SDM” Then

BAGIAN = “General Affair”

ElseIf a = “EDP” Then

BAGIAN = “IP Unit”

ElseIf a = “SPM” Then

BAGIAN = “Security”

End If

Text6.Text = BAGIAN

Text9.Text = Val(Text7.Text) + Val(Text8.Text)

End Sub

 

Private Sub Command2_Click()

Text10.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

End Sub

 

 

Private Sub Command3_Click()

Text10.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text10_keypress(keyascii As Integer)

If keyascii = 13 Then

Text11.SetFocus

End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub Check1_Click()

Text2.FontBold = check1.Value

End Sub

 

Private Sub Check2_Click()

Text2.FontItalic = check1.Value

End Sub

 

Private Sub Command1_Click()

Text2.Text = Text1.Text

End Sub

 

Private Sub Command2_Click()

Unload Me

End Sub

 

Private Sub Option1_Click()

Text2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

Text2.ForeColor = vbRed

End Sub

 

 

 

Private Sub chkbold_Click()

If chkBOLD.Value = 1 Then

Label1.FontBold = True

Else

Label1.FontBold = False

End If

End Sub

Private Sub chkitalic_Click()

If chkITALIC.Value = 1 Then

Label1.FontItalic = True

Else

Label1.FontItalic = False

End If

End Sub

 

Private Sub chkstrikethru_Click()

If chkstrikethru.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1.FontStrikethru = False

End If

End Sub

 

Private Sub chkunderline_Click()

If chkUNDERLINE.Value = 1 Then

Label1.FontUnderline = True

Else

Label1.FontUnderline = False

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub CMDEXIT_Click()

Unload Me

End Sub

 

Private Sub optblue_Click()

Label1.ForeColor = vbBlue

End Sub

 

Private Sub optgreen_Click()

Label1.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

Label1.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

Label1.ForeColor = vbYellow

End Sub

 

 

Private Sub command3_Click()
text1.SetFocus
text1.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
text5.Text = “”
text6.Text = “”

 

End Sub

 

Private Sub command4_Click()
Unload Me
End Sub

 

Private Sub command2_Click()
text1.SetFocus
text1.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
text5.Text = “”
text6.Text = “”

 

End Sub

 

Private Sub command1_Click()
Dim S As String
Dim Total As Long
text5.Text = “20” & Left(text2.Text, 2)

 

S = Mid(text2.Text, 3, 1)
If S = “1” Then
text3.Text = “sistem Informasi”
ElseIf S = “2” Then
text3.Text = “Manajemen Informatika”
ElseIf S = “3” Then
text3.Text = “Tehnik Informatika”
ElseIf S = “04” Then
text3.Text = “Manajemen Komp. Akuntansi”
End If

 

text4.Text = Mid(text2.Text, 5, 2)
If S = “1” Then
text4.Text = “strata satu”
ElseIf S = “2” Then
text4.Text = “diploma tiga”
ElseIf S = “3” Then
text4.Text = “Diploma Empat”
ElseIf S = “4” Then
text4.Text = “Diploma Dua”
End If

 

text6.Text = text4
text6.Text = Right(text2.Text, 3)

 

 

 

End Sub

 

Private Sub Form_Activate()
text1.SetFocus
text1.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
text5.Text = “”
text6.Text = “”

 

End Sub

 

Private Sub text1_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
text2.SetFocus
End If
End Sub

 

 

 

 

 

 

 

Private Sub cmdlagi_Click(Index As Integer)

Unload Me

End Sub

 

Private Sub cmdbatal_Click(Index As Integer)

txtnpm.SetFocus

txtnpm.Text = “”

txtnilaiquis.Text = “”

txtnilaitugas.Text = “”

txtnilaiuts.Text = “”

txtnilaiuas.Text = “”

txtnilaiakhir.Text = “”

End Sub

 

Private Sub cmdlahi_Click(Index As Integer)

txtnpm.SetFocus

txtnpm.Text = “”

txtnilaiquis.Text = “”

txtnilaitugas.Text = “”

txtnilaiuts.Text = “”

txtnilaiuas.Text = “”

txtnilaiakhir.Text = “”

End Sub

 

Private Sub CMDPROSES_Click(Index As Integer)

txtnilaiakhir.Text = Val((txtnilaiquis.Text) + Val(txtnilaitugas.Text) + Val(txtnilaiuts.Text) + Val(txtnilaiuas.Text)) / 4

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilaiquis.SetFocus

End If

End Sub

 

 

 

Private Sub txtnilaiquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilaitugas.SetFocus

End If

End Sub

 

Private Sub txtnilaitugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilaiuts.SetFocus

End If

End Sub

 

 

 

Private Sub txtnilaiuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilaiakhir.Text = (Val(txtnilaiquis.Text) + Val(txtnilaitugas.Text) + Val(txtnilaiuts.Text) + Val(txtnilaiuas.Text)) / 4

txtnilaiakhir.SetFocus

End If

End Sub

 

Private Sub txtnilaiuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilaiuas.SetFocus

End If

End Sub

 

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub cmdbersih_Click()
Txtnilai1.Text = “”
txtnilai2.Text = “”
txthasil.Text = “”
Txtnilai1.SetFocus
End Sub

Private Sub cmdhitung_Click()
txthasil.Text = Val(Txtnilai1.Text) * Val(txtnilai2.Text)
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnilai2.SetFocus
End If
End Sub