特殊二级联动菜单的问题

mutemob 2008-06-26 02:33:19

首先,先摆出数据库的表结构
数据库名BOM ,表名Bom_Materiel
SerialNo----物料编码
Name----物料名称
Description----参数描述
MF_PN-----厂商型号
MF----厂商
chuku----出库数量
Stock----库存数量

ID SerialNo Name Description MF_PN MF chuku Stock
1 31411000001A 高频晶体类 26MHz;±10mmp SQ3D02600B2JBA SAMSUNG(三星) 100 1000
2 31411000001B 高频晶体类 26MHz;±10mmp 7M26000314 TXC（台湾晶技） 100 2000
3 31810000001 后备电池 3.3V;0.015 HB414-IV01E SEIKO（精工） 100 1680

注:由于数据是从另外一个平台导出,同样一种物料,有一家或多家厂商供货,所以将物料在由EXCLE导入到SQL时,拆成了后面加ABCD等字母加以区分,两个物料的名称与参数描述为相同,但在数据库里为两条记录，如第1、2条记录；而只有一个厂商的则在数据库里就为一条记录，如第3条。

情况：在完成出库操作时，为了让操作者免于重复选择的繁琐，在出库操作时，如果是后缀为ABCD等字母的，绑定数据时，做成了下拉菜单，31411000001A与31411000001B显示为一条，需要出库31411000001A时，选择31411000001A；需要出库31411000001B时，选择31411000001B，以完成出库操作。（注：出库时，只会选择一个厂商出库）

问题：我现在选择31411000001A时，我显示31411000001A的MF_PN、MF与Stock；选择31411000001B时，我想表格中文本框中MF_PN、MF与Stock刷新成31411000001B的；请问高手该如何操作？

我的思路：是应该做成一个同一数据表中的三个二级联动，将显示MF、MF_PN、Stock的文本框换成下拉菜单，设置成主读还是可以保留MF、MF_PN、Stock仍然为文本框有更好的方法？

我实现了选择SerialNo的下拉框后，Stock的文本框会即时刷新，贴出代码，请问要同时刷新MF、MF_PN、Stock该如何做？

'这是查询语句，截取物料编码的前11位，将后面有ABCD后缀的显示在一起，没有的先显示出来，下面的那个是一个连合查询。
<%
ELSE
Set rs_cmb=conn.execute("Select SerialNo, Stock From Bom_Materiel WHERE LEFT([SerialNo], 11) = '"& rs("SerialNo") &"'")
Set rs2=conn.execute("SELECT TOP 1 LEFT([SerialNo], 11) AS SerialNo_, Bom_Materiel.*, Bom_ListDes.Qty From ((Bom_List INNER JOIN Bom_ListDes ON Bom_List.id=Bom_ListDes.B_BL_ID) INNER JOIN Bom_Materiel ON Bom_Materiel.id=Bom_ListDes.B_ML_ID) Where Bom_List.BomCode='"& BomCode &"' and LEFT([SerialNo], 11) = '"& rs("SerialNo") &"' Order BY Bom_Materiel.[id]")
%>
'
'hidden_<%=rs2("SerialNo_")%>_SN'是定义的一个隐藏控件，下拉菜单显示的是SerialNo，传的值是Stock
<tr onMouseOver="this.bgColor='#73A475';" onMouseOut="this.bgColor=''"">
<td height="25" align="center"><div align="left">
<select name="rs_cmb" id="rs_cmb" Onchange="document.getElementById('hidden_<%=rs2("SerialNo_")%>_SN').value = this.options[this.selectedIndex].text;document.getElementById('Stock_<%=rs2("Stock")%>').value = this.options[this.selectedIndex].value">
<%Do While not rs_cmb.eof%>
<option value="<%=rs_cmb("Stock")%>"><%=rs_cmb("SerialNo")%></option>
<% rs_cmb.MoveNext
Loop%>
</select>
</div>
</td>
'这是Stock文本框
<td align="center"><div align="center">
<input name="Stock_<%=rs2("Stock")%>" type="text" id="Stock_<%=rs2("stock")%>" value="<%=rs2("stock")%>" size="5" readonly disabled>
</div></td>

...全文

105 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

mutemob 2008-06-27

打赏
举报

再发一次，给需要的人

十分感谢 chinmo，教我这么菜的小菜，谢谢，自己对AJAX不懂，汗，把这个功能实现，交给老大后，真的要开始看一看AJAX了。解决后的代码如下：

