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
               

Rabu, 24 September 2008

Tugas Struktur Data

1.      Buat struktur data PEGAWAI untuk menggambarkan list berkait dengan dua pointer      dan dua  kepala (KEPALA & EKOR)!
2.      Dari struktur data pada nomor 1, buat algoritma untuk:
a.       penambahan simpul data pegawai pada list berkait dengan kondisi terurut dari kecil ke besar berdasarkan NIP
b.      menghapus simpul yang berisi data NAMA X pada list tersebut!
3.   Buatlah algoritma untuk menampilkan semua isi list!
Jawab:
     

Senin, 04 Februari 2008

Kegilaan Ngerjain Tugas

Ceritanya kita anak informatika yang stress ngerjain tugas yang kenapa oh kenapa belum kelar aja.
So sambil intermezo yaahhh narsis dikit lah ya.
Kelompok kita harus eksis pokoke.. hehehe








Related Posts Plugin for WordPress, Blogger...