请问如何实现选择下拉菜单，另一文本框为不可编辑

hengsf2008 2015-03-25 02:44:02

<%
j = 1

set rs=createobject("adodb.recordset")
set rs.activeConnection=conn
if session("right") = 2 then
' str ="select user1,flag,dept from V_users where dept<>'派驻机构' "
str ="select user1,flag,dept from V_users "
else
str ="select * from tb_user where dept='"&dept&"'"&"order by id "
end if
set rs=conn.execute(str)
do while not rs.Eof
var = "A"&j
var2 = "SD"&j //开始时间
var4 = "ED"&j //结束时间
var5 = "T"&j //时间段
var6 = "R"&j
var7 = "DP"&j
%>
<tr>
<td height="20" align="center"><%=rs("user1")%></td>
<% if session("right") = 2 then %>
<td align="center"><%=trim(rs("dept"))%></td>
<% end if %>
<td align="center"><input type="hidden" name=<%=var7%> value="<%=trim(rs("dept"))%>">
<select name=<%=var%> size="1">
<option value="0">无</option>
<option value="1">在岗</option>
<option value="2">本市出差</option>
<option value="3">市外出差</option>
<option value="4">迟到</option>
<option value="5">早退</option>
<option value="6">旷工</option>
<option value="7">补休</option>
<option value="8">公休假</option>
<option value="9">事假</option>
<option value="10">病假</option>
</select>
</td>
<td align="center"><input name=<%=var2%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td>
<td align="center"><input name=<%=var4%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td>
<td align="center">
<select name=<%=var5%> size="1">
<option value="0" selected>上午</option>
<option value="1">下午</option>
<option value="2">全天</option>
</select></td>
<td align="center"><input name=<%=var6%> type="text" size="16"></td>
</tr>
<%
j = j + 1
rs.movenext
loop
person = j - 1
rs.close
set rs=nothing
%>

即当选择“在岗”时，“开始时间”、“结束时间”和“时间段”均为不可编辑状态。因没有接触过VB，请大神写完整代码，谢谢！

...全文

418 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

highnewrain 2015-03-26

打赏
举报

这个不用vbs就可以来，在web前段用javascript来实现比较简单，给段代码参考，你照葫芦画瓢就可以了应该！

<html>

	<title></title>

		<head>

			</head>

			<body>

				<table>

					<tr><td><select name="select_a" size="1" onchange="MySelect(this.value)">

            <option value="0">无</option>

            <option value="1">在岗</option>

            <option value="2">本市出差</option>

            <option value="3">市外出差</option>

            <option value="4">迟到</option>

            <option value="5">早退</option>

            <option value="6">旷工</option>

            <option value="7">补休</option>

            <option value="8">公休假</option>

            <option value="9">事假</option>

            <option value="10">病假</option>

          </select></td></tr>

					<tr><td>开始时间<input type="text" name="time" id="beginTime"/></td></tr>

					</table>

			</body>

			<script>

				function MySelect(val)

				{

					if(val==1)

					{

						document.getElementById("beginTime").disabled=true;

					}

					else

					{

						document.getElementById("beginTime").disabled=false;

					}

				}

				</script>

	</html>

hengsf2008 2015-03-26

打赏
举报

哦，用document.getElementById(sd).value赋值，谢谢两位大神了！

hengsf2008 2015-03-26

打赏
举报

引用 2 楼 showbo 的回复:

<script> function setReadOnly(v, sd, ed) { ---------------------------------------------------------------------------------这里让sd和ed自动读取当前日期 document.getElementById(sd).readOnly = v == '1'; document.getElementById(ed).readOnly = v == '1'; } </script>

谢谢两位大神，我测试了，确实实现了我的目的，请问我想在选择在岗时，sd和ed自动读取当前日期，防止先更改日期，再选择在岗，跳过了只读设置，请问这里该怎么写呢？

斯洛文尼亚旅游 2015-03-26

打赏
举报

