跪求微软日历控件使用问题~！怎么在日历上显示记录在数据库中的字段？？

2003-11-22 11:54:40 355 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

组态王日历控件查询历史报警的完整实现与排查指南在工业自动化监控系统中，历史报警数据的查询与追溯是值班人员日常运维的重要环节。组态软件作为上位机人机交互的核心工具，其画面组态能力直接影响现场操作效率。ActiveX控件作为一种可复用的软件组件，为组态王等工控软件提供了丰富的交互扩展，例如日历控件能够规范时间输入，避免手动键入格式错误。历史报警数据通常存储在数据库文件中，查询时需将控件选择的日期拼接为标准时间字符串，再通过组态王内置的报警查询控件或SQL方式获取结果。这类功能广泛应用于水处理、电力监控等项目，支持按日、按周或跨月统计报警记录，并可进一步扩展阅读详情

我要在日历中显示记录在数据库中的标题记录，主要是日志管理中的功能，我要每天下便能显示每日的工作日程标题！
测试地址：http://218.77.31.234/office/working
测试帐号：zcw
密码全是 123456
跟这个下边的日志管理的日历输入方法一样~！~！

...全文

Copilot App Builder：用自然语言在Microsoft 365中生成低代码应用低代码应用生成是企业数字化提效的关键路径，其核心在于降低业务人员参与自动化建设的门槛。传统方案依赖界面拖拽与逻辑配置，学习成本高、上下文割裂；而基于自然语言驱动的应用生成技术，通过理解用户在Teams、SharePoint、Outlook等协作场景中的实时语义意图，自动编排Power Apps、Power Automate与微软365原生服务，实现数据源复用、权限继承与零代码闭环。该技术显著压缩‘需求提出→功能上线’周期，适用于审批流、状态管理、通知分发等轻量级工作流自动化场景，本质是将低代码能力深度嵌入办阅读详情

zxggwan

.NET社区 62,272 成员 668,968 内容

+ 关注 + 加入社区

切换为时间正序

raike 2003-11-26

打赏
举报

注册个新浪会员，进入Calendar，反正也是免费的

feng771214 2003-11-26

打赏
举报

谁把密码改了！

raike 2003-11-26

打赏
举报

http://calendar.sina.com.cn
先看看你的需求和新浪日历是否相似，我做的和它的差不多，在日历页面中可可以显示标志
我说的是功能，具体怎么做可以帮你。。。你先看看吧

raike 2003-11-26

打赏
举报

怎么没有？
这个是什么？

//如果每月的日期等于18日，就在日期单元格中添加 Holiday
if (e.Day.Date.Day == 18)
e.Cell.Controls.Add(new LiteralControl("<br>Holiday"));
}

这样就可以变通一下了，不用我讲得更详细了吧
你从数据库中读你的数据表，包括日期，内容

for (int i =0 ; i<DataTable.Rows.Count; i++)
{
DateTime m_date = DateTime（DataTable.Rows[i][日期]）；
//当e.Day.Date.Day ＝＝ “你的日期”
if(e.Day.Date == m_date)
{
e.Cell.Controls.Add (new LiteralControl("你要添加的内容"));
}
}

zxggwan 2003-11-26

打赏
举报

你的例子实现了单元格变色，没有把数据写到单元格中

zxggwan 2003-11-26

打赏
举报

选择日期查询数据库我已经实现了！~就是怎么把数据库中相应的字段值写到日历单元格中~！

raike 2003-11-26

打赏
举报

Calendar控件中，在日历显示出添加的内容
主要用Calendar的事件：Calendar1_DayRender
当Calendar加载的时候会逐个日期（日期单元格）进行加载

给你个简单的例子
private void Calendar1_DayRender(object sender, System.Web.UI.WebControls.DayRenderEventArgs e)
{
// Change the background color of the days in the month to yellow.
if (!e.Day.IsOtherMonth && !e.Day.IsWeekend)
e.Cell.BackColor=System.Drawing.Color.Yellow;

// Add custom text to cell in the Calendar control.

if (e.Day.Date.Day == 18)
e.Cell.Controls.Add(new LiteralControl("<br>Holiday"));
}

