⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 checkedit.asp

📁 财务管理系统 报账等基本功能实现 有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑库存盘点信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.proid.value==""){
   alert("请选择盘点商品!");
   return false;
  } 
  if (document.form1.cnum.value==""){
   alert("请输入实际盘点数量!");
   form1.cnum.focus;
   return false;
  } 
  return true;
}
</Script>
</head>
<%
  Dim ProId,ProName,ChkId,ChkDate,OrgNum,ChkNum,Memo,Checker
  Dim Action,rs
  '变量初始化
  ProId = 0
  ChkDate = Date()
  Checker = Session("UserName")
  OrgNum = 0
  ChkNum = 0
  '读取参数action\cid
  Action = Request.QueryString("action")
  ChkId = Request.QueryString("cid")  
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑问题记录
  If Action = "edit" Then
    '设置SELECT语句,读取记录数据
    sql = "SELECT c.*,p.ProName From StoreCheck c,Product p" _
        + " Where c.ProId=p.ProId And c.ChkId=" & ChkId
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      ProId = rs("ProId")
      ProName = rs("ProName")
      ChkDate = rs("ChkDate")
      OrgNum = rs("OrgNum")
      ChkNum = rs("ChkNum")
      Memo = rs("Memo")
      Checker = rs("Checker")
   End If
   rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="CheckSave.asp?action=<%=Action%>&cid=<%=ChkId%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4" background="pic/storechk.jpg" height="90" width="100%">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">库存盘点信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">选择盘点商品</td>
      <td colspan="3"><input type="text" name="proname" size="50" value="<%=ProName%>" ReadOnly>&nbsp;
      <input type="button" value="选 择" onclick="javascript:news=window.open('ProSel.asp','news','x=100,y=100,height=300,width=300,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=yes');news.focus();" name="B3">
      </td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">原库存数量</td>
      <td width="40%"><input type="text" name="onum" size="20" value="<%=OrgNum%>" ReadOnly>&nbsp;</td>
      <td width="20%" bgcolor="#CEE7FF">盘点数量</td>
      <td width="40%"><input type="text" name="cnum" size="20" value="<%=ChkNum%>"></td>
    </tr>
   <tr>
      <td bgcolor="#CEE7FF" >备注</td>
      <td colspan="3"><textarea rows="4" name="memo" cols="60"><%=Memo%></textarea>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">盘点人</td>
      <td><input type="text" name="checker" size="20" value="<%=Checker%>">&nbsp;</td>
      <td bgcolor="#CEE7FF">盘点日期</td>
      <td><%=ChkDate%>&nbsp;</td>
    </tr>
  </table><input type="hidden" name="proid" size="20" value="<%=ProId%>">&nbsp;
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>

⌨️ 快捷键说明

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