- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求 高手帮忙修改一下 用户登录窗口一下 谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34707)
-- 发布时间：2013/6/13 14:50:00
-- 求 高手帮忙修改一下 用户登录窗口一下 谢谢
那个高手 能否帮忙 在
| 下载信息 | |
|
建一个 用户登录 窗口 及 权限管理 谢谢 |
或者在下面这个基础上修改一下 多谢多谢！
| 下载信息 | |
|
这个 整合客户营销推广管理系统+用户权限 多了一个系统自动的用户登录 窗口
想把这个自动的用户登录窗口去掉 （去掉 如下 图1窗口 保留图2 ）
|
此主题相关图片如下：1o~~bvsykiyb_16(y~)x2u.jpg
图2
此主题相关图片如下：f7`orlro$vlcp49i0xbda.jpg
-- 发布时间：2013/6/17 10:12:00
--
都没得高手 帮我的忙啊 呜呜 那个高手帮忙 把这个登录窗口 取消一个嘛 感激不尽
-- 发布时间：2013/6/18 0:03:00
--
实话说吧，这个系统看起来头大的很，不知道您自己使用的怎么样呢
如果要解决你的问题很简单
就是在用户管理那里增加一个用户，设置为默认用户，就ok了
劝你还是很仔细的把帮助踏踏实实的读两遍。这样开发进度会比较快
-- 发布时间：2013/6/18 9:32:00
--
恩 这到是，多谢您了。我定会静下心来好好看的
-- 发布时间：2013/6/18 15:59:00
--
师傅 我在
AfterOpenProject 里 写入如下代码后， 当登录 “用户登录”后 进入系统 出现的是新建页面 而不是 我想要的 主页？
此主题相关图片如下：1an@ove1pv6p0yhje@7`9px.jpg
此主题相关图片如下：%{la0vt4g4olzv2((o)td{0.jpg
当我把 新建 这个表名 改成 新建分类等其他名字是 登录的时候出现 “不存在名称为“新建”的Table！”
错误代码位置：项目,AfterOpenProject
System.NullReferenceException: Object reference not set to an instance of an object.
at UserCode.AfterOpenProject()
---------------------------
确定
---------------------------
您能帮我看看吗？谢谢您！
代码
For Each t As Table In Tables
t.Visible = False
For Each c As Col In t.Cols
c.Visible = False
c.AllowEdit = False
Next
Next
Forms("用户登录").Show()
Forms("主桌面").open
Dim roles() As String = _userGroup.Split(",")
For Each role As String In roles
Dim drs As List(Of DataRow) = DataTables("权限").Select("可见 = \'" & role & "\' or 可见 like \'" & role & ",*\' or 可见 like \'*," & role & ",*\' Or 可见 like \'*," & role & "\'")
For Each dr As DataRow In drs
If dr.Isnull("表名") AndAlso dr.Isnull("列名") Then
For Each t As Table In Tables
t.Visible = True
Next
Else If dr.isnull("列名") Then
Tables(dr("表名")).Visible = True
For Each c As Col In Tables(dr("表名")).Cols
c.Visible = True
Next
Else
Tables(dr("表名")).Visible = True
For Each c As Col In Tables(dr("表名")).Cols
If dr("列名") = c.name OrElse dr("列名") Like c.name & ",*" OrElse dr("列名") Like "*," & c.name & ",*" OrElse dr("列名") Like "*," & c.name Then
c.Visible = True
End If
Next
End If
Next
drs = DataTables("权限").Select("可编辑 = \'" & role & "\' or 可编辑 like \'" & role & ",*\' or 可编辑 like \'*," & role & ",*\' Or 可编辑 like \'*," & role & "\'")
For Each dr As DataRow In drs
If dr.Isnull("表名") AndAlso dr.Isnull("列名") Then
For Each t As Table In Tables
t.Visible = True
t.AllowEdit = True
Next
Else If dr.isnull("列名") Then
Tables(dr("表名")).Visible = True
For Each c As Col In Tables(dr("表名")).Cols
c.Visible = True
c.AllowEdit = True
Next
Else
Tables(dr("表名")).Visible = True
For Each c As Col In Tables(dr("表名")).Cols
If dr("列名") = c.name OrElse dr("列名") Like c.name & ",*" OrElse dr("列名") Like "*," & c.name & ",*" OrElse dr("列名") Like "*," & c.name Then
c.Visible = True
c.AllowEdit = True
End If
Next
End If
Next
Next
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:整合客户营销推广管理系统001.table |
-- 发布时间：2013/6/19 9:23:00
--
设置一下MAINTABLE不就完了.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:整合客户营销推广管理系统001.table |