Partial Class YiJiaoHuo
Inherits System.Web.UI.Page
Private sds As SqlDataSource = New SqlDataSource()
Private username As String = ""
Private userpass As String = ""
Public Sub New()
Me.sds.ProviderName = "System.Data.Odbc"
Me.sds.ConnectionString = "Dsn=mydata"
End Sub
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
Me.sds.SelectCommand = "select count(*) from t_user where username = ? and userpass = ? and d = 1"
Me.sds.SelectParameters.Clear()
Me.sds.SelectParameters.Add(1, username)
Me.sds.SelectParameters.Add(2, userpass)
Dim dv As System.Data.DataView = Me.sds.Select(DataSourceSelectArguments.Empty)
If dv(0)(0) = 0 Then
Response.Redirect("~/Default.aspx")
End If
If IsPostBack Then
Return
End If
Me.bangding()
End Sub
Private Sub bangding()
Me.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"
Me.sds.SelectParameters.Clear()
Me.sds.SelectParameters.Add(1, username)
Me.sds.SelectParameters.Add(2, Date.Today)
Me.GridView1.DataSource = Me.sds
Me.GridView1.DataBind()
End Sub
Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
Me.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"
Me.sds.SelectParameters.Clear()
Me.sds.SelectParameters.Add(1, username)
Me.sds.SelectParameters.Add(2, Me.Calendar1.SelectedDates(0))
Me.GridView1.DataSource = Me.sds
Me.GridView1.DataBind()
End Sub
End Class
http://localhost:49330/WebSite/YiJiaoHuo.aspx.vb
最新推荐文章于 2022-08-23 18:43:46 发布