读书人

关于登陆窗口的有关问题?

发布时间: 2012-02-08 19:52:21 作者: rapoo

关于登陆窗口的问题?????????????
我现在要实现个登陆窗口 代码已经写了 但是报错了 麻烦大家帮我看下是什么问题.PS:代码中的Entity是之前定义的数据事体,Manager是执行.数据库连接也在之前写好了.在代码红色字体的地方DEBUG报错说列名"XX"无效

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If Username.Text = "" Then
MessageBox.Show("请输入登陆账户!")
Username.Focus()
Return
End If
If Password.Text = "" Then
MessageBox.Show("请输入密码!")
Password.Focus()
Return
End If
Dim Entity As New customerEntity
Dim Manager As customerManager = Entity.CreateManager("")

Entity.UserID = Me.Username.Text
Entity.Password = Me.Password.Text
Dim where1 As New WhereObjectList
Dim where2 As New WhereObjectList
where1.AddItem(Entity.UserID, enumWhereControl.等于, Me.Username.Text)
where2.AddItem(Entity.Password, enumWhereControl.等于, Me.Password.Text)
Dim where As New WhereObjectList
where.AddWheres(New WhereObjectList() {where1, where2})
If Manager.GetEntityEx(Entity, where, "") = True Then

MessageBox.Show("登陆成功!")
Main.Show()
Me.Hide()
Else
MessageBox.Show("密码或用户名错误!")
Username.Text = ""
Password.Text = ""
Username.Focus()
End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub


[解决办法]
GetEntityEx(Entity, where, "")
里面的参数是否与该方法相应的参数类型对应
[解决办法]
If Manager.GetEntityEx(Entity, "where", "") = True Then

读书人网 >VB Dotnet

热点推荐