Membuat Data Gaji Karyawan Dengan Microsoft Visual Foxpro 6.0

Membuat Data Gaji Karyawan Dengan Microsoft Visual Foxpro 6.0

Halo ... ^_^

Beruntung sekali anda membaca artikel ini yaitu Membuat Data Gaji Karyawan Dengan Microsoft Visual Foxpro 6.0

Yang pertama anda lakukan/persiapkan untuk membuat program tersebut adalah sebagai berikut :

1. Kopi
2. Makanan Ringan
3. Obat
4. Tempat Tidur
5. Nomor Telfon Dokter

Ckckckckck, Saya Hanya Bercanda ... :D

Yang mesti anda persiapkan yaitu :

• Instal Programnya di PC anda, 
• Jalankan Programnya

Screenshotnya : 

Object : Form1                  Procedure: Active

SET DATE ITAL

SET CENT ON

SET EXACT ON

SET DELE ON

Object : Form1                  Procedure: Load

USE Bosowa

set order to tag nip

Dan Listing Yang Di Gunakan :

1. Listing Tambah

KUNCI = ALLTRIM (THISFORM.TXTNIP2.VALUE)
SEEK KUNCI
thisform.label11.caption = THISFORM.txtNip2.Value
IF ! FOUND()

Appe Blank
Repl Nip With THISFORM.txtNip2.Value
Repl Nm_Pegawai With THISFORM.txtNm_Pegawai.Value
Repl Alamat With THISFORM.txtAlamat.Value
Repl Tgl_Lahir With THISFORM.txttgl_lahir.Value
Repl Gol With THISFORM.txtgol.Value
Repl Gapok With THISFORM.txtGapok.Value
Repl TJabatan With THISFORM.txttjabatan.Value
Repl tistri With THISFORM.txttistri.Value
Repl Totalgaji With THISFORM.txtTotalgaji.Value
THISFORM.GRID1.Refresh 

ELSE
Repl Nip With THISFORM.txtNip2.Value
Repl Nm_Pegawai With THISFORM.txtNm_Pegawai.Value
Repl Alamat With THISFORM.txtAlamat.Value
Repl Tgl_Lahir With THISFORM.txttgl_lahir.Value
Repl Gol With THISFORM.txtgol.Value
Repl Gapok With THISFORM.txtGapok.Value
Repl TJabatan With THISFORM.txttjabatan.Value
Repl tistri With THISFORM.txttistri.Value
Repl Totalgaji With THISFORM.txtTotalgaji.Value
THISFORM.GRID1.Refresh
ENDIF

THISFORM.txtNm_Pegawai.Value=" -    "
THISFORM.txtAlamat.Value=""
THISFORM.txttgl_lahir.Value=CTOD("  -  -   ")
THISFORM.txtgol.Value=""
THISFORM.txtGapok.Value=0
THISFORM.txttjabatan.Value=0
THISFORM.txttistri.Value=0
THISFORM.txtTotalgaji.Value=0
THISFORM.txtNip2.Setfocus

2. Listing Hapus

3. Listing Keluar

thisform.release

MESSAGEBOX(" ANDA MAU KELUAR ... ?",64,"PESAN")

Siapa Tau Ada Yang Mau Download Langsung Proramnya Ini Saya Kasihkan Secara Geratis ...

                                                              Download

Semoga Dapat Membantumuh ...