风云小站 » 『 求助专区 』 » VB编程题啊
freeboy
级别: 风云元老


精华: 0
发帖: 1843
威望: 318 点
风云币: 2453 元
专家分: 0 分
在线时间:473(小时)
注册时间:2006-06-04
最后登录:2008-03-31

 VB编程题啊

做的是学生信息管理系统,照着书做但出现下面的问题,书也看不明白。请高手帮忙看一下。
Quote:
运行后提示:“编译错误:未找到方法或数据成员”.是错在下面这个.mnUsertype
With frmMain
.mnUserType = mnUserType
.msUsername = user

Copy code
Option Explicit

Public LoginSucceeded As Boolean
Dim mnUserType As Integer

Private Sub optUserType_Click(Index As Integer)
mnUserType = Index
End Sub

Private Sub Form_Load()
optUserType(0).Value = True
End Sub


Private Sub cmdCancel_Click()
Unload Me

End Sub
Private Sub cmdOK_Click()
'取得用户输入的用户名和密码
Dim user As String, pwd As String
user = Trim(txtUser)
pwd = Trim(txtPwd)
'根据不同的身份,选择不同的表用以查询
Dim r As New ADODB.Recordset
Set r = DataEnv.rssqlSeek
Dim strSQL As String
Select Case mnUserType
Case 0: '若身份为管理员
strSQL = "select * from 系统人员表 where name=" & user & "and pwd=" & pwd & ""
Case 1: '若身份为学生
strSQL = "select * from 学生信息表 where name=" & user & " and serial=" & pwd & ""
End Select
On Error Resume Next
'查询DataEnv.rssqlSeek的状态,如果已经打开,则先关闭
If r.State = adStateOpen Then r.Close
r.Open strSQL '根据strSQL的内容刷新DataEnv.rssqlSeek
'用户密码错误的次数,如果错误次数超过3次,则退出系统
Static nTryCount As Integer
If r.EOF Then '登录失败
MsgBox "对不起,无此用户或者密码不正确!请重新输入!!", vbCritical, "错误"
txtUser.SetFocus
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser)
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您无权操作本系统!", vbCritical, "错误"
Unload Me
End If
Else '登录成功

'显示MDI窗体,并将用户类型和用户名传到MDI窗体中的mnUserType, msUserName中
With frmMain
.mnUserType = mnUserType
.msUsername = user
End With
Load frmMain
frmMain.Show
Unload Me
End If

End Sub
顶端 Posted: 2006-11-08 01:09 | [楼 主]
月老
黄鱼党|大家好才是真的好!
级别: 荣誉会员


精华: 0
发帖: 2968
威望: 1433 点
风云币: 3075 元
专家分: 3 分
论坛群: ☆黄鱼党☆
在线时间:597(小时)
注册时间:2006-11-01
最后登录:2024-01-03

 

书也会出错的,
.mnUserType = mnUserType
.msUsername = user
点前边肯定有东西,VB里好像没这种以点开头的吧!
虽然我已英年早肥,但我仍然很穷!!!黄鱼党|月老
欢迎大家光临我爱天使技术论坛!
顶端 Posted: 2006-11-08 11:40 | 1 楼
月老
黄鱼党|大家好才是真的好!
级别: 荣誉会员


精华: 0
发帖: 2968
威望: 1433 点
风云币: 3075 元
专家分: 3 分
论坛群: ☆黄鱼党☆
在线时间:597(小时)
注册时间:2006-11-01
最后登录:2024-01-03

 

看了一下,你没定义msUsername
虽然我已英年早肥,但我仍然很穷!!!黄鱼党|月老
欢迎大家光临我爱天使技术论坛!
顶端 Posted: 2006-11-08 11:49 | 2 楼
freeboy
级别: 风云元老


精华: 0
发帖: 1843
威望: 318 点
风云币: 2453 元
专家分: 0 分
在线时间:473(小时)
注册时间:2006-06-04
最后登录:2008-03-31

 

Quote:
引用第2楼happyangel2006-11-08 11:49发表的:
看了一下,你没定义msUsername


我在声明里这样定义Dim mnUserType As Integer,但还是不行啊。。
顶端 Posted: 2006-11-09 08:23 | 3 楼
freeboy
级别: 风云元老


精华: 0
发帖: 1843
威望: 318 点
风云币: 2453 元
专家分: 0 分
在线时间:473(小时)
注册时间:2006-06-04
最后登录:2008-03-31

 

有没有人会的。。
顶端 Posted: 2006-11-13 23:52 | 4 楼
帖子浏览记录 版块浏览记录
风云小站 » 『 求助专区 』
感谢,曾经的版主
Total 0.011986(s) query 6, Time now is:12-27 19:21, Gzip enabled 渝ICP备20004412号-1

Powered by PHPWind v6.3.2 Certificate Code © 2003-07 PHPWind.com Corporation
Skin by Chen Bo