密码登陆(快急死我了,5555)

Question

up
up
up
up
up
up

Answer 1

private sub text1_LostFocus()
Dim strSQL as string
strsql="Select UserName,Password from Table Where ID='" & trim(text1.text) & "'"
rs.open strsql,bd,.............
text2.text=rs("UserName")
end sub

Answer 2

给你一段代码
Private Sub txtItem_Change(Index As Integer)
    '有变化设置gblchange
    mblChange = True
    If Index = 0 Or Index = 1 Then
        If Trim(txtItem(0) & " ") <> "" And Trim(txtItem(1) & " ") <> "" Then
            txtItem(2) = Format(CDbl(txtItem(0)) * CDbl(txtItem(1)), "#0.00")
        Else
            txtItem(2) = 0
        End If
    End If
End Sub

Answer 3

Private Sub txtItem_Change(Index As Integer)
    '有变化设置gblchange
    mblChange = True
    If Index = 0 Or Index = 1 Then
        If Trim(txtItem(0) & " ") <> "" And Trim(txtItem(1) & " ") <> "" Then
            txtItem(2) = Format(CDbl(txtItem(0)) * CDbl(txtItem(1)), "#0.00")
        Else
            txtItem(2) = 0
        End If
    End If
End Sub

Answer 4

用VB本身自带的登录窗体不可以吗！"工程"/"添加窗体"/"登录对话框"/打开在frmlogin窗体上加一个ADO控件使ADO与你做的数据库连接把"确定"中的代码删除!写入以下代码！Private Sub cmdOK_Click()
    Adodc1.Recordset.MoveFirst
   Do While Adodc1.Recordset.EOF = False
        If Trim(Adodc1.Recordset!用户名) = Trim(txtUserName) And Trim(Adodc1.Recordset!密码) = Trim(txtPassword) Then
           Me.Hide
           Form1.Show
           Exit Sub
       End If
       Adodc1.Recordset.MoveNext
  Loop
       MsgBox "用户名或密码错误!"
End Sub
我连的是access数据库！可能和你想做的数据不太一样！但也可以实现常见的登录功能！你试试看行不行！

Answer 5

dim rs as recordset rs=db.openrecordset"SELECT * FROM TB where id="&trim(text1.text)&""if not rs.eof then
    text2.text=rs!Name
    text3.setforus
end if其他的你自己写吧，主要的是这些了！