view_user.aspx

来自「ASP.NET开发实战详解」· ASPX 代码 · 共 145 行

<%@ 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
    Shared TitleStr as string
    Shared DispStr as string
    Sub Page_Load(Sender As Object, E As EventArgs)

       select case request.querystring("type")
       case "sfsz"
          titlestr="查看收费项目所关联的用户"
          dispstr="当前收费项目：" 
       case "biao"
          titlestr="查看表所关联的用户"
          dispstr="当前表编码：" 
       end select

       If Not IsPostBack Then 
          bindgrid()
       
       end if
   End Sub

    Sub BindGrid()
                      dim dataR as sqldatareader
                      dim dtcmd as sqldataadapter
                      dim dt as new datatable
                      dim MaxPage as integer  '计算最大页数
                      dim sql as string
                      dim i as integer
                      dim sumrecord as integer
                      cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                      cnn.open()
                      select case request.querystring("type")
                      case "sfsz"
                         sql="select code,a.name,isnull(b.name,'') as hzname from fc_cell a left outer join zh_master b on a.code=b.cellcode where a.code in (select cellcode from cw_sf_user where itemcode=" & request.querystring("id") & ") order by a.code"
                      case "biao"
                         sql="select code,a.name,isnull(b.name,'') as hzname from fc_cell a left outer join zh_master b on a.code=b.cellcode where a.code in (select cellcode from cw_biao_user where biaocode=" & request.querystring("id") & ") order by a.code"
                      end select

                      dtcmd=new sqldataadapter(sql,cnn)
                      dtcmd.fill(dt)
                      if (dt.defaultview.count mod datagrid1.pagesize)>0 then
                         maxpage=dt.defaultview.count \datagrid1.pagesize+1
                      else
                         maxpage=dt.defaultview.count \datagrid1.pagesize
                      end if
                      do while datagrid1.currentpageindex>0
                         if maxpage<datagrid1.currentpageindex+1 then
                           datagrid1.currentpageindex=datagrid1.currentpageindex-1
                         else
                           exit do
                        end if
                      loop
                      datagrid1.datasource=dt
                      datagrid1.databind()
    End Sub

    Sub Del_Click(Sender As Object, E As EventArgs)
       dim sql as string
       cnn=new sqlconnection(configurationsettings.appsettings("connection"))
       cnn.open()
       select case request.querystring("type")
       case "sfsz"
         sql="delete from cw_sf_user where itemcode=" & request.querystring("id")
       case "biao"
         sql="delete from cw_biao_user where biaocode=" & request.querystring("id")
       end select
       cmd=new sqlcommand(sql,cnn)
       cmd.executeNonQuery
       cnn.close()
       bindgrid() 
    end sub

    Sub Grid1_Mod(Sender as object,E as DataGridCommandEventArgs)
        dim codestr as string=E.Item.Cells(0).Text
        dim sql as string
        if CType(e.CommandSource,LinkButton).CommandName="Delete" then 
           cnn=new sqlconnection(configurationsettings.appsettings("connection"))
           cnn.open()
           select case request.querystring("type")
           case "sfsz"
             sql="delete from cw_sf_user where itemcode=" & request.querystring("id") & " and cellcode='" & codestr & "'"
           case "biao"
             sql="delete from cw_biao_user where biaocode=" & request.querystring("id") & " and cellcode='" & codestr & "'" 
           end select                 
           cmd=new sqlcommand(sql,cnn)
           cmd.executeNonQuery
           cnn.close()
           bindgrid()
        end if
    End Sub

    Sub Grid1_PageIndexChanged(Sender As Object, E As DataGridPageChangedEventArgs)
        datagrid1.CurrentPageIndex = e.NewPageIndex
        BindGrid()
    End Sub
</script>
<html>
<head>
    <title><%=titlestr%></title>
    <link href="../Main.css" type="text/css" rel="stylesheet" />
    <base target="_self" />
    <script language="javascript">

    </script>
</head>
<body leftmargin="0" background="../images/1.jpg">
    <form runat="server">

        <br><p align="center"><font style="color:blue" face="隶书" size="6"><strong><%=titlestr%></strong></font><br>
        <font style="color:blue"><%=dispstr%></font><font style="color:red"><%=request.querystring("name")%></font>
        <hr>
        <table class="" id="search" cellspacing="1" cellpadding="0" width="75%" align="center" border="0">
           <tr>
             <td>

                       <asp:DataGrid id="DataGrid1" runat="server" width="100%" PageSize="10" AutoGenerateColumns="False" headerstyle-backcolor="#F8FAFC" font-size="8pt" font-name="verdana" cellpadding="2" bordercolor="Black" Font-Names="verdana" AllowPaging="True" AllowSorting="True" OnPageIndexChanged="Grid1_PageIndexChanged" OnItemCommand="Grid1_Mod">
                            <HeaderStyle font-bold="True" horizontalalign="Center" verticalalign="Middle" backcolor="#F8FAFC"></HeaderStyle>
                            <PagerStyle nextpagetext="下一页" font-names="宋体" font-bold="True" prevpagetext="上一页" horizontalalign="Right" forecolor="Blue" position="bottom" mode="NumericPages"></PagerStyle>
                            <EditItemStyle backcolor="#E9F0F8"></EditItemStyle>
                            <Columns>
                                <asp:BoundColumn visible="false" DataField="Code" HeaderText="单元编号">
                                </asp:BoundColumn>
                                <asp:BoundColumn DataField="Name" HeaderText="单元名称">
                                   <HeaderStyle width="100px"></HeaderStyle>
                                </asp:BoundColumn>
                                <asp:BoundColumn DataField="hzname" HeaderText="户  主">
                                   <HeaderStyle width="100px"></HeaderStyle>
                                </asp:BoundColumn>
                                <asp:ButtonColumn Text="删除" HeaderText="删除" CommandName="Delete">
                                   <HeaderStyle width="70px"></HeaderStyle>
                                </asp:ButtonColumn>
                            </Columns>
                        </asp:DataGrid>
           </td>
         </tr>
       </table></p>
       <p align=center><asp:button id="DelBtn" onclick="Del_Click" runat="server" text="删除所有关联"></asp:button></p>
    </form>
</body>
</html>