Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim A As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
txtnu.Text = Right(txtnpm.Text, 3)
A = Mid(txtnpm.Text, 3, 1)
If A = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf A = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf A = “3” Then
txtjur.Text = “Tehnik Komputer”
End If
A = Mid(txtnpm.Text, 4, 2)
If A = “00” Then
txtprodi.Text = “Strata1”
ElseIf A = “01” Then
txtprodi.Text = “Diploma4”
ElseIf A = “02” Then
txtprodi.Text = “Diploma3”
End If
End Sub

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

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

Private Sub Form_Load()

End Sub

 

“Mencintai adalah menerima apa adanya orang yang kita cintai. Lihatlah itu sebagai anugerah & berkat.”


“Apa yang kita capai di sore hari ditentukan oleh PIKIRAN kita mulakan di pagi hari.”


“Hidup adalah SENI menikmati setiap peristiwa dalam kehidupan Anda. SETUJU?”


“Tanpa KEYAKINAN setiap PENCAPAIAN akan berujung pen-CAPEK-an. Ragu-ragulah … dan akan capek.”


“Ungkapkan kasih sayangmu kepada suami/istrimu; Ungkapkan dengan EKSTRIM, dan tunggu keajaibannya. Contoh ungkapan sayang ekstrim: cium dia di depan orang banyak, atau belikan bunga untuk hari ini. Coba deh, reaksi-nya!”


“KEPERCAYAAN itu seperti KEPERAWANAN, jangan berikan kepada sembarang orang. Sekali kita kehilangan, dia tidak bakal balik lagi. Hati-hati memberikan kepercayaan kepada orang lain … !”


“Tidak mengapa menjadi tua, asal tetap muda dalam semangat. Ingatkah ketika kita pertama kali lulus sekolah dasar? Apa perasaanmu sekarang, sama kan?”


“Kadang lebih baik diam drpd menceritakan masalahmu, karena kamu tahu sebagian orang hanya penasaran, bukan karena mereka peduli.


“Sibuk mencari kesalahan orang lain tidak akan membuat kita lebih baik darinya. Membenahi diri sendiri adalah kunci untuk MENJADI LEBIH BAIK”


“Kita tidak tahu berapa banyak orang yang BERARTI dalam hidup kita ; sampai saat kita sadar bahwa kita MERINDUKAN kehadiran mereka”


“Selalu ada perbedaan dalam sebuah hubungan, yang kadang menyebabkan masalah, tetapi juga menguatkan.”


“MOTIVASI : Jangan berhenti berupaya ketika menemui kegagalan. Karena kegagalan adalah cara Tuhan mengajari kita tentang arti kesungguhan. Begitu …”


“Hendaknya kesibukan kita lebih berfokus pada penyempurnaan penunaian kewajiban-kewajiban kita kepada Tuhan, sebab Dia, Tuhan yang sekaligus Pemberi Rejeki pasti akan membalas penunaian kewajiban tersebut dengan anugrah-Nya yang akan mencukupi kebutuhan kita.”


“Sahabat, HEBAT … berprasangka baik itu memunculkan yang tak terlihat, merasakan yang tak berwujud dan MENDAPATKAN yang tak mungkin. Berita baiknya, prasangka baik bisa dilatih”


“Kebanggaan masa muda adalah: kekuatan dan kecantikan. Sedangkan kebanggaan masa tua adalah: MENGENDALIKAN LIDAH”


“Terima kasih TUHAN, kalau telah tiupkan nafas kembali setelah tidurku di pagi ini. Engkau berikan”


“Kebahagiaan paling besar adalah mengubah rasa itu menjadi ACTION – The greatest happiness is to transform one’s feelings into action.”


“Coba perhatikan PASANGAN anda jika anda sanjung: 1) Tersenyum lebar; 2) Tersenyum tersipu-sipu; 3) Malu sambil menutup muka/mulut; atau 4) diam saja. Mana yang lebih tepat? …”


“Anda Bisa Menunda Untuk Berubah Karena Banyaknya Urusan. Tapi Hidup Tidak Pernah Menunda Urusannya Untuk Menunggu Anda Berubah.”


“Sebuah rencana yang hebat dapat gagal hanya karena kurangnya kesabaran.”


“Pria sejati bukan dia yg punya banyak wanita dalam hidupnya, namun dia yg menolak banyak wanita hanya demi wanita yg dicintainya.”


“Sahabat! Kadang kita berputus asa ketika MANUSIA LAIN menutup pintu jalan kita ~ PADAHAL andaikan 1000 manusia menutup pintu jalan, TAPI bagaimana jika Tuhan membuka JENDELA langit rizkinya untuk kita .. ?”


