vb和SQL做的学生成绩管理系统(共21页).doc

精选优质文档-倾情为你奉上Form1的代码：Private Sub Command1_Click()Unload MeForm3.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command3_Click()If MsgBox(确定退出管理系统？, _ vbQuestion + vbYesNo + vbDefaultButton2, 警告！) = vbYes ThenEndEnd IfEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub Timer1_Timer()Command4.Caption = Time$() End SubPrivate Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = TrueEnd S