cara Membuat Report Bagian

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()