Foxtable(狐表)用户栏目专家坐堂 → 怎么实现在服务器端写个项目 然后在客户端 根据服务器端的某个条件满足后 在客户端实现主窗体的打开与关闭?


  共有2995人关注过本帖树形打印复制链接

主题:怎么实现在服务器端写个项目 然后在客户端 根据服务器端的某个条件满足后 在客户端实现主窗体的打开与关闭?

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
怎么实现在服务器端写个项目 然后在客户端 根据服务器端的某个条件满足后 在客户端实现主窗体的打开与关闭?  发帖心情 Post By:2022/3/22 23:04:00 [只看该作者]

怎么实现在服务器端写个项目  然后在客户端  根据服务器端的某个条件满足后  在客户端实现主窗体的打开与关闭?

 

 

服务器端创建会议议题   如果会议时间是当前系统时间  且会议正常开始时  客户端就弹出会议主窗体 

如果会议结束时  客户端就自动关闭会议主窗体

 

 

当前代码  先判断ip 然后再判断数据表  符合条件就打开窗体   还希望老师们指导下  其它更为合理的设计方案或思路   谢谢!

If Network.Ping("198.01.01.01") Then
    'Messagebox.Show("该服务器可用")
   
    Dim bb As DataRow =DataTables("会议状态").Find("会议时间 = '" & Date.today & "'and 会议状态=true")
    If bb IsNot  Nothing  Then
        'MessageBox.Show(1)
        Forms("主窗体").open
        If Forms("主窗体").opened Then
            Forms("主窗体").Controls("Label2").text= bb("会议主题")
            Forms("主窗体").Controls("TextBox3").text= bb("会议主题")
            MyTimers("计划1").Enabled = False
        End If
    Else
        'MessageBox.Show("当前无正在进行的会议!")
        'Forms("主窗体").Controls("TextBox2").text="当前无正在进行的会议!"
    End If
End If

[此贴子已经被作者于2022/3/23 1:30:50编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106430 积分:541297 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/23 8:28:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
求一个2020年商业版的安装包,感谢  发帖心情 Post By:2022/3/23 8:56:00 [只看该作者]

不用openqq

 

主要是想实现电脑在启动后  项目先去判断数据库端的ip  然后再判断会议状态表中的条件    都满足后  项目主窗体再运行

如果会议中断  或者关闭项目主窗体后  系统又持续运行  后台判断条件  当条件满足的时候   又启动项目主窗体


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106430 积分:541297 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/23 9:00:00 [只看该作者]

那就是计划管理里,定时查询数据库的数据判断

 回到顶部