- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 发布后的项目运行不了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169075)
-- 发布时间：2021/6/1 17:29:00
-- 发布后的项目运行不了
如下图，发面后的项目更新后，有些电脑可以运行有些不可以运行
此主题相关图片如下：微信图片_20210601172459.png
-- 发布时间：2021/6/1 17:29:00
--
急啊，快回复，怎么搞
-- 发布时间：2021/6/1 17:31:00
--
出错窗口提示的错误事件代码发上来看看。
80040154一般是语音问题，系统tts有问题导致，修复一下
-- 发布时间：2021/6/1 17:36:00
--
代码是没有问题的，最少是不会出现在这个地方吧。听你这么一说可能是最新我增加了朗读功能，但是不是在这个窗口。是不是有些电脑没有语音库就出现这个问题了
-- 发布时间：2021/6/1 17:42:00
--
If vars("dljs") = 3 Then
vars("dljs") = 0
MessageBox.Show("三次登录错误之后系统自动退出,如有问题请联系系统管理员.","系统退出")
e.Form.Controls("tq").performclick()
Return
End If
If e.Form.Controls("yhu").value = "" OrElse e.Form.Controls("nim").value = "" Then
MessageBox.Show("用户ID或用户原有密码没有填写,不能完成登录.")
Return
Else
Dim r As DataRow = DataTables("用户权限").sqlfind("工号 = \'" & e.Form.Controls("yhu").value & "\'")
If r IsNot Nothing Then
If r("已登录") = "是" Then
MessageBox.Show("用户已登录,不能重复登录.")
vars("dljs") = vars("dljs") + 1
Return
Else
If r("密码") = e.Form.Controls("nim").value Then
uid = r("工号")
uname = r("姓名")
If r("工号") = "0057" OrElse r("工号") = "0842" Then \'留一个用户解除当非正常关机时登录自锁
r("已登录") = ""
r("上次登录") = cstr(now)
Else
r("已登录") = "是"
r("上次登录") = cstr(now)
End If
r.save()
e.Form.close()
forms("欢迎").open()
vars("dljs") = 0
Else
MessageBox.Show("用户密码错误,无法完成登录.","登录失败")
vars("dljs") = vars("dljs") + 1
End If
End If
Else
MessageBox.Show("用户不存在,无法完成登录.","登录失败")
vars("dljs") = vars("dljs") + 1
End If
End If
-- 发布时间：2021/6/1 20:07:00
--
tq按钮或者欢迎窗口有没有用到语音？
修复一下系统tts
https://www.baidu.com/baidu?wd=win7+tts