vb课程设计报告.docVIP

Visual Basic 程序设计 综合实验 学 院： 北方科技学院 专 业： 通信工程 学 生： 学 号： 指导教师： 王晓斌 二○一三年十一月 实验目的 掌握常用控件的使用 了解数据库应用程序开发过程 掌握ADO数据控件的使用 掌握数据绑定控件的使用 掌握结构化查询语言SQL的使用 综合应用所学的知识，编写具有可视化界面的应用程序 实验内容 设计实现《学生管理系统》 要求： 设计数据库与数据表 系统登录功能 系统菜单 数据编辑浏览功能 查询功能 统计功能 系统设计要实用合理、界面友好、操作简单、便于维护。 Private Sub Command1_Click() Dim MPassword As String Adodc1.RecordSource = select * from 密码表 where username = Text1.Text Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MPassword = Adodc1.Recordset.Fields(password) If Text2.Text = MPassword Then 判断数据的密码是否正确 Name1 = Text1.Text Form2.Show frm_Main.Show Unload Me Else MsgBox 密码不正确,请您确认后重新输入, , 提示信息 Text2.Text = Text2.SetFocus End If Else MsgBox 对不起 没有此用户的信息, , 提示信息 Text1.Text = Text2.Text = End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Adodc1.RecordSource = select * from 密码表 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then ListView1.Enabled = True ListView1.ListItems.Clear i = 1 Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False Key = Adodc1.Recordset.Fields(username) Set itmX = ListView1.ListItems.Add(, , Key, i) i = i + 1 Adodc1.Recordset.MoveNext Loop Else ListView1.Enabled = False End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub ListView1_Click() Text1.Text = ListView1.SelectedItem Adodc1.Refresh Text2.SetFocus End Sub Private Sub find_Click() Form3.Show End Sub Private Sub Form_Load() End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Form3.Show Case 2 Form4.Show End Select End Sub Private Sub Command1_Click() zy = Combo1 Adodc1.RecordSource = select * from 学生信息 wh