VB学生信息管理系统

VB学生信息管理系统
4.系统的功能
本部分主要内容为本系统的运行界面以及主要界面的源代码。
4．1系统登陆界面：
本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用909;909为用户名和密码来登陆本系统。

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
  MsgBox " 用户名错误！", vbExclamation + vbOKOnly, "警告"
  Text1.SetFocus
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1.Text)
  Exit Sub
End If
username = mrc.Fields(0)
txtsql2 = "select username from use where password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql2)
If mrc.EOF = True Then
  MsgBox " 密码错误！", vbExclamation + vbOKOnly, "警告"
  Text2.SetFocus
  Text2.SelStart = 0
  Text2.SelLength = Len(Text2.Text)
  Exit Sub
End If
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
  MsgBox "用户名称和密码不匹配！", vbExclamation + vbOKOnly, "警告"
  Exit Sub
End If
MDIForm1.Show
frmcpass.Text1.Text = Text1.Text
Unload Me
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text2.SetFocus
End If
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 Command1.SetFocus
End If
End Sub