📄 suborder.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
'发货是省级发向市县级，再次由市县级发到下面
		Response.write "<a href='ShowSubOrder.asp?ID=" & Rs("SubOrderID") & "'>查看</a>"
	'	if GetUserGPower=9 and Rs("ArriveLev")=9 and (Rs("XIsCheck")=0 or Rs("XIsCheck")=2) then	'设置修改权限
		if GetUserGPower=9 then
			if Rs("UserType")=0 then
				if Rs("ArriveLev")=9 or (Rs("ArriveLev")=99 and Rs("XIsCheck")=2) then
					Response.write " | <a href='SubOrder.asp?Action=Modify&ID=" & rs("SubOrderID") & "'>修改</a> | "
					Response.write "<a href='SubOrder.asp?Action=Del&ID=" & rs("SubOrderID") & "' onClick=""return confirm('确定要删除此进货单吗？');"">删除</a>"
				end if
			else
				if Rs("ArriveLev")=99  or Rs("SIsCheck")=2 then
					Response.write " | <a href='SubOrder.asp?Action=Modify&ID=" & rs("SubOrderID") & "'>修改</a> | "
					Response.write "<a href='SubOrder.asp?Action=Del&ID=" & rs("SubOrderID") & "' onClick=""return confirm('确定要删除此进货单吗？');"">删除</a>"
				end if
			end if
		end if
		
		
%>
</td>
  </tr>
	<%
	Rs.MoveNext
	Next
	%>
</table>  
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30">&nbsp;</td>
    <td width="300"><%If IsFor Then Call page_code_down(Rs,"&check="&check&"","条记录") %></td>
  </tr>
</table>
</td>
</form></tr></table>
<%
	Call Rs_End(Rs)
end sub

sub AddAdmin()
%>
<form method="post" action="SubOrder.asp" name="Myfrom" onsubmit="javascript:return CheckAdd();">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
    <tr class="title"> 
      <td height="22" colspan="2"> <div align="center">新增订单</div></td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">主题</td>
      <td class="tdbg"><input name="SubOrderTitle" type="text" id="SubOrderTitle" size="40" maxlength="30"></td>
    </tr>
    <tr class="tdbg">
      <td width="35%" class="tdbg">产品名</td>
      <td width="65%" class="tdbg">
	  <select name="Pro_ID" id="Pro_ID">
        <%Call Opt_N("T_Product","Pro_ID","Pro_MC","")%>
      </select>
	  </td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">订购数量</td>
      <td class="tdbg"><input name="OrderTotal" type="text" id="OrderTotal"></td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">要求到货日期</td>
      <td class="tdbg"><input name=toTime size=22  readonly>&nbsp;<img align=absMiddle alt="date picker" border=0 id=toDivPos name=toDivPos onMouseUp="toggleDatePicker('toDiv','Myfrom.toTime')" src="../images/calendaricon.gif" width="34" height="21">之间
      <div id=toDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div> </td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">说明</td>
      <td class="tdbg"><textarea name="SubOrderInfo" cols="60" rows="6" id="SubOrderInfo"></textarea></td>
    </tr>
	
    <tr class="tdbg">
      <td class="tdbg">&nbsp;</td>
      <td class="tdbg">&nbsp;</td>
    </tr>
    <tr> 
      <td height="40" colspan="2" align="center" class="tdbg"><input name="UserID" type="hidden" id="UserID" value="<%=GetUserID%>">        
      <input name="Action" type="hidden" id="Action" value="SaveAdd"> 
        <input  type="submit" name="Submit" value=" 添 加 " style="cursor:hand;"> 
        &nbsp; <input name="Cancel" type="reset" id="Cancel" value=" 取 消 "  style="cursor:hand;"></td>
    </tr>

  </table>
</form>
<%
end sub

sub Modify()
	Dim SubOrderID
	SubOrderID=trim(Request("ID"))
	if SubOrderID="" then
		Call Msg("请指定要修改的内容", 1,"")
		exit sub
	else
		SubOrderID=Clng(SubOrderID)
	end if
	
	Sql="Select * from T_SubOrder where SubOrderID=" & SubOrderID
	Call sql_open(Rs,Sql,Conn,1,3)
	If Rs.Bof And Rs.EOF Then
		Call Msg("不存在此内容", 1,"")
	Else
%>
<form method="post" action="SubOrder.asp" name="Myfrom" onsubmit="javascript:return CheckModify();">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
    <tr class="title"> 
      <td height="22" colspan="2"> <div align="center">修改产品类别</div></td>
    </tr>
<!--
    <tr>
      <td class="tdbg">流水号</td>
      <td class="tdbg"><font color="#0000FF"><%=Rs("DDNo")%></font></td>
    </tr>
