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
Catatan : baca juga artikel yang berkaitan