| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]网上许可认证 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53364) |
|
| -- 作者：syzsyk -- 发布时间：2014/7/6 11:29:00 -- [求助]网上许可认证 甜老师，在互联网数据库建一个表，把注册码放在这个表上，当打开软件时，先与这个数据库连接，有相应的注册码时，软件继续运行，每半小时比对一次，信息不吻合时，关闭系统。这个怎么实现？ |
|
| -- 作者：有点甜 -- 发布时间：2014/7/6 11:33:00 -- 1、给项目添加一个数据源，连接到数据库；
2、项目启动的时候，查找是否有对应记录，没有，就把系统关闭；
3、做一个任务计划，定时30分组执行一次对比代码。
http://www.foxtable.com/help/topics/0657.htm
你先看看你哪一步不会，在详细提问 |
|
| -- 作者：syzsyk -- 发布时间：2014/7/7 16:57:00 -- 甜老师，第二步怎么做？ |
|
| -- 作者：Bin -- 发布时间：2014/7/7 17:03:00 -- 到数据源里查找是否有对应的记录 利用SQLCOMMAND |
|
| -- 作者：syzsyk -- 发布时间：2014/7/7 17:52:00 -- Bin老师，代码是这样吗？ Dim cmd As New SQLCommand Dim dt As String Dim RegCode As String =xxxxxxxxx cmd.CommandText = "Select RegCode FROM{注册情况登记},注册码" dt = cmd.ExecuteScalar() If dt IsNot Nothing Then Syscmd.Project.Open() else Syscmd.Project.Exit() end if [此贴子已经被作者于2014-7-7 17:52:51编辑过]
|
|
| -- 作者：Bin -- 发布时间：2014/7/7 17:58:00 -- Dim dt As datatable cmd.CommandText = "Select * FROM{注册情况登记} where 注册码=\'" & RegCode & "\'"dt = cmd.ExecuteScalar() if dt.datarows.count>0 then else end if
|
|
| -- 作者：syzsyk -- 发布时间：2014/7/7 18:09:00 -- Bin老师，这些代码放在打开项目前还是放在打开项目后？ |
|
| -- 作者：有点甜 -- 发布时间：2014/7/8 9:44:00 -- 以下是引用syzsyk在2014-7-7 18:09:00的发言：
Bin老师，这些代码放在打开项目前还是放在打开项目后？
第二步，代码写在AfterOpenProject事件。 |
|
| -- 作者：syzsyk -- 发布时间：2014/7/8 9:45:00 -- 下面代码哪有问题，是红色部分？打开项目后显示数据类型之类错误，另外，按照这个代码退出后，项目并没有真正退出，怎么做能做到真正退出？ Dim cmd As New SQLCommand
|
|
| -- 作者：有点甜 -- 发布时间：2014/7/8 9:51:00 -- 代码
Dim cmd As New SQLCommand |