| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2609 人关注过本帖
标题:请问:如何通过VB6.0+Access编写一个登陆窗口,当输入正确的用户名和密码时 ...
只看楼主 加入收藏
wujingyi
Rank: 2
等 级:论坛游民
帖 子:73
专家分:55
注 册:2006-4-20
收藏
 问题点数:0 回复次数:10 
请问:如何通过VB6.0+Access编写一个登陆窗口,当输入正确的用户名和密码时,就登陆
请问:如何通过VB6.0+Access编写一个登陆窗口,当输入正确的用户名和密码时,就登陆到主窗口中。
搜索更多相关主题的帖子: 密码时 Access 窗口 用户名 编写 
2006-06-18 12:01
wujingyi
Rank: 2
等 级:论坛游民
帖 子:73
专家分:55
注 册:2006-4-20
收藏
得分:0 
最好能附上源码
2006-06-18 13:40
wujingyi
Rank: 2
等 级:论坛游民
帖 子:73
专家分:55
注 册:2006-4-20
收藏
得分:0 
ding
2006-06-18 14:51
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'程 序 员 : 梁 嘉 辉
'编 写 时 间 : 2006-5-17
'模 块 功 能 : 实现多用户登录
'E - Mail : myfend_liang@yahoo.com.cn
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim g_Connect As ADODB.Connection
Dim g_Recordset As ADODB.Recordset

Private Sub Command1_Click()
Static userCount As Integer
Dim i As Integer
For i = 0 To 2
If Text1(i).Text = "" Then
MsgBox "內容不能為空,請輸入!", vbExclamation + vbOKOnly
Text1(i).SetFocus
Exit Sub
End If
Next
If Text1(1).Text <> Text1(2).Text Then
MsgBox "兩次密碼不正確,請重新輸入"
Text1(1).SetFocus
Exit Sub
End If
Set g_Recordset = CreateObject("ADODB.Recordset")
Dim sql As String
sql = "SELECT * FROM user_info WHERE 用戶名='" & Text1(0).Text & "'"
g_Recordset.Open sql, g_Connect, adOpenKeyset, adLockPessimistic
If g_Recordset.RecordCount <= 0 Then
MsgBox "沒有此用戶,請重新輸入!", vbCritical + vbOKOnly
userCount = userCount + 1
g_Recordset.Close
'Exit Sub
Else
If Text1(1).Text = g_Recordset.Fields("密碼").Value Then
MsgBox "密碼正確,登錄成功!", vbOKCancel
Form2.Show
g_Recordset.Close
Unload Me
Else
MsgBox "密碼不正確,請確定密碼!"
Text1(1).SetFocus
userCount = userCount + 1
'Exit Sub
End If
End If
If userCount >= 3 Then
MsgBox "你已經超出使用權限了,不能再使用本軟件!"
End
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim iConnstr As String
Set g_Connect = CreateObject("ADODB.Connection")
iConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"
g_Connect.Open iConnstr
End Sub

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


fCVcmDk3.rar (17.66 KB) 请问:如何通过VB6.0+Access编写一个登陆窗口,当输入正确的用户名和密码时,就登陆到主窗口中。



我的msn: myfend@
2006-06-18 14:57
wujingyi
Rank: 2
等 级:论坛游民
帖 子:73
专家分:55
注 册:2006-4-20
收藏
得分:0 

能写上注释吗

2006-06-18 16:23
shj99422
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-6-23
收藏
得分:0 
谢谢
2006-06-23 15:31
moshen62
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-1-12
收藏
得分:0 
这个在VB里就有的 是模版窗体叫登陆窗体

2006-06-24 13:39
xiataoyong
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-9-7
收藏
得分:0 
好!太好了!

2007-09-15 15:59
lsdrxc
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2009-3-22
收藏
得分:0 
谢谢
2010-01-09 20:30
e3bnsd
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2007-3-29
收藏
得分:0 
非常 好。学习了。
2012-12-03 20:47
快速回复:请问:如何通过VB6.0+Access编写一个登陆窗口,当输入正确的用户名和密 ...
数据加载中...
 
   



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

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