duplicates_browse.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 39 行

/*
  duplicates browse

*!  VERSION 1.1.1  28mar2005

*/

VERSION 9.0

INCLUDE _std_small
INCLUDE header
HELP hlp1, view("help duplicates")
RESET res1

DIALOG main, label("duplicates browse - View duplicates in browser") /*
		*/ tabtitle("Main")
BEGIN
  TEXT     tx_var          _lft      _top       _iwd     .,		/*
  		*/label("Variables: (leave empty for all)")
  VARLIST  vl_var          @         _ss        @        .,		/*
  		*/label("Variables")
  CHECKBOX ck_nolabel 	   @         _ls        _iwd     .,		/*
  		*/label("Suppress value labels")			/*
  		*/option("nolabel")					/*
  		*/
END

INCLUDE ifin

PROGRAM command
BEGIN
	put "duplicates browse "
	varlist [main.vl_var]
	INCLUDE _ifin_pr
	beginoptions
		option main.ck_nolabel
	endoptions
END