📄 purchaselist.asp
字号:
<!--#include file="../function/connect.asp"-->
<%
meth=request("meth")
if meth="del" and request("Purchase_ID")<>"" then
strsql="delete from Purchase where Purchase_ID in (" & request("Purchase_ID") &")"
objConn.execute strsql
strsql="delete from PurchaseDetails where Purchase_ID in (" & request("Purchase_ID") & ")"
'response.write strsql
objConn.execute strsql
end if
strsql="select p.*,cl.client_name,co.Contact_Name,di.Invoice,dc.Currency_Name from Purchase p,clients cl,Contacts co,Dict_Invoices di,Dict_Currency dc where p.client_ID=cl.client_ID and p.Contact_ID=co.Contact_ID and di.Invoice_ID=p.Invoice_ID and dc.Currency_ID=p.Currency_ID "
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
%>
<html>
<head>
<title>产品</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../cssD.css" rel=stylesheet>
<script>
function checkNum()
{
rNum=0;
var actID=document.all.Purchase_ID;
for(i=1;i<actID.length;i++){
if(actID[i].checked==true){
rNum=rNum +1 ;
}
}
return rNum;
}
function checkAll()
{
var actID=document.all.Purchase_ID;
if(document.form1.checkall.checked==false){
for(i=0;i<actID.length;i++){
actID[i].checked=false;
}
}else{
for(i=0;i<actID.length;i++){
actID[i].checked=true;
}
}
}
function modify()
{
if(checkNum()!=1)
{
alert('修改的项目只能是一个.');
}else{
document.form1.action="Purchase.asp";
document.form1.submit();
}
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="103%" border="1" cellspacing="0" cellpadding="2" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<form name="form1" method="post" action="Purchaselist.asp">
<tr class="tablehead">
<td width="4%"><input type="checkbox" name="checkall" value="1" onclick="checkAll();"><input type="checkbox" name="Purchase_ID" value="0" disabled style="display:none;"></td>
<td width="20%" nowrap>
<div align="center">进货单号</div>
</td>
<td width="10%" nowrap>
<div align="center">进货日期</div>
</td>
<td width="10%" nowrap>
<div align="center">产品供应商</div>
</td>
<td width="10%" nowrap>
<div align="center">相关联系人</div>
</td>
<td width="10%" nowrap>
<div align="center">发票类型</div>
</td>
<td width="10%" nowrap>
<div align="center">货币类型</div>
</td>
<td width="10%" nowrap>
<div align="center">总计金额</div>
</td>
<td width="10%" nowrap>
<div align="center">已付款金额</div>
</td>
<td width="10%" nowrap>
<div align="center">未付款金额</div>
</td>
</tr>
<%if not objrs.eof then
do while not objrs.eof
%>
<tr align="center">
<td width="4%" class="tablehead">
<input type="checkbox" name="Purchase_ID" value="<%=objrs.fields("Purchase_ID")%>">
</td>
<td width="20%" nowrap> <a href="purchase.asp?Purchase_ID=<%=objrs.fields("Purchase_id")%>"><%=objrs.fields("Purchase_Number")%></a></td>
<td width="10%" nowrap> <%=objrs.fields("Purchase_Date")%></td>
<td width="10%" nowrap> <%=objrs.fields("client_name")%></td>
<td width="10%" nowrap> <%=objrs.fields("Contact_Name")%></td>
<td width="10%" nowrap> <%=objrs.fields("Invoice")%></td>
<td width="10%" nowrap> <%=objrs.fields("Currency_Name")%></td>
<td width="10%" nowrap> <%=objrs.fields("Amount")%></td>
<td width="10%" nowrap> <%=objrs.fields("Paid_Amount")%></td>
<td width="10%" nowrap> <%=objrs.fields("unPaid_Amount")%></td>
</tr>
<%
objrs.movenext
loop
else%>
<tr align="center">
<td colspan="9">
没有进货
</td>
</tr>
<%end if%>
<input type="hidden" name="meth" value="del">
<tr align="center">
<td colspan="10">
<input type="button" value=" 添加 " class="button" onclick="location.href='Purchase.asp';"> <input type="submit" value=" 删除 " class="button"> <input type="button" value=" 修改 " class="button" onclick="modify();">
</td>
</tr>
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -