tsset.dlg

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

/*
  tsset

*! VERSION 1.0.2  31mar2005

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE header

HELP hlp1, view("help tsset")
RESET res1

DIALOG main, label("tsset - Declare dataset to be time-series data") /*
		*/ tabtitle("Main")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/
  TEXT     tx_t      _lft      _top      _cwd1     .,			/*
		*/ label("Time variable:")				/*
		*/
  VARNAME  vn_t      @         _ss       _vnwd     .,			/*
		*/ label("Time variable")				/*
		*/ option("t")						/*
		*/ default(char _dta[tis])				/*
		*/ nomemory						/*
		*/


  TEXT     tx_i      _lft2     _top      _cwd1     .,			/*
		*/ label("Panel ID variable:  (optional)")		/*
		*/
  DEFINE y @y
  VARNAME  vn_i      @         _ss       _vnwd     .,			/*
		*/ label("Panel ID variable")				/*
		*/ option("i")						/*
		*/ default(char _dta[iis])				/*
		*/ nomemory						/*
		*/

  CHECKBOX ck_clear  _lft      _ls       _iwd      .,			/*
		*/ label("Clear all settings")				/*
		*/ nomemory						/*
		*/ clickon("script clear_on")				/*
		*/ clickoff("program clear_off")			/*
		*/ option("clear")					/*
		*/

  GROUPBOX gb_format _lft      _ls       _iwd      _ht11,		/*
		*/ label("Display format for the time variable")	/*
		*/
  RADIO    rb_none   _ilft     _ss       _cwd2     .,			/*
		*/ label("None specified")				/*
		*/ clickon("script format_disable")			/*
		*/ first						/*
		*/ option(NONE)						/*
		*/
  RADIO    rb_day    _lft2     @         _cwd2     .,			/*
		*/ label("Daily")					/*
		*/ clickon("script format_disable")			/*
		*/ option("daily")					/*
		*/
  RADIO    rb_week   _ilft     _ss       _cwd2     .,			/*
		*/ label("Weekly")					/*
		*/ clickon("script format_disable")			/*
		*/ option("weekly")					/*
		*/
  RADIO    rb_month  _lft2    @         _cwd2     .,			/*
		*/ label("Monthly")					/*
		*/ clickon("script format_disable")			/*
		*/ option("monthly")					/*
		*/
  RADIO    rb_quart  _ilft     _ss       _cwd2     .,			/*
		*/ label("Quarterly")					/*
		*/ clickon("script format_disable")			/*
		*/ option("quarterly")					/*
		*/
  RADIO    rb_half    _lft2    @         _cwd2     .,			/*
		*/ label("Half-yearly")					/*
		*/ clickon("script format_disable")			/*
		*/ option("halfyearly")					/*
		*/
  RADIO    rb_year   _ilft     _ss       _cwd2     .,			/*
		*/ label("Yearly")					/*
		*/ clickon("script format_disable")			/*
		*/ option("yearly")					/*
		*/
  RADIO    rb_gen     _lft2    @         _cwd2     .,			/*
		*/ label("Generic")					/*
		*/ clickon("script format_disable")			/*
		*/ option("generic")					/*
		*/
  RADIO    rb_format _ilft     _ss       _rbwd     .,			/*
		*/ clickon("script format_enable")			/*
		*/ last							/*
		*/ option(NONE)						/*
		*/
  EDIT     ed_format _rbsep    @         _en7wd    .,			/*
		*/ option("format")					/*
		*/ default("%tw")					/*
		*/ nomemory						/*
		*/ label("Format")
  BUTTON   bn_format _en7sep   @         _rben7r2b .,			/*
		*/ label("Help format...")				/*
  		*/ onpush(view help tfmt##|_new)

END

SCRIPT format_enable
BEGIN
	main.ed_format.enable
	main.bn_format.enable
END

SCRIPT format_disable
BEGIN
	main.ed_format.disable
	main.bn_format.disable
END


SCRIPT clear_on
BEGIN
	main.tx_t.disable
	main.vn_t.disable
	main.tx_i.disable
	main.vn_i.disable
	main.gb_format.disable
	main.rb_none.disable
	main.rb_day.disable
	main.rb_week.disable
	main.rb_month.disable
	main.rb_quart.disable
	main.rb_half.disable
	main.rb_year.disable
	main.rb_gen.disable
	main.rb_format.disable
	main.ed_format.disable
	main.bn_format.disable
END

PROGRAM clear_off
BEGIN
	call gaction main.tx_t.enable
	call gaction main.vn_t.enable
	call gaction main.tx_i.enable
	call gaction main.vn_i.enable
	call gaction main.gb_format.enable
	call gaction main.rb_none.enable
	call gaction main.rb_day.enable
	call gaction main.rb_week.enable
	call gaction main.rb_month.enable
	call gaction main.rb_quart.enable
	call gaction main.rb_half.enable
	call gaction main.rb_year.enable
	call gaction main.rb_gen.enable
	call gaction main.rb_format.enable
	if main.rb_format {
		call gaction main.ed_format.enable
		call gaction main.bn_format.enable
	}
END

PROGRAM command
BEGIN
	put "tsset "
	if main.ck_clear {
		beginoptions
			option main.ck_clear
		endoptions
	}
	if !main.ck_clear {
		varlist [main.vn_i] main.vn_t
		beginoptions
			option radio(main /*
			*/ rb_none rb_day rb_week rb_month rb_quart /*
			*/ rb_half rb_year rb_gen rb_format)
			if main.rb_format {
				require main.ed_format
				optionarg main.ed_format
			}
		endoptions
	}
END