VB +access 2003 登录问题我在网上找了好多个 登录代码 一运行就出错!不知道错在那里呀!!请高手大哥 给一
VB +access 2003 登录问题[最优解释] [其他解释]
引用: 引用: [其他解释] 楼主VB没入门
[其他解释] 要配置数据库，建表。
找本书耐心看下，不行么？
[其他解释] 结帖率：0.00%
[其他解释] 打本书看当然可以了
在网上不更快些呀!!
想学习对数据库的操作, 主要是这些呀
[其他解释] 引用: 打本书看当然可以了 更快学会还是更快糊弄过去。如果你想法是更快糊弄过去，你的问题没有任何回答价值。
自己赚钱当然可以，但是乞讨更容易啊，是不是。
[其他解释] 大哥!你太有才了
学习!!学习再学习!!
[其他解释] 引用: 结帖率：0.00% 真的很不好意思呀!! 现在把以前的帖子都结了! 谢谢你的提醒!!
[其他解释] 网上解答和看书的不同是，书上的字印在纸上，有图有真相，写得详细。
网上的内容字写在屏幕上。
就这么个区别。没有办法代替你的实践和思考。
[其他解释] 有本新版VB6.0 好象是04年买的,里面实例太少! 也不是说书本不好,
有实例 可以让自己的见识多一些, 思考他们的想当!和方法,说的好听叫借鉴,不好听不就什么了吗
首先要理解他们的的每一条代码的意思,重在理解呀!
[其他解释] 因为VB6已经基本过时了，所以没有什么好书出来。
lz去图书馆或者网上看看，推荐2本：
《Visual Basic 6.0中文版傻瓜书》清华
《Visual Basic 6.0中文版程序员指南》希望
[其他解释] 还是个代码看看吧
Call OpenData
SQL = "select 密码 from 用户管理 where 用户名='" & Trim(YHM.Text) & "'"
rs.Open SQL, con, 1, 1
If Trim(MM.Text) = Trim(rs.Fields("密码")) Then
CZY = Trim(YHM.Text) '当前操作员用户
If CZY = "admin" Then
CzyBZ = True
Else
CzyBZ = False
End If
Call CloseData
[其他解释]
引用: 还是个代码看看吧 有全一些的吗
CALL 这个我不明白呀!
用ado 控件的那种
[其他解释] msdn 我安的是中文版的呀, 不过帮助里是英文的呀!
[其他解释] 别人不是给代码了吗，还搞不定？
[其他解释] http://download.csdn.net/source/1627068
[其他解释] 我添加了一个DATA 控件 新建了一个huwu.MBD 表的名字叫 用户管理 表里设置了两个用户名为主键,密码
textbox 添加两个 一个是YHM 一个是MM
按钮两个 一个登录 一个退出
请问有什么个地方不对的吗! 谢谢!!
不知道还缺少什么?
[其他解释] CZY = Trim(YHM.Text) '当前操作员用户
If CZY = "admin" Then
CzyBZ = True
Else
CzyBZ = False
CzyBZ 是什么
这个看不懂呀
[其他解释] Private Sub Command1_Click()
Call OpenData
SQL = "select 密码 from 用户管理 where 用户名='" & Trim(YHM.Text) & "'"
rs.Open SQL, con, 1, 1
If Trim(MM.Text) = Trim(rs.Fields("密码")) Then
CZY = Trim(YHM.Text) '当前操作员用户
If CZY = "admin" Then
CzyBZ = True
Else
CzyBZ = False
End If
Call CloseData
Unload Me
Load MDIForm1
MDIForm1.Show
Else
MsgBox "密码错误！", 48, "提示"
Cs = Cs + 1
If Cs = 3 Then
[其他解释]
引用: CZY = Trim(YHM.Text) '当前操作员用户 CZYBZ是我用于标识当前登录的用户是否管理员，用于后面的权限设置。
[其他解释] 引用: Private Sub Command1_Click() 当然要连接数据库啊，要不你的密码、用户存在哪里
[其他解释] Call OpenData
'是我调用连接数据库的函数
call closedata
'是关闭数据库的函数
[其他解释] 再给你段代码，不用数据库的。 vb编写程序:用VB编写登录程序
我们都知道 在进入Windows操作系统时会出现 个登录对话框 要求用户输入密码后才能进入Windows 我们用VB也可以编写这样 登录窗口 其具体思路方法如下:
界面设计:
打开“VB6.0” 出现“新建工程”对话框 选择“标准EXE”单击“打开”即可新建 个工程 新建 个工程后 VB自动生成了 个窗体 其默认 名称是Form1 且显示 标题也是Form1 显然和我们要编写 不符 我们可以更改这些设置 思路方法是:点击Form1窗体 在右边 属性窗口中(如图1) “名称”后输入“Denglu”(在后面讲 Denglu就是指 这个窗体) 在“Caption”后输入“登录窗口” 窗体设置好后 我们便可以将Control控件放置到这个窗体中去了
“登录窗口”中主要用到 是TextBox(文本框)Control控件 该Control控件主要是用于接收用户输入 文字并显示出来 在该 中我们便可以使用TextBoxControl控件接收用户输入 信息来判断是否是合法 用户 另外 我们还将用到Label(标签)Control控件及CommandButton(命令按钮)Control控件 LabelControl控件用来显示“用户名”及“密码”标题；CommandButtonControl控件用来设计“确定”及“取消”按钮 下面我们将这些Control控件放置到窗体中:在工具箱中选择“Label”Control控件(如图2) 在窗体中拖动鼠标直到 定 大小 然后在属性窗口中 “Caption”属性后为输入“用户名” 然后在其下方再拖动 个LabelControl控件 将Caption 值改为“密码:”；在工具箱中选择“TextBox”Control控件(如图3) 在“用户名”后拖动 个TextBoxControl控件 用同样 思路方法在“密码:”后拖动 个TextBoxControl控件 然后在“属性窗口”中将Text 值改为空(即删除默认 Text1) 为了不显示出用户输入 密码 我们将第 2个TextBoxControl控件 PasswordChar属性设置为＊(如图5) 这样在用户输入密码时显示 就是＊了；在工具箱中选择“CommandButton”Control控件(如图4) 将其拖动到窗体 下方( 共两个) 分别设置其Caption属性为“确定”和“取消” 调整好这些Control控件 位置(如图6)后即可完成界面 设计
代码:
该 主要目 是要判断输入 用户名是否合法 所以我们首先编写判断用户名 代码 双击“确定”按钮 添加如下 代码:(黑体部分为系统自动生成 代码 楷体为注释)
Private Sub Command1_Click
′判断是否输入了用户名
If Text1.Text=″″ Then ′如果Text1为空 即没有输入用户
MsgBox ″请输入用户名！″,vbOKOnly＋vbCritical,″ ″
Exit Sub ′退出这个过程
Else ′如果输入了用户名
If Text1.Text=″软件Software世界″ And Text2.Text=″12345″ Then ′如果输入 用户名是″软件Software世界″且密码为″12345″
MsgBox ″你是合法用户 欢迎进入！″,vbOKOnly＋vbInformation,″欢迎进入″
Else ′如果不是″软件Software世界″或密码不是″12345″
MsgBox ″用户名或密码 ！″,vbOKOnly＋vbCritical,″ ″
Text1.Text=″″
Text2.Text=″″ ′清空Text1及Text2Control控件中 文本内容 让用户重新输入
End If
End If
[其他解释] [其他解释] [其他解释]
引用: sunjs12345哥们 真的很感谢 我感觉你应该先学习一下怎么建立数据库，然后学习往数据库里添加记录集！！
数据库里的表中建立所需要的字段名为（ 组号 款式 颜色 尺寸 领到 完成 剩余
）
当要显示的时候就用SQL的sum功能统计一下，是否完成，剩余多少
http://download.csdn.net/source/3167694
[其他解释] 我不是球迷呀! 对NBA不咋有感觉呀, 至从乔丹走了, NBA 我已经没有感觉了,
我只是想学,怎么比较TXT 里输入的数据和数据库里的做比较 就是读写!!
真恨自己大学里学的不是编程呀,喜欢这个却学的别的,不过我在大学里学过C ,也学过QBASIC
[其他解释] 語文課上做數學題繡八怪
[其他解释] 上次你给的代码,我就是那个才知道怎么连接数据库
真的很感谢!!!
[其他解释] 昨天到今天我总共做好了三种登录,一种不有数据库,后二种用的都是数据库
我把SQL 也学习了一个, 也测试了里面的功能! 还有一些疑问要向大家提问一下!
今天我结贴了
[其他解释] 该回复于2011-05-10 10:37:23被版主删除
