以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  登录窗口代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18121)
--  作者：曈飞双燕
--  发布时间：2012/4/2 20:38:00
--  登录窗口代码
有一窗口"登录"，有一表"注册"，当窗口的文本框Textbox1的值改变后执行，如果“注册”表中的用户名列中已经存在与Textbox1相同的，就在对应行的“是否存在”列填入Textbox2的值，如果没有相同的，就添加一行，并把Textbox1的值填入“用户名”列。怎么完成，一定要用代码吧，怎么写。本人刚学最好写详细一点，谢谢
--  作者：kylin
--  发布时间：2012/4/2 20:48:00
--  
建议你最好先认真看帮助，因为帮助里头有足够的例子和说明以完成你说提的问题啊
--  作者：曈飞双燕
--  发布时间：2012/4/2 21:26:00
--  

我已经看了帮助,但还没发现有,可以介绍下属于哪一类或那一页吗?
--  作者：程兴刚
--  发布时间：2012/4/2 21:34:00
--  

您这样永远也学不会!

1、认真看帮助

2、结合实例进行实际操作

3、有疑问的地方，到论坛提问时最好做好示例文件。
--  作者：unverse
--  发布时间：2012/4/6 13:47:00
--  
呵呵 。。。先练好内功 。。
--  作者：achillesice
--  发布时间：2012/5/8 11:44:00
--  

Dim x1 As String = e.Form.Controls("Textbox1").Value \'Textbox1=用户名
Dim x2 As String = e.Form.Controls("Textbox2").Value \'Textbox2=密码
Dim cmd As New SQLCommand
cmd.ConnectionName ="注册"  \'注册为你的数据表名

If x1 = "" OrElse x2 = "" Then
    Messagebox.show("请输入用户名和密码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select Top 1 用户名 From {注册} Where 用户名 = \'" & x1 & "\'"
If cmd.ExecuteScalar > "" Then
    Messagebox.show("新建用户失败,已经能存在同名用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Insert Into {注册} ([用户名],[密码]) Values (" & x1 & ", \'" & x2 & "\')"
    End If
    e.Form.Close()

[此贴子已经被作者于2012-5-8 14:05:51编辑过]