vb和SQL做的学生成绩管理系统.doc

文档介绍：Form1的代码:
Private mand1_Click()
Unload Me

End Sub
Private mand2_Click()
Unload Me

End Sub
Private mand3_Click()
If MsgBox("确定退出管理系统?", _
vbQuestion + vbYesNo + vbDefaultButton2, "警告!") = vbYes Then
End
End If
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub Timer1_Timer()
= Time$()

End Sub
Private Sub Form_Load()
= 1000
= True
End Sub
Form2的代码:
Private mand1_Click()

"用户名='" & & "'"
If = True Then
If ((Trim()) = (Trim())) And ((Trim()) = (Trim())) Then
= False
=
Unload Me

Else
MsgBox "非法的账号!", vbOKOnly + vbExclamation, "请重新输入!"
= ""
= ""

End If
End Sub
Private mand2_Click()
= ""
= ""
End Sub
Private mand3_Click()
Unload Me

End Sub
Private Sub Form_Load()
= ""
= ""
= "*"
End Sub
Private Sub Picture1_Click()
End Sub
Form3的代码:
Private mand1_Click()

"用户名='" & & "'"
If = True Then
If ((Trim()) = (Trim())) And ((Trim()) = (Trim())) Then
= False
=
=
Unload Me

Else
MsgBox "非法的账号!", vbOKOnly + vbExclamation, "请重新输入!"
= ""
= ""

End If
End Sub
Private mand2_Click()
= False
= False
= ""
= ""
End Sub
Private mand3_Click()
Unload Me

End Sub
Private Sub Form_Load()
= ""
= ""
= "*"
End Sub
无代码
Form5的代码:
Private S