srsrpt.idlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
  srsrpt.idlg  Used with mean, proportion, ratio, and total

*! VERSION 1.1.1  22nov2004

*/

DIALOG rpt, tabtitle("Reporting")
BEGIN
  DEFINE _x _lft
  DEFINE _cx _spr2b
  DEFINE _y _top
  INCLUDE _sp_level

  CHECKBOX ck_noheader _lft    _ls       _iwd      .,		///
	label("Suppress table header")				///
	clickon(program check_header)				///
	clickoff(program check_header)				///
	option(noheader)

  CHECKBOX ck_nolegend  @      _ms       @         .,		///
	label("Suppress table legend")				///
	option(nolegend)

END

PROGRAM check_header
BEGIN
	if rpt.ck_noheader {
		call gaction rpt.ck_nolegend.disable
	}
	if !rpt.ck_noheader {
		call gaction rpt.ck_nolegend.enable
	}
END

PROGRAM srsrpt_output
BEGIN
	optionarg /hidedefault rpt.sp_level
	option rpt.ck_noheader
	option rpt.ck_nolegend
END