“Berlayarlah Dan Temukan Muara Hikmah Di Pulau Samudera Cinta. Waspadalah Diri Dari Sesat Didalamnya. Semua Pelayaran Kita Tertuju Pada Satu Muara Cinta, Yaitu Mendapatkan Cinta Abadi Yang Esa”


“Jika Anda tidak pernah GAGAL pada saat dulu, sekarang dan nanti – Itu ARTINYA: Anda tidak pernah melakukan sesuatu. Gagal adalah tanda sebuah keberhasilan.”


“Bila Anda sedang merasa terjebak dalam sebuah lubang,
berhentilah menggali.”


“Untuk APA Anda hidup? APA yg membuat Anda paling bahagia? APA yang ingin Anda wujudkan? APA yang ingin Anda pertahankan? Pernahkah Anda menanyakan hal-hal tersebut pada diri Anda sendiri? dan seberapa sering? Kalau saya, hampir setiap hari.”


“Sering kita mendengar orang berkata, “hidup itu keras & sulit”. Mari kita bertanya balik, “lebih keras & sulit dibandingkan apa?” ~ dibandingkan MATI? … Bagaimana menurut Anda.”


“Buka Hati: Hati Anda adalah peti yang sering Anda anggap kosong. Kekayaannya hanya akan Anda temukan, bila Anda sendiri membuka hati Anda”


“Jika KEHIDUPAN terkadang membuatmu ingin MENANGIS – ingatlah bahwa, ada RIBUAN MOMENTs yang telah membuatmu TERSENYUM. Syukuri apapun yang terjadi karena rencana Tuhan pasti yang terbaik”


“Ketika kita meminta, Dia mengabulkan. Ketika kita bersyukur, Dia menambahkan. Ketika kita meminta dan bersyukur, DIA MENGARUNIAKAN KEAJAIBAN”


“Hati-hati dengan positive-thinking, dosa pertama manusia adalah ketika Hawa berpikir baik tentang rayuan Iblis, “Buah itu akan membuatmu langgeng!”


“Hati Anda adalah peti yang sering Anda anggap kosong. Kekayaannya hanya akan Anda temukan, bila Anda sendiri membuka hati Anda”


“Ikhlas adalah tidak menempatkan adanya balas budi dalam ingatan kalian. Mulakan segala sesuatu dengan ‘kebaikan’ karena dia akan berbuah ‘kebaikan’ juga bagi diri kalian. Berikan dan Lupakan”


“Tiap-tiap kamu direncanakan mulia. Tuhan tdk pernah menciptakan yang sia-sia. Maka, jika ingin sampai kepada kemuliaanmu, bersikaplah seperti emas. Bersiaplah untuk muncul atau ditemukan dengan diruntuhkan dari tanah asalmu, digali, diayak, dipisahkan, kemudian ditempa dengan panas & pukulan. Jangan terus… hidup dengan kebaikan yang kamu lekatkan pada lumpur kotor yang terus membebani & melumuri kilaumu!”

