Nah Sobat BM, kita lanjutkan pembahasan kita pada Belajar Membuat Database Di Visual Basic 6.0. bagi yang belum membaca Part I silahkan BACA BULU BELAJAR MEMBUAT DATABASE DI VISUAL BASIC PART I.bagi yang sudah baca... ayooo kebut.....
Silahkan agar tidak berlama lama ketikan listing berikut pada kolom view kode :
Private Sub Command1_Click()
Dim salah As Integer
If Command1.Caption = "SIMPAN" Then
If Text1.Text = "" Then
salah = MsgBox("NIK harus diisi", vbCritical + vbOKOnly, "Kesalahan")
If salah = 1 Then
Text1.SetFocus
End If
ElseIf Text2.Text = "" Then
salah = MsgBox("NAMA harus diisi", vbCritical + vbOKOnly, "Kesalahan")
If salah = 1 Then
Text2.SetFocus
End If
ElseIf Text3.Text = "" Then
salah = MsgBox("ALAMAT harus diisi", vbCritical + vbOKOnly, "Kesalahan")
If salah = 1 Then
Text3.SetFocus
End If
ElseIf Text4.Text = "" Then
salah = MsgBox("NO REKENING harus diisi", vbCritical + vbOKOnly, "Kesalahan")
If salah = 1 Then
Text4.SetFocus
End If
ElseIf Text5.Text = "" Then
salah = MsgBox("GAJI harus diisi dan diisi dengan angka", vbCritical + vbOKOnly, "Kesalahan")
If salah = 1 Then
Text5.SetFocus
End If
ElseIf Text6.Text = "" Then
salah = MsgBox("POTONGAN harus diisi dan diisi dengan angka", vbCritical + vbOKOnly, "Kesalahan")
If salah = 1 Then
Text6.SetFocus
End If
Else
Data1.Recordset.AddNew
Data1.Recordset!nik = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!alamat = Text3.Text
Data1.Recordset!no_rek = Text4.Text
Data1.Recordset!gaji_bulan = Text5.Text
Data1.Recordset!potongan = Text6.Text
Data1.Recordset!ppn = Text7.Text
Data1.Recordset!simpanan = Text8.Text
Data1.Recordset!gaji_bersih = Text9.Text
Data1.Recordset.Update
Command1.Caption = "DATA BARU"
End If
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text1.SetFocus
Command1.Caption = "SIMPAN"
End If
End Sub
Private Sub Command2_Click()
Dim ingat As Integer
ingat = MsgBox("Apakah Anda Yakin Akan Menghapus Data??", vbCritical + vbYesNo, "Konfirmasi")
If ingat = 6 Then
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub
Private Sub Command3_Click()
DataReport1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
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.SetFocus
End If
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_Change()
Text9.Text = Val(Text5.Text)
End Sub
Private Sub text5_keypress(keyAscii As Integer)
If keyAscii = 13 Then
Text6.SetFocus
End If
End Sub
Private Sub Text6_Change()
gaji = Val(Text5.Text)
pot = Val(Text6.Text)
ppn = 0.1 * gaji
Text7.Text = ppn
simpanan = 0.05 * (gaji - ppn)
Text8.Text = simpanan
total = gaji - pot - simpanan
Text9.Text = total
End Sub
Wah wah wah..... cukup panjang dan cukup pusing ??? untuk text yang berwarna biru kosongkan sja bulu(jangan dimasukan ke dalam kode) itu sebagai bahan bahasan kita nanti dalam membuat laporan database. saya kira tidak sulit. Saya yakin anda bisa memahaminya. Jalankan program dan enjoy deh...... untuk meminta program ini silahkan anda kirim email atau tinggalkan komentar anda. Terimakasih semoga bermanfaat.
Salam Sobat BM.
0 comments:
Post a Comment