点击其中一个单元格，就会触发 Calendar1_SelectionChanged
private void Calendar1_SelectionChanged(object sender, System.EventArgs e)
{
//Calendar选择的日期
DateTime dateCalendar ;
dateCalendar = this.Calendar1.SelectedDate;
//根据选择日期，进行查询数据库处理
。。。。。。。。。。。
//执行相应操作
添加，修改，删除日期单元格的内容
}

kensli 2003-11-26

打赏
举报

我也很想知道
我也急需这个动东

zxggwan 2003-11-26

打赏
举报

给我先说说原理把

zxggwan 2003-11-25

打赏
举报

conbell 2003-11-24

打赏
举报

Sorry,上面的代码有点错误,更改如下:

Private Sub calDate_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles calDate.DayRender
Dim i As Integer
Dim p_stuHoliday As DateColorData()
Dim kk As New System.Web.UI.WebControls.Label

Try
p_stuHoliday = CType(Page.Session("RmPrintInfo")
If (e.Day.Date.DayOfWeek = DayOfWeek.Saturday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Blue
ElseIf (e.Day.Date.DayOfWeek = DayOfWeek.Sunday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Red
End If
If Not IsNothing(p_stuHoliday) Then
For i = 0 To p_stuHoliday.Length - 1
If Not e.Day.IsOtherMonth Then
If e.Day.Date.Date = p_stuHoliday(i).holiday_date Then
e.Cell.ForeColor = System.Drawing.Color.FromArgb(p_stuHoliday(i).color_red, p_stuHoliday(i).color_green, p_stuHoliday(i).color_blue)
kk.Text = "<br>外出"
e.Cell.Controls.Add(kk)
End If
End If
Next
End If
Catch ex As Exception
Throw ex
Finally
End Try
End Sub

conbell 2003-11-24

打赏
举报

Private Sub calDate_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles calDate.DayRender
Dim i As Integer
Dim p_stuHoliday As DateColorData()

Try
p_stuHoliday = CType(Page.Session("RmPrintInfo")
If (e.Day.Date.DayOfWeek = DayOfWeek.Saturday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Blue
ElseIf (e.Day.Date.DayOfWeek = DayOfWeek.Sunday) And (Not e.Day.IsOtherMonth) Then
e.Cell.ForeColor = System.Drawing.Color.Red
End If
If Not IsNothing(p_stuHoliday) Then
For i = 0 To p_stuHoliday.Length - 1
If Not e.Day.IsOtherMonth Then
If e.Day.Date.Date = p_stuHoliday(i).holiday_date Then
e.Cell.ForeColor = System.Drawing.Color.FromArgb(p_stuHoliday(i).color_red, p_stuHoliday(i).color_green, p_stuHoliday(i).color_blue)
e.Cell.Text="XXXXXXXXXXXXXXXXX"
End If
End If
Next
End If
Catch ex As Exception
Throw ex
Finally
End Try
End Sub

zxggwan 2003-11-24

打赏
举报

楼上老大~！~！能给我代码看看么？？？你要多少分说就行了~！~！

raike 2003-11-24

打赏
举报

这个很容易实现,我做的比它的好
看过sina 和yahoo的日历管理嘛?
我做的根他们的差不多

zxggwan 2003-11-24

打赏
举报

再来

zxggwan 2003-11-24

打赏
举报

up一下

lanyahuhu 2003-11-24

打赏
举报

mark

zxggwan 2003-11-24

打赏
举报

怎么实现的呢？？

76wzc 2003-11-24

打赏
举报

不错阿！相比下，我的日程安排便缺少人性化了！！

lang11zi 2003-11-24

打赏
举报

做的不错。up一把

加载更多回复（13）

跪求微软日历控件使用问题~！怎么在日历上显示记录在数据库中的字段？？

相关推荐