用户 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师请问我是用(外部数据源与用户管理)示例做的用户表，但有个问题用户姓名有重复不好办，因此我想在些基础上，将uses表增加用户属性列，身份证号（替换name)，任教科目，任教班级，角色等，以便于确认登录用户的信息，1、如何让登录窗口不用显示下拉选项，而是将用户直接输入用户名，且下次登录时保留用户名，2、登录成功后user表加载当前用户的记录.这只是我的一个想法，请问有没有更好的办法来解决这类问题

我在项目事件userseting中加这句可实现登录用户的加载

DataTables("users").loadfilter = "name = '" & user.name & "'"

DataTables("users").load

但我相在登录窗口不用把所用户的帐号都在下拉列表中显出来怎么办

你都说没办法，那就应该没办法了，但这样的话有个问题，如果用户多这会很麻烦的哟

老师，现在我按二楼方式做了自定义用户登录，但打开系统先还是有之前的系统登录窗口，加载表后才又出现自定登录窗口

提示，使用外部数据表时不能设置默认用户

请问老师，登录窗口只要一张图的无边框显示怎么办，也就是不要窗口的标题及边框

好，谢谢，还有两个问题，1、用户登录过某个帐号，下次再登录里直接就是这个帐号，2、做个记住密码选择怎么办

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

Dim psw As winform.textbox = e.form.controls("password")

Dim jqm As String = ComputerId

Dim jr As DataRow = DataTables("用户").sqlfind("上次登录机器码 = '" & jqm & "'")

If jr IsNot Nothing

cmb.text = jr("name")

psw.Select()

Else

cmb.text = ""

cmb.Select()

End If

''cmb.ComboList = _UserTable.SQLGetComboListString("Name")

e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

老师，为实现记录下本机上次登录帐号，我在用户表中加了个上次登录机器码，上面这段可以了，

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

Dim jqm As String = ComputerId

Dim dr As DataRow

If UserName = "" Then

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

Return

End If

dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")

If dr Is Nothing Then

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

Return

End If

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

_UserName = UserName

_UserGroup = dr("Group")

DataTables("用户").SQLReplaceFor("上次登录机器码", "", "上次登录机器码 = '" & jqm & "'",True)

dr("上次登录机器码") = jqm

e.Form.Close

Else

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

End If

这段确定代码提示where 附近有错误，没看出是什么原因

哦，找到了，好像是不应该有true

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

Dim jqm As String = ComputerId

Dim dr As DataRow

If UserName = "" Then

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

Return

End If

dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")

If dr Is Nothing Then

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

Return

End If

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

_UserName = UserName

_UserGroup = dr("Group")

DataTables("用户").SQLReplaceFor("上次登录机器码", "", "上次登录机器码 = '" & jqm & "'")

DataTables("用户").SQLReplaceFor("上次登录机器码", jqm, "[name] = '" & UserName & "'")

e.Form.Close

DataTables("用户").save

DataTables("用户").load

Else

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

End If

这样就可以了

主题：用户