vb課程設計報告

VisualBasic程序設計綜合實驗學院：北方科技學院專業(yè)：通信工程學生：學號：指導教師：王曉斌二○一三年十一月實驗目的掌握常用控件的使用了解數據庫應用程序開發(fā)過程掌握ADO數據控件的使用掌握數據綁定控件的使用掌握結構化查詢語言SQL的使用綜合應用所學的知識，編寫具有可視化界面的應用程序實驗內容設計實現(xiàn)《學生管理系統(tǒng)》要求：設計數據庫與數據表系統(tǒng)登錄功能系統(tǒng)菜單數據編輯瀏覽功能查詢功能統(tǒng)計功能系統(tǒng)設計要實用合理、界面友好、操作簡單、便于維護。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專業(yè)='"&zy&"'"Adodc1.RefreshEndSubPrivateSubCommand2_Click()Adodc1.RecordSource="select專業(yè),count(*)as人數from學生信息groupby專業(yè)"Adodc1.RefreshEndSubPrivateSubCommand3_Click()Adodc1.RecordSource="select*from學生信息