Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Collections
Imports System.Configuration
Partial Class controls_calendars_calendarMonthView
Inherits System.Web.UI.UserControl
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadHolidays()
End Sub 'Page_Load
#Region "Web Form Designer generated code"
Protected Overrides Sub OnInit(ByVal e As EventArgs)
'
' CODEGEN: This call is required by the ASP.NET Web Form Designer.
'
InitializeComponent()
MyBase.OnInit(e)
End Sub 'OnInit
'/ <summary>
'/ Required method for Designer support - do not modify
'/ the contents of this method with the code editor.
'/ </summary>
Private Sub InitializeComponent()
End Sub 'InitializeComponent
#End Region
'Structure to hold holiday information
Private Class Holiday
Public Title As String
Public [Date] As Date
Public Category As String
End Class 'Holiday
Private m_htHolidays As Hashtable
Private Sub LoadHolidays()
m_htHolidays = New Hashtable()
'Dim db As New DemoDB()
'Define data objects
Dim conn As SqlConnection
Dim comm As SqlCommand
Dim reader As SqlDataReader
'Read the connection string from web.config
Dim connString As String = ConfigurationManager.ConnectionStrings("pediatrics").ConnectionString
'Initialize Connection
conn = New SqlConnection(connString)
'Create command queries to read data
comm = New SqlCommand("SELECT CALENDAR_DATE.CAL_DATE, CALENDAR_CATEGORY.CAL_CATEGORY, CALENDAR.CALENDAR_TITLE FROM CALENDAR_DATE INNER JOIN CALENDAR ON CALENDAR_DATE.CALENDAR_ID = CALENDAR.CALENDAR_ID INNER JOIN CALENDAR_CATEGORY ON CALENDAR.CAL_CATEGORY_ID = CALENDAR_CATEGORY.CAL_CATEGORY_ID", conn)
Try
'Open the Connection
conn.Open()
'Execute the command
reader = comm.ExecuteReader()
'Dim reader As SqlDataReader = db.ExecuteReader("select * from Holidays order by HolidayDate")
Try
While reader.Read()
Dim day As New Holiday()
day.Title = reader("CALENDAR_TITLE").ToString()
day.Date = CType(reader("CAL_DATE"), Date)
day.Category = reader("CAL_CATEGORY").ToString()
m_htHolidays(day.Date) = day
End While
Finally
CType(reader, IDisposable).Dispose()
End Try
Finally
'CType(db, IDisposable).Dispose()
'Close the connection
conn.Close()
End Try
End Sub 'LoadHolidays
Private Sub CalendarMonthView_DayRender(ByVal sender As Object, ByVal e As EO.Web.DayRenderEventArgs) Handles CalendarMonthView.DayRender
'Check if there is a matching holiday
Dim holiday As Holiday = CType(m_htHolidays(e.Day.Date), Holiday)
If holiday Is Nothing Then
e.Writer.Write(e.Day.DayNumberText)
Else
'Otherwise output the holiday information. We use
'a table here to arrange the layout
e.Writer.Write("<table border=""0"" cellSpacing=""0"" cellPadding=""0"">")
e.Writer.Write("<tr>")
'Write the day text
e.Writer.Write("<td align=""right"">")
e.Writer.Write(e.Day.DayNumberText)
e.Writer.Write("</td>")
e.Writer.Write("</tr><tr>")
'Write the holiday name
e.Writer.Write("<td colspan=""2"" align=""left""><div style=""width:70px;height:28px;overflow:hidden;line-height:14px;"">")
e.Writer.Write(holiday.Title)
e.Writer.Write("<br/>(")
e.Writer.Write(holiday.Category)
e.Writer.Write(")")
e.Writer.Write("</div></td>")
e.Writer.Write("</tr></table>")
End If
End Sub
End Class