请问了：

Question

请问了： 下面的工程加入代码后，运行工程后提示错误如下：user-defined type not defined 我该怎样改才能使工程运行正常啊？？？请大侠一定帮忙看看！！谢谢！！！工程如下：http://www.jzfybjy.com/liou/sccx/uploadfile/11.rar

Answer 1

user-defined type not defined 
--------------------------------
用户自定义类型未定义..

Answer 2

工程--->引用--->Microsoft ActiveX Data Objetcs 2.1 Library另外查看了你代码，请注意对ACCESS的引用，如果是accss2000或者以上请引用jet4.0
access97 才是3.5的另外对recordset的代码实在行的不安全与规范，建议多看看代码。
你的代码有不少问题，这边不提出:)

Answer 3

万分感谢各位大哥，我出错主要在没添加对ADO的引用和没用jet4.0，还有二问题请教，请大哥一定帮忙：
1.我要在这工程的主对话框界面上的“添加纪录”这按钮上加上什么代码后，当用户在没点“登陆”按钮的情况下直接点“添加纪录”按钮就会提示：“你没有登陆,请先登陆再使用此功能,谢谢!”？？？？？
2.我要实现“登陆”按钮的功能，可我点“登陆”按钮后提示：“参数类型不正确”我应该怎样改才能实现“登陆”按钮的功能的功能啊？？？？工程如下：http://www.jzfybjy.com/liou/sccx/uploadfile/12.rar

Answer 4

1.我要在这工程的主对话框界面上的“添加纪录”这按钮上加上什么代码后，当用户在没点“登陆”按钮的情况下直接点“添加纪录”按钮就会提示：“你没有登陆,请先登陆再使用此功能,谢谢!”？？？？？
theApp.Name.IsEmpty      '这是什么啊,看不懂啊.."错误提示.要求对象"2.我要实现“登陆”按钮的功能，可我点“登陆”按钮后提示：“参数类型不正确”我应该怎样改才能实现“登陆”按钮的功能的功能啊？？？？变量冲突,把Private Sub Form_Load()过程内的注释掉就可以了Private Sub Command1_Click()
Call cmok
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
'Dim cnn As New ADODB.Recordset
'With cnn
   ' .ActiveConnection = constr
    '.CursorLocation = adUseClient
    '.CursorType = adOpenDynamic
    '.LockType = adLockBatchOptimistic
    '.Open "select * from alluser "
    'If Not (.EOF And .BOF) Then .MoveFirst
    'Do While Not .EOF
     '   Combo1.AddItem .Fields("name").Value
      '  .MoveNext
   ' Loop
    '.Close
'End With
'Set cnn = Nothing
'Combo1.Text = Combo1.List(0)
'Text2.Text = ""
End SubSub cmok()
Dim cnn As New ADODB.Recordset
With cnn
    .ActiveConnection = constr
    .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)
        ok = True
        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 5

helanshan()你好
1.theApp.Name.IsEmpty      '这是什么啊,看不懂啊. 我这是考贝的别人的代码，可能有错误，你能不能帮忙提供一下代码以实现如下功能：当用户在没点“登陆”按钮的情况下直接点“添加纪录”按钮就会提示：“你没有登陆,请先登陆再使用此功能,谢谢!”
2.我按你的方法注释掉相应代码后，我再把ACCESS数据库中予先设好的用户名和密码输入登陆对话框中，可不能通过编译，我登陆的代码错在哪？？？请帮忙再看看，谢谢。

Answer 6

//1.你能不能帮忙提供一下代码以实现如下功能：当用户在没点“登陆”按钮的情况下直接点“添加纪录”按钮就会提示：“你没有登陆,请先登陆再使用此功能,谢谢!”登陆后把用户名赋给一个全局变量User,在添加记录按钮点击事件中， 判断这个user是否为空（""）就行了，退出时别忘了注销用户名（即把user值置空）//你的数据库的用户名和密码与登陆的一致？？？可能是连接的字符串有误正确的应该是：
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\computer.mdb;Persist Security Info=False;Jet OLEDB:Database Password=XXX"
如果你的连接用静态的设置，则：
    1，新建Project。
　　2，在FORM中放入ADOConnection,ADOQuery,DataSource,Datagrid控件。
　　3，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB 　　Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件名，这时如果点“测试连接”按钮时，出现“初始化提供者时发生错误，测试连接失败，密码无效”的错误提示。
　　4，这时点“所有”页，然后双击“Jet OLEDB:Database Password”，出现对话框，添入密码后，选择“连接”页中的“测试连接”按钮，出现“测试连接成功”的对话框。把ADOConnection控件的LoginPromtp设为false.
　　5，设置连接完成。 

Answer 7

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

Answer 8

starsoulxp(星魂.NET)你好
第一个问题你说了，可我还是不会加啊！能不能把代码帮忙写出来？？？
第二个问题可能是你没明白我的意思：我问的是登陆对话框的用户名和密码，也就是点“登陆”按钮出现的对话框，可我把登陆对话框的用户名和密码输入这对话框后不能通过编译，我的登陆对话框的代码错在哪？？而不是问的怎样设连数据库的密码。