ifin_overopt.idlg

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

/*
  ifin_overopt.idlg	-- include tab for mean, proportion, ratio, and total
  			   ([if] [in], over() options)

*! VERSION 1.0.1  17nov2004

*/

DEFINE fromwd 100
DEFINE fromsep +105
DEFINE towd 15
DEFINE tosep +25

DIALOG subpop, tabtitle("if/in/over")
BEGIN
  CHECKBOX ck_overopt  _lft        _top      _iwd	 _ht7,		///
  	label("Group over subpopulations") groupbox			///
  	onclickon(script subpop_over_on) onclickoff(script subpop_over_off)
  TEXT     tx_overopt  _ilft       _ss       _inwd       .,		///
		label("Group variables:")
DEFINE y @y
  VARLIST  vl_overopt  @           _ss       @           .,		///
		label("Group variables")				///
		option(over)

  CHECKBOX ck_nolab    @           _ls       _cwd2       .,		///
		label("Suppress group labels")				///
		 option(nolabel)

  GROUPBOX gb_ifin     _lft        _xls      _iwd        _ht7h,		///
		label("Restrict to observations")
  TEXT     tx_if       _ilft       _ss       _ibwd       .,		///
		label("If: (expression)")
  EXP      ex_if       @           _ss       _ibwd       .,		///
		label("Create...")

  CHECKBOX ck_in       _ilft       _ls       fromwd      .,		///
		label("Obs. in range:")					///
		onclickon(script in_on)					///
		onclickoff(script in_off)
  SPINNER  sp_from     fromsep     @         _spwd       .,		///
		min(1)							///
		max(c(N))						///
		default(1)
  TEXT     tx_to       _spsep      @         towd        .,		///
		label("to:")						///
		right

  SPINNER  sp_to       tosep       @         _spwd       .,		///
		min(1)							///
		max(c(N))						///
		default(c(N))

END

SCRIPT subpop_over_on
BEGIN
	subpop.tx_overopt.enable
	subpop.vl_overopt.enable
	subpop.ck_nolab.enable
END

SCRIPT subpop_over_off
BEGIN
	subpop.tx_overopt.disable
	subpop.vl_overopt.disable
	subpop.ck_nolab.disable
END

SCRIPT in_on
BEGIN
	subpop.sp_from.enable
	subpop.tx_to.enable
	subpop.sp_to.enable
END

SCRIPT in_off
BEGIN
	subpop.sp_from.disable
	subpop.sp_to.disable
END

PROGRAM over_option_output
BEGIN
	put subpop.vl_overopt
	beginoptions
		option subpop.ck_nolab
	endoptions
END

PROGRAM over_output
BEGIN
	if subpop.ck_overopt {
		require subpop.vl_overopt
	}
	if subpop.ck_nolab {
		require subpop.vl_overopt
	}
	if subpop.vl_overopt {
		put "over("
		put /program over_option_output
		put ") "
	}
END

PROGRAM ifin_output
BEGIN
	ifexp subpop.ex_if
	if subpop.ck_in {
		inrange subpop.sp_from subpop.sp_to
	}
END
// END