📄 methodedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑收款计划信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.gdate==""){
   alert("请输入收款日期！");
   form1.gdate.focus;
   return false;
 } 
 return true;
}
</Script>
</head>
<%
  Dim MthId,SaleId,TId1,TId2,GetSum,GetDate,Memo
  Dim Action,rs
  '变量初始化
  GetSum = 0
  GetDate = ""
  '读取参数action\mid\sid
  Action = Request.QueryString("action")
  SaleId = Request.QueryString("sid")    
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑问题记录
  If Action = "edit" Then
    MthId = Request.QueryString("mid")
    '设置SELECT语句，读取记录数据
    sql = "SELECT * FROM SaleMethod Where MthId="& MthId
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      TId1 = rs("TypeId")
      TId2 = rs("GetFlag")
      GetDate = rs("GetDate")
      GetSum = rs("GetSum")
      Memo = rs("Memo")
      SaleId = rs("SaleId")
   End If
   rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="MethodSave.asp?action=<%=Action%>&mid=<%=MthId%>" 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">
      <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="sid" size="20" value="<%=SaleId%>" ReadOnly>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">收款阶段</td>
      <td><select size="1" name="type1">
      <%sql = "Select * From Types Where Flag=9 ORDER BY TypeId" 
        rs.Open sql,conn,1,1
        Do While Not rs.EOF
          If rs("TypeId")=TId1 Then         
        %>
          <option selected value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%Else%>
          <option value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%End If
          rs.MoveNext()
        Loop
        rs.Close()%>
         </select></td>
      <td bgcolor="#CEE7FF">阶段标志</td>
      <td><select size="1" name="type2">
      <%sql = "Select * From Types Where Flag=10 ORDER BY TypeId" 
        rs.Open sql,conn,1,1
        Do While Not rs.EOF
          If rs("TypeId")=TId2 Then         
        %>
          <option selected value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%Else%>
          <option value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
          <%End If
          rs.MoveNext()
        Loop
        rs.Close()%>
         </select></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">收款金额</td>
      <td><input type="text" name="gsum" size="20" value="<%=GetSum%>">&nbsp;</td>
      <td bgcolor="#CEE7FF">收款日期</td>
      <td><input type="text" name="gdate" size="20" value="<%=GetDate%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF" >备注</td>
      <td colspan="3"><textarea rows="4" name="memo" cols="60"><%=Memo%></textarea>&nbsp;</td>
    </tr>
  </table>
  <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 + -