悲剧，重做系统后项目登录不了了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

问题是这样，系统重做，重新恢复数据库，安装狐表专业版，打开项目报错：

此主题相关图片如下：1.jpg

然后是

此主题相关图片如下：2.jpg

这两个是全局代码，代码如下：

Public _UserName As String '用户名

Public _UserGroup As String '用户分组

Public _RealName As String '用户分组

然后在系统登录的时候要先打开登录窗口，登录窗口代码如下：

Dim UserName As String = e.Form.Controls("UserName").Value

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim dr As DataRow

cmd.C

If UserName = "" Then

Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

cmd.CommandText = "Se7ect * From {Users} Where [Name] = '" & UserName & "'"

dt = cmd.ExecuteReader

If dt.DataRows.Count = 0 Then

Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

dr = dt.DataRows(0)

If e.Form.Controls("PassWord").Value = dr("Password") Then

_UserName = UserName

_UserGroup = dr("Group")

_RealName = dr("真实姓名")

e.Form.Close

Else

Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

我所有的项目登录窗口都是一个样的。其它项目都正常。然后自己检查错误。

1、卸载数据库打开项目，报“不存在XXX数据源”错误，说明数据源正确

2、检查对应的表是否存在对应字段及数据，正确，没有问题。

问题有点大，从错误信息来看是全局代码没有运行？？导致后面的错误？

现在是按ctrl打开项目也无法进入项目，按ctrl+shift+F12也无法打开系统菜单。

求老师指点。

测试了历史版本（我几乎每个大版本更新都会保存），发现很古老的版本可以正常运行，发现了一个奇怪的问题？

是这样的：客户因为需要使用高拍仪，所以我在外部引用里面增加了高拍仪的动态链接库。然后打开项目的时候，高拍仪的函数先报错，然后就是上面的错误。

如果是不包含外部引用的版本就能正常运行，带外部引用的版本就登录不了了。

下图是高拍仪函数报错的截图

1、高拍仪外部引用函数

此主题相关图片如下：3.jpg

2、高拍仪外部引用函数

此主题相关图片如下：4.jpg

但是之前项目都是正常的，高拍仪对应的函数也在项目的文件夹里面，这个不会错的。

高拍仪使用的函数是完全照抄费舍尔老师的教程的

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93741

已经使用两个多月了，项目一直是正常的，没想到重做系统之后会这样。现在怎么办？求老师指点。

[此贴子已经被作者于2022/6/11 4:36:54编辑过]

拜谢蓝老师！感激不尽！！果然解决了问题。这次真是吓死我了。

问题是外部引用怎么会影响到全局代码呢？！没道理啊！并且我的外部引用和出错的全局代码没有任何关系。不存在相互引用的代码。之前有考虑过外部引用失败的问题，但是只是觉得大不了重新引用就是了，结果导致全局代码无法运行，一下子人就慌了。

主题：悲剧，重做系统后项目登录不了了