qxgl.aspx

ASP.NET开发实战详解

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.sqlclient" %>
<script runat="server">

    dim Cnn as sqlconnection
    dim cmd as sqlcommand
    Sub Page_Load(Sender As Object, E As EventArgs)
      dim Sql as string
      If Not IsPostBack Then
         If Session("curruser") = "" Then
            Response.Redirect("../index.aspx")
         End If
      end if
    End Sub
    
    Sub save_click(Sender As Object, E As EventArgs)
      dim sql as string
      dim datar as sqldatareader
      dim dycode as string
      dim dystr as string=dyname.text
      dim sqrstr as string=sqr.text
      dim sqdatestr as string=sqdate.text
      dim qxnrstr as string=qxnr.text
      dim sprstr as string=spr.text
      dim xlfystr as string=xlfy.text
      dim spdatestr as string=spdate.text
      dim spyjstr as string=spyj.text
      dim telstr as string=tel.text
      dim sgdwstr as string=sgdw.text
      dim begindatestr as string=begindate.text
      dim fzrstr as string=fzr.text
      dim ysrstr as string=ysr.text
      dim enddatestr as string=enddate.text
      dim ysyjstr as string=ysyj.text
      dim ysdatestr as string=ysdate.text
      dim memostr as string=memo.text

      if trim(dystr)="" then
         page.registerstartupscript("",getalertinfo("请输入单元名称！"))
         exit sub
      end if
      cnn=new sqlconnection(configurationsettings.appsettings("connection"))
      sql="select * from fc_cell where name='" & trim(dystr) & "'"
      cmd=new sqlcommand(sql,cnn)
      cnn.open
      datar=cmd.executereader()
      if datar.read() then
         dycode=datar("code")
      else
         page.registerstartupscript("",getalertinfo("该单元不存在，数据无法保存！"))
         exit sub
      end if
      datar.close()
      sql="select * from zh_zhqx where cellcode='" & trim(dycode) & "'"
      cmd=new sqlcommand(sql,cnn)
      datar=cmd.executereader()
      if datar.read() then
          sql="update zh_zhqx set sqr='" & sqrstr & "',sqdate='" & sqdatestr & "',qxnr='" & qxnrstr & "',spr='" & sprstr & "',xlfy=" & xlfystr & ",spdate='" & spdatestr & "',spyj='" & spyjstr & "',tel='" & telstr & "',sgdw='" & sgdwstr & "',begindate='" & begindatestr & "',fzr='" & fzrstr & "',ysr='" & ysrstr & "',enddate='" & enddatestr & "',ysyj='" & ysyjstr & "',ysdate='" & ysdatestr & "',memo='" & memostr & "'  where cellcode='" & dycode & "'"
      else
          sql="insert into zh_zhqx(cellcode,sqr,sqdate,qxnr,spr,xlfy,spdate,spyj,tel,sgdw,begindate,fzr,ysr,enddate,ysyj,ysdate,memo) values('" & dycode & "','" & sqrstr & "','" & sqdatestr & "','" & qxnrstr & "','" & sprstr & "'," & xlfystr & ",'" & spdatestr & "','" & spyjstr & "','" & telstr & "','" & sgdwstr & "','" & begindatestr & "','" & fzrstr & "','" & ysrstr & "','" & enddatestr & "','" & ysyjstr & "','" & ysdatestr & "','" & memostr & "')"
      end if
      datar.close()
      cmd=new sqlcommand(sql,cnn)
      cmd.executenonquery
      dyname.text=""
      call cleardata()
      page.registerstartupscript("",getalertinfo("数据保存成功！"))
    End Sub
    
    Function GetAlertInfo(byval str1 as string) as String
        dim Str2 as String
        str2="<script language='javascript'>alert('" & str1 & "')<"
        str2+="/"
        str2+="script>"
        return trim(str2)
    End Function

    sub cleardata()
      sqr.text=""
      sqdate.text=""
      qxnr.text=""
      spr.text=""
      xlfy.text=""
      spdate.text=""
      spyj.text=""
      tel.text=""
      sgdw.text=""
      begindate.text=""
      fzr.text=""
      ysr.text=""
      enddate.text=""
      ysyj.text=""
      ysdate.text=""
      memo.text=""
    end sub

    Sub sure_click(Sender As Object, E As EventArgs)
      dim sql as string
      dim datar as sqldatareader
      dim dystr as string=dyname.text
      if trim(dystr)="" then
 	 page.registerstartupscript("",getalertinfo("请输入单元名称！"))
      else
         cnn=new sqlconnection(configurationsettings.appsettings("connection"))
         sql="select code from fc_cell where name='" & trim(dystr) & "'"
         cmd=new sqlcommand(sql,cnn)
         cnn.open
         datar=cmd.executereader()
         if datar.read() then
            datar.close()
            call cleardata() 
            sql="select * from zh_zhqx where cellcode in (select code from fc_cell where name='" & trim(dystr) & "')"
            cmd=new sqlcommand(sql,cnn)
            datar=cmd.executereader()
            if datar.read() then
               sqr.text=Iif(IsDbNull(datar("sqr")),"",datar("sqr"))
               sqdate.text=Iif(IsDbNull(datar("sqdate")),"",datar("sqdate"))
               qxnr.text=Iif(IsDbNull(datar("qxnr")),"",datar("qxnr"))
               spr.text=Iif(IsDbNull(datar("spr")),"",datar("spr"))
               xlfy.text=Iif(IsDbNull(datar("xlfy")),"",datar("xlfy"))
               spdate.text=Iif(IsDbNull(datar("spdate")),"",datar("spdate"))
               spyj.text=Iif(IsDbNull(datar("spyj")),"",datar("spyj"))
               tel.text=Iif(IsDbNull(datar("tel")),"",datar("tel"))
               sgdw.text=Iif(IsDbNull(datar("sgdw")),"",datar("sgdw"))
               begindate.text=Iif(IsDbNull(datar("begindate")),"",datar("begindate"))
               fzr.text=Iif(IsDbNull(datar("fzr")),"",datar("fzr"))
               ysr.text=Iif(IsDbNull(datar("ysr")),"",datar("ysr"))
               enddate.text=Iif(IsDbNull(datar("enddate")),"",datar("enddate"))
               ysyj.text=Iif(IsDbNull(datar("ysyj")),"",datar("ysyj"))
               ysdate.text=Iif(IsDbNull(datar("ysdate")),"",datar("ysdate"))
               memo.text=Iif(IsDbNull(datar("memo")),"",datar("memo"))
            end if
         else
            page.registerstartupscript("",getalertinfo("该单元不存在，请重新输入！"))	
         end if
         datar.close()
      end if
    End Sub  	

    Sub del_click(Sender As Object, E As EventArgs)
      dim sql as string
      dim dystr as string=dyname.text
      if trim(dystr)="" then
 	 page.registerstartupscript("",getalertinfo("请输入单元名称！"))
      else
         cnn=new sqlconnection(configurationsettings.appsettings("connection"))
         sql="delete from zh_zhqx where cellcode in (select code from fc_cell where name='" & trim(dystr) & "')"
         cmd=new sqlcommand(sql,cnn)
         cnn.open
         cmd.executenonquery
         cnn.close
         dyname.text=""
         call cleardata()
      end if
    End Sub 
