append.dlg

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

/*
    append.dlg

*!  VERSION 1.1.0  07dec2004

*/

VERSION 9.0

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

DIALOG main,label("append - Append datasets")  tabtitle("Main")
BEGIN
  GROUPBOX gb_using       _lft     _top     _iwd        _ht4,      	///
	label("Append dataset on disk to current dataset")
  TEXT     tx_using       _ilft    _ss      _ibwd       .,		///
	label("Filename of dataset on disk:")
  FILE     fi_using       @        _ss      @           .,		///
	filter("Stata Dataset (*.dta)|*.dta|All (*.*)|*.*")		///
	defext(dta)							///
	error("Filename of dataset on disk")				///
	label("Browse...")
  GROUPBOX gb_opt         _lft     _xls     _iwd        _ht12, 		///
	label("Options")
  RADIO    rb_all         _ilft    _ss      _inwd       ., first	///
	label("Keep all variables from appending dataset")		///
	onclickon(main.vl_keep.disable)
  RADIO    rb_keep        _ilft    _ss      @           ., last		///
	label("Variables to be kept from appending dataset:")		///
	onclickon(main.vl_keep.enable)
  VARLIST  vl_keep        _indent2 _ss      _inwd       .,		///
	label("Variables to be kept from appending dataset")		///
	option(keep)
  CHECKBOX ck_nolabel     _ilft    _ls      _ibwd       .,		///
	option(nolabel)							///
	label("Do not copy value label definitions from dataset on disk")
  CHECKBOX ck_nonotes     @        _ms      @           .,		///
	label("Do not copy notes from dataset on disk")			///
	option(nonotes)
END

PROGRAM command
BEGIN
	require main.fi_using
	put "append using "
	put `"""' main.fi_using `"""'
	beginoptions
		if main.rb_keep {
			require main.vl_keep
			optionarg main.vl_keep
		}
		option main.ck_nolabel
		option main.ck_nonotes
	endoptions
END