estimates_store.dlg

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

/*
  -estimates store-

*!  VERSION 1.1.0  01mar2005

*/

VERSION 9.0

INCLUDE _std_medium
DEFINE  _dlght 200
INCLUDE header
HELP hlp1, view("help estimates")
RESET res1

DIALOG main, /*
 */ label("estimates store - Store active estimation results") tabtitle("Main")
BEGIN
  TEXT     tx_ename     _lft      _top      _iwd      .,		/*
		*/ label("Store estimation result under the name:")
  EDIT     ed_ename     @         _ss       _vnwd     .,		/*
		*/ max(32)						/*
		*/ label("Store estimation result under the name")

  TEXT     tx_title     @         _ls       _iwd      .,		/*
		*/ label("Title:")
  EDIT     ed_title     @         _ss       @         .,		/*
		*/ option(title)					/*
		*/ label("Title")

  CHECKBOX ck_nocopy    @         _xls      _iwd      .,		/*
		*/ option(nocopy)					/*
		*/ label("Remove from being active after storing")
END

PROGRAM command
BEGIN
	require main.ed_ename
	put "estimates store " main.ed_ename
	beginoptions
		optionarg main.ed_title
		option main.ck_nocopy
	endoptions
END