怎么实现在服务器端写个项目 然后在客户端 根据服务器端的某个条件满足后 在客户端实现主窗体的打开与关闭?
服务器端创建会议议题 如果会议时间是当前系统时间 且会议正常开始时 客户端就弹出会议主窗体
如果会议结束时 客户端就自动关闭会议主窗体
当前代码 先判断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编辑过]