日历控件重写

最新推荐文章于 2024-10-08 15:41:48 发布

huanghui22

最新推荐文章于 2024-10-08 15:41:48 发布

阅读量1.4k

点赞数

文章标签：日历 session integer calendar string 数据库

Imports CyberRS2.APS.BusinessFacade

Imports CyberRS2.APS.Model

Imports CyberRS2.APS.SysCommon

Imports cyberrs2.APS.BusinessFacade.HolidayFacade

Public Class ManageHolidaySet

Inherits System.Web.UI.Page

Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar

Protected WithEvents TD1 As System.Web.UI.HtmlControls.HtmlTableCell

Protected WithEvents TD2 As System.Web.UI.HtmlControls.HtmlTableCell

Protected WithEvents TD3 As System.Web.UI.HtmlControls.HtmlTableCell

Protected WithEvents TD4 As System.Web.UI.HtmlControls.HtmlTableCell

Protected WithEvents ddlYear As System.Web.UI.WebControls.DropDownList

Protected WithEvents ddlMonth As System.Web.UI.WebControls.DropDownList

Protected WithEvents btn_sure1 As System.Web.UI.WebControls.ImageButton

Protected WithEvents btn_dfhdset1 As System.Web.UI.WebControls.ImageButton

Protected WithEvents btn_restore1 As System.Web.UI.WebControls.ImageButton

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: 此方法调用是 Web 窗体设计器所必需的

'不要使用代码编辑器修改它。

InitializeComponent()

End Sub

#End Region

Private holiday As String = ""

Dim defarray() As String

Private dt As New DataTable()

Dim flag As Integer

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'在此处放置初始化页的用户代码

Dim intyear As Integer

Dim intmonth As Integer

If Not Me.IsPostBack Then

btn_sure1.Attributes.Add("onmouseover", "this.src='../images/btn_sure2.gif';")

btn_sure1.Attributes.Add("onmouseout", "this.src='../images/btn_sure1.gif';")

btn_dfhdset1.Attributes.Add("onmouseover", "this.src='../images/btn_dfhdset2.gif';")

btn_dfhdset1.Attributes.Add("onmouseout", "this.src='../images/btn_dfhdset1.gif';")

btn_restore1.Attributes.Add("onmouseover", "this.src='../images/btn_restore2.gif';")

btn_restore1.Attributes.Add("onmouseout", "this.src='../images/btn_restore1.gif';")

intyear = Now.Year()

intmonth = Now.Month()

''''''''''''''''''''''''''''''''''''''

Me.ddlYear.SelectedIndex = Me.ddlYear.Items.IndexOf(Me.ddlYear.Items.FindByValue(intyear.ToString))

Me.ddlMonth.SelectedIndex = Me.ddlMonth.Items.IndexOf(Me.ddlMonth.Items.FindByValue(intmonth.ToString))

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Declare DataColumn and DataRow variables.

Dim myDataColumn As DataColumn

Dim myDataRow As DataRow

' Create new DataColumn, set DataType, ColumnName and add to DataTable.

myDataColumn = New DataColumn()

myDataColumn.DataType = System.Type.GetType("System.String")

myDataColumn.ColumnName = "Year"

dt.Columns.Add(myDataColumn)

' Create second column.

myDataColumn = New DataColumn()

myDataColumn.DataType = Type.GetType("System.String")

myDataColumn.ColumnName = "Month"

dt.Columns.Add(myDataColumn)

' Create three column.

myDataColumn = New DataColumn()

myDataColumn.DataType = Type.GetType("System.String")

myDataColumn.ColumnName = "Day"

dt.Columns.Add(myDataColumn)

' Create four column.

myDataColumn = New DataColumn()

myDataColumn.DataType = Type.GetType("System.String")

myDataColumn.ColumnName = "flag"

dt.Columns.Add(myDataColumn)

'定义一个Session

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim selstr As String

selstr = "select * from sys_holiday"

dt = HolidayFacade.GetMonthHoliday(selstr)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Session("SelectDays") = dt

End If

Me.Calendar1.SelectedDate = Nothing

End Sub

Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender

dt = CType(Session("SelectDays"), DataTable)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'只有当点击了日历上的日期时才实现

If Not Me.Calendar1.SelectedDate = Nothing Then

Dim newrow As DataRow = dt.NewRow

Dim eachrow As DataRow

'查询session，该日期是否已经存在于session中，如果在则删除该条记录;不在则添加该条记录

For Each eachrow In dt.Rows

'有这条记录就删除它

If eachrow.Item(0) = Me.Calendar1.SelectedDate.Year And eachrow.Item(1) = Me.Calendar1.SelectedDate.Month And eachrow.Item(2) = Me.Calendar1.SelectedDate.Day Then

dt.Rows.Remove(eachrow)

Session("SelectDays") = dt

flag = 0

Exit Sub

End If

'没有这条记录就添加它

newrow.Item(0) = Me.Calendar1.SelectedDate.Year

newrow.Item(1) = Me.Calendar1.SelectedDate.Month

newrow.Item(2) = Me.Calendar1.SelectedDate.Day

newrow.Item(3) = "1"

dt.Rows.Add(newrow)

Session("SelectDays") = dt

flag = 0

End If

'没有点击了日历上的日期,实现下列代码

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'1.1 页面导入时实现,当这个月没有设置过假日时使用默认设置，session为空；否则使用数据库中的记录,session中为数据库中的记录

'2.1 当dropdownlist改变时,也需要实现，当新选择的月没有设置过假日时使用默认设置，session不变；否则使用数据库中的记录,把数据库中的记录添加如session中

