这是用VB编写的学生信息管理系统
1.用户登录界面的代码
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 用户信息表 where 用户名='" & Text1 & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户,请重新输入正确的用户名", , "错误提示"
Else
If Text2 = Adodc1.Recordset.Fields("密码") Then
MsgBox "登录成功!", , "正确提示"
用户登录窗体.Hide
选择操作窗体.Show
Else
MsgBox "您的密码错误,请输入正确的用户密码", , "错误提示"
End If
End If
If Text1 <> "系统管理员" Then
选择操作窗体.Command1.Enabled = False
选择操作窗体.Command3.Enabled = False
End If
End Sub