UC知道VB做登录界面，找书上来，怎么做都错，那位大仙路过帮帮忙告诉我错在哪里？
来源：百度知道 编辑：UC知道 时间：2024/06/04 09:23:46
这段是书上的代码，但是怎么都是错的，拜托帮帮忙告诉我错在哪，不要直接给我另一段程序，我只是想知道这个错在哪，该怎么改，万分感谢！！！！！
Private Sub 登录_Click()
On Error GoTo Err_登录_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim strsql As String
Dim db
Dim user
Set db = CurrentDb
strsql = " select * from 用户 where [用户名] = ' " +Me![username] .Value + " 'and [密码] =' " + Me![passwd1] .Value + " ' "
Set user = db.OpenRecordset(strsql)
If user.RecordCount > 0 Then
username1 = user! [用户名]
qualified = user! [权限]
Form_网上书店.button1.SetFocus
Form_网上书店.登录.Visible = False
Select Case qualified
Case 0
Form_网上书店.button1.Caption = "订单处理"
Form_网上书店.button2.Caption = "打印送货单"
Form_网上书店.button3.Caption = "订单入账"
Form_网上书店.button4.Caption = "退出"
Case 1
Form_网上书店.bu
Private Sub 登录_Click()
On Error GoTo Err_登录_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim strsql As String
Dim db
Dim user
Set db = CurrentDb
strsql = " select * from 用户 where [用户名] = ' " +Me![username] .Value + " 'and [密码] =' " + Me![passwd1] .Value + " ' "
Set user = db.OpenRecordset(strsql)
If user.RecordCount > 0 Then
username1 = user! [用户名]
qualified = user! [权限]
Form_网上书店.button1.SetFocus
Form_网上书店.登录.Visible = False
Select Case qualified
Case 0
Form_网上书店.button1.Caption = "订单处理"
Form_网上书店.button2.Caption = "打印送货单"
Form_网上书店.button3.Caption = "订单入账"
Form_网上书店.button4.Caption = "退出"
Case 1
Form_网上书店.bu
这么晚上来，就看到这个，看在你一百分的份上，我仔细的看了下。
On Error GoTo Err_登录_Click '这段先注释掉，这段的意思是发生错误的时候跳转到 Err_登录_Click 执行。你先注释掉！！
strsql = " select * from 用户 where [用户名] = ' " +Me![username] .Value + " 'and [密码] =' " + Me![passwd1] .Value + " ' "
这个“用户”是表名，你的表名确定是用户吗？你用你表里的键值是“[用户名]”名，检查下表，根据实际名称来写。
username1 = user! [用户名]
qualified = user! [权限]
这两个也一样，同上
再往下的代码没问题，语法是正确的。另外我不理解有很多人为什么用中文来命名过程名和变量，很简单的一个问题，这样的程序在中文系统OK，但在英文系统就可能运行不正常。改一下变量，两种系统都OK，何乐而不为？程序最重要的是稳定性和兼容性，不是程序员代码的可读性，你换VC看下，就知道看VB代码其实是一种幸福的事。
赶紧给一楼分吧！还等啥呢？对一楼佩服的五体投地！感觉你对VB有很深的认识！我是学软件开发的也涉及但所学和一楼相祛甚远。
其实就是没有数据库 所以错误
例子的话 你也要建立数据库
大神，你的对象名可以不用中文吗