请教大侠二问题,问题解决后马上结贴,请大侠一定帮我一下,谢谢!!

Question

请教大侠二问题,问题解决后马上结贴,请大侠一定帮我一下,谢谢!!1.我这是考贝的别人的代码，可能有错误，大侠能不能帮忙提供一下代码以实现如下功能：当用户在没点“登陆”按钮的情况下直接点“添加纪录”按钮就会提示：“你没有登陆,请先
登陆再使用此功能,谢谢!”
2.我把ACCESS数据库中予先设好的登陆的用户名和密码输入登陆对话框中，可不能通过编译，我登陆的代码错在哪？？？请帮忙看看，谢谢。工程如下：http://www.jzfybjy.com/liou/sccx/uploadfile/13.rar

Answer 1

瓦，你哪个数据库问题多多，好多东西写的莫名其妙啊。比如说frmlogin里.ActiveConnection = constr，constr根本就没有定义。怎么可能连接到数据库了 。

Answer 2

帮你该一下：
formlogin中的代码
Dim ok As Boolean
Private Sub Command1_Click()
Call cmok
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Sub cmok()
Dim cnn As New ADODB.Recordset
With cnn
    .ActiveConnection = formMain.conn   ‘改为formmain中的connection对象conn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockBatchOptimistic
    .Open "select * from alluser where name='" & Trim(Combo1.Text) & "'"
    If Trim(Text2.Text) <> .Fields("pwd").Value Then
        MsgBox "密码错误，请重输！", vbInformation, "提示"
        Text2.Text = ""
        Text2.SetFocus
    Else
        name1 = Trim(Combo1.Text)   ‘这个地方的变量不可以定义为name
        ok = True
       Unload Me
       MsgBox "登陆成功"
    End If
    .Close
End With
Set cnn = Nothing
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call cmok
End If
End Subformmain中的conn定义为公共的，即
Public conn As New ADODB.Connection添加记录中的代码改为：
Private Sub Command1_Click(Index As Integer)
   If FormLogin.ok = False Then   ‘表明没有登陆
   MsgBox "你没有登陆,请先登陆再使用此功能,谢谢!"
   Exit Sub   ’没有登陆则改不显示formtjj1
   End If
   FormTjjl.Show  ’
End Sub其他几个按钮是一样的改。

Answer 3

新建一个公共模块,在其中定义一个全局变量(public Logined AS Boolean),用来标识是否已登录,
当登录成功后,设置该变量的值为已登录(Logined=True)然后再在要判断是否登录的地方写上
If Not Logined Then
   MsgBox "你还没有登录,请登录..!",VbInformation
   Exit Sub  '或者Exit Function
End If

Answer 4

谢谢,第一个问题按你的方法解决了问题.
可第二个问题,当我把ACCESS数据库中予先设好的登陆的用户名admin和密码123输入登陆对话框中就会提示：未找到方法或数据成员.请再帮忙看看.

Answer 5

把formmain中的Dim conn As New ADODB.Connection该为public conn As New ADODB.Connection

Answer 6

我以前是学vc的,可我发现用vc来做数据库编程太复杂了,故简单学了一下vb,用vb来做数据库编程,我觉得vb在这方面的功能太强了,恳请各位大侠帮帮我.

Answer 7

还是提示：未找到方法或数据成员,我的代码如下,错在哪啊???Public conn As New ADODB.Connection
Dim ok As Boolean
Private Sub Command1_Click()
Call cmok
End SubPrivate Sub Command2_Click()
Unload Me
End SubSub cmok()
Dim cnn As New ADODB.Recordset
With cnn
    
    '.ActiveConnection = constr
    .ActiveConnection = formMain.conn   '改为formmain中的connection对象conn    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockBatchOptimistic
    .Open "select * from alluser where name='" & Trim(Combo1.Text) & "'"
    If Trim(Text2.Text) <> .Fields("pwd").Value Then
        MsgBox "密码错误，请重输！", vbInformation, "提示"
        Text2.Text = ""
        Text2.SetFocus
    Else
        'Name = Trim(Combo1.Text)
        name1 = Trim(Combo1.Text)   '这个地方的变量不可以定义为name        ok = True
        Unload Me
       MsgBox "登陆成功"        'Me.Hide
    End If
    .Close
End With
Set cnn = Nothing
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call cmok
End If
End Sub

Answer 8

Public conn As New ADODB.Connection是定义在formmain中的，不是formlogin中，因为他是在formmain中初始化的。

Answer 9

SOrry,变量OK也要定义为public类型的。这样就没有问题了。

Answer 10

还有一个问题请教:我登录后(登录用户名admin 密码123),直接点“添加纪录”"修改纪录""删除纪录""查询纪录"按钮就会提示:run-the error 424 object required,这是怎么回事啊??我该怎样改代码啊????工程如下：http://www.jzfybjy.com/liou/sccx/uploadfile/14.rar

Answer 11

比如点“添加纪录”按钮就提示:下面代码有错误 ,是游標设得有问题还是其他原因啊???? 
rs.Open "insert into gl (name,xb,nl,ks,zc,byxx,bz) values ('" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text7.Text) & "','" & Trim(Text7.Text) & "')", conn, adOpenStatic, adLockOptimistic  工程如下：http://www.jzfybjy.com/liou/sccx/uploadfile/14.rar

Answer 12

_____________________________________________________________________________该问题已经结贴 ，得分记录：  zairwolfc (100)

Answer 13

sorry to laviewpbt(pbt) ,不是我结的帖,是别人在我不知情的情况下结了,强列反对!!!!

Answer 14

laviewpbt(pbt)和各位大侠好:
我这工程已改得差不多了，只有一点问题无法解决，解决后马上结贴，也就是我登录后(登录用户名admin 密码123),直接点“修改纪录”按钮就会话出现一对话框，在输入要修改的姓名后按“搜索”后出现相应数据，输入要修改的姓名后，按下对话框方的修改纪录按钮后提示:连接无法用于此操作，在此上下文可能关闭。这是怎么回事啊??我该怎样改代码啊????工程如下：http://www.jzfybjy.com/liou/sccx/uploadfile/15.rar