vb 快完了，高手帮忙，vb项目设计课在线求救。

来源：百度知道 编辑：UC知道 时间：2024/09/21 16:36:04
设置一个登陆界面，有初始密码
可以注册新用户，修改密码，保存在新建文件夹中。
在线等。。。

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
If Txt1.Text = "" Or txt2.Text = "" Then
MsgBox "请输入账号，密码！", , "提示"
Txt1.SetFocus
Else
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\紧急呼叫中心\紧急呼叫中心软件\lxm.mdb;Persist Security Info=False"
sql = "Select 员工账号管理.* From 员工账号管理 Where 员工账号管理.账号 = '" & Txt1.Text & "' "
rs.Open sql, cn, 1, 1
If rs.EOF = True Then
MsgBox "账号错误！", , "提示"
Txt1.Text = ""
txt2.Text = ""
Txt1.SetFocus
Else
If rs!密码 = txt2.Text Then
form3.Show
Form1.Hide
Else
MsgBox "密码错误！", , "提示"
txt2.Text = ""
Txt1.SetFocus
End If
End If
End If
End Sub

Private S