Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:系统注册

1楼
youyuweinihao 发表于:2011/9/15 14:31:00

系统注册的案例中是以次数为标准的

我想以时间为标准代码是怎么写

例如试用期为10天

2楼
狐狸爸爸 发表于:2011/9/15 14:57:00

一样,首次启动记录一下日期,以后每次启动比较这个日期,如果超过10天,就禁止进入。

3楼
youyuweinihao 发表于:2011/9/15 15:14:00
就是首次启动记录一下日期不知道怎么写
4楼
狐狸爸爸 发表于:2011/9/15 15:25:00

Dim dt As Date = GetConfigValue("StartDate" & ComputerId, Date.Today) '注意默认值设置为今天,也就是没有记录过日期的话,就返回今天的时间
If dt = Date.Today Then ‘如果日期等于今天,也就是没有记录过日期
    SaveConfigValue("StartDate" & ComputerId, dt) ’那么记录如期,就是今天的日期
End If
output.show(dt)

共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01953 s, 2 queries.