cf.dlg

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

/*
	cf

*!  VERSION 1.1.0  07dec2004

*/

VERSION 9.0

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


DIALOG main, tabtitle("Main") label("cf - Compare two datasets")
BEGIN
  TEXT     tx_var       _lft       _top       _iwd 	 .,	///
	label("Variables to compare:  (leave empty for all variables)")

  VARLIST  vl_var       @          _ss        @          .,	///
	label("Variables to compare")

  TEXT     tx_using     _lft       _ls        @          .,	///
	label("Dataset filename to compare against:")

  FILE     fi_using     @          _ss        @          .,	///
	option(using)						///
	label("Browse...")					///
	error("Dataset filename to compare against")		///
	defext(dta)						///
	filter("Stata Dataset (*.dta)|*.dta|All Files (*.*)|*.*")

  GROUPBOX gb_verbose   _lft       _xls       @		 _ht4,	///
	label("Results")

  RADIO    rb_diff      _ilft      _ss        _ibwd      .,	///
	label("Display differences only")               	///
	first option(NONE)

  RADIO    rb_verbose   @          _ss        @          .,	///
	label("Display comparison variable by variable")	///
	last option(verbose)
END

PROGRAM command
BEGIN
	put "cf "
	if main.vl_var {
		varlist main.vl_var
	}
	if !main.vl_var {
		put "_all "
	}
	require main.fi_using
	put " using "
	put `"""'
	put main.fi_using
	put `"""'
        beginoptions
		option radio(main rb_diff rb_verbose)
        endoptions
END