vb语言---学生管理系统

Private Sub chengjiliulan_Click() liulan.Show Unload Me End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 7 Label1(i).Visible = False Label1(i).ForeColor = vbBlue Next i Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub mnu_exit_Click() Unload Me Form1.Show End Sub Private Sub mnu_in_inendandchang_Click() Unload Me chengjiexid.Show Data1.DatabaseName = "F:\VB\student.mdb" Data1.RecordSource = "期末成绩表" Data1.Refresh End Sub Private Sub mnu_in_infor_Click() chengjiexid.Show Unload Me End Sub Private Sub mnu_in_updateandchang_Click() chengjiexid.Show Unload Me End Sub Private Sub Timer1_Timer() Static index As Integer Dim i As Integer If index <> 8 Then Label1(index).ForeColor = QBColor(Int(16 * Rnd)) Label1(index).Visible = True index = index + 1 Else For i = 0 To 7 Label1(i).Visible = False Next i index = 0 End If End Sub On Error GoTo noupdate If Trim(Text1(0)) = "" Then MsgBox "姓名不能为空！！！", , "警告！" Text1(0).SetFocus Else If Option1(0).Value = True Then Data1.Recordset.Fields("性别") = "男" Else Data1.Recordset.Fields("性别") = "女" End If Data1.Recordset.Update End If noupdate: MsgBox "" Exit Sub 新生窗体代码 Private Sub Form_Activate() If 新生资料窗体.Text1(1).Text = "林立" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(8).Visible = True 新生资料窗体.Check1(1).Visible = True 新生资料窗体.Check1(0).Visible = False End If If 新生资料窗体.Text1(1).Text = "黄旭" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(9).Visible = True 新生资料窗体.Check1(0).Visible = False 新生资料窗体.Check1(2).Visible = True 新生资料窗体.Check1(2).Value = 1 End If If 新生资料窗体.Text1(1).Text = "王东" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(10).Visible = True 新生资料窗体.Check1(3).Visible = True 新生资料窗体.Check1(0).Visible = False End If If 新生资料窗体.Text1(1).Text = "刘枫" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(11).Visible = True 新生资料窗体.Check1(4).Visible = True 新生资料窗体.Check1(0).Visible = False End If If 新生资料窗体.Text1(1).Text = "朱波" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(12).Visible = True 新生资料窗体.Check1(5).Visible = True 新生资料窗体.Check1(0).Visible = False End If End Sub