增加红色的代码 <% j = 1 set rs=createobject("adodb.recordset") set rs.activeConnection=conn if session("right") = 2 then ' str ="select user1,flag,dept from V_users where dept<>'派驻机构' " str ="select user1,flag,dept from V_users " else str ="select * from tb_user where dept='"&dept&"'"&"order by id " end if set rs=conn.execute(str) do while not rs.Eof var = "A"&j var2 = "SD"&j //开始时间 var4 = "ED"&j //结束时间 var5 = "T"&j //时间段 var6 = "R"&j var7 = "DP"&j %> <tr> <td height="20" align="center"><%=rs("user1")%></td> <% if session("right") = 2 then %> <td align="center"><%=trim(rs("dept"))%></td> <% end if %> <td align="center"><input type="hidden" name=<%=var7%> value="<%=trim(rs("dept"))%>"> <select name=<%=var%> size="1" onchange="setReadOnly(this.value,'<%=var2%>','<%=var4%>')"> <option value="0">无</option> <option value="1">在岗</option> <option value="2">本市出差</option> <option value="3">市外出差</option> <option value="4">迟到</option> <option value="5">早退</option> <option value="6">旷工</option> <option value="7">补休</option> <option value="8">公休假</option> <option value="9">事假</option> <option value="10">病假</option> </select> </td> <td align="center"><input id=<%=var2%> name=<%=var2%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td> <td align="center"><input id=<%=var4%> name=<%=var4%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td> <td align="center"> <select name=<%=var5%> size="1"> <option value="0" selected>上午</option> <option value="1">下午</option> <option value="2">全天</option> </select></td> <td align="center"><input name=<%=var6%> type="text" size="16"></td> </tr> <% j = j + 1 rs.movenext loop person = j - 1 rs.close set rs=nothing %> <script> function setReadOnly(v, sd, ed) { document.getElementById(sd).readOnly = v == '1'; document.getElementById(ed).readOnly = v == '1'; } </script>

酒店管理系统使用说明书主要功能本系统中包含如下6大功能模块： q 前台服务：该模块主要包括开台点菜、维护菜品、签单、结账等功能，其中维护菜品功能包括添加和取消菜品，能够取消菜品的前提条件是尚未签单，即处于开单状态，结账时则要求所有商品都要签单，否则不允许结账。 q 后台管理：该模块主要包括台号管理、菜系管理和菜品管理功能，其中菜系用来对菜品进行分类。 q 销售统计：该模块用来分段统计营业额，可以按日、月和年进行统计，其中日统计是按消费单和销售的商品统计销售额，月统计是按日期和每日的销售额统计销售额，年统计是按日期和月份统计销售额。 q 系统安全：该模块主要包括交接班、锁定系统和修改密码功能，其中交接班功能在操作员换岗时使用，锁定系统在操作员临时离开时使用。 q 人员管理：该模块主要包括档案管理、管理员管理和操作权限管理功能，其中管理员管理功能用来管理系统的操作员，权限管理功能用来管理系统操作员具有的操作权限。 q 初始化系统：该功能用来对系统进行初始化，初始化后系统数据将全部被删除。操作注意事项用户在使用《酒店管理系统》之前，应注意以下事项：（1）管理员用户名和密码为：mr、mrsoft。（2）当鼠标经过主界面右下角时，会弹出菜单，在这里可以对本系统的信息进行管理。业务流程要想运行本系统，请按照以下流程操作：（1）在“人员管理”中添加操作员及其档案信息。（2）在“系统维护”中添加台号、菜系及菜品信息。（3）在“台号”下拉列表中选择台号、在商品文本框中输入商品助记码或编号及商品数量，然后单击“开台”按钮。可添加多个商品。（4）顾完单完菜后，单击“签单”按钮，表示确认该订单，此时可以执行结账操作，否则不可进行结账。如果操作临时离开，可单击“锁定系统”按钮，输入登录密码可解锁。（5）在“销售统计”中可对日销售、月销售及年销售额进行统计。