以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用户登录  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82420)

--  作者:kaituozhe
--  发布时间:2016/3/17 14:56:00
--  用户登录
我想设计类型例子中的登录窗口,包括用户、密码、账套三项,前两项在帮助中都有,第三项怎么解决?
--  作者:kaituozhe
--  发布时间:2016/3/17 14:57:00
--  
什么原因呀,我上传的例子,显示上传成功了,但是看不到上传的东西呀
--  作者:大红袍
--  发布时间:2016/3/17 15:00:00
--  

 方法一:登陆以后,重新打开一次项目,连接到设置的套账数据库去。也可以动态切换数据库

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59825&skin=0

 

 方法二:在每个表加入一列【所属套账】列,登陆的时候,加载具体哪个套账的数据即可。

 


--  作者:kaituozhe
--  发布时间:2016/3/17 20:37:00
--  
例子是一个用户管理的例子,希望通过用户登录窗口选择项目然后登录,提示错误,不知道该怎么解决
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:用户管理.zip


--  作者:大红袍
--  发布时间:2016/3/17 21:25:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:用户管理 - 副本.zip


--  作者:kaituozhe
--  发布时间:2016/3/18 13:39:00
--  
此已软件已可使用,但是
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:用户管理 - 副本.zip

发布后把软件拷到别的电脑上使用会提示数据链接,不知道是什么原因?
--  作者:狐狸爸爸
--  发布时间:2016/3/18 14:08:00
--  

参考:

http://www.foxtable.com/help/topics/0682.htm

 


--  作者:kaituozhe
--  发布时间:2016/3/19 6:00:00
--  
上述在例子里都没有关联表,由于实际中肯定会大量出现关联表的情况,以下代码是用户登录确定按钮的代码,黄色代码是查找到该数据库所有的关联的父表与子表名称,在卸载和加载时同时卸载和加载其关联,但是在第二段黄色代码中怎么能通过父表找到子表的名称呢?


--  作者:kaituozhe
--  发布时间:2016/3/19 6:01:00
--  
Dim glfs As new List(Of String)
        Dim glzs As new List(Of String)
        For Each re As Relation In Relations
            glfs.Add(Re.ParentTable.Name)
            glzs.Add(Re.ChildTable.Name)
        Next
Dim n As Integer
        For Each dt1 As String In dts
 If Tables(dt1).IsRelation Then
       Tables(dt1).DataTable.ParentTable. 
                DataTables.unLoad("会计凭证|凭证明细")
            Else
                DataTables.unLoad(dt1)
            End If
        Next

--  作者:kaituozhe
--  发布时间:2016/3/19 6:18:00
--  
Dim gls As New Dictionary(Of String, String)
        Dim glfs As new List(Of String)
        For Each re As Relation In Relations
            glfs.Add(Re.ParentTable.Name)
            gls.Add(Re.ParentTable.Name,Re.ChildTable.Name)
        Next
        Dim n As Integer
        For Each dt1 As String In dts
            If glfs.Contains(dt1)  Then
                DataTables.unLoad("dt1|gls(dt1)")
            Else
                DataTables.unLoad(dt1)
            End If
        Next