goodsadd.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include file="../include/top.asp"-->
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa;database=DB_lsmanage"
conn.open
%>
<script language="javascript">
  function thischkfields(){
  if(document.goodsaddform.TypeName.value==''){
    alert("请选择大类");
	goodsaddform.TypeName.focus();
	return false;
  }
  if (document.goodsaddform.yName.value==''){
    alert("请选择药品名");
	goodsaddform.yName.focus();
	return false;
   }
  if(document.goodsaddform.Sl.value==''){
    alert("请输入添加的数量");
	goodsaddform.Sl.focus();
    return false;
   }
    return true;
  }
</script>
        <tr bgcolor="#6699CC">
            <td height="1" colspan="4"></td>
        </tr>
        <tr>
            <td height="34" colspan="3" valign="middle" bgcolor="#FFCC66">
          <img src="../images/borrow.gif"> 药品入库
		    </td>
        </tr>
        <tr>
            <td height="184" colspan="4">
                <form action="saveaddgoods.asp" method="post" name="goodsaddform" onSubmit="return thischkfields();">
			        <table width="60%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCC33">
				        <tr>
					        <td  align="right" bgcolor="#FFFFFF">请点击按钮选择大类：</td>
				            <td bgcolor="#FFFFFF"><input type="text" name="TypeName" size="8" align="left" readonly value="<%
					        if request("TypeId")<>"" Then
					            set rs=conn.execute("select * from tb_MedicineType where TypeId="&request("TypeId"))
						        response.write rs("TypeName")
					        end if
					   %>">　
				            <input name="selbtn" type="button" id="selbtn" style="border:1px solid;border-color:#CC6666;background-color:#FFCC66" onClick="window.open('1.asp','','width=300,height=300,resizable=yes,top=345,left=668')" value="选择大类"></td>
					     </tr>
					     <tr>
					         <td align="right" bgcolor="#FFFFFF">药品名称：</td>
					         <td bgcolor="#FFFFFF">
					   <%
					   if request("TypeId")<>"" then
					       set rs1=conn.execute("select * from tb_MedicineName where TypeId="&request("TypeId"))
						   response.write "<select name=yName>"
						   do while not rs1.eof
						       response.write "<option value="&rs1("yName")&">"&rs1("yName")&"</option>"
						   rs1.movenext
						   loop
						   response.write "</select>"
					    else
						   response.write "选择药名"
						end if
					   %>
					          </td>
					    </tr>
					    <tr>
					        <td align="right" bgcolor="#FFFFFF">数量</td>
				            <td bgcolor="#FFFFFF"><input type="text" name="Sl" size="5" value="1"></td>
					    </tr>
					    <tr bgcolor="#FFFFFF">
			              <td colspan="2">
			                <div align="center">
			                  <input name="addbtn" type="submit" id="addbtn" style="border:1px solid;border-color:#CC6666;background-color:#FFCC66" value="添 加">　　
				                
			                  <input name="cancel" type="reset" id="cancel" style="border:1px solid;border-color:#CC6666;background-color:#FFCC66" value="取 消">
							</div></td>
					    </tr>
			        </table>
			   </form>
		  </td>
    </tr>
</table>
<!--#include file="../include/bottom.asp"-->