'得到当前显示月的假日设置

If Me.Calendar1.SelectedDate = Nothing Then

Dim selstr As String

Dim foundRows As DataRow()

selstr = "year='" & Me.ddlYear.SelectedItem.Value & "'and month='" & Me.ddlMonth.SelectedItem.Value & "'"

foundRows = dt.Select(selstr)

'如果数据库中没有假日设定的纪录 ---- 得到默认的假日设定例如:5,6

If foundRows.Length = 0 Then

HolidayFacade.GetDefHolidy(holiday)

'将字符串生成数组

defarray = Split(holiday, ",")

flag = 1

End If

End Sub

Private Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender

'如果不是这个月里的日期的天，则禁用该日期的Enabled,IsSelectable

If Me.Calendar1.VisibleDate <> Nothing Then

If e.Day.Date.Month <> Me.Calendar1.VisibleDate.Month Then

e.Day.IsSelectable = False

e.Cell.Enabled = False

Exit Sub

End If

Else

If e.Day.Date.Month <> Me.Calendar1.TodaysDate.Month Then

e.Day.IsSelectable = False

e.Cell.Enabled = False

Exit Sub

End If

'使被选中的日期变成红色的字体

dt = CType(Session("SelectDays"), DataTable)

'如果数据库中没有假日设定的纪录,得到默认的假日设定

If flag = 1 Then

Dim str As String

For Each str In Me.defarray

If e.Day.Date.DayOfWeek = Integer.Parse(str) Then

e.Cell.ForeColor = System.Drawing.Color.Red

'''先将默认假日设定的日期放入session变量中

Dim newrow As DataRow = dt.NewRow

newrow.Item(0) = e.Day.Date.Year

newrow.Item(1) = e.Day.Date.Month

newrow.Item(2) = e.Day.Date.Day

newrow.Item(3) = "1"

dt.Rows.Add(newrow)

End If

Session("SelectDays") = dt

'如果数据库中有假日设定的纪录,读session中的值

Else

Dim i As Integer

dt = CType(Session("SelectDays"), DataTable)

For i = 0 To dt.Rows.Count - 1

If e.Day.Date.Year = dt.Rows.Item(i).Item(0) And e.Day.Date.Month = dt.Rows.Item(i).Item(1) And e.Day.Date.Day = dt.Rows.Item(i).Item(2) Then

e.Cell.ForeColor = System.Drawing.Color.Red

End If

End Sub

Private Sub btn_sure1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_sure1.Click

dt = CType(Session("SelectDays"), DataTable)

Dim content As String

Dim myMsgCode As New CyberRS2.APS.BusinessFacade.MsgCodeFacade()

If Integer.Parse(HolidayFacade.ModifyHoliday(dt)) = 1 Then

content = myMsgCode.GetMsg("MUF11001", WebUIConfig.CurrentLanguage)

Page.RegisterStartupScript("", "<script language='javascript'>alert('" & content & "')</script>")

Return

Else

content = myMsgCode.GetMsg("MUF11002", WebUIConfig.CurrentLanguage)

Page.RegisterStartupScript("", "<script language='javascript'>alert('" & content & "')</script>")

Return

End If

End Sub

Private Sub ddlYear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlYear.SelectedIndexChanged

Me.Calendar1.VisibleDate = New DateTime(Integer.Parse(Me.ddlYear.SelectedItem.Value), Integer.Parse(Me.ddlMonth.SelectedItem.Value), 1)

End Sub

Private Sub ddlMonth_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlMonth.SelectedIndexChanged

Me.Calendar1.VisibleDate = New DateTime(Integer.Parse(Me.ddlYear.SelectedItem.Value), Integer.Parse(Me.ddlMonth.SelectedItem.Value), 1)

End Sub

Private Sub btn_restore1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_restore1.Click

Dim year As String = Me.ddlYear.SelectedItem.Value

Dim month As String = Me.ddlMonth.SelectedItem.Value

If HolidayFacade.RestoreDefHoliday(year, month) = 1 Then

dt = CType(Session("SelectDays"), DataTable)

Dim i As Integer

'删除session中的该月记录

'查询session，查询属于该月的记录是否已经存在于session中，如果在则删除该条记录

i = dt.Rows.Count

While i <> 0

If dt.Rows.Item(i - 1).Item(0) = year And dt.Rows.Item(i - 1)(1) = month Then

dt.Rows.Remove(dt.Rows.Item(i - 1))

End If

i = i - 1

End While

Session("SelectDays") = dt

End If

End Sub

Private Sub btn_dfhdset1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_dfhdset1.Click

Me.RegisterStartupScript("Open1", "<script language='javascript'>window.open('../SysAdmin/DefHolidaySet.aspx?','','height=300,width=600,top=200,left=250,toolbar=no,menubar=no,resizable=no,location=no,status=no');</script>")

'Response.Redirect("../SysAdmin/DefHolidaySet.aspx")

End Sub

Private Sub Calendar1_VisibleMonthChanged(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MonthChangedEventArgs) Handles Calendar1.VisibleMonthChanged

If e.NewDate.Month <> e.PreviousDate.Month Then

Me.ddlYear.SelectedIndex = Me.ddlYear.Items.IndexOf(Me.ddlYear.Items.FindByValue(Me.Calendar1.VisibleDate.Year.ToString))

Me.ddlMonth.SelectedIndex = Me.ddlMonth.Items.IndexOf(Me.ddlMonth.Items.FindByValue(Me.Calendar1.VisibleDate.Month.ToString))

End If

End Sub

End Class