kctest.aspx

本系统主要内容是围绕图书销售管理系统而展开讨论的

<%@ 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 Str1 as string
        If Not IsPostBack Then
            cnn=new sqlconnection(configurationsettings.appsettings("connection"))
            cnn.open()
            str1="exec testkucunz"
            cmd=new sqlcommand(str1,cnn)
            cmd.executeNonQuery
            cnn.close()
            BindGrid()
        End If
    End Sub
    
    Sub Query_Click(sender As Object, e As EventArgs)
        Bindgrid()
    End Sub
    
    
    Sub update_Click(sender As Object, e As EventArgs)
        dim Str1 as string
        cnn=new sqlconnection(configurationsettings.appsettings("connection"))
        cnn.open()
        str1="update bookstoresheetz set storeamountz=storeamounttest where storeamountz<>storeamounttest"
        cmd=new sqlcommand(str1,cnn)
        cmd.executeNonQuery
        cnn.close()
        bindgrid()
        Page.RegisterStartupScript("",getalertinfo("数据更新成功！"))
    End Sub
    
    
    Sub test_Click(sender As Object, e As EventArgs)
        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"))
        str1="select count(*) as nums from bookstoresheetz where storeamountz<>storeamounttest"
        cmd=new sqlcommand(str1,cnn)
        cnn.open()
        datar=cmd.executereader()
        if datar.read() then
            if datar("nums").tostring()="0" then
                Page.RegisterStartupScript("",getalertinfo("总店库存无差错！"))
            else
                str1="总店库存中，有" & datar("nums").tostring() & "种图书库存不正确！"
                Page.RegisterStartupScript("",getalertinfo(str1))
            end if
        else
            Page.RegisterStartupScript("",getalertinfo("总店库存无差错！"))
        end if
        datar.close()
    
        str2="select count(*) as nums,sum(storeamountz) as sumstore,sum(storeamountz*price) as summy,sum(storeamounttest) as sumstore1,sum(storeamounttest*price) as summy1 from bookinfosheet a,bookstoresheetz b,pressinfosheet c where a.code=b.bookcode and a.presscode=c.code and storeamountz<>storeamounttest"
        cmd=new sqlcommand(str2,cnn)
        datar=cmd.executereader()
        if datar.read() then
            if datar("nums").tostring()="0" then
                msg.text=""
            else
                msg.text="合计：记录数 " & datar("nums").tostring() & "  现有库存  " & datar("sumstore").tostring & " 现有码洋 " & datar("summy").tostring & " 应有库存  " & datar("sumstore1").tostring & " 应有码洋  " & datar("summy1").tostring
            end if
        end if
        datar.close()
    
        str1="select bookcode,a.name as bookname,c.abbrname,author,price,storeamountz,storeamounttest,sumin,sumreturnfrom,suminnerin,sumout,sumreturnto,suminnerout,sumsend,sumdepre from bookinfosheet a,bookstoresheetz b,pressinfosheet c where a.code=b.bookcode and a.presscode=c.code and storeamountz<>storeamounttest order by bookcode"
        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 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"))
        if query_content.text<>"" then
            str1=" and " & query_tj.SelectedItem.value & " like '%" & query_content.text & "%'"
        end if
        str2="select count(*) as nums,sum(storeamountz) as sumstore,sum(storeamountz*price) as summy,sum(storeamounttest) as sumstore1,sum(storeamounttest*price) as summy1 from bookinfosheet a,bookstoresheetz b,pressinfosheet c where a.code=b.bookcode and a.presscode=c.code " & str1
        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() & "  现有库存  " & datar("sumstore").tostring & " 现有码洋 " & datar("summy").tostring & " 应有库存  " & datar("sumstore1").tostring & " 应有码洋  " & datar("summy1").tostring
            end if
        end if
        datar.close()
        str1="select bookcode,a.name as bookname,c.abbrname,author,price,storeamountz,storeamounttest,sumin,sumreturnfrom,suminnerin,sumout,sumreturnto,suminnerout,sumsend,sumdepre from bookinfosheet a,bookstoresheetz b,pressinfosheet c where a.code=b.bookcode and a.presscode=c.code " & str1 & "  order by bookcode"
        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_PageIndexChanged(Sender As Object, E As DataGridPageChangedEventArgs)
        datagrid1.CurrentPageIndex = e.NewPageIndex
        BindGrid()
    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

