OA系统

开发平台：
C#

cool_auto.aspx：源码内容
							<%@ Page Language="C#" %>
<html>
<head>
<title>宏控件设定</title>
<script>
function my_submit()
{
  if(ITEM_NAME.value=="")
  {
     alert("控件名称不能为空");
     return;
  }
  else if(ITEM_TYPE.value=="")
  {
     alert("宏控件类型不能为空");
     return;
  }
  else if((ITEM_TYPE.value=="SYS_SQL"||ITEM_TYPE.value=="SYS_LIST_SQL")&&ITEM_SQL.value=="")
  {
     alert("SQL查询语句不能为空");
     return;
  }
  var parent_window = parent.dialogArguments;
  if(ITEM_TYPE.value.indexOf("SYS_LIST")<0)
     control_html="<input type=text ";
  else
     control_html="<select type=text ";
  control_html+=" title=""+ITEM_NAME.value.replace(""","&quot;")+"" class="AUTO" value="{宏控件}" datafld=""+ITEM_TYPE.value+"" datasrc=""+ITEM_SQL.value+"" style="font-size:"+ITEM_SIZE.value+";width:100px;">";
  if(ITEM_TYPE.value.indexOf("SYS_LIST")>=0)
     control_html+="<option>{宏控件}</option></select>";
  if(edit_flag==1)
  {
    oSelection =  parent.dialogArguments.document.selection.createRange();
    oSelection(0).title=ITEM_NAME.value;
    parent_window.doStyle("delete");
    parent_window.insertHtml(control_html);
  }
  else
    parent_window.EDIT_HTML.insertHtml(control_html);
  window.close();
}
//-- 获取控件属性 --
var edit_flag=0;
function LoadDo()
{
  oSelection = dialogArguments.document.selection.createRange();
  sRangeType = dialogArguments.document.selection.type;
  if (sRangeType == "Control")
  {
  	edit_flag=1;
  	ITEM_NAME.value = oSelection(0).title;
  	ITEM_SQL.value = oSelection(0).dataSrc;
  	for(i=0;i<ITEM_TYPE.options.length;i++)
  	{
  	   if(ITEM_TYPE.options(i).value==oSelection(0).dataFld)
  	   {
  	      ITEM_TYPE.selectedIndex=i;
  	      break;
  	   }
        }
  	ITEM_SIZE.value = oSelection(0).style.fontSize.replace("px","");
  }
  ITEM_NAME.focus();
  view_sql();
}
function view_sql()
{
   if(ITEM_TYPE.value=="SYS_SQL"||ITEM_TYPE.value=="SYS_LIST_SQL")
      SQL_AREA.style.display="";
   else
      SQL_AREA.style.display="none";
}
</script>
</head>
<body topmargin="0" onload="LoadDo();">
<table border="0" cellspacing="1" width="100%" class="small" bgcolor="#ffffff" cellpadding="3" align="center">
  <tr class="TableContent">
      <td nowrap>控件名称：
      </td>
      <td nowrap>
       <Input name="ITEM_NAME" type="text" class="SmallInput" size="20">
      </td>
  </tr>
  <tr class="TableContent">
      <td nowrap>宏控件类型：
      </td>
      <td nowrap>
       <select class="SmallSelect" name="ITEM_TYPE" onchange="view_sql()">
        <option value="" style="background-color:blue;color:white;">----单行输入框----</option>
	<option value="SYS_YEAR">年</option>
        <option value="SYS_MON">月</option>
        <option value="SYS_DAY">日</option>
        <option value="SYS_HOUR">时</option>
        <option value="SYS_MIN">分</option>
        <option value="SYS_SEC">秒</option>
        <option value="SYS_WEEK">星期</option>
        <option value="SYS_DATE">当前日期，形如1999-01-01</option>
        <option value="SYS_DATE_CN">当前日期，形如1999年1月1日</option>		
	<option value="SYS_DATE_CN_SHORT1">当前日期，形如 1999年1月</option>
        <option value="SYS_DATE_CN_SHORT2">当前日期，形如 1月1日</option>		
        <option value="SYS_TIME">当前时间</option>
        <option value="SYS_DATETIME">当前日期+时间</option>
        <option value="SYS_USERID">当前用户ID</option>
        <option value="SYS_USERNAME">当前用户姓名</option>
	<option value="SYS_DEPTNAME">当前用户部门(长名称)</option>
        <option value="SYS_DEPTNAME_SHORT">当前用户部门(短名称)</option>
        <option value="SYS_USERPRIV">当前用户角色</option>
        <option value="SYS_USERNAME_DATE">当前用户姓名+日期</option>
        <option value="SYS_USERNAME_DATETIME">当前用户姓名+日期时间</option>		
	<option value="SYS_FORMNAME">表单名称</option>
        <option value="SYS_RUNNAME">名称/文号</option>
        <option value="SYS_RUNDATE">流程开始日期</option>
        <option value="SYS_RUNDATETIME">流程开始日期+时间</option>		
	<option value="SYS_RUNID">流水号</option>
        <option value="SYS_AUTONUM">文号计数器</option>
        <option value="SYS_IP">经办人IP地址</option>		
        <option value="SYS_SQL">来自SQL查询语句</option>
        <option value="" style="background-color:blue;color:white;">----下拉菜单----</option>
        <option value="SYS_LIST_DEPT">部门列表</option>
        <option value="SYS_LIST_USER">人员列表</option>
        <option value="SYS_LIST_PRIV">角色列表</option>
        <option value="SYS_LIST_PRCSUSER1">流程经办人列表</option>
        <option value="SYS_LIST_PRCSUSER2">本步骤经办人列表</option>
        <option value="SYS_LIST_MANAGER1">部门主管(本部门)</option>
        <option value="SYS_LIST_MANAGER2">部门主管(上级部门)</option>
        <option value="SYS_LIST_MANAGER3">部门主管(一级部门)</option>
        <option value="SYS_LIST_SQL">来自SQL查询语句的列表</option>
       </select>
      </td>
  </tr>
  <tr class="TableContent" id="SQL_AREA">
      <td nowrap>SQL查询语句<br>('号用`号替换)：
      </td>
      <td nowrap>
       <textarea name="ITEM_SQL" class="SmallInput" cols="28" rows="4" title="如宏控件类型选择来自SQL查询语句，则填写"></textarea>
	<br>
       <a href="sql_help.aspx" target="_blank">SQL查询语句书写指导</a>
      </td>
  </tr>
  <tr class="TableContent">
      <td nowrap>字体大小：
      </td>
      <td nowrap>
       <Input name="ITEM_SIZE" type="text" class="SmallInput" size="20" title="可选，默认13像素">
      </td>
  </tr>
  <tr>
      <td class="TableControl" colspan="2" align="center">
        <input type="submit" onclick="my_submit();" value="确 定" class="SmallButton">
      </td>
  </tr>
</table>
</body>
</html>

						