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