Private Sub Command1_Click(Index As Integer)
Dim s As String
txtth.Text = Left(Text2.Text, 4)
s = Mid(Text2.Text, 5, 1)
If s = “A” Then
txtgol.Text = “A”
txtjb.Text = “Manager”
txtgp.Text = “4000000”
txttj.Text = “1025000”
ElseIf s = “B” Then
txtgol.Text = “B”
txtjb.Text = ” Ka. Seksi”
txtgp.Text = “3500000”
txttj.Text = “975000”
ElseIf s = “C” Then
txtgol.Text = “C”
txtjb.Text = “Staff”
txtgp.Text = “3000000”
txttj.Text = “925000”
End If
s = Mid(Text2.Text, 7, 1)
If s = “S” Then
txtkod.Text = “S”
txtst.Text = “Singel”
ElseIf s = “M” Then
txtkod.Text = “M”
txtst.Text = “Menikah”
ElseIf s = “J” Then
txtkod.Text = “J”
txtst.Text = “Janda”
ElseIf s = “D” Then
txtkod.Text = “D”
txtst.Text = “Duda”
End If
s = Mid(Text2.Text, 9, 3)
If s = “KEU” Then
txtbg.Text = “Accounting”
ElseIf s = “ADM” Then
txtbg.Text = “Administrasi”
ElseIf s = “SDM” Then
txtbg.Text = “General Affair”
ElseIf s = “EDP” Then
txtbg = “IT Unit”
ElseIf s = “Spm” Then
txtbg.Text = “Security”
End If
txttg.Text = Val(txtgp.Text) + Val(txttj.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txthrg.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim s As String

s = Mid(txtkb.Text, 1, 1)
If s = “A” Then
txtpen.Text = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
txtpen.Text = “Indah Surabaya”
ElseIf s = “S” Then
txtpen.Text = “Salemba Empat”
ElseIf s = “E” Then
txtpen.Text = “Elek Media Koputindo”
ElseIf s = “M” Then
txtpen.Text = “Maxicom”
End If

s = Mid(txtkb.Text, 3, 3)
If s = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Andra Setiawan”
txthrg.Text = “75900”

ElseIf s = “EDP” Then
txtjb.Text = “Elektronik Data Procissing”
txtpeng.Text = “Desi Istiqomah”
txthrg.Text = “62000”

ElseIf s = “MNJ” Then
txtjb.Text = “Manajemen”
txtpeng.Text = “Sandy Fitrajaya”
txthrg.Text = “42000”

ElseIf s = “CDR” Then
txtjb.Text = “Corel Draw”
txtpeng.Text = “Tri Indah Sari”
txthrg.Text = “62000”

ElseIf s = “RPL” Then
txtjb.Text = “Rekayasa Prangkat Lunak”
txtpeng.Text = “Ernita”
txthrg.Text = “83000”
End If
txttt.Text = “20” & Right(txtkb.Text, 2)
End Sub

Private Sub Form_load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Combo1.Text
Case “1”
Text3 = 1500000
Text4 = 150000
Case “II”
Text3 = 2000000
Text4 = 200000
Case “III”
Text3 = 2500000
Text4 = 250000
Case “IV”
Text3 = 3000000
Text4 = 300000
Case Else
Text3 = 0
Text4 = 0
End Select
Text6 = Val(Text3.Text) + Val(Text4.Text)
Text5 = Val(Text6.Text) * 0.1
Text6.Text = Val(Text6.Text) – Val(Text5.Text)
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
txtnama.SetFocus
    txtnama = “”
    Txtnpm = “”
    txtjurusan = “”
    txtprogramstudy = “”
    txttahunmasuk = “”
    txtnomorurut = “”
End Sub

Private Sub cmdkeluar_Click()
    End
End Sub

Private Sub cmdlagi_Click()
    txtnama.SetFocus
    txtnama = “”
    Txtnpm = “”
    txtjurusan = “”
    txtprogramstudy = “”
    txttahunmasuk = “”
    txtnomorurut = “”
End Sub

Private Sub cmdproses_Click()
    Dim A, jr, ps As String
    txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
    A = Mid(Txtnpm.Text, 3, 1)
    If A = “1” Then
    jr = “sistem informasi”
    ElseIf A = “2” Then
    jr = “manajemen informatika”
    ElseIf A = “3” Then
    jr = “teknik informatika”
    ElseIf A = “4” Then
    jr = “komputer akutansi”
    End If
    txtjurusan.Text = jr
    A = Mid(Txtnpm.Text, 4, 2)
    If A = “00” Then
    ps = “strata satu”
    ElseIf A = “01” Then
    ps = “diploma empat”
     ElseIf A = “02” Then
    ps = “diploma tiga”
     ElseIf A = “03” Then
    ps = “diploma dua”
    End If
    txtprogramstudy.Text = ps
    txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Txtnpm.SetFocus
    End If
End Sub

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100145”
nama = “MUHAMMAD MIFTAHUDIN”
jurusan = “Diploma empat”
Case “12100145”
nama = “ISTIQOMAH”
jurusan = “Sistem Informasi”
Case “12100141”
nama = “LIA SILVIANI”
jurusan = “Diploma Tiga”
Case “12100148”
nama = “M FUAD HASYIM”
jurusan = “Diploma Dua”
Case “12100149”
nama = “HARIS PURBIANTO”
jurusan = “Diploma Satu”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA

Select Case Text7.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Text8.Text = HM
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100145”
Combo1.AddItem “12100141”
Combo1.AddItem “12100147”
Combo1.AddItem “12100148”
Combo1.AddItem “12100149”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub ChKBOLD_Click()
If chkBOLD.Value = 1 Then
lblteks.FontBold = True
elase
lblteks.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
If chkITALIC.Value = 1 Then
lblteks.FontItalic = Ture
elase
lblteks.FontItalic = False
End If
End Sub

Private Sub Chkstrikethru_Click()
If chkstrikethru.Value = 1 Then
lblteks.FontStrikethru = True
elase
lblteks.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
elase
lblteks.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub
Private Sub Optblue_Click()
lblteks.ForeColor = vbBlue
End Sub

Private Sub OptGreen_Click()
lblteks.ForeColor = vbGreen
End Sub

Private Sub OptRed_Click()
lblteks.ForeColor = vbRed
End Sub

Private Sub OptYellow_Click()
lblteks.ForeColor = vbYellow
End Sub

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

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub