[求助]网上许可认证 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]网上许可认证

共有3427人关注过本帖树形打印复制链接主题：[求助]网上许可认证

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/6 11:33:00 [显示全部帖子]

1、给项目添加一个数据源，连接到数据库；

2、项目启动的时候，查找是否有对应记录，没有，就把系统关闭；

3、做一个任务计划，定时30分组执行一次对比代码。

http://www.foxtable.com/help/topics/0657.htm

你先看看你哪一步不会，在详细提问

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 9:44:00 [显示全部帖子]

以下是引用syzsyk在2014-7-7 18:09:00的发言：
Bin老师，这些代码放在打开项目前还是放在打开项目后？

第二步，代码写在AfterOpenProject事件。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 9:51:00 [显示全部帖子]

代码

Dim cmd As New SQLCommand
Dim RegCode As String = xxxxxxxxx
cmd.CommandText = "Select count(*) FROM{注册情况登记} where 注册码='" & RegCode & "'"
If cmd.ExecuteScalar() > 0 Then
Syscmd.Project.Open()
Else
Syscmd.Project.Exit(True)
End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 11:09:00 [显示全部帖子]

以下是引用syzsyk在2014-7-8 11:08:00的发言：
甜老师，现在不报错误了，但打开的是打开文件的窗口，难道Syscmd.Project.Open()括号中要写明项目名称？

Dim cmd As New SQLCommand
Dim RegCode As String = xxxxxxxxx
cmd.CommandText = "Select count(*) FROM{注册情况登记} where 注册码='" & RegCode & "'"
If cmd.ExecuteScalar() = 0 Then
Syscmd.Project.Exit(True)
End If

下一主题 >> << 上一主题

主题：[求助]网上许可认证