query.dlg

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

/*
   query.dlg

*! VERSION 1.0.1  23jul2004

*/

VERSION 8.0

INCLUDE _std_small
INCLUDE header

HELP hlp1, view("help query")
RESET res1

DIALOG main, label("query - Display system parameters") tabtitle("Main")
BEGIN
  RADIO    rb_all         _lft     20       _iwd        .,  first       /*
                */ label("Display all system parameters")               /*
                */ clickon("script all_off")

  RADIO    rb_detail      @        _ss      @           .,  last        /*
		*/ label("Display specific system parameters:")					/*
                */ clickon("script all_on")
  GROUPBOX gb_system      @        _ss      _iwd        _ht6,

  RADIO    rb_memory      _indent  _ss      _cwd4       ., first        /*
                */ label("Memory")                                      /*
                */ option(memory)
  DEFINE holdx @x
  RADIO    rb_output      _lft2    @        @           .,              /*
                */ label("Output")                                      /*
                */ option(output)
  RADIO    rb_efficiency  holdx    _ss      @           .,              /*
                */ label("Efficiency")                                  /*
                */ option(efficiency)
  RADIO    rb_network     _lft2    @        @           .,              /*
                */ label("Network")                                     /*
                */ option(network)
  RADIO    rb_trace       holdx    _ss      @           .,              /*
                */ label("Trace")                                       /*
                */ option(trace)
  RADIO    rb_other       _lft2    @        @           ., last         /*
                */ label("Other")                                       /*
                */ option(other)
END

SCRIPT all_off
BEGIN
	main.rb_memory.disable
	main.rb_output.disable
	main.rb_efficiency.disable
	main.rb_network.disable
	main.rb_trace.disable
	main.rb_other.disable
END

SCRIPT all_on
BEGIN
        main.rb_memory.enable
        main.rb_output.enable
        main.rb_efficiency.enable
        main.rb_network.enable
        main.rb_trace.enable
        main.rb_other.enable
END

PROGRAM command
BEGIN
	put "query "
	if main.rb_detail {
		option radio(main rb_memory rb_output rb_efficiency /*
			*/ rb_network rb_trace rb_other)
	}
END