vb課程設(shè)計報告

VisualBasic程序設(shè)計綜合實驗學院：北方科技學院專業(yè)：通信工程學生：學號：指導教師：王曉斌二○一三年十一月實驗目的掌握常用控件的使用了解數(shù)據(jù)庫應用程序開發(fā)過程掌握ADO數(shù)據(jù)控件的使用掌握數(shù)據(jù)綁定控件的使用掌握結(jié)構(gòu)化查詢語言SQL的使用綜合應用所學的知識，編寫具有可視化界面的應用程序?qū)嶒瀮?nèi)容設(shè)計實現(xiàn)《學生管理系統(tǒng)》要求：設(shè)計數(shù)據(jù)庫與數(shù)據(jù)表系統(tǒng)登錄功能系統(tǒng)菜單數(shù)據(jù)編輯瀏覽功能查詢功能統(tǒng)計功能系統(tǒng)設(shè)計要實用合理、界面友好、操作簡單、便于維護。PrivateSubCommand1_Click()DimMPasswordAsStringAdodc1.RecordSource="select*from密碼表whereusername='"&Text1.Text&"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenMPassword=Adodc1.Recordset.Fields("password")IfText2.Text=MPasswordThen'判斷數(shù)據(jù)的密碼是否正確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人數(shù)from學生信息groupby專業(yè)"Adodc1.RefreshEndSubPrivateSubCommand3_Click()Adodc1.RecordSource="select*from學生信息