kapwgt.dlg

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

/*
	kapwgt

	VERSION 1.0.0  21dec2002
*/

VERSION 8.0

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

DEFINE lbwd  60
DEFINE wid   40
DEFINE sep  +45

DIALOG main, label("kapwgt - Define weights for kap") tabtitle("Main")
BEGIN
  TEXT     tx_n              _lft3_3   _top      _cwd3_1   .,		/*
		*/ label("Rating levels:")
  LISTBOX  lb_n              @         _ss       lbwd      _ht7h,	/*
		*/ contents(nlist) onselchangelist(nsel)

  TEXT     tx_name           _lft      _top      _cwd1     .,		/*
		*/ label("Create kap weights named:")
  EDIT     ed_name           @         _ss       _vnwd     ., max(32)	/*
		*/ label("Create kap weights named")

  TEXT     tx_r1c1   _lft _ls  wid  ., label("1.0") center
  EDIT     en_r2c1   _lft _ms  @    ., label("Row 2, column 1") numonly
  TEXT     tx_r2c2   sep  @    @    ., label("1.0") center
  EDIT     en_r3c1   _lft _ms  @    ., label("Row 3, column 1") numonly
  EDIT     en_r3c2   sep  @    @    ., label("Row 3, column 2") numonly
  TEXT     tx_r3c3   sep  @    @    ., label("1.0") center
  EDIT     en_r4c1   _lft _ms  @    ., label("Row 4, column 1") numonly
  EDIT     en_r4c2   sep  @    @    ., label("Row 4, column 2") numonly
  EDIT     en_r4c3   sep  @    @    ., label("Row 4, column 3") numonly
  TEXT     tx_r4c4   sep  @    @    ., label("1.0") center
  EDIT     en_r5c1   _lft _ms  @    ., label("Row 5, column 1") numonly
  EDIT     en_r5c2   sep  @    @    ., label("Row 5, column 2") numonly
  EDIT     en_r5c3   sep  @    @    ., label("Row 5, column 3") numonly
  EDIT     en_r5c4   sep  @    @    ., label("Row 5, column 4") numonly
  TEXT     tx_r5c5   sep  @    @    ., label("1.0") center
  EDIT     en_r6c1   _lft _ms  @    ., label("Row 6, column 1") numonly
  EDIT     en_r6c2   sep  @    @    ., label("Row 6, column 2") numonly
  EDIT     en_r6c3   sep  @    @    ., label("Row 6, column 3") numonly
  EDIT     en_r6c4   sep  @    @    ., label("Row 6, column 4") numonly
  EDIT     en_r6c5   sep  @    @    ., label("Row 6, column 5") numonly
  TEXT     tx_r6c6   sep  @    @    ., label("1.0") center
  EDIT     en_r7c1   _lft _ms  @    ., label("Row 7, column 1") numonly
  EDIT     en_r7c2   sep  @    @    ., label("Row 7, column 2") numonly
  EDIT     en_r7c3   sep  @    @    ., label("Row 7, column 3") numonly
  EDIT     en_r7c4   sep  @    @    ., label("Row 7, column 4") numonly
  EDIT     en_r7c5   sep  @    @    ., label("Row 7, column 5") numonly
  EDIT     en_r7c6   sep  @    @    ., label("Row 7, column 6") numonly
  TEXT     tx_r7c7   sep  @    @    ., label("1.0") center
END


LIST nlist
BEGIN
	2
	3
	4
	5
	6
	7
END

LIST nsel
BEGIN
	script on2
	script on3
	script on4
	script on5
	script on6
	script on7
END

SCRIPT on2
BEGIN
	script row3off
	script row4off
	script row5off
	script row6off
	script row7off
END

SCRIPT on3
BEGIN
	script row3on
	script row4off
	script row5off
	script row6off
	script row7off
END

SCRIPT on4
BEGIN
	script row3on
	script row4on
	script row5off
	script row6off
	script row7off
END

SCRIPT on5
BEGIN
	script row3on
	script row4on
	script row5on
	script row6off
	script row7off
