VB课堂点名回答问题系统的设计与实现.doc

VB课堂点名回答问题系统的设计与实现 目 录 中文摘要 Ⅰ 英文摘要 Ⅱ 第一章 标题 1 第一节 标题 1 一、 2 二、 3第二节 标题 一、 二、 第二章 标题 第一节 标题 一、 二、 第二节 标题 一、 二、 参考文献 附录（可选） 致谢  1）控件 属性 属性取值 Form1 Brderstyle 0-None Picture 登录.jpg StartUpPosition 2-屏幕中心 Caption 登录 WindowState 0-Normal Maxbutton false Label1 caption 空 Brderstyle 0-None Backstyle 0-Transparent Label2 caption 空 Brderstyle 0-None Backstyle 0-Transparent Label3 caption 空 Brderstyle 0-None Backstyle 0-Transparent Text1 text 空 Borderstyle 0-None Appearance 0-Flat Text2 text 空 Borderstyle 0-None Appearance 0-Flat Adodc1 Commandtype 1-adCmdText RecordSource 注册信息表 visible false connectionstring Privider=Microsoft.jet.OLEDB.4.0;Data Source=’数据库路径’;persist security info=false 表2-2 登陆界面控件属性 添加代码： Private Sub Form_Load() Text1.Text = 教师编号 Text2.Text = 密码 End Sub Private Sub Form1_Resize() If isiconic(Me.hWnd) 0 And minflag = False Then minflag = True iccardmain.Visible = False Call icon_add(Me.hWnd, Me.Caption, iccardmain.Icon, 0) End If End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub Label1_Click() Form2.Show Unload Me End Sub Private Sub Label2_Click() If Text1.Text = Or Text2.Text = Then MsgBox 教师编号或密码不可为空！, , 提示 Exit Sub Else Adodc1.RecordSource = select * from 注册信息表 where 教师编号= Trim(Text1.Text) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then 查找存在该用户 If Adodc1.Recordset.Fields(密码) Text2.Text Then 核对用户密码 MsgBox 密码错误,请重新输入！, vbOKOnly + vbExclamation, 提示： Text2.Text = Else 密码正确 Form3.Show Me.Hide End If Else MsgBox 教师编号错误或不存在！, , 提示 End If End If End Sub Private Sub Label3_Click() Form1.Visible = False End Sub Private Sub Label4_Click() Form4.Show Unload Me End Sub Private Sub Text1_GotFocus() If Text1.Text = 教师编号 Then Text1.Text = End Sub Private Su