学生选课系统实验报告.docx

文档介绍：选课系统实验报告
、实验目的
（1） 掌握常用内部控件的主要属性、事件和方法，利用常用控件进行程序
设计以及编程；
（2） 掌握使用Access或者SQL sever建立数据库，实现VB与数据库的链 接；
（3） 掌握ADO控件的> >1
所有课程:
(5)利用ADO实现与数据库表的链接，编写相应代码(全部代码在工程
里，在此仅复制主要窗体的代码)；
登录窗体代码：
Private Sub Command1_Click()
If ( = 123 And = 123 And = True) Or ( = 321
And = 321 And = True) Then

= False
Else
MsgBox ”你的输入的用户名和密码不匹配，或者没有选择用户身份！ ", 64, ”提示信息”
=""
=""

End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_click()
MsgBox ”请查看Word文档“操作说明”获得用户名和密码！ ”, 64,”温馨提示”
End Sub
Private Sub Timer1_Timer()
If > 6000 Then
= 0
Else

End If
End Sub
Private Sub Timer2_Timer()
= CInt() + 10
End Sub
Private Sub Timer3_Timer()
= -1700
End Sub
选课系统窗体代码：
Private Sub Form_Load()
If = True Then
= False
= False
Elself = True Then = False
= False
= False
End If
End Sub
Private Sub基本信息管理_Click()
Dim newdoc As New基本信息管理

End Sub
Private Sub课程信息管理_Click()
Dim newdoc As New 课程信息管理

End Sub
Private Sub所有学生信息_Click()
Dim newdoc As