主题：登录窗口验证登录问题

Dim UserName As String = Forms("登录窗口").Controls("txt1").Value

Dim dr As DataRow

Dim dt As DataTable

Dim name As String

Dim cmd As New SQLCommand

cmd.C

If UserName =" " Then

    Messagebox.show("请输入用户名!","提 示",MessageBoxButtons.OK,MessageBoxIcon.Information)  

End If

cmd.CommandText = "Select *  From {医师资料} Where [姓名] = &UserName& "

dt = cmd.ExecuteReader

dr = dt.DataRows(0)

    If Forms("登录窗口").Controls("txt2").Value = dr("密码")  Then

       name = UserName

         DataTables("FMFM量表分值转换表").load

        DataTables("精细运动能力测试量表").load

        DataTables("脑瘫").load

    Forms("登录窗口").Close

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

End If

一执行 就提示说是未将对象引用设置到对象的实例，求解惑

我记得以前C#连接数据库都要有一个sql连接，这里不要的么。

还有一个，我看好多代码里都有cmd.c 我想问下这个 c 前面是怎么定义的呢。谢谢！

cmd.CommandText = "Select * From {医师资料} Where [姓名] = &UserName& "

应该是：

 

 

cmd.CommandText = "Select * From {医师资料} Where [姓名] = '" & UserName & "'"

 

建议看看：

http://www.foxtable.com/help/topics/1284.htm

http://www.foxtable.com/help/topics/1485.htm

 

貌似第一句就有问题。求解T-T

如果第一句有问题：

Dim UserName As String = Forms("登录窗口").Controls("txt1").Value

 

看看窗口名和控件名是否正确。

 

foxtable可以自动生成这些代码的，避免输入错误：

http://www.foxtable.com/help/topics/1525.htm

 

 

如果搞不定，就传项目上来。

老大我把数据库也传上来了，您帮忙看看~谢谢啦

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:部分项目数据库.rar

你发上来的项目，我都没有看到有登陆窗口。

是那个医师资料里有个窗体

你是不是发错数据库了，根本就没有医生资料这个表啊

我也发现了.我换个 我晚上整理一下 狐爸爸先忙.谢谢啦

现在发的应该对了。老大费心了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:儿童康复管理.zip