主题：事件提醒器

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

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

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

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

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

         我想到一个问题,之前我们提到在局域网之内的通信联络工作,如果我将这个事件提醒器作为两个客户端,全部连接到外部的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

 

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

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

代码呢?同步到期的行,帮助里没有同步行

哦,我明日研究一下.我在想我只要在计划里做好同步行以及提醒功能,那么我在我的客户端输入时间以及提醒功能,那么另外一个客户端就可以到时就能提醒.同样我的计划时间设置短一点的话,不就可以像QQ一样了吗?反应有这么快吗?

那么我的原理做一个远程的提醒功能还是可以的。

 

DataTables("订单").DataRows(1).Load()

能不能加条件？比如我同步最新的按照时间和用户名来同步行？