END

SCRIPT on6
BEGIN
	script row3on
	script row4on
	script row5on
	script row6on
	script row7off
END

SCRIPT on7
BEGIN
	script row3on
	script row4on
	script row5on
	script row6on
	script row7on
END

SCRIPT row3on
BEGIN
  main.en_r3c1.enable
  main.en_r3c2.enable
  main.tx_r3c3.enable
END

SCRIPT row3off
BEGIN
  main.en_r3c1.disable
  main.en_r3c2.disable
  main.tx_r3c3.disable
END

SCRIPT row4on
BEGIN
  main.en_r4c1.enable
  main.en_r4c2.enable
  main.en_r4c3.enable
  main.tx_r4c4.enable
END

SCRIPT row4off
BEGIN
  main.en_r4c1.disable
  main.en_r4c2.disable
  main.en_r4c3.disable
  main.tx_r4c4.disable
END

SCRIPT row5on
BEGIN
  main.en_r5c1.enable
  main.en_r5c2.enable
  main.en_r5c3.enable
  main.en_r5c4.enable
  main.tx_r5c5.enable
END

SCRIPT row5off
BEGIN
  main.en_r5c1.disable
  main.en_r5c2.disable
  main.en_r5c3.disable
  main.en_r5c4.disable
  main.tx_r5c5.disable
END

SCRIPT row6on
BEGIN
  main.en_r6c1.enable
  main.en_r6c2.enable
  main.en_r6c3.enable
  main.en_r6c4.enable
  main.en_r6c5.enable
  main.tx_r6c6.enable
END

SCRIPT row6off
BEGIN
  main.en_r6c1.disable
  main.en_r6c2.disable
  main.en_r6c3.disable
  main.en_r6c4.disable
  main.en_r6c5.disable
  main.tx_r6c6.disable
END

SCRIPT row7on
BEGIN
  main.en_r7c1.enable
  main.en_r7c2.enable
  main.en_r7c3.enable
  main.en_r7c4.enable
  main.en_r7c5.enable
  main.en_r7c6.enable
  main.tx_r7c7.enable
END

SCRIPT row7off
BEGIN
  main.en_r7c1.disable
  main.en_r7c2.disable
  main.en_r7c3.disable
  main.en_r7c4.disable
  main.en_r7c5.disable
  main.en_r7c6.disable
  main.tx_r7c7.disable
END

PROGRAM command
BEGIN
	require main.ed_name
	require main.en_r2c1
	put "kapwgt " main.ed_name " "
	put " 1 \ " main.en_r2c1 " " "1 "
	if !H(main.en_r3c1) {
		require main.en_r3c1 main.en_r3c2
		put " \ " main.en_r3c1 " " main.en_r3c2 " " "1 "
	}
	if !H(main.en_r4c1) {
		require main.en_r4c1 main.en_r4c2 main.en_r4c3
		put " \ " main.en_r4c1 " " main.en_r4c2 " " main.en_r4c3 " "
		put "1 "
	}
	if !H(main.en_r5c1) {
		require main.en_r5c1 main.en_r5c2 main.en_r5c3
		require main.en_r5c4
		put " \ " main.en_r5c1 " " main.en_r5c2 " " main.en_r5c3 " "
		put main.en_r5c4 " " "1 "
	}
	if !H(main.en_r6c1) {
		require main.en_r6c1 main.en_r6c2 main.en_r6c3
		require main.en_r6c4 main.en_r6c5
		put " \ " main.en_r6c1 " " main.en_r6c2 " " main.en_r6c3 " "
		put main.en_r6c4 " " main.en_r6c5 " " "1 "
	}
	if !H(main.en_r7c1) {
		require main.en_r7c1 main.en_r7c2 main.en_r7c3
		require main.en_r7c4 main.en_r7c5 main.en_r7c6
		put " \ " main.en_r7c1 " " main.en_r7c2 " " main.en_r7c3 " "
		put main.en_r7c4 " " main.en_r7c5 " " main.en_r7c6 " " "1 "
	}
END