我想把以下两个窗体连上，可代码有问题，高手帮忙看看
上为窗体1，下为窗体2
窗体1 代码如下：
Public passwordkey As String
Public namekey As String
Public try_times As Integer
Private Sub Command1_Click()
Dim jh As Single
If txtuse = "" Then
   MsgBox "输入用户名"
   txtuse.SetFocus
   Exit Sub
End If
If txtpwd = "" Then
   MsgBox "输入密码"
   txtpwd.SetFocus
   Exit Sub
End If
namekey = MakeStr(txtuse)
passwordkey = MakeStr(txtpwd)
If myuser.in_db(namekey) = fals Then
   MsgBox "用户名不存在"
   try_times = try_times + 1
   If try_times >= 3 Then
     MsgBox “你已经三次尝试进入该系统，均不成功，系统将关闭"
     dbapi_disconnect
     End
    Else
      Exit Sub
    End If
End If
myuser.getinfo (namekey)
If myuser.pwd <> passwordkey Then
    MsgBox "密码错误"
    try_times = try_times + 1
    If try_times >= 3 Then
       MsgBox "你已经三次尝试进入该系统，均不成功，系统将关闭"
       dbapi_disconnect
       End
    Else
      Exit Sub
    End If
End If
If namekey = True Then
   namekey = "111111"
End If
If passwordkey = True Then
   passwordkey = "111111"
End If
If namekey = True And passwordkey = True Then
     Form2.Show
End If
curuser.getinfo (myuser.username)
Unload Me
End Sub

Private Sub Command2_Click()
   End
End Sub

请高手指教，小弟急，在线等 。。。。

哎  可惜不能上传图片， 其实 窗体1就是要输入 用户名和密码 才能进这个系统。窗体2就是 一个主系统窗体界面了，我的意思就是要输入正确用户名和密码后，连接进入窗体2

[此贴子已经被作者于2005-1-4 14:26:06编辑过]

我感觉啊1
你要的 "我的意思就是要输入正确用户名和密码后，连接进入窗体2" 好象没有这没麻烦啊!!
你应该来个简单的啊1
 如果密码.名字对. 就 秀出 form2旧可以了啊!

用不着这么麻烦的吧!

一个不用数据库管理的用户登录窗体确实没有那么多必要啊，用户名不用检验三次的规定吧。如果可以锁定的话，那肯定就麻烦了，这是在安全考虑的角度出发，如果是就交一份作业，可以不设置对用户名的三次检验。

个人感觉用数据库不会比较好

.............纠正：系用数据库会计较好

  通用  （ 声明）里       dim a
窗体加载事件中   a=0

dim b
if txt1=""  and txt2="" then
   msgbox"请输入密码或用"
elseif txt1<>"123"  txt2<>"123" and a<3 then
          a=a+1
          msgbox"密码或用户名错误"
elseif  txt="123" and txt2="123" and a<=3
           form2.show
 else
         msgbox"对不起您的密码错误超过了极限，退出系统"
         end
end if