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

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

http://www.foxtable.com/webhelp/scr/1939.htm

例如希望消除某个独立或模式窗口的边框，可以在窗口的AfterLoad事件中加入代码：
e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

好，谢谢，还有两个问题，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

msgbox(jqm)看看机器码是否有特殊符号

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

这样就可以了

再请教一下，我想再优化一下，增加一列记录下登录时间，然后每次打开登录窗口时下拉表中按本次上登录过的近10个用户在下拉表中显示出来供选择，排序按最近的在前面，并将在本机上登录的最近的一个直接显示在框中

参考

http://www.foxtable.com/webhelp/scr/2900.htm

查出来数据，然后加入到下拉控件里面去。

主题：用户