| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1205 人关注过本帖
标题:菜鸟求教设计登录窗口遇到的问题
只看楼主 加入收藏
majiaow
Rank: 1
等 级:新手上路
帖 子:172
专家分:0
注 册:2006-2-21
收藏
 问题点数:0 回复次数:10 
菜鸟求教设计登录窗口遇到的问题

小弟初学VB,现要设计一登录窗口,但无法调用数据库数据与输入数据进行比较判断,现程序如下:
Private Sub CmdOk_Click()

'根据操作工号查找用户记录

Logging.logindata.Recordset.Findfirst("userid='" + txtusername"'")
if not logging.logindata.recordset.nomatch then

'用户输入了正确的密码

If TxtPassword.Text = Logging.logindata.Recordset.Fields("password") Then

'隐藏当前登陆窗体

Me.Visible = False

'显示程序主窗体

Main.Show

'用户输入的密码不正确

End If

'没有找到该用户记录

Else

MsgBox "请输入正确的用户名!", vbOKOnly, "用户名不存在!"

End If

End Sub

其中findfirst与nomatch提示方法错误,请各位大侠指点是否有其它办法调用数据库信息进行处理,菜鸟拜谢!!

搜索更多相关主题的帖子: 窗口 设计 登录 
2006-02-21 11:34
wsn
Rank: 2
等 级:新手上路
威 望:5
帖 子:321
专家分:0
注 册:2006-2-9
收藏
得分:0 
Recordset记录集还没有打开

已婚男人!没事请勿打扰·老婆格言:①不准對她耍酷 ②不准讓她吃醋 ③吵架我要讓步 ④揍我我要挺住⊙⊙
2006-02-21 12:53
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

'以下的是我刚写的,没有调试过。用的是Access数据库。
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset

Private Sub CmdOK_Click()
Dim ConStr As String
If TxtUserName.Text = "" Then
MsgBox "請輸入用戶名!", vbOKOnly + vbExclamation, "登錄"
TxtUserName.SetFocus
Exit Sub
End If
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\StuAcc.Mdb"
cn.Open ConStr
cn.CursorLocation = adUseServer
rs.Open "Select * From User_Property", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If TxtUserName.Text <> "" Then
Set rs1 = New ADODB.Recordset
rs1.Open "Select * From User_Property Where User_Name= '" & TxtUserName.Text & "'", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
If TxtPassWord.Text <> "" Then
If rs.Fields("User_Name") = TxtUserName.Text And rs.Fields("User_password") = TxtPassWord.Text And rs.Fields("User_Popedom") = Cbop.Text Then
FrmMain.Show
rs1.Close
Unload Me
Else
If rs1.Fields("User_password") <> TxtPassWord.Text Then
MsgBox "密碼錯誤,請與管理員聯系!", vbCritical + vbOKOnly, "密碼錯誤"
TxtPassWord.SetFocus
TxtPassWord.SelStart = 0
TxtPassWord.SelLength = Len(TxtPassWord.Text)
Exit Sub
Else
If rs1.Fields("User_Popedom") <> Cbop.Text Then
MsgBox "權限錯誤,請與管理員聯系!", vbOKOnly + vbCritical, "權限錯誤"
Cbop.SetFocus
Exit Sub
End If
End If
End If
Else
MsgBox "請輸入密碼!", vbOKOnly, "登錄"
TxtPassWord.SetFocus
Exit Sub
End If
Else
MsgBox "沒有該用戶,請與管理員聯系!", vbOKCancel + vbExclamation, "登錄"
Exit Sub
End If
End If
Else
MsgBox "沒有用戶信息,請確定!", vbExclamation + vbOKCancel, "登錄"
TxtUserName.SetFocus
Exit Sub
End If
rs.Close
End Sub

Private Sub CmdCancle_Click()
Unload Me
End Sub

Private Sub Form_Load()
Move Screen.Width / 2 - Width / 2, Screen.Height / 2 - Height / 2
Cbop.AddItem "管理員"
Cbop.AddItem "普通操作員"
Dim MyConStr As String
Dim UserCount As Integer
Dim Mycn As New ADODB.Connection
Dim Myrs As New ADODB.Recordset
MyConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\StuAcc.mdb"
Mycn.Open MyConStr
Mycn.CursorLocation = adUseClient
Myrs.Open "Select * From User_Property", Mycn, adOpenKeyset, adLockPessimistic
If Myrs.RecordCount <= 0 Then
UserCount = MsgBox("沒有用戶,請先注冊!", vbYesNo + vbExclamation, "登錄")
If UserCount = vbYes Then FrmAddUser.Show
Myrs.Close
Mycn.Close
Set Myrs = Nothing
Set Mycn = Nothing
Unload Me
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set cn = Nothing
End Sub


我的msn: myfend@
2006-02-21 13:27
majiaow
Rank: 1
等 级:新手上路
帖 子:172
专家分:0
注 册:2006-2-21
收藏
得分:0 
谢谢purana老大的提示啊,鞠躬致敬!!待小鸟俺慢慢看来

2006-02-21 14:15
whb53695169
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2006-2-24
收藏
得分:0 

以下代码是不才以前写的一个登陆窗口,用的也是ACCESS数据库,只供参考
1、首先建立一个ACCESS数据库为ZYDN.MDB,再建立一个名为“用户名与密码”的数据表,添加两个字段:用户名,密码。
2、在窗体上建立一个ADODC控件、三个LABEL控件、两个TEXTBOX与两个COMMANDBUTTON控件,代码如下:
Private Sub Command1_Click()
While Not Adodc1.Recordset.EOF
For i = 0 To Adodc1.Recordset.RecordCount - 1
If Text1.Text = Adodc1.Recordset.Fields("用户名").Value And Text2.Text = Adodc1.Recordset.Fields("密码").Value Then
Form6.mnuuse.Enabled = flase 'form6为主窗口,mnuuse为添加用户名与密码的菜单
If Text1.Text = "ilove" And Text2.Text = "2005" Then 'ilove与2005分别为超级用户名与密码,可添加用户名与密码
Form6.mnuuse.Enabled = True
Load Form6
Form6.Show
Form7.Hide 'form7为登陆窗口
Exit Sub
End If
Load Form6
Form6.Show
Form7.Hide
Exit Sub
End If
Adodc1.Recordset.MoveNext
Next i
Wend
MsgBox "用户名或密码有误", , "提示"
Adodc1.Recordset.MoveFirst
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Dim str As String
str = App.Path
If Right(str, 1) <> "\" Then
str = str & "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\zydn.mdb"
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 用户与密码"
Adodc1.Refresh
End Sub

2006-02-24 17:43
majiaow
Rank: 1
等 级:新手上路
帖 子:172
专家分:0
注 册:2006-2-21
收藏
得分:0 
都好了,謝謝各位大俠鼎力相助

2006-03-01 08:07
wshch0537
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-2-24
收藏
得分:0 
ding !!
2006-03-01 10:09
llijin_726
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2005-12-9
收藏
得分:0 
很好
2006-03-01 10:48
shiyide
Rank: 2
等 级:新手上路
威 望:4
帖 子:297
专家分:0
注 册:2006-2-22
收藏
得分:0 
  连接数据裤是个难点````

学好编程,为中国的软件事业出一份力。
2006-03-01 17:40
bluemoonte
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-2-12
收藏
得分:0 
3楼的程序很经典啊,喜欢!
2006-03-03 10:40
快速回复:菜鸟求教设计登录窗口遇到的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018339 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved