建立基于 ASP.NET 的事件日历

 点击这里下载   

相关链接:

1.MSDN: 建立基于 Web 的事件日历 (asp)

2.CodeProject: Elevenths (asp)

以上是完整的建立基于 Web 的事件日历的方法,基于asp,包含对Event的编辑,添加,删除操作.

3. SQL CALENDAR (SQL Server) 输入年分,得到12个月份的表

4. Calander in SQLSERVER 2000 (SQL Server) 利用Sql server的函数构建一个日历

 

介绍:

本示例介绍了利用Sql server和Asp.net构建的一个事件日历,利用Calander in SQLSERVER 2000 的函数.
1. 在数据库中写入calendar函数(这里是在Northwind数据库中),Calander_Year_Month.sql

2.    首先绑定Calendar(这个Calendar上的时间和Northwind数据库的orders表的ShippedDate关联)到我们的datagrid上

Private Sub GrdBind()Sub GrdBind(ByVal Month As Integer, ByVal Year As Integer)
        Dim sql As String = "SELECT * FROM calendar(" & Month.ToString & "," & Year.ToString & ")"
        Dim da As New SqlDataAdapter(sql, txtConn.Text)
        Dim dt As New DataTable
        da.Fill(dt)
        GrdCalendar.DataSource = dt
        Grdcalendar.DataBind()
        da.Dispose()
        dt.Dispose()
    End Sub

 3.    利用datagrid的ItemDataBound事件绑定你所需要的事件信息.(这个例子是绑定的Northwind数据库的orders表的shipname)

 

 Private Sub Grdcalendar_ItemDataBound()Sub Grdcalendar_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles Grdcalendar.ItemDataBound
        ' Dim rp As Repeater
        Dim dl As DataList
        Dim sDay As String
        Dim lblDay As Label
        Dim lblTest As Label
        Dim i As Integer
        For i = 1 To 5
            lblDay = CType(e.Item.FindControl("lblDay" & i.ToString), Label)
            If Not lblDay Is Nothing Then
                If lblDay.Text.Trim.Length = 0 Then
                    Exit Sub
                End If

                sDay = lblDay.Text
                sDay = CDate(txtYear.Text & "-" & selectMonth.SelectedValue & "-" & sDay).ToShortDateString
                Dim Sql As String = "select ShipName from Orders WHere ShippedDate= '" & sDay & "'"

                Dim da As New SqlDataAdapter(Sql, txtConn.Text)
                Dim dt As New DataTable
                da.Fill(dt)

                Dim dr As DataRow
                Dim tstr As String
                tstr = ""
                For Each dr In dt.Rows
                    tstr += dr.Item(0).ToString & "<BR>"
                Next

                lblTest = CType(e.Item.FindControl("ShipName" & i.ToString), Label)
                lblTest.Text = tstr
                da.Dispose()
                dt.Dispose()
            End If
        Next

    End Sub

具体操作看示例吧! 点击这里下载