【正文】 n ExplicitPrivate n As New Private Rs As New Private Sub Command1_Click(Index As Integer) select * from 教師表, DSN=db1。 group by StudentID , n, 3, 3Label12(0).Caption = (0).Value select max(Score),avg(Score),min(Score) from Score where =39。 n select , , , from Student,Class,Department where = and =, n, 3, 3 select , , , from Student,Class,Department where = and =, n, 3, 3call datashow1(rs,msflexgrid1)Call ShowData select count(*) from Score where 60 and =39。Case 1End SelectEnd SubPrivate Sub Form_Load()Set n = New Set Rs = New DRIVER=Microsoft Access Driver (*.mdb)。 39。 amp。39。 39。 amp。 39。 39。 \39。 \39。 39。 CourseID like amp。 amp。DBQ= amp。, n, 3, 3Call ShowDataEnd SubPrivate Sub ShowData() = (0).Value = (1).Value = (2).Value = (3).ValueEnd Sub（2） 系統(tǒng)管理操作1）主界面： Private Sub a1_Click()End SubPrivate Sub a2_Click()End SubPrivate Sub b1_Click()End SubPrivate Sub b3_Click()Dim a$a = InputBox(請輸入管理員的密碼 , 密碼)If a 01 ThenMsgBox 密碼錯誤，請重新輸入, vbDefaultButton1a = InputBox(請輸入管理員的密碼 , 密碼)ElseEnd IfEnd SubPrivate Sub b4_Click()EndEnd SubPrivate Sub c1_Click()End SubPrivate Sub c2_Click()End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 = 1Case 1 = 0Case 2 = 2End SelectEnd SubPrivate Sub d1_Click()End SubPrivate Sub f1_Click()End SubPrivate Sub Form_Load()39。and Password = 39。 n select * from Users where UserName=39。 , n, 3, 3Call ShowDataEnd SubPrivate Sub ShowData() = (0).Value = (1).Value = (2).Value = (3).ValueEnd Sub2） 信息修改Option ExplicitPrivate n As New Private Rs As New Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0If = Or = Or = ThenMsgBox UserID Password UserName 不能為空，請輸入, vbOKOnlyEnd IfMsgBox 修改成功！Case 1Case 2End SelectEnd SubPrivate Sub Form_Load()Set n = New Set Rs = New DRIVER=Microsoft Access Driver (*.mdb)。 and Password = 39。 \ select * from Users where UserName=39。 n select * from Users, n, 3, 3End Sub附錄3：教務管理模塊（1）文件操作 1）個人信息 Option ExplicitPrivate n As New Private Rs As New Private Sub Command1_Click() = True = True = True = TrueEnd SubPrivate Sub Form_Load()Set n = New Set Rs = New 39。)MsgBox 注冊成功, vbOKOnlyEnd IfCase 1 = = = = = Case 2End SelectEnd SubPrivate Sub Form_Load() = = = = = Set n = New Set Rs = New DRIVER=Microsoft Access Driver (*.mdb)。,39。,39。,39。 = End SubPrivate Sub Timer1_Timer()If = Then = 0End IfIf = 0 Then = + 20If 0 And Then = + 20End SubPrivate Sub Timer2_Timer() = NowEnd Sub附件2： 用戶注冊Private n As New Private Rs As New Private Sub Command1_Click(Index As Integer)Dim a%a = 1Select Case IndexCase 0If = Or = Or = Or = Or = ThenMsgBox UserID Password UserName 不能為空，請輸入, vbOKOnlya = 0Exit SubEnd IfIf ThenMsgBox Password 和 Password again 不一致，請正確輸入, vbOKOnlya = 0Exit SubEnd IfIf a = 1 Then insert into Users values (39。 39。 39。 amp。 amp。 附錄附件1:登錄界面的設計Private n As New Private Rs As New Private Sub Command1_Click(Index As Integer)Dim a$Dim b$39。當下次我接觸到新知識時，我會知道我該做些什么，該去看那些書籍資料，心中就會有一個明確的目的。程序中還有蠻多可以改進