📄 neiqian.asp

📁 很不错的进销存系统, 本系统适用于轮胎经销使用
💻 ASP
字号:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<html><head><link href="css.css" rel="stylesheet" type="text/css">
<title>三角进销存-销售欠款记录</title></head>
<body>
<table width="100%" class="inputb"><tr><td align=center>销售欠款记录</td></tr></table>
<center>
<form name=soform action="NeiQian.asp" method="post">
<table width="100%" border="0"><tr><td align=center>输入客户名称：<input name="kehu" type="text" class="inputa">&nbsp;<input name="ok" type="submit" value="点击查询" class=inputb></td></tr></table></form>
<form name="form1" action="Change_NeiQian.asp" method="post">
<%
key="未付"
twokey="未付清"
kehu=request("kehu")

Set Rs=Server.Createobject("adodb.recordset")
if kehu="" then
Sql="select * from ChuKu where fukuan='"&key&"' or fukuan='"&twokey&"'"
else
Sql="select * from ChuKu where kehu='"&kehu&"' and fukuan='"&key&"' or fukuan='"&twokey&"'"
end if
Rs.open sql,conn,1,1
response.write"<table width=100% border=1 cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff><tr bgcolor=#cccfff><td align=center>编号</td><td align=center>销售商品</td><td align=center>销售数量</td><td align=center>商品单价</td><td align=center>商品总额</td><td align=center>已付</td><td align=center>还欠</td><td align=center>欠款客户</td><td align=center>销售时间</td><td align=center>选择</td></tr>"
if rs.eof then
response.write"<tr><td colspan=8 align=center>暂无销售欠款记录！</td></tr></table>"
response.end
else
while not rs.eof

response.write"<tr bgcolor=#f1f1f1><td align=center>"&rs("id")&"</td>"
response.write"<td align=center>"&rs("pinpai")&"|"&rs("guige")&"|"&rs("xinghao")&"</td>"
response.write"<td align=center>"&rs("shuliang")&"</td>"
response.write"<td align=center>"&rs("danjia")&"</td>"
response.write"<td align=center>"&rs("summoney")&"</td>"
response.write"<td align=center>"&rs("zanfu")&"</td>"
response.write"<td align=center><font color=red>"&rs("summoney")-rs("zanfu")&"元</font></td>"
response.write"<td align=center>"&rs("kehu")&"</td>"
response.write"<td align=center>"&rs("intime")&"</td>"
response.write"<td align=center><input name=id type=checkbox value="&rs("id")&"></td></tr>"
rs.movenext
wend
rs.close
response.write"<tr bgcolor=#f1f1f1><td id=xx colspan=5 align=center><input name=okend type=submit class=inputb value=立即结清欠款></td></form><td colspan=5><table><tr><td><input name=noend type=button class=inputb value=结算一部份 onclick='jiesuan();'></td></tr></table></table></tr>"
end if
response.write"</center>"
sql1="select sum(summoney) from ChuKu where fukuan='"&key&"' or fukuan='"&twokey&"'"
rs.open sql1,conn,1,1
summoney=rs(0)
rs.close

sql2="select sum(zanfu) from ChuKu where fukuan='"&key&"' or fukuan='"&twokey&"'"
rs.open sql2,conn,1,1
zanfu=rs(0)
rs.close

response.write"<center><font color=red>所有销售欠款记录的总额为"&summoney-zanfu&"元</font></center>"
%>

<script language=javascript>
function jiesuan(){

document.all.xx.innerHTML=("请输入支付金额：<input name=zanfu type=text><input name=submit type=submit value=确定 class=inputb>");

}
</script>
⌨️ 快捷键说明

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