开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > CAD > 查看源码
syXcsj.DCL
资源名称：lcx.rar　[点击查看]
上传用户：cqhairun
上传日期：2017-05-24
资源大小：173k
文件大小：1k
源码类别：

CAD

开发平台：

Lisp/Scheme

syXcsj.DCL：源码内容
  1. sy_box1:dialog{
  2. label="手工输入试油数据添加柱状图  编制： 杨权 ";
  3. spacer;
  4.  :boxed_row{
  5.    label ="手工输入试油数据:";
  6.   :column{
  7.     :edit_box{
  8.       label="井 号 ";
  9.      key="sywnu";
  10.       edit_width=8;
  11.       }
  12.          :radio_button{
  13.      label="单层试油数据";
  14.      key = "dsy";
  15.      fixed_width = true;
  16.      alignment = centered;
  17.       }
  18.   :radio_button{
  19.      label="双层试油数据";
  20.      key = "ssy";
  21.      fixed_width = true;
  22.      alignment = centered;
  23.       }
  24.      }
  25. :row{
  26. :boxed_column{
  27.   label="第一层试油数据";
  28.   key="dyp";
  29.   :edit_box{
  30.       label="日产油量:";
  31.       key="oil1";
  32.       edit_width=8;
  33.         }
  34.    :edit_box{
  35.       label="日产水量:";
  36.       key="wet1";
  37.       edit_width=8;
  38.        }}
  39. :boxed_column{
  40. label="第二层试油数据";
  41.   key="drp";
  42.   :edit_box{
  43.       label="日产油量:";
  44.       key="oil2";
  45.       edit_width=8;
  46.        }
  47.    :edit_box{
  48.       label="日产水量:";
  49.       key="wet2";
  50.       edit_width=8;
  51.        }}
  52. }
  53. }
  54.  :row {
  55.          spacer_1;
  56.  :button {
  57.     label = "确  认";
  58.     key = "syaccept";
  59.     fixed_width = true;
  60.     alignment = centered;
  61.      }
  62.   : button {
  63.     label = "取  消";
  64.     key = "syexit";
  65.     fixed_width     = true;
  66.     alignment = centered;
  67.     is_cancel = true;
  68.      }
  69. spacer_1;
  70.   }
  71. }