descusing.dlg

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

/*
	describe using ...

*!  VERSION 1.1.1  29mar2005

*/

VERSION 9.0

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

DIALOG main, label("describe - Describe data in file")		///
	tabtitle("Main")
BEGIN
  TEXT     tx_using      _lft     _top     _iwd        .,	///
	label("Filename of Stata dataset:")
  FILE     fi_using         @      _ss        @        .,	///
	label("Browse...")					///
	filter("Stata Dataset (*.dta)|*.dta|All (*.*)|*.*")	///
	defext(dta)						///
	error("Filename of Stata dataset")

  GROUPBOX gb_opts       _lft     _xls     _iwd    _ht7, 	///
	label("Options")
  TEXT     tx_var     _indent      _ss    _inwd        .,	///
	label("Variables: (leave empty for all)")
  EDIT     ed_var           @      _ss        @        .,	///
	label("Variables")

  CHECKBOX ck_short         @      _ls        @        .,	///
	option(short) label("Display only general information")	///
	onclickon(script main_var_off) 				///
	onclickoff(script main_var_on)

/* not including -varlist- option since it is a programmer only option */
END

SCRIPT main_var_off
BEGIN
	main.tx_var.disable
	main.ed_var.disable
END

SCRIPT main_var_on
BEGIN
	main.tx_var.enable
	main.ed_var.enable
END

PROGRAM command
BEGIN
	require main.fi_using
	put "describe "
	put main.ed_var " "
	put "using "
	put `"""' main.fi_using `"""'
	beginoptions
		option main.ck_short
	endoptions
END