bminfo.aspx

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

<%@ 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)
             If Not IsPostBack Then
         If Session("curruser") = "" Then
            Response.Redirect("../index.aspx")
         End If
               BindGrid()
             End If
         End Sub

         Sub Save_Click(Sender As Object, E As EventArgs)
             dim CodeStr as string=code.text
             dim NameStr as string=name.text
             dim lxrStr as string=fzr.text
             dim telstr1 as string=tel1.text
             dim telstr2 as string=tel2.text
             dim memostr as string=memo.text
             dim sql as string
             dim dataR as sqldatareader
             cnn=new sqlconnection(configurationsettings.appsettings("connection"))
             cnn.open()
             sql="select * from pub_dw where code='" & codestr & "' or name='" & trim(namestr) & "'"
             cmd=new sqlcommand(sql,cnn)
             datar=cmd.executereader()
             if datar.read() then
                 page.registerstartupscript("",getalertinfo("该部门编码或名称已经存在，无法保存！"))
             else
                 datar.close()
                 sql="insert into pub_dw(code,name,lxr,tel1,tel2,memo) values('" & codestr & "','" & namestr & "','" & lxrstr & "','" & telstr1 & "','" & telstr2 & "','" & memostr & "')"
                 cmd=new sqlcommand(sql,cnn)
                 cmd.executeNonQuery
                 cnn.close()
                 bindgrid()
             end if
             code.text=""
             name.text=""
             fzr.text=""
             tel1.text=""
             tel2.text=""
             memo.text=""
             page.registerstartupscript("",getalertinfo("数据保存成功！"))
         End Sub

              Sub BindGrid()
                 dim dataR as sqldatareader
                 dim dtcmd as sqldataadapter
                 dim dt as new datatable
                 dim MaxPage as integer  '计算最大页数
                 dim str2 as string
                 dim Str1 as string
                 cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                 str2="select count(*) as nums from pub_dw"
                 cmd=new sqlcommand(str2,cnn)
                 cnn.open()
                 datar=cmd.executereader()
                 if datar.read() then
                    if datar("nums").tostring()="0" then
                       msg.text=""
                    else
                       msg.text="合计：记录数 " & datar("nums").tostring()
                    end if
                 end if
                 datar.close()
                 str1="select * from pub_dw order by code"
                 dtcmd=new sqldataadapter(str1,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()
                 cnn.close()
              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()
                           sql="delete from pub_dw where code='" & codestr & "'"
                           cmd=new sqlcommand(sql,cnn)
                           cmd.executeNonQuery
                           cnn.close()
                           bindgrid()
                     end if
              End Sub

              Sub Grid1_Update(Sender as object,E as DataGridCommandEventArgs)
                  dim NameStr as String=CType(E.Item.Cells(1).Controls(0),TextBox).Text
                  dim lxrStr As string=CType(E.Item.Cells(2).Controls(0),TextBox).Text
                  dim tel1 as string=ctype(E.Item.Cells(3).Controls(0),TextBox).text
                  dim tel2 as string=ctype(E.Item.Cells(4).Controls(0),TextBox).text
                  dim memo as string=ctype(E.Item.Cells(5).Controls(0),TextBox).text
                  dim CodeStr as String=E.Item.Cells(0).Text
                  dim sql as string
                  cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                  cnn.open()
                  sql="update pub_dw set name='" & namestr & "',lxr='" & lxrstr & "',tel1='" & tel1 & "',tel2='" & tel2 & "',memo='" & memo & "' where code='" & codestr & "'"
                  cmd=new sqlcommand(sql,cnn)
                  cmd.executeNonQuery
                  cnn.close()
                  Requiredfieldvalidator1.Enabled=True
                  Requiredfieldvalidator2.Enabled=True
                  DataGrid1.EditItemIndex=-1
                  BindGrid()
              End Sub

              Sub Grid1_Cancel(Sender as object,E as DataGridCommandEventArgs)
                  Requiredfieldvalidator1.Enabled=True
                  Requiredfieldvalidator2.Enabled=True
                  datagrid1.EditItemIndex=-1
                  BindGrid()
              End Sub

              Sub Grid1_Edit(Sender as object,E as DataGridCommandEventArgs)
                  Requiredfieldvalidator1.Enabled=False
                  Requiredfieldvalidator2.Enabled=False
                  DataGrid1.EditItemIndex=E.Item.ItemIndex
                  BindGrid()
              End Sub

              Sub Grid1_PageIndexChanged(Sender As Object, E As DataGridPageChangedEventArgs)
                  datagrid1.CurrentPageIndex = e.NewPageIndex
                  BindGrid()
              End Sub

   Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      MultiView1.ActiveViewIndex = 0
   End Sub
   
   Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      MultiView1.ActiveViewIndex = 1
   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 TabStrip1_SelectedIndexChange(sender As Object, e As EventArgs)

    End Sub

</script>
<html>
<head>
    <title>部门信息</title>
    <link href="../Main.css" type="text/css" rel="stylesheet" />
</head>
<body leftmargin="5" topmargin="5" background="../images/1.jpg">
    <form runat="server">
       <asp:Image ID="Image2" runat="server" ImageUrl="../images/pic1.gif" />
       <asp:LinkButton ID="LinkButton1" Font-Bold="True" Font-Size="X-Small" runat="server" OnClick="LinkButton1_Click" CausesValidation="False">部门信息增加</asp:LinkButton>&nbsp;&nbsp;
       <asp:Image ID="Image1" runat="server" ImageUrl="../images/pic1.gif" />
       <asp:LinkButton ID="LinkButton2" runat="server" Font-Bold="True" Font-Size="X-Small" OnClick="LinkButton2_Click" CausesValidation="False">部门信息查询</asp:LinkButton>
       <hr />
       <asp:MultiView ID="MultiView1" runat="server" ActiveViewIndex="0">
         <asp:View ID="View1" runat="server">
                <br />
                <table id="search" cellspacing="1" cellpadding="0" width="80%" align="center" border="0">
                    <tbody>
                        <tr class="tr4">
                            <td height="40">
                                部门代码
                                <asp:TextBox class="input_text" id="code" runat="server" width="140"></asp:TextBox>
                            </td>
                            <td colspan="2">
                                部门名称
                                <asp:TextBox class="input_text" id="name" runat="server" width="370"></asp:TextBox>
                            </td>
                        </tr>
                        <tr class="tr4">
                            <td width="34%" height="40">
                                负&nbsp;责&nbsp;人
                                <asp:TextBox class="input_text" id="fzr" runat="server" width="140"></asp:TextBox>
                            </td>
                            <td width="33%">
                                联系电话1
                                <asp:TextBox class="input_text" id="tel1" runat="server" width="140"></asp:TextBox>
                            </td>
                            <td width="33%">
                                联系电话2
                                <asp:TextBox class="input_text" id="tel2" runat="server" width="140"></asp:TextBox>
                            </td>
                        </tr>
                        <tr class="tr4">
                            <td valign="top" colspan="3" height="120">
                                备注信息<br />
                                <asp:TextBox id="memo" runat="server" width="660" TextMode="MultiLine" Rows="4"></asp:TextBox>
                            </td>
                        </tr>
                        <tr class="tr4">
                            <td valign="botton" align="middle" colspan="3" height="50">
                                <asp:button class="input_button" id="SaveBtn" onclick="Save_Click" runat="server" text="保  存"></asp:button>
                                <br />
                                <br />
                                <asp:RequiredFieldValidator id="Requiredfieldvalidator1" runat="server" ErrorMessage="*" ControlToValidate="code">单位代码不可为空</asp:RequiredFieldValidator>
                                <br />
                                <asp:RequiredFieldValidator id="Requiredfieldvalidator2" runat="server" ErrorMessage="*" ControlToValidate="name">单位名称不可为空</asp:RequiredFieldValidator>
                            </td>
                        </tr>
                    </tbody>
                </table>
            </asp:View>
            <asp:View ID="View2" runat="server">
                <table class="" id="search" cellspacing="1" cellpadding="0" width="95%" align="center" border="0">
                    <tbody>
                        <tr class="tr2">
                            <td style="PADDING-LEFT: 5px" height="25">
                                <asp:Label id="Msg" runat="server" forecolor="red"></asp:Label></td>
                        </tr>
                        <tr>
                            <td style="PADDING-LEFT: 5px" height="25">
                                <asp:DataGrid id="DataGrid1" runat="server" width="100%" OnPageIndexChanged="Grid1_PageIndexChanged" AllowSorting="True" AllowPaging="True" Font-Names="verdana" bordercolor="Black" cellpadding="2" font-name="verdana" font-size="8pt" headerstyle-backcolor="#F8FAFC" OnEditCommand="Grid1_Edit" OnCancelCommand="Grid1_Cancel" OnupdateCommand="Grid1_Update" OnItemCommand="Grid1_Mod" AutoGenerateColumns="False" PageSize="10">
                                    <HeaderStyle font-bold="True" horizontalalign="Center" verticalalign="Middle" backcolor="#F8FAFC"></HeaderStyle>
                                    <PagerStyle nextpagetext="下一页" font-names="宋体" font-bold="True" prevpagetext="上一页" horizontalalign="Right" forecolor="Blue" mode="NumericPages"></PagerStyle>
                                    <EditItemStyle backcolor="#E9F0F8"></EditItemStyle>
                                    <Columns>
                                        <asp:BoundColumn DataField="Code" readonly="true" HeaderText="部门代码"></asp:BoundColumn>
                                        <asp:BoundColumn DataField="Name" HeaderText="部门名称"></asp:BoundColumn>
                                        <asp:BoundColumn DataField="lxr" HeaderText="联系人"></asp:BoundColumn>
                                        <asp:BoundColumn DataField="tel1" HeaderText="联系电话1"></asp:BoundColumn>
                                        <asp:BoundColumn DataField="tel2" HeaderText="联系电话2"></asp:BoundColumn>
                                        <asp:BoundColumn DataField="memo" HeaderText="备注"></asp:BoundColumn>
                                        <asp:EditCommandColumn ButtonType="LinkButton" UpdateText="更新" HeaderText="编辑" CancelText="取消" EditText="编辑"></asp:EditCommandColumn>
                                        <asp:ButtonColumn Text="删除" HeaderText="删除" CommandName="Delete"></asp:ButtonColumn>
                                    </Columns>
                                </asp:DataGrid>
                            </td>
                        </tr>
                    </tbody>
                </table>
            </asp:View>
        </asp:MultiView>
    </form>
</body>
</html>