vb课程设计报告

VisualBasic程序设计综合实验学院：北方科技学院专业：通信工程学生：学号：指导教师：王晓斌二○一三年十一月实验目的掌握常用控件的使用了解数据库应用程序开发过程掌握ADO数据控件的使用掌握数据绑定控件的使用掌握结构化查询语言SQL的使用综合应用所学的知识，编写具有可视化界面的应用程序实验内容设计实现《学生管理系统》要求：设计数据库与数据表系统登录功能系统菜单数据编辑浏览功能查询功能统计功能系统设计要实用合理、界面友好、操作简单、便于维护。PrivateSubCommand1_Click()DimMPasswordAsStringAdodc1.RecordSource="select*from密码表whereusername='"&Text1.Text&"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenMPassword=Adodc1.Recordset.Fields("password")IfText2.Text=MPasswordThen'判断数据的密码是否正确Name1=Text1.TextForm2.Show'frm_Main.ShowUnloadMeElseMsgBox"密码不正确,请您确认后重新输入",,"提示信息"Text2.Text=""Text2.SetFocusEndIfElseMsgBox"对不起没有此用户的信息",,"提示信息"Text1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()'Adodc1.RecordSource="select*from密码表"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenListView1.Enabled=TrueListView1.ListItems.Cleari=1Adodc1.Recordset.MoveFirstDoWhileAdodc1.Recordset.EOF=FalseKey=Adodc1.Recordset.Fields("username")SetitmX=ListView1.ListItems.Add(,,Key,i)i=i+1Adodc1.Recordset.MoveNextLoopElseListView1.Enabled=FalseEndIfEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubListView1_Click()Text1.Text=ListView1.SelectedItem'Adodc1.RefreshText2.SetFocusEndSubPrivateSubfind_Click()Form3.ShowEndSubPrivateSubForm_Load()EndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Form3.ShowCase2Form4.ShowEndSelectEndSubPrivateSubCommand1_Click()zy=Combo1Adodc1.RecordSource="select*from学生信息where专业='"&zy&"'"Adodc1.RefreshEndSubPrivateSubCommand2_Click()Adodc1.RecordSource="select专业,count(*)as人数from学生信息groupby专业"Adodc1.RefreshEndSubPrivateSubCommand3_Click()Adodc1.RecordSource="select*from学生信息