http://localhost:50459/WebSite/YiJiaoHuo.aspx.vb

Partial Class YiJiaoHuo
    Inherits System.Web.UI.Page

    Private username As String = ""
    Private userpass As String = ""

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.Cookies("username") Is Nothing Or Request.Cookies("userpass") Is Nothing Then
            Response.Redirect("~/Default.aspx")
        End If

        username = Request.Cookies("username").Value
        userpass = Request.Cookies("userpass").Value

        Dao.sds.SelectCommand = "select count(*) from t_user where username = ? and userpass = ? and d = 1"
        Dao.sds.SelectParameters.Clear()
        Dao.sds.SelectParameters.Add(1, username)
        Dao.sds.SelectParameters.Add(2, userpass)

        If Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0) = 0 Then
            Response.Redirect("~/Default.aspx")
        End If

        If IsPostBack Then
            Return
        End If

        Me.bangding()
    End Sub

    Private Sub bangding()
        Dao.sds.SelectCommand = "select fenlei, bianma, goodsname, danwei, danjia, SUM(shuliang) as shuliang, jiaohuolistdate, username from t_jiaohuolist where username = ? and jiaohuolistdate = ? and shuliang != 0 group by fenlei, bianma, goodsname, danwei, danjia, jiaohuolistdate, username order by bianma asc"
        Dao.sds.SelectParameters.Clear()
        Dao.sds.SelectParameters.Add(1, username)
        Dao.sds.SelectParameters.Add(2, Date.Today)
        Me.GridView1.DataSource = Dao.sds
        Me.GridView1.DataBind()
    End Sub

    Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
        Dao.sds.SelectCommand = "select fenlei, bianma, goodsname, danwei, danjia, SUM(shuliang) as shuliang, jiaohuolistdate, username from t_jiaohuolist where username = ? and jiaohuolistdate = ? and shuliang != 0 group by fenlei, bianma, goodsname, danwei, danjia, jiaohuolistdate, username order by bianma asc"
        Dao.sds.SelectParameters.Clear()
        Dao.sds.SelectParameters.Add(1, username)
        Dao.sds.SelectParameters.Add(2, Me.Calendar1.SelectedDates(0))
        Me.GridView1.DataSource = Dao.sds
        Me.GridView1.DataBind()
    End Sub
End Class