'下拉菜单
<%
ELSE
Set rs_cmb=conn.execute("Select SerialNo, Stock From Bom_Materiel WHERE LEFT([SerialNo], 11) = '"& rs("SerialNo") &"'")
Set rs2=conn.execute("SELECT TOP 1 LEFT([SerialNo], 11) AS SerialNo_, Bom_Materiel.*, Bom_ListDes.Qty From ((Bom_List INNER JOIN Bom_ListDes ON Bom_List.id=Bom_ListDes.B_BL_ID) INNER JOIN Bom_Materiel ON Bom_Materiel.id=Bom_ListDes.B_ML_ID) Where Bom_List.BomCode='"& BomCode &"' and LEFT([SerialNo], 11) = '"& rs("SerialNo") &"' Order BY Bom_Materiel.[id]")
%>
<select name="rs_cmb" id="rs_cmb" onChange="document.getElementById('hidden_ <%=rs2("SerialNo_")%>_SN').value = this.options[this.selectedIndex].text;document.getElementById('Stock_ <%=rs2("stock")%>').value = this.options[this.selectedIndex].test;document.getElementById('MF_PN_ <%=rs2("MF_PN")%>').value = this.options[this.selectedIndex].value;document.getElementById('MF_2_ <%=rs2("MF_PN")%>').value = this.options[this.selectedIndex].name">
<%Do While not rs_cmb.eof%>
<option value=" <%=rs_cmb("MF_PN")%>" name=" <%=rs_cmb("MF")%>" test=" <%=rs_cmb("Stock")%>"> <%=rs_cmb("SerialNo")%> </option>
<% rs_cmb.MoveNext
Loop%>
</select>

'三个文本框
<input name="MF_PN_ <%=rs2("MF_PN")%>" type="text" id="MF_PN_ <%=rs2("MF_PN")%>" value=" <%=rs2("MF_PN")%>" size="20" readonly disabled>
<input name="MF_2_ <%=rs2("MF_PN")%>" type="text" id="MF_2_ <%=rs2("MF_PN")%>" value=" <%=rs2("MF")%>" size="20" readonly disabled>
<input name="Stock_ <%=rs2("stock")%>" type="text" id="Stock_ <%=rs2("stock")%>" value=" <%=rs2("stock")%>" size="5" readonly disabled>

还有一点,我的三个文本框命名时有一点要注意的,因为我的数据库里的记录是这样的

ID SerialNo Name Description MF_PN MF chuku Stock
1 31411000001A 高频晶体类 26MHz;±10mmp SQ3D02600B2JBA SAMSUNG(三星) 100 1000
2 31411000001B 高频晶体类 26MHz;±10mmp 7M26000314 TXC（台湾晶技） 100 2000
3 31810000001 后备电池 3.3V;0.015 HB414-IV01E SEIKO（精工） 100 1680
4 30218750001A 片状陶瓷电容 0805;X7R;±10%;0.22uF; GRM21BR71H224KAO1L MURATA(村田) 100 1400
5 30218750001B 片状陶瓷电容 0805;X7R;±10%;0.22uF; C2012X5R1H224KT TDK（日本东电化） 100 3300
6 30218720001A 片头陶瓷电容 0805;X5R;±10%;10uF; GRM21BR61A106KE19L MURATA(村田) 100 4400
7 30218720001B 片头陶瓷电容 0805;X5R;±10%;10uF; C2012X5R1A106KT TDK（日本东电化） 100 1400

'三个文本框
<input name="MF_PN_ <%=rs2("MF_PN")%>" type="text" id="MF_PN_ <%=rs2("MF_PN")%>" value=" <%=rs2("MF_PN")%>" size="20" readonly disabled>
<input name="MF_2_ <%=rs2("MF_PN")%>" type="text" id="MF_2_ <%=rs2("MF_PN")%>" value=" <%=rs2("MF")%>" size="20" readonly disabled>
<input name="Stock_ <%=rs2("stock")%>" type="text" id="Stock_ <%=rs2("stock")%>" value=" <%=rs2("stock")%>" size="5" readonly disabled>

为什么用命名为MF_PN_ <%=rs2("MF_PN")%>这种形式,是为了保证命名的唯一性,因为我在页面显示的时候,1、2条在一个下拉菜单里，4、5 条在一个下拉框里，6、7在一个下拉框里，所以后面加了一个后缀，这是我所能想到的方法；还有，厂商的文本框命名为MF_2_ <%=rs2("MF_PN")%>，因为如4、5、6、7的厂商里有一样的厂商，如果你命名为MF_ <%=rs2("MF")%>的话，就会出现，你选6、7的下拉框里，你的MF的值却刷新在4、5的那个MF文本框内，因为你的这时的MF_ <%=rs2("MF")%>与上面的是一样的，当然就刷新到上面去了，这里我用了个笨办法，用了MF_PN的值，因为MF_PN在数据库里，每一条记录，不管是A还是B，都是不一样的，我用的一个笨办法，高手如果有更好的办法，希望告诉我，我的MSN mutemob@hotmail.com，再次谢谢chinmo的指点！

一把编程的菜刀 2008-06-27

打赏
举报

在另外一个帖里已经帮你实现了

mutemob 2008-06-27

打赏
举报

昨天上网找了一下资料,还是没有弄懂AJAX,自己用的JS，但实现起来还是出现了问题，如选001A 001B下拉框时，MF_PN、MF、Stock的文本框会联动显示001A的相应MF_PN（厂商型号）、MF（厂商）、Stock（库存)，但我选002A 002B的下拉框时，MF_PN、MF、Stock的文本框会联动刷新显示的却是在001的那列MF_PN、MF、Stock的文本框里；也就是，每次刷新都是在第一条有下拉选项的MF_PN、MF、Stock的文本框里，不知道这是什么原因？

