replace.dlg

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

/*

  replace

*! VERSION 1.1.0  07dec2004

*/

VERSION 9.0

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

DIALOG main, label("replace - Replace contents of variable ") tabtitle("Main")
BEGIN
  TEXT     tx_dv	_lft	_top	_iwd	.,	///
	label("Variable:")
  VARNAME  vn_old	@	_ss	_vnwd	.,	///
	label("Variable")

  TEXT     tx_exp	_lft	_ls	_iwd	.,	///
	label("New contents:")
  EXP      ex_exp	_lft	_ss	_iwd	.,	///
	label("Create ...") error("New contents")
  CHECKBOX ck_type	_lft	+35	_iwd	.,	///
	option(nopromote) label("Preserve type ")
END

INCLUDE ifin

PROGRAM command
BEGIN
        put "replace "
        varlist main.vn_old
        put "= "
        require main.ex_exp
        put main.ex_exp
        INCLUDE _ifin_pr
        beginoptions
                option main.ck_type
        endoptions
END