generate.dlg

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

/*
  generate

*!  VERSION 1.1.1  09mar2005

*/

VERSION 9.0

INCLUDE _std_medium
INCLUDE header
HELP hlp1, view("help generate")
RESET res1

DIALOG main, label("generate - Create a new variable")		///
	tabtitle("Main")
BEGIN
  TEXT     tx_gener        _lft      _top       _cwd3_1  .,	///
	label("New variable name:")
  EDIT     ed_gener        _lft      _ss        _vnwd    .,	///
	label("New variable name")

  TEXT     tx_exp          _lft      _ls        _iwd     .,	///
	label("Contents of new variable: (expression)")
  EXP      ex_exp          _lft      _ss        _iwd     .,	///
  	error("Contents of new variable") label("Create ...")
  CHECKBOX ck_vlab         _lft2     _ls        _cwd1    .,	///
	label("Attach value label:")				///
	onclickon(main.cb_vlab.enable)				///
	onclickoff(main.cb_vlab.disable)
  DEFINE _y @y
  COMBOBOX cb_vlab	   @         _ss        @        .,	///
	label("Attach value label")				///
	contents(valuelabels) dropdown
  DEFINE _x _lft
  DEFINE _cx _cwd1

  TEXT     tx_type         _x        _y        _cx       .,	///
	label("New variable type:")
  COMBOBOX cb_type         @         _ss       _vnwd     .,	///
	label("Type") dropdownlist contents(type) 		///
	onselchangelist(main_type_actions)
END

LIST main_type_actions
BEGIN
	program main_value_labels_enable
	program main_value_labels_enable
	program main_value_labels_enable
	program main_value_labels_enable
	program main_value_labels_enable
	script  main_value_labels_disable
END

SCRIPT main_value_labels_disable
BEGIN
	main.ck_vlab.disable
	main.cb_vlab.disable
END

PROGRAM main_value_labels_enable
BEGIN
	call main.ck_vlab.enable
	if main.ck_vlab {
		call main.cb_vlab.enable
	}
END

INCLUDE ifin
INCLUDE _type_list_all_string

PROGRAM command
BEGIN
	put "generate "
	INCLUDE _type_pr
	require main.ed_gener
	put main.ed_gener
	if main.ck_vlab & !D(main.ck_vlab) {
		require main.cb_vlab
		put ":"
		put main.cb_vlab
	}
	put " " "= "
	require main.ex_exp
	put main.ex_exp
	INCLUDE _ifin_pr
END