自定义用户登录引发的加载问题-已解決 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自定义用户登录

可变性更大

由于用户组別多,相对要加载的表总数量多

想做到的是对应用户來加載合适的表.

现在已经做到如下:

打开项目后--->默认用户登录

图片点击可在新窗口打开查看此主题相关图片如下：默认.jpg

禁止加载所有表(除权限表)

图片点击可在新窗口打开查看此主题相关图片如下：权限.jpg

並自动显示自定义登录窗--->实际用户登入

图片点击可在新窗口打开查看此主题相关图片如下：登入.jpg

按权限表显示对应的表(代码设在登录窗口的"确定"键里.)

图片点击可在新窗口打开查看此主题相关图片如下：结果.jpg

问题是,显示出來的表,並未加载

如果在

BeforeLoadOuterTable

里设,以实际现存显示表,进行一次性加载,具体如何呢?

还是仍然设在登入的确定键里呢?

我曾想过用

查表名
For Each dt As DataTable In DataTables
Output.Show(dt.Name)
Next

以历遍來把现存表重加載一次.

不过好像不成功...

附上开发版例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:worksys130818.rar

[此贴子已经被作者于2013-8-20 1:08:22编辑过]

我在自定义登录窗的确定键

加入以下的代码

For Each dtn As DataTable In DataTables

Dim dtnam As String

dtnam = dtn.name

If Tables(dtnam).Visible = True Then

DataTables(dtnam).LoadFilter = "[_Identify] > 0 "

DataTables(dtnam).Load

Messagebox.show(dtn.name & "加载完成")

End If

结果可以把现存显示的表进行加載，但感觉好像繞了一圈，有沒有更好的方法。呢？

[此贴子已经被作者于2013-8-18 10:05:18编辑过]

你这样做，差不多了。

在beforeloadoutertable写代码

If e.DataTableName <> "授权表" Then

e.SelectString = "select * from {" & e.DataTableName & "} where 1=2"

End If

如果要在想一开始就决定是否加载表，也可以，就是用sql代码先读取授权表的内容，然后根据授权表得到哪些表需要加载（得到一个集合）。在beforeloadoutertable比较e.DaTableName是否在集合里，控制加载。

（不过这样也不见得好多少）

那麼就好了,最怕就是设得太差,影响內存

主题：自定义用户登录引发的加载问题-已解決