</script>
<html>
<head>
    <title>住户请修</title>
    <link href="../Main.css" type="text/css" rel="stylesheet" />
</head>
<body background="../images/1.jpg">
    <form runat="server">
        <table id="search" cellspacing="1" cellpadding="0" width="80%" align="center" border="0">
            <tbody>
                <tr>
                    <td width="34%" height="30">
                        单元名称 
                        <asp:TextBox class="input_text" id="dyname" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td>
                        <asp:button class="input_button" id="SureBtn" onclick="Sure_Click" runat="server" text="确  定"></asp:button>
                    </td>
                    <td></td>
                </tr>		
                <tr><td colspan=3><hr></td></tr>
                <tr>
                    <td width="34%" height="30">
                        申&nbsp;请&nbsp;人
                        <asp:TextBox class="input_text" id="sqr" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%">
                        申请日期 
                        <asp:TextBox class="input_text" id="sqdate" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%"></td>
                </tr>
                <tr>
                    <td colspan="3" height="50">
                        请修内容<br />
                        <asp:TextBox id="qxnr" runat="server" width="650" TextMode="MultiLine" Rows="2"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td width="34%" height="30">
                        审&nbsp;批&nbsp;人
                        <asp:TextBox class="input_text" id="spr" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%">
                        修理费用 
                        <asp:TextBox class="input_text" id="xlfy" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%">
                        审批日期 
                        <asp:TextBox class="input_text" id="spdate" runat="server" width="130"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td colspan="3" height="50">
                        审批意见<br />
                        <asp:TextBox id="spyj" runat="server" width="650" TextMode="MultiLine" Rows="2"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td width="34%" height="30">
                        施工单位
                        <asp:TextBox class="input_text" id="sgdw" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%">
                        负&nbsp;责&nbsp;人 
                        <asp:TextBox class="input_text" id="fzr" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%">
                        联系电话 
                        <asp:TextBox class="input_text" id="tel" runat="server" width="130"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td width="34%" height="30">
                        开始日期
                        <asp:TextBox class="input_text" id="begindate" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%">
                        截止日期 
                        <asp:TextBox class="input_text" id="enddate" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%"></td>
                </tr>
                <tr>
                    <td width="34%" height="30">
                        验&nbsp;收&nbsp;人
                        <asp:TextBox class="input_text" id="ysr" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%">
                        验收日期 
                        <asp:TextBox class="input_text" id="ysdate" runat="server" width="130"></asp:TextBox>
                    </td>
                    <td width="33%"></td>
                </tr>
                <tr>
                    <td colspan="3" height="50">
                        验收意见<br />
                        <asp:TextBox id="ysyj" runat="server" width="650" TextMode="MultiLine" Rows="2"></asp:TextBox>
                    </td>
                </tr>
                <tr class="tr4">
                    <td colspan="3" height="30">
                        备注信息
                        <asp:TextBox class="input_text" id="memo" runat="server" width="640"></asp:TextBox>
                    </td>
                </tr>
            </tbody>
        </table>
        <p align=center>
          <asp:button class="input_button" id="SaveBtn" onclick="Save_Click" runat="server" text="保  存"></asp:button>
          &nbsp;&nbsp;&nbsp;&nbsp;
          <asp:button class="input_button" id="DelBtn" onclick="Del_Click" runat="server" text="删  除"></asp:button> 
    </form>
</body>
</html>