📄 lendedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑资料借阅信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.ino.value==""){
   alert("请选择借阅资料！");
   form1.ino.focus;
   return false;
  } 
  if (document.form1.count.value==""){
   alert("请输入借阅数量！");
   form1.count.focus;
   return false;
  } 
  if (document.form1.ldate.value==""){
   alert("请输入借阅日期 ！");
   form1.ldate.focus;
   return false;
  } 
  if (document.form1.empid.value==""){
   alert("请选择借阅员工！");
   form1.empid.focus;
   return false;
  } 
  return true;
}
</Script>
</head>
<%
  Dim InfoNo,LendId,LDate,LCount,EmpId,EmpName,Info
  Dim Action,rs
  '变量初始化
  InfoNo = ""
  Info = ""
  LDate = Date()
  LCount = 1
  EmpName = ""
  Detail = ""
  CreateDate = Date()
  '读取参数action\lid\InfoNo
  Action = Request.QueryString("action")
  LendId = Request.QueryString("lid") 
  InfoNo = Request.QueryString("id")  '当从资料信息中借阅时存在此参数值
  Set rs = Server.CreateObject("ADODB.RecordSet")
  If InfoNo<>"" Then  '从资料信息表中读取资料信息
   sql = "Select * From Information Where InfoNo='" & InfoNo & "'"
   Set rs = Conn.Execute(sql)
   If Not rs.EOF Then
     Info = "编号:" & rs("InfoNo") & "_名称:" & rs("InfoName") & "__价格:" & rs("IPrice") & "__库存数量:" & rs("ICount")
   End If
   rs.Close()
  End If
  '编辑记录
  If Action = "edit" Then
    '设置SELECT语句，读取记录数据
    sql = "SELECT l.*,i.*,e.EmpName," _
     + "(CASE l.Flag WHEN 0 THEN '借阅' WHEN 1 THEN '借阅确认' WHEN 2 THEN '归还' WHEN 3 THEN '归还确认' END) AS st" _
     + " FROM InfoLend l,Information i,Employees e" _
     + " WHERE l.InfoNo=i.InfoNo AND l.EmpId=e.EmpId"
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      InfoNo = rs("InfoNo")
      LDate = rs("LendDate")
      LCount = rs("LendCount")
      EmpId = rs("EmpId")
      EmpName = rs("EmpName")
      Info = "编号:" & rs("InfoNo") & "_名称:" & rs("InfoName") & "__价格:" & rs("IPrice") & "__库存数量:" & rs("ICount")
   End If
   rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="LendSave.asp?action=<%=Action%>&lid=<%=LendId%>" 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/infolend.jpg" height="90" width="100%">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">资料借阅信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">选择借阅资料</td>
      <td colspan="3"><input type="text" name="iname" size="50" value="<%=Info%>" ReadOnly>&nbsp;
  <input type="button" value="选 择" onclick="javascript:news2=window.open('InfoSel.asp','news2','x=100,y=100,height=300,width=400,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=yes');news2.focus();" name="B3"></font>
      &nbsp;</td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">借阅日期</td>
      <td width="40%" ><input type="text" name="ldate" size="16" value="<%=LDate%>">&nbsp;</td>
      <td width="20%"  bgcolor="#CEE7FF">借阅数量</td>
      <td width="40%" ><input type="text" name="count" size="16" value="<%=LCount%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">借阅员工</td>
      <td colspan="3"><input type="text" name="empname" size="16" value="<%=EmpName%>" ReadOnly>
    <input type="button" value="选 择" onclick="javascript:news2=window.open('../EmpSel.asp','news2','x=100,y=100,height=300,width=400,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=yes');news2.focus();" name="B4"></font>
&nbsp;</td>
    </tr>
  </table><input type="hidden" name="ino" size="20" value="<%=InfoNo%>">
  <input type="hidden" name="empid" size="16" value="<%=EmpId%>">
  <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 + -