Gambar

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
End Sub

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

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim s, ps, jr As String
Texttahun.Text = “20” & Left(Textnpm.Text, 2)
s = Mid(Textnpm.Text, 3, 1)
If s = “1” Then
jr = “sistem informasi”
ElseIf s = “2” Then
jr = “manajemen informatika”
ElseIf s = “3” Then
jr = “teknik informatika”
ElseIf s = “4” Then
jr = “Master komputer”
End If
s = Mid(Textnpm.Text, 4, 2)
If s = “01” Then
ps = “strata satu”
ElseIf s = “02” Then
ps = “Diploma empat”
ElseIf s = “03” Then
ps = “Diploma tiga”
ElseIf s = “04” Then
ps = “Diploma satu”
End If
Textjurusan.Text = jr
Textprody.Text = ps
Texturut.Text = Right(Textnpm.Text, 3)
End Sub

Private Sub Cmdsimpan_Click()
Data1.Recordset.Update
Textnama.SetFocus
End Sub

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

Private Sub Command1_Click()
Dim s, jb, peng, penr, hrg As String
Text4.Text = “20” & Left(Text1.Text, 2)
s = Mid(Text1.Text, 3, 1)
If s = “1” Then
jb = “hidaya ilahi”
ElseIf s = “2” Then
jb = “cahaya ilahi”
ElseIf s = “3” Then
Baca entri selengkapnya »

Gambar

Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtGolongan = “”
TxtKode = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtBagian = “”
TxtGaji = “”
TxtTunjangan = “”
TxtGajitotal = “”
TxtNama = “”
TxtNIK = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
Baca entri selengkapnya »

Gambar

Private Sub ChK1_Click()
Label2.FontBold = ChK1.Value
End Sub
<br Baca entri selengkapnya »

Gambar

Private Sub Command1_Click() Baca entri selengkapnya »

Gambar

Private Sub Combo1_Click() Baca entri selengkapnya »

Gambar

Private Sub Chkbold_Click()

‘membuat teks tebal

Baca entri selengkapnya »

GambarPrivate Sub Command3_Click()
Unload Me
End Sub

Baca entri selengkapnya »

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Baca entri selengkapnya »

GambarPrivate Sub Text1_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Baca entri selengkapnya »