Jumat, 31 Oktober 2008

Pemrograma III Apliksi gaji karyawan

Apliksi gaji karyawan
.
Private Sub Cmbstatus_Click()
'If Me.Cmbstatus.Text = "kawin" Then
'Me.txtjmlanak.Enabled = True'   
Else
'Me.txtjmlanak.Enabled = False'
End If

End Sub
Private Sub cmddelete_Click()
Set Tbnim = mydbase.OpenRecordset("select * from peg where nama = '" & Me.txtnama.Text & "'")

If Tbnim.RecordCount > 0 Then
    response = MsgBox("delete data pegawai ?", 36, "information")
                If response = vbYes Then
                'textnpm = textnpm
                Set Tbnim = mydbase.OpenRecordset("select * from peg where nama = '" & Me.txtnama & "'")
                                If Tbnim.RecordCount > 0 Then
                                Tbnim.Delete
                    Me.txtnama.Text = ""
                    Me.Cmbstatus.Text = ""
                    Me.txtjmlanak.Text = ""
                    Me.Cmbjabatan.Text = ""
                    Me.Cmbgol.Text = ""
                    Me.txtkeluarga.Text = ""
                    Me.txtkeluarga = ""
                    Me.txtanak.Text = ""
                    Me.txtjam.Text = ""
                    Me.txttjlembur.Text = ""
                    Me.txtgapok.Text = ""
                    Me.txtgapok.Text = ""
                    Me.txtpajak.Text = ""
                    Me.txtpenghasilan.Text = ""
                    Me.txtjabatan.Text = ""
                                Tbnim.MoveFirst
                                 Else
                                 MsgBox "data tidak ada, data tidak bisa di delete", vbCritical, "information"
                                 End If
               
Related Posts Plugin for WordPress, Blogger...