</script>
<html>
<head>
    <title>收订查询</title>
    <link href="../Main.css" type="text/css" rel="stylesheet" />
</head>
<body>
    <form runat="server">
        <b>库存检测(总店)</b>&nbsp; 
        <hr size="1" />
        <table id="search" cellspacing="1" cellpadding="0" width="100%" align="center" border="0">
            <tbody>
                <tr class="tr2">
                    <td style="PADDING-LEFT: 5px" height="25">
                        检索条件： 
                        <asp:DropDownList class="input_text" id="query_tj" runat="server" width="97">
                            <asp:ListItem Value="bookcode" Selected="True">图书编码</asp:ListItem>
                            <asp:ListItem Value="a.name">图书名称</asp:ListItem>
                            <asp:ListItem Value="abbrname">版别</asp:ListItem>
                            <asp:ListItem Value="author">作者</asp:ListItem>
                        </asp:DropDownList>
                        &nbsp;&nbsp;检索内容： 
                        <asp:TextBox class="input_text" id="query_content" runat="server" width="120"></asp:TextBox>
                        &nbsp;&nbsp; 
                        <asp:button class="input_button" id="QueryBtn" onclick="Query_Click" runat="server" CausesValidation="False" text="查  询"></asp:button>
                        &nbsp;&nbsp; 
                        <asp:button class="input_button" id="TestBtn" onclick="Test_Click" runat="server" CausesValidation="False" text="检测库存"></asp:button>
                        &nbsp;&nbsp; 
                        <asp:button class="input_button" id="updateBtn" onclick="Update_Click" runat="server" CausesValidation="False" text="更新库存"></asp:button>
                        <br />
                        <b><asp:Label id="Msg" runat="server" forecolor="red"></asp:Label></b></td>
                </tr>
                <tr>
                    <td style="PADDING-LEFT: 5px" height="25">
                        <asp:DataGrid id="DataGrid1" runat="server" width="100%" PageSize="12" 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">
                            <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>
                            <Columns>
                                <asp:BoundColumn Visible="False" DataField="bookcode" ReadOnly="True" HeaderText="图书编码"></asp:BoundColumn>
                                <asp:BoundColumn DataField="bookname" ReadOnly="True" HeaderText="图书名称"></asp:BoundColumn>
                                <asp:BoundColumn DataField="abbrname" ReadOnly="True" HeaderText="版别"></asp:BoundColumn>
                                <asp:BoundColumn DataField="author" ReadOnly="True" HeaderText="作者"></asp:BoundColumn>
                                <asp:BoundColumn DataField="price" HeaderText="定价" DataFormatString="{0:C}"></asp:BoundColumn>
                                <asp:BoundColumn DataField="storeamountz" HeaderText="现有库存"></asp:BoundColumn>
                                <asp:BoundColumn DataField="storeamounttest" HeaderText="应有库存"></asp:BoundColumn>
                                <asp:BoundColumn DataField="sumin" HeaderText="入库"></asp:BoundColumn>
                                <asp:BoundColumn DataField="sumreturnfrom" HeaderText="收退"></asp:BoundColumn>
                                <asp:BoundColumn DataField="suminnerin" HeaderText="转入"></asp:BoundColumn>
                                <asp:BoundColumn DataField="sumout" HeaderText="出库"></asp:BoundColumn>
                                <asp:BoundColumn DataField="sumreturnto" HeaderText="报退"></asp:BoundColumn>
                                <asp:BoundColumn DataField="suminnerout" HeaderText="转出"></asp:BoundColumn>
                                <asp:BoundColumn DataField="sumsend" HeaderText="赠送"></asp:BoundColumn>
                                <asp:BoundColumn DataField="sumdepre" HeaderText="折损"></asp:BoundColumn>
                            </Columns>
                        </asp:DataGrid>
                    </td>
                </tr>
            </tbody>
        </table>
    </form>
</body>
</html>