-->
    <tr>
      <td class="tdbg">主题</td>
      <td class="tdbg"><input name="SubOrderTitle" type="text" id="SubOrderTitle" value="<%=Rs("SubOrderTitle")%>" size="40" maxlength="30"></td>
    </tr>
    <tr class="tdbg">
      <td width="35%" class="tdbg">产品名</td>
      <td width="65%" class="tdbg">
	  <select name="Pro_ID" id="Pro_ID">
        <%Call Opt_N("T_Product","Pro_ID","Pro_MC",Rs("Pro_ID"))%>
      </select>
	  </td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">订购数量</td>
      <td class="tdbg"><input name="OrderTotal" type="text" id="OrderTotal" value="<%=Rs("OrderTotal")%>"></td>
    </tr>

    <tr class="tdbg">
      <td class="tdbg">要求到货日期</td>
      <td class="tdbg"><input name=toTime size=22  readonly value="<%=Rs("toTime")%>">              <img align=absMiddle alt="date picker" border=0 id=toDivPos name=toDivPos onMouseUp="toggleDatePicker('toDiv','Myfrom.toTime')" src="../images/calendaricon.gif" width="34" height="21">之间
              <div id=toDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div> </td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">说明</td>
      <td class="tdbg"><textarea name="SubOrderInfo" cols="60" rows="6" id="SubOrderInfo"><%=Rs("SubOrderInfo")%></textarea>
      </td>
    </tr>
    <tr class="tdbg">
      <td class="tdbg">&nbsp;</td>
      <td class="tdbg">&nbsp;</td>
    </tr>

    <tr> 
      <td colspan="2" align="center" class="tdbg"><input name="ArriveLev" type="hidden" id="ArriveLev" value="<%=Rs("ArriveLev")%>">
      <input name="UserID" type="hidden" id="UserID" value="<%=Rs("UserID")%>">
      <input name="SubOrderID" type="hidden" id="SubOrderID" value="<%=Rs("SubOrderID")%>">        <input name="Action" type="hidden" id="Action" value="SaveModify"> 
        <input  type="submit" name="Submit" value="保存修改结果" style="cursor:hand;">
        &nbsp;
        <input name="Cancel" type="reset" id="Cancel" value=" 取 消 " style="cursor:hand;"></td>
    </tr>
  </table>
</form>

<%

	End If
	Call Rs_End(Rs)
End Sub

%>

</body>
</html>
<%
'增加新组
Sub SaveAdd()
	Dim DDNo,UserID,Pro_ID,SubOrderTitle,OrderTotal,toTime,SubOrderInfo
'	DDNo = trim("DD"&Format_Time(Now(),7)&RndNum(4))
	Pro_ID=trim(Request("Pro_ID"))
	UserID=trim(Request("UserID"))

	SubOrderTitle=trim(Request("SubOrderTitle"))
	OrderTotal=trim(Request("OrderTotal"))
	toTime=trim(Request("toTime"))
	SubOrderInfo=trim(Request("SubOrderInfo"))
	Call Isnum(OrderTotal,OrderTotal,1)
	if SubOrderInfo="" then
		Call Msg("主题不能为空", 1,"")
	end if
	Sql="Select * from T_SubOrder"
	Call sql_open(Rs,Sql,Conn,1,3)
   	rs.addnew
 	rs("Pro_ID")=Pro_ID
'	rs("DDNo")=DDNo			'流水号：DD+年月日时分秒+4位随机数
 	rs("UserID")=UserID
	rs("UserType")=GetUserType
 	rs("SubOrderTitle")=SubOrderTitle
	rs("OrderTotal")=OrderTotal
	rs("toTime")=toTime
	rs("SubOrderInfo")=SubOrderInfo
	if GetUserType=1 then
		rs("ArriveLev")=99			'提交过以后就达到县级
		rs("XIsCheck")=1
	else
		rs("ArriveLev")=9
	end if
	rs("ArriveLev_FH")=9999
	rs.update
    Call Rs_End(Rs)
	Call Msg("添加成功",3,"")
	Call main()
end sub
'修改
sub SaveModify()
	Dim SubOrderID,UserID,Pro_ID,SubOrderTitle,OrderTotal,toTime,SubOrderInfo
	SubOrderID=trim(Request("SubOrderID"))
	Pro_ID=trim(Request("Pro_ID"))
	UserID=trim(Request("UserID"))
	SubOrderTitle=trim(Request("SubOrderTitle"))
	OrderTotal=trim(Request("OrderTotal"))
	toTime=trim(Request("toTime"))
	SubOrderInfo=trim(Request("SubOrderInfo"))
	if SubOrderID="" then
		Call Msg("请指定要修改的内容", 1,"")
	else
		SubOrderID=Clng(SubOrderID)
	end if
	Call Isnum(OrderTotal,OrderTotal,1)
	Sql="Select * from T_SubOrder where SubOrderID=" & SubOrderID
	Call sql_open(Rs,Sql,Conn,1,3)
	if Rs.Bof and Rs.EOF then
		Call Msg("不存在此内容", 1,"")
		Call Rs_End(Rs)
		exit sub
	end if
	Rs("Pro_ID")=Pro_ID
	Rs("UserID")=UserID
	rs("UserType")=GetUserType
	Rs("SubOrderTitle")=SubOrderTitle
	Rs("OrderTotal")=OrderTotal
	Rs("toTime")=toTime
	Rs("SubOrderInfo")=SubOrderInfo
	if GetUserType=1 then
		rs("ArriveLev")=99			'提交过以后就达到县级
		rs("XIsCheck")=1
		rs("SIsCheck")=0
		rs("SInfo")=""
		rs("PIsCheck")=0
		rs("PInfo")=""
	else
		rs("ArriveLev")=9
		rs("XIsCheck")=0
		rs("SIsCheck")=0
		rs("PIsCheck")=0
	end if
	rs("ArriveLev_FH")=9999
 	Rs.update
	Call Rs_End(Rs)
	Call Msg("修改成功",3,"")
call main()
end sub
sub DelAdmin()
	dim SubOrderID
	SubOrderID=trim(Request("ID"))
	if SubOrderID="" then
		Call Msg("请指定删除的内容", 1,"")
		exit sub
	end if
	if instr(SubOrderID,",")>0 then
		SubOrderID=replace(SubOrderID," ","")
		Sql="Select * from T_SubOrder where SubOrderID in (" & SubOrderID & ")"
	else
		SubOrderID=clng(SubOrderID)
		sql="select * from T_SubOrder where SubOrderID=" & SubOrderID
	end if
	Call sql_open(Rs,Sql,Conn,1,3)
	do while not rs.eof

		rs.delete
		rs.update
		rs.movenext
	loop
	Call Rs_End(Rs)
	call main()
end sub
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -