Membuat report bagian
1. Buka project sisgaji
2. Klik forlder report dan pilih new
3. Pilih report wizard
4. Step 1, pilih fields table bagian
5. Step 2 – group record pilih next
6. Step 3 – choose report style pilih next
7. Step 4 –define report layout pilih next
8. Step 5 – sort record pilih sort berdasarkan kdbag
9. Step 6 – finish beri judul report bagian
10. HASIL
Isi record
Pada folder table pilih bagian kemudian browse
Pilih menu table à append new record
Isikan data berikut
Pada report bagian klik preview, maka muncul hasil sebagai berikut
Membuat form management bagian
1. Buka project sis gaji
2. Buat form baru, pilih new form
3. Buat tampilan form seperti berikut:
4. Buat text box di atas cmbkdbag seperti berikut
5. Buat method batal
a. Form bagian dlm keadaan aktif
b. Pilih menu form-> new method
c. Klik 2 kali method batal pd properties
d. Ketikan perintah berikut
WITH thisform
.TxtKdbag.value=" "
.TxtKdbagakh.value=" "
.Txtnamabag.value=" "
.Txtgapok.value=" "
.Txtgajiperhari.value=" "
.TxtKdbag.setfocus
ENDWITH
6. Method selesai
a. Lakukan langkah seperti 5a – 5c dengan nama method selesai dan ketikkan perintah berikut
b. Thisform.release
7. Method simpan
a. Membuat lingkungan data pada form bagian dengan cara klik kanan form bagain dan plih data environment
b. Muncul jendela add table, pilih table bagian shg muncul table bagian
c. Atur property exclusive menjadi true
d. Buat method simpan dan ketikkan perintah berikut
SELECT bagian
SET ORDER to tag idxbagian
WITH thisform
IF !EMPTY(.Txtkdbag.value)
IF SEEK(.Txtkdbag.value)
replace namabag WITH .Txtnamabag.value
replace gapok WITH .Txtgapok.value
replace gajiperhari WITH .Txtgajiperhari.value
ELSE
APPEND BLANK
replace Kdbag WITH .Txtkdbag.value
replace namabag WITH .Txtnamabag.value
replace gapok WITH VAL(.Txtgapok.value)
replace gajiperhari WITH VAL(.Txtgajiperhari.value)
ENDIF
.batal()
.aktif(.f.)
.commandaktif(.f.)
ENDIF
ENDWITH
8. Method hapus
Buat method hapus dan ketikkan perintah berikut :
SELECT bagian
SET ORDER TO tag idxbagian
WITH thisform
IF SEEK(.Txtkdbag.value)
jwb=MESSAGEBOX("Benar ingin dihapus (Y/N)?",4+64,"Info Hapus")
IF jwb=6
DELETE
PACK
ENDIF
.batal()
.aktif(.f.)
ENDIF
ENDWITH
9. Method lihat
Buat method lihat dan ketikkan perintah berikut:
SELECT bagian
SET ORDER TO tag idxbagian
SET FILTER TO mkdbag=kdbag
REPORT FORM "diisi forlder tempat reportbagian.frx" to formbag preview
SET FILTER TO
10. Methode cetak
SELECT bagian
SET ORDER TO tag idxbagian
SET FILTER TO mkdbag=kdbag
REPORT FORM " diisi forlder tempat reportbagian.frx" to PRINTER noconsole
SET FILTER TO
11. Method commandaktif
PARAMETERS keadaan
WITH thisform
.Cmdsimpan.enabled=keadaan
.Cmdlihat.enabled=keadaan
.Cmdcetak.enabled=keadaan
.Cmdhapus.enabled=keadaan
ENDWITH
12. Method aktif
PARAMETERS keadaan
WITH thisform
.TxtKdbag.enabled=.not. keadaan
.Txtnamabag.enabled=keadaan
.Txtgapok.enabled=keadaan
.Txtgajiperhari.enabled=keadaan
ENDWITH
13. Method kdbagakh
SELECT bagian
SET ORDER TO tag idxbagian
WITH thisform
REINDEX
GO BOTTOM
IF kdbag=" "
.TxtKdbagakh.value=" "
ELSE
.Txtkdbagakh.value=kdbag
ENDIF
.Txtkdbagakh.enabled=.f.
ENDWITH
14. Membuat perintah (event)
a. Active event form dg cara
i. Klik form yg tdk berobjek
ii. Klik 2x method Active Event pada properties
iii. Ketikan perintah berikut
WITH thisform
.batal()
.aktif(.f.)
.commandaktif(.f.)
.kdbagakh()
ENDWITH
b. Valid Event txtkdbag dg cara
i. Klik 2x objek kdbag
ii. Pilih Valid di kolom procedure
iii. Ketikan perintah berikut
With thisform
.batal()
.aktif(.f.)
.commandaktif(.f.)
.kadbagakh()
Endwith
SELECT bagian
SET ORDER TO tag idxbagian
WITH thisform
IF !EMPTY(.TxtKdbag.value)
IF SEEK(.TxtKdbag.value)
jwb=MESSAGEBOX("Bagian sudah ada, Lihat/Ubah (Y/N)?",;
4+64,"Info Bagian")
IF jwb=6
.Txtnamabag.value=namabag
.Txtgapok.value=gapok
.Txtgajiperhari.value=gajiperhari
.aktif(.t.)
ELSE
.batal()
RETURN 0
ENDIF
ELSE
.aktif(.t.)
ENDIF
ENDIF
ENDWITH
c. Lostfocus event txtgajiperhari dg cara
i. Klik 2x txtgajiperhari
ii. Pilih lostfocus pada procedure
iii. Ketikan perintah berikut
PUBLIC mkdbag
mkdbag=thisform.Txtkdbag.Value
thisform.commandaktif(.t.)
d. Click event cmdsimpan dg cara
i. Klik 2x objek simpan
ii. Ketikan perintah berikut
thisform.simpan()
thisform.kdbagakh()
thisform.Txtkdbag.SetFocus
e. Click event cmdhapus
i. Klik 2x cmdhapus
ii. Ketikan perintah berikut
thisform.hapus()
thisform.kdbagakh()
thisform.Txtkdbag.SetFocus
f. Click event cmdlihat
i. klik 2x cmdlihat
ii. ketikan perintah berikut
thisform.simpan()
thisform.lihat()
g. click event cmdcetak
i. klik 2x objek cmdcetak
ii. ketikan perintah berikut
thisform.simpan()
thisform.cetak()
h. click event cmdbatal
i. klik 2x cmdbatal
ii. ketikan perintah berikut
thisform.batal()
thisform.kdbagakh()
thisform.aktif(.f.)
thisform.Txtkdbag.SetFocus
i. click event cmd selesai
i. klik 2x cmdselesai
ii. ketikan perintah berikut
thisform.selesai()
0 komentar:
Posting Komentar