vb和sql做的学生成绩管理系统.docVIP

Form1的代码： Private Sub Command1_Click() Unload Me Form3.Show End Sub Private Sub Command2_Click() Unload Me Form2.Show End Sub Private Sub Command3_Click() If MsgBox(确定退出管理系统？, _ vbQuestion + vbYesNo + vbDefaultButton2, 警告！) = vbYes Then End End If End Sub Private Sub Picture1_Click() End Sub Private Sub Timer1_Timer() Command4.Caption = Time$() End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Form2的代码： Private Sub Command1_Click() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find 用户名= Text1.Text If Adodc1.Recordset.EOF = True Then Adodc1.Record