| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1023 人关注过本帖
标题:谁知道这段VB那不对劲啊?/?
只看楼主 加入收藏
wsn
Rank: 2
等 级:新手上路
威 望:5
帖 子:321
专家分:0
注 册:2006-2-9
收藏
得分:0 

哈,一直都是上班的呀


已婚男人!没事请勿打扰·老婆格言:①不准對她耍酷 ②不准讓她吃醋 ③吵架我要讓步 ④揍我我要挺住⊙⊙
2006-03-25 11:06
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
收藏
得分:0 
wsn看看我的贴,WindowsMediaPlayer那个

爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-03-25 11:12
座间翔
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-3-17
收藏
得分:0 

我的是这样写的.已经测试过了


Private Sub cmdok_Click()
Dim txtsql As String
Dim rs1 As ADODB.Recordset

If Len(atxtUserName) = 0 Then '判断输入是否为空
MsgBox "请输入用户名!", vbOKOnly + vbExclamation
ElseIf Len(atxtPWD) = 0 Then
MsgBox "请输入密码!", vbOKOnly + vbExclamation

Else
txtsql = "select * from 用户 where 用户名 = '" & Trim(atxtUserName.Text) & "'" '检验输入用户名是否存在
Set rs1 = ExecuteSQL(txtsql)
If rs1.RecordCount = False Then
MsgBox "该用户名不存在,请重新输入!", vbOKOnly + vbExclamation
Exit Sub
End If
txtsql = "select * from 用户 where 密码 = '" & Trim(atxtPWD.Text) & "'" '检验输入的密码是否正确
Set rs1 = ExecuteSQL(txtsql)
If rs1.RecordCount = 0 Then
MsgBox "密码不正确,请重新输入!", vbOKOnly + vbExclamation
Exit Sub
Else
Unload Me
frmmain.Show

End If
End If

End Sub

2006-03-26 00:17
快速回复:谁知道这段VB那不对劲啊?/?
数据加载中...
 
   



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

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