主题：事件提醒器

做了一个事件提醒器,比较简陋,供新手学习之用,如要进入表界面,直接关闭窗口就可以了.如果按退出界面会直接退出.

打开后会出来一个界面,界面是将所有的事件历史全部显示出来,只要双击时间,会将此时间段的事件一一显示出来,如果要设置某一事件要求在几号的几分提醒你,请按主界面下面的按钮进行设置.只能准确的分!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:事件提醒器.table

我先尝尝鲜,谢谢zhu老师

呵呵，老兄这么快就共享了，顶你。

 

水平比较差,只能做一些简单的.新手学学也好.

         我想到一个问题,之前我们提到在局域网之内的通信联络工作,如果我将这个事件提醒器作为两个客户端,全部连接到外部的SQL服务器,那么我在这修改好提醒时间,那么到时间是不是所有的客户端会跳出这个提醒,如果加入用户名那么不是只要是这个用户名就可以跳出来了?

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) '去掉秒
Dim dr As DataRow
dr= DataTables("事件提醒器").Find("事件到时 = #" & a & "#" And "用户名 = '" & User.Name & "'" )
If dr IsNot Nothing Then
    Tables("事件提醒器").Filter = "事件到时 = #" & a & "#" And "用户名 = '" & User.Name & "'"
    forms("提醒事件查看窗口").open()
End If

 

 这句代码没有反应,是怎么回事?

比较的时候你去掉了秒，记得录入的时候，也不能有秒，否则就不等了。

狐爸,我输入时没有加入秒,现在这个代码有问题,我改了代码:

 

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) '去掉秒
Dim dr As DataRow
dr= DataTables("事件提醒器").Find("事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'")
If dr IsNot Nothing Then
    Tables("事件提醒器").Filter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
    forms("提醒事件查看窗口").open()
End If

 

但是这个代码有个问题,就是只要时间一到了,窗口就跳出来了,不管是不是用户名是不是登录名都会跳!怎么修改?

没有问题了,对的.我测试了一下我的思路还是有用的,但是另外一个客户端要加入一个同步表的功能.

同步整个表的话，效率比较低，可以只同步到期的行。