Membuat & Memanggil Report pada Visual Foxpro


Pada Artikel ini akan membuat report nota dan pemanggilan pada form untuk report tersebut dan bentuk preview maupun print 

Berikut cara membuat report secara wizard ( otomatis ) pada Visual Foxpro :

1. Buat Table berikut :

Ambil table : tbnota1 dan tbnota2, lalu join kan ke 2 table tersebut dengan key nonota


2. Buat Report dengan menggunakan ke 2 table tersebut ( tbnota1 & tbnota2 ), Design tampilan report seperti gambar dibawah : 

beri nama : rptnota1.frx


3. Buat Form untuk pemanggilan report tersebut/ Design tampilan form seperti gambar dibawah :

Object Control :

1 Form = Print Nota

2 label  = PRINT & PREVIEW FILE NOTA dan No Nota

2 optiongroup = Print Nota dan Print Laporan Nota

1 Textbox

3 Command = Preview, Print dan Exit



4. Menambahkan Script pada masing-masing object control yang terkaitan 

4.1 Object Control OptionGroup

Form1.optiongroup1.valid

IF this.Value=1

thisform.label2.Visible= .T. 

  thisform.text1.Visible= .T. 

  thisform.text1.Value =''

ELSE

thisform.label2.Visible= .F. 

thisform.text1.Visible= .F. 

ENDIF 

thisform.Refresh

4.2. Object Control Command ( Preview )

Form1.command1.valid(preview)

IF thisform.optiongroup1.Value=1

REPORT FORM 'd:\rptnota1.frx' ENVIRONMENT FOR tbnota1.nonota= thisform.text1.Value NOCONSOLE PREVIEW 

ELSE

REPORT FORM 'd:\rptnota1.frx' ENVIRONMENT NOCONSOLE PREVIEW 

ENDIF

thisform.refresh

4.3. Object Control Command ( Print )

Form1.command2.valid (print)

IF thisform.optiongroup1.Value=1

REPORT FORM 'd:\rptnota1.frx' ENVIRONMENT FOR tbnota1.nonota = thisform.text1.Value  NOCONSOLE TO PRINTER  

ELSE

REPORT FORM 'd:\rptnota1.frx' ENVIRONMENT NOCONSOLE TO PRINTER  

ENDIF

thisform.refresh

4.4. Object Control Command ( Exit )

Form1.command3.valid (exit)

Thisform.release