Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:自定义用户登录问题

1楼
倪惠明 发表于:2011/6/28 13:22:00
参考示例,做了个自定义用户登录窗口,增加了个用户组选择,因不熟悉SQL,不知道如何根据所选的用户组,在用户栏只显示该组的用户,请大侠帮忙。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar

[此贴子已经被作者于2011-6-29 16:31:25编辑过]
2楼
blackzhu 发表于:2011/6/28 13:36:00
加个条件  用户组='什么'    
3楼
狐狸爸爸 发表于:2011/6/28 14:03:00

自定义用户管理的最后一部分讲的就是这个:

 

http://help.foxtable.com/topics/2048.htm

 

4楼
倪惠明 发表于:2011/6/28 16:32:00
应加在什么地方,我把例子传上来,帮忙看看。
5楼
倪惠明 发表于:2011/6/28 16:33:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

6楼
倪惠明 发表于:2011/6/28 16:36:00
用户.mdb 无法上传
7楼
倪惠明 发表于:2011/6/29 16:34:00
已经将做的内容传上来了,请看看为什么在选择用户组后,用户不会根据所选内容调整。
8楼
狐狸爸爸 发表于:2011/6/29 16:48:00
以下是引用倪惠明在2011-6-28 16:36:00的发言:
用户.mdb 无法上传

 

压缩上传。

9楼
倪惠明 发表于:2011/6/29 17:16:00
已经在一楼压缩上传了,请狐狸爸爸帮忙看看。谢谢!
10楼
狐狸爸爸 发表于:2011/6/29 18:11:00
 

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")

Dim gr As String = e.Form.Controls("UserGroup").value

cmd.C

cmd.CommandText = "SELECT  Name From {Users} Where [Group] = '"& gr &"'"

dt = cmd.ExecuteReader()

cmb.Items.Clear()

For Each dr As DataRow In dt.Datarows

   cmb.Items.Add(dr("Name"))

Next

cmb.SelectedIndex = 0

共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 4 queries.