- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何限制使用时间？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177373)
-- 发布时间：2022/5/19 13:15:00
-- 如何限制使用时间？
4、最后将项目的AfterOpenProject事件设为：
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
Else
If n > 30 Then
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
End If
End If
If n > 60 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
老师我们的用户表里有一列是到期时间，如果想在用户登录的时候根据外部表user的时间列来判断到期时间，如果到期了就提示到期然后禁止登录，上面的代码应该怎么改啊
-- 发布时间：2022/5/19 14:10:00
--
和上面的代码没有任何关系。
在登录窗口，确定按钮里，根据录入的用户名查询user表，获取到期时间，然后和当前时间进行比较
-- 发布时间：2022/5/19 17:30:00
--
登录按钮：
Dim cmd As New SQLCommand
Dim dt1 As Date
cmd.Conne ctionName = "ddd"
cmd.Comm andText = "Select GetDate()"
dt1 = cmd.Execu teScalar()
dt1 = dt.Date
Dim dt1 As Date
cmd.Conne ctionName = "ddd"
cmd.Comm andText = "Select GetDate()"
dt1 = cmd.Execu teScalar()
dt1 = dt.Date
cmd.Comm andText = "Select dt1 Fr om {Users} Where [daoqi_time] = \'" & time & "\'"
dt = cmd.ExecuteReader
If time <> dt1 = 0 Then
Messagebox.show("过期！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
e.Form.Close()
这样写好像不对老师。。。怎么根据录入的用户名查询user表，获取到期时间，然后和当前时间进行比较哇。。。。好复杂。。。。
-- 发布时间：2022/5/19 17:41:00
--
根据用户名，获取和这个用户的记录
cmd.Comm andText = "Select * Fr om {Users} Where [用户名] = \'张三\'"
dt = cmd.ExecuteReader
If dt.datarow(0)(“过期日期”) < dt1 = 0 Then
Messagebox.show("过期！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
-- 发布时间：2022/5/19 20:18:00
--
报错，说
此主题相关图片如下：9999.png
代码：
Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
Dim dt1 As Date
cmd.C
cmd.CommandText = "Select GetDate()"
If UserName = "" Then
Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Select * Fro m {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
dt = dt.Date
If dt.DataRow(0)("Endtime") < dt Then
Messagebox.show("过期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
If e.Fo rm.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2022/5/19 20:33:00
--
Dim cmd As New SQLCommand
Dim dt1 As Date
cmd.Conne ctionName = "ddd"
cmd.Comm andText = "Select GetDate()"
dt1 = cmd.Execu teScalar()
cmd.CommandText = "Select * Fro m {Users} Where [Name] = \'" & UserName & "\'"
Dim dt As DataTable = cmd.ExecuteReader
If dt.DataRow(0)("Endtime") < dt1 Then
Messagebox.show("过期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Form.Close
Return
End If
-- 发布时间：2022/5/19 21:20:00
--
此主题相关图片如下：8888888.png
-- 发布时间：2022/5/19 21:27:00
--
If dt.DataRows(0)("Endtime") < dt1 Then
-- 发布时间：2022/5/19 22:34:00
--
这又咋啦~~~~
If _UserGroup = "普通用户" Then
For Each dta As DataTable In DataTables
dta.AllowClipBoard = False
dta.AllowEdit = False
Next
End If
Dim cmd As New SQLCommand
Dim dt1 As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt1 = cmd.ExecuteScalar()
cmd.CommandText = "Select * Fro m {Users} Where [Name] = \'" & UserName & "\'"
Dim dt As DataTable = cmd.ExecuteReader
If dt.DataRows(0)("Endtime") < dt1 Then
Messagebox.show("过期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Form.Close
Return
End If
[此贴子已经被作者于2022/5/19 22:37:06编辑过]
-- 发布时间：2022/5/19 22:40:00
--
没有 这个用户。判断一下查询的表格是否有数据