中信证券手机版下载高端:如何用 visual basic 6.0编写会员帐号与密码的程序

那很麻烦，要建数据库
找回密码我没做过，其它的都做过～

VB+ACCESS.
你又不给分,又想要程序啊?
太那个了吧

Dim constr As String
constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=lzx"
cnn.Open constr

Private Sub Command1_Click()
Dim sql As String
Dim rst As New ADODB.Recordset
If n = 3 Then
Unload Me
Else
sql = "select * from mima where username='" + Me.Combo1.Text + "'and password='" + Text2.Text + "'"
rst.Open sql, cnn, adOpenKeyset, adLockReadOnly
If rst.RecordCount > 0 Then '数据库中查没查到这个用户（查询到的次数）
qwe = rst.Fields(2)
Frmain.Show
username = Me.Combo1.Text
Unload Me
Else
MsgBox "您的用户名或密码有误，请核对后重新输入", 0, "警告"
Combo1.SetFocus
n = n + 1
End If
End If

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim sql As String
Dim i As Integer
Dim rst As New ADODB.Recordset
sql = "select username from mima"
rst.Open sql, cnn, adOpenKeyset, adLockReadOnly
For i = 0 To rst.RecordCount - 1
Me.Combo1.AddItem rst.Fields(0)
rst.MoveNext
Next
End Sub

Private Sub Form_Resize()
Me.Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '按回车自动到command1
Command1_Click
End If
End Sub

Private Sub Text2_LostFocus()
Text2.SelStart = 0 '返回后字为篮
Text2.SelLength = Len(Text2.Text)
End Sub

这是完整的用户登陆

密码找回可以跟据上面的写代码比简单我就不做介绍了.