'上面定义的数组
function rs_cmb_Change(val)
{
var MFPNTxt=document.getElementById("MFPN");
var MFTxt=document.getElementById("MF");
var StockTxt=document.getElementById("Stock");
var tAry=val.split('|');
MFPNTxt.value=tAry[0];
MFTxt.value=tAry[1];
StockTxt.value=tAry[2];
}

'这是下拉按钮代码
Set rs_cmb=conn.execute("Select SerialNo,Stock,MF_PN,MF From Bom_Materiel WHERE LEFT([SerialNo], 11) = '"& rs("SerialNo") &"'")

<select name="rs_cmb" id="rs_cmb" onChange="rs_cmb_Change(this.options[this.selectedIndex].value);">
<%Do While not rs_cmb.eof%>
<option value="<%=rs_cmb("MF_PN")%>|<%=rs_cmb("MF")%>|<%=rs_cmb("Stock")%>"><%=rs_cmb("SerialNo")%></option>
<% rs_cmb.MoveNext
Loop%>
</select>
'两个文本框
td align="center"><input name="MFPN" type="text" id="MFPN" value="<%=rs2("MF_PN")%>" size="20" readonly disabled></td>
<td align="center"><input name="MF" type="text" id="MF" value="<%=rs2("MF")%>" size="20" readonly disabled></td>

一把编程的菜刀 2008-06-26

打赏
举报

晕！！！！这么简单的方法不用，非要用复杂的

mutemob 2008-06-26

打赏
举报

不知道JS可不可以实现?

一把编程的菜刀 2008-06-26

打赏
举报

AJAX的例子参考：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>无标题文档</title>

</head>

<style>

<!--

	body{font-size:12px;}

	#show{border:1px solid #9abcde; line-height:23px; width:200px; margin:0px;}

	#show li{list-style:none;}

	#sug{margin:0px auto;}

.style1 {font-size: x-large}

-->

</style>

<script language="javascript">

<!--

var xmlHttp = false;

function ajaxcreate(){

try {xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");

	} catch (e) {

try {xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");

	} catch (e2) {

		xmlHttp = false;

	}

	}

if (!xmlHttp && typeof XMLHttpRequest != 'undefined') {

		xmlHttp = new XMLHttpRequest();

	}

if(!xmlHttp){alert('Create Xmlhttp Fail ');return false;}

}





function sugguest(){

	ajaxcreate();

	var xmvalue=document.getElementById("key").value;

	//var url="post.ASP?key="+encodeURI(xmvalue)+"&rnd="+Math.random();

	var url="post.ASP?key="+(xmvalue)+"&rnd="+Math.random(1);

	if (xmvalue== null || xmvalue.length>20 || xmvalue == "") return false;

	xmlHttp.open("POST",url,true);	

	xmlHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");

	xmlHttp.send(xmvalue);	

	xmlHttp.onreadystatechange=returnstate;	

}





function returnstate(){

	if(xmlHttp.readyState != 4 ){

		document.getElementById("sug").innerHTML="plase wait....";

	}

	if(xmlHttp.readyState == 4 ){

		document.getElementById("sug").innerHTML=xmlHttp.responseText;

	}

}



function fillin(str){

	document.getElementById('key').value=str;

	obj	=document.getElementById('sug');

	obj.innerHTML='';

	obj.style.display='none';

}

function other(){

	document.getElementById('sug').style.display='block';

}



function losefouse(){

	setInterval("func()",4000);

	var time=setInterval("func()",1000);		

	clearTimeout(time);



}



function func(){

	 ob=document.getElementById('sug');

  	 ob.style.display = 'none';	 

 } 







-->

</script>

<body >

<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">

  <form name="form1" method="post" action=""><tr>

    <td>

      <input name="key" type="text" id="key" onFocus="other();" onKeyDown="sugguest();"  onBlur="losefouse();"  size="27" autocomplete=off >

      <input type="submit" name="Submit" value="搜索">

    </td>

  </tr></form>

  <tr>

    <td><div id="sug" onClick="javascript:func();"></div></td>

  </tr>

</table>

<p> </p>

<p> </p>

<p> </p>

<p> </p>

</body>

</html>

post.ASP内容：

<%

Response.charset="GB2312"

DB="db.mdb"

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&DB&"")

'On Error Resume Next

	Set conn = Server.CreateObject("ADODB.Connection")

	conn.open connstr

	If Err Then

		err.Clear

		Set Conn = Nothing

		Response.Write "数据库连接出错，请联系管理员。"'

		Response.End

	End If

	

	key=Request.QueryString("key")	

	set rs = server.CreateObject ("adodb.recordset")

sql="select  * from tbale where title like '%"&key&"%' order by id desc"

rs.open sql,conn,1,1

response.Write("<div id=show >")

if not rs.bof then

do while not rs.eof	

response.Write("<li onMouseOver=""this.style.background='#d7ebff'"" onMouseOut=""this.style.background='#ffffff'"" onclick=""javascript:fillin(this.innerHTML);"">"&rs("title")&"</li>")

rs.movenext

loop

else

response.Write key

end if

response.Write("</div>")

	%>