VB實(shí)驗(yàn)報(bào)告教案(4-7)

實(shí)驗(yàn)四：題目：VisualBasic常用控件目的：1、掌握命令按鈕、單選鈕、檢查框、框架常用屬性與事件2、掌握滾動條、列表框、組合框、時(shí)鐘的常用屬性與事件日期：1班為10月18日，2班為10月內(nèi)容：要求界面用鉛筆畫出來。PrivateSubCommand1_Click()List1.AddItemText1IfOption1ThenList1.AddItem"男"ElseList1.AddItem"女"EndIfList1.AddItemText2List1.AddItemCombo1List1.AddItemCombo2List1.AddItem"愛好："IfCheck1ThenList1.AddItem"上網(wǎng)"EndIfIfCheck2ThenList1.AddItem"籃球"EndIfIfCheck3ThenList1.AddItem"音樂"EndIfIfCheck4ThenList1.AddItem"交友"EndIfEndSubPrivateSubCommand2_Click()List1.ClearEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText2.SetFocusEndIfEndSubPrivateSubForm_Load()Form1.Caption="電子鐘"Form1.BorderStyle=3Timer1.Enabled=TrueTimer2.Enabled=FalseTimer1.Interval=1000Timer2.Interval=1000Label1.Caption=Time()'顯示系統(tǒng)時(shí)間Label1.Alignment=2Label1.BorderStyle=1Label2.Caption="鬧鐘時(shí)間:"Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'按下回車開始鬧鐘IfKeyAscii=13ThenTimer2.Enabled=TrueText1.Enabled=FalseEndIfEndSubPrivateSubTimer1_Timer()Label1.Caption=Time()'顯示系統(tǒng)時(shí)間EndSubPrivateSubTimer2_Timer()StaticiAsIntgerIfLabel1.Caption>=Text1.TextThen'利用靜態(tài)變量產(chǎn)生背景交替效果Ifi=0ThenLabel1.BackColor=vbRedi=1ElseLabel1.BackColor=vbWhitei=0EndIfEndIfEndSub實(shí)驗(yàn)五：題目：對話框、菜單、工具欄和圖形程序設(shè)計(jì)目的：1、掌握菜單的設(shè)計(jì)方法；學(xué)會應(yīng)用通用對話框控件2、掌握在VisualBasic環(huán)境中的繪圖方法，顯示圖片3、對話框、菜單、工具欄和圖形程序設(shè)計(jì)的綜合應(yīng)用日期：1班為11月3日，2內(nèi)容：要求界面用鉛筆畫出來。'打開菜單項(xiàng)的單擊事件過程PrivateSubmnuOpen_Click()'激活對話框前初始化設(shè)置相關(guān)屬性，激活對話框后將無法在代碼中設(shè)置其屬性CommonDialog1.FileName="*.txt"'初始化文件名CommonDialog1.InitDir="C:\"'初始化路徑'設(shè)置文件類型列表框內(nèi)容CommonDialog1.Filter="Word文檔|*.doc|文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex=2'設(shè)置默認(rèn)文件類型CommonDialog1.Action=1'激活"打開"對話框txtNotepad.Text=""'清除文本框中原有內(nèi)容IfCommonDialog1.FileTitle<>""Then'選定文件后執(zhí)行下列操作DimInputDataAsString'保存文件中每行內(nèi)容OpenCommonDialog1.FileNameForInputAs#1'打開文件，準(zhǔn)備讀文件DoWhileNotEOF(1)LineInput#1,InputData'每次讀一行'將讀出內(nèi)容連接在文本框已有文本之后并回車換行txtNotepad.Text=txtNotepad.Text+InputData+vbCrLfLoopClose#1EndIfEndSub'"另存為"菜單項(xiàng)的單擊事件過程PrivateSubmnuSaveAs_Click()CommonDialog1.FileName="文本1.txt"'設(shè)置缺省文件名CommonDialog1.DefaultExt="txt"'設(shè)置缺省擴(kuò)展名CommonDialog1.InitDir="C:\"CommonDialog1.Filter="Word文檔|*.doc|文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex=2CommonDialog1.CancelError=True'選取"取消"按鈕時(shí)出錯(cuò)OnErrorGoToerrCancel'出錯(cuò)跳轉(zhuǎn)至行標(biāo)簽errCancelCommonDialog1.ShowSave'激活"另存為"對話框OpenCommonDialog1.FileNameForOutputAs#1'打開文件，準(zhǔn)備寫入Print#1,txtNotepad.TextClose#1errCancel:'行標(biāo)簽EndSub'退出菜單項(xiàng)的單擊事件過程PrivateSubmnuExit_Click()EndEndSub'以下過程用于判斷是否已經(jīng)選中文本PrivateSubtxtNotepad_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1AndtxtNotepad.SelText<>""Then'松開左鍵并選中文本mnuCopy.Enabled=True'使"復(fù)制"菜單項(xiàng)有效mnuCut.Enabled=True'使"剪切"菜單項(xiàng)有效Else'未選中文本mnuCopy.Enabled=FalsemnuCut.Enabled=FalseEndIfEndSubPrivateSubmnuCopy_Click()'"復(fù)制"菜單項(xiàng)的單擊事件過程Clipboard.Clear'清除剪貼板中的內(nèi)容Clipboard.SetTexttxtNotepad.SelText'將選中的文本放到剪貼板中mnuCopy.Enabled=FalsemnuCut.Enabled=FalsemnuPaste.Enabled=TrueEndSubPrivateSubmnuCut_Click()'"剪切"菜單項(xiàng)的單擊事件過程Clipboard.ClearClipboard.SetTexttxtNotepad.SelTexttxtNotepad.SelText=""'刪除選中的文本mnuCopy.Enabled=FalsemnuCut.Enabled=FalsemnuPaste.Enabled=TrueEndSubPrivateSubmnuPaste_Click()'將剪貼板中的文本插入到文本框焦點(diǎn)處，txtNotepad.SelText=Clipboard.GetTextEndSub'或替換選中的文本'設(shè)置對齊方式PrivateSubAlm_Click(IndexAsInteger)txtNotepad.Alignment=IndexEndSubPrivateSubfont_Click()CommonDialog1.FontName="宋體"'Flags為256+1，使用屏幕字體；出現(xiàn)顏色、效果等選項(xiàng)CommonDialog1.Flags=257CommonDialog1.ShowFont'打開"字體"對話框txtNotepad.FontName=CommonDialog1.FontNametxtNotepad.FontSize=CommonDialog1.FontSizetxtNotepad.FontBold=CommonDialog1.FontBoldtxtNotepad.FontItalic=CommonDialog1.FontItalictxtNotepad.FontUnderline=CommonDialog1.FontUnderlinetxtNotepad.FontStrikethru=CommonDialog1.FontStrikethrutxtNotepad.ForeColor=CommonDialog1.ColorEndSubPrivateSubExxxt_Click()EndEndSub實(shí)驗(yàn)六：題目：文件處理目的：1、掌握順序文件、隨機(jī)文件的操作與訪問2、掌握文件系統(tǒng)控件的屬性與常用操作日期：1班為11月17日，2內(nèi)容：要求界面用鉛筆畫出來。標(biāo)準(zhǔn)模塊代碼：TypeStudentIdAsString*8NameAsString*10ClassAsString*10SubjectAsString*20Mark(1To3)AsIntegerEndTypePublicStuAsStudentPublicFilenameAsStringPublicRec_noAsIntegerPublicRec_totalAsIntegerPublicRec_longAsInteger窗體代碼：OptionExplicitOptionBase1PrivateSubForm_Load()'Load事件過程Filename=App.Path&"\student.dat"'給定文件名便于操作Rec_long=Len(Stu)'給定隨機(jī)文件記錄長度CallFileOpenEndSubPrivateSubFileOpen()'打開學(xué)生信息數(shù)據(jù)文件DimIAsIntegerOpenFilenameForRandomAs1Len=Rec_longRec_long=Len(Stu)'給定隨機(jī)文件記錄長度Rec_total=LOF(1)/Rec_long'初始找開的為全部記錄'如為空記錄,則清除各文本框的內(nèi)容IfRec_total=0ThenCallTxtClearExitSubElse'如果有學(xué)生信息數(shù)據(jù),則顯示第一條記錄Rec_no=1CallDisplayEndIfEndSubPrivateSubCmdAdd_Click()'添加記錄事件過程DimIAsInteger,nmsgAsInteger'以下循環(huán)是查找文件中是否有輸入的學(xué)生記錄ForI=1ToRec_totalGet#1,I,StuIfTrim(Stu.Id)=Trim(TxtId.Text)Thennmsg=MsgBox("文件中已有該同學(xué)的記錄,要顯示修改此記錄嗎？",vbYesNo)Ifnmsg=vbYesThenRec_no=ICallDisplayEndIfExitSubEndIfNextICallGetDataRec_total=Rec_total+1Rec_no=Rec_total'在文件的末尾添加記錄Put#1,Rec_no,StuEndSubPrivateSubCmdChange_Click()'修改當(dāng)前記錄事件過程CallGetData'將修改的數(shù)據(jù)保存到記錄變量中Put#1,Rec_no,Stu'修改原記錄CallDisplayEndSubPrivateSubcmdDelete_Click()'刪除當(dāng)前記錄事件過程DimIAsIntegerDimtempnoAsIntegertempno=Rec_noOpenFilename&".temp"ForRandomAs#2Len=Rec_long'刪除選定的記錄ForI=1ToRec_totalIfI<>tempnoThenGet#1,I,StuPut#2,,StuEndIfNextICloseKillFilenameNameFilename&".temp"AsFilenameCallFileOpenEndSubPrivateSubcmdBefore_Click()'顯示上一條記錄事件過程IfRec_no>1ThenRec_no=Rec_no-1ElseMsgBox"現(xiàn)已是首記錄！"ExitSubEndIfGet#1,Rec_no,StuCallDisplayEndSubPrivateSubcmdNext_Click()'顯示下一記錄事件過程DimnmsgAsIntegerIfRec_no<Rec_totalThen'未到打開記錄尾時(shí)執(zhí)行該程序Rec_no=Rec_no+1CallDisplay'顯示當(dāng)前記錄Elsenmsg=MsgBox("已到最后一記錄了！要回到首記錄嗎？",vbYesNo)Ifnmsg=vbYesThenRec_no=1'回到首記錄CallDisplayEndIfEndIfEndSubPrivateSubTxtClear()'清除各文本框中內(nèi)容子過程DimIAsIntegerWithStuTxtId="":TxtName=""TxtClass="":TxtSubject=""ForI=1To3TxtMark(I)=""NextITxtTotal=""EndWithEndSubPrivateSubDisplay()'顯示當(dāng)前記錄子過程DimIAsIntegerGet#1,Rec_no,StuWithStuTxtId=.IdTxtName=.NameTxtClass=.ClassTxtSubject=.SubjectForI=1To3TxtMark(I)=.Mark(I)NextITxtTotal=.Mark(1)+.Mark(2)+.Mark(3)EndWithEndSubPrivateSubGetData()'將在文本框輸入的數(shù)據(jù)存入到記錄變量中DimIAsIntegerStu.Id=TxtId.TextStu.Name=TxtName.TextStu.Class=TxtClass.TextStu.Subject=TxtSubject.TextForI=1To3Stu.Mark(I)=Val(TxtMark(I).Text)NextIEndSubPrivateSubTxtMark_LostFocus(IndexAsInteger)IfIndex=3Then'當(dāng)輸入完最后一門課程,則計(jì)算并顯示意成績TxtTotal=Val(TxtMark(1))+Val(TxtMark(2))+Val(TxtMark(3))EndIfEndSub實(shí)驗(yàn)七：題目：數(shù)據(jù)庫程序設(shè)計(jì)及綜合實(shí)例目的：1、掌握數(shù)據(jù)庫的創(chuàng)建；掌握數(shù)據(jù)控件的一般屬性、事件、方法2、學(xué)會使用DATA控件和ADO控件對數(shù)據(jù)庫進(jìn)行訪問日期：1班為12月1日，2內(nèi)容：要求界面用鉛筆畫出來。'"取消"按鈕的單擊事件過程PrivateSubcmdCancel_Click()txtID(0).Text=""txtID(1).Text=""EndSub'"確定"按鈕的單擊事件過程PrivateSubcmdOK_Click()DimsqlAsString,fldAsString,conditionAsString'顯示的字段列表fld="學(xué)生.學(xué)號,學(xué)生.姓名,課程.課程名,成績.成績"'查詢條件condition="學(xué)生.學(xué)號=成績.學(xué)號and課程.課程號=成績.課程號"IfoptChoice(0).ValueThencondition=condition+"and學(xué)生.學(xué)號='"+txtID(0).Text+"'"Elsecondition=condition+"and課程.課程號='"+txtID(1).Text+"'"EndIfsql="select"+fld+"from學(xué)生,課程,成績where"+condition'改變記錄源Adodc1.RecordSource=sqlAdodc1.RefreshEndSub'初始化查詢窗體PrivateSubForm_Load()Adodc1.Visible=FalseSetDataGrid1.DataSource=Adodc1'綁定操作DataGrid1.AllowUpdate=False'禁止更新EndSub'處理單選按鈕的焦點(diǎn)切換PrivateSuboptChoice_Click(IndexAsInteger)txtID(Index).SetFocusEndSub'處理文本框的焦點(diǎn)切換PrivateSubtxtID_GotFocus(IndexAsInteger)optChoice(Index).Value=TrueEndSub'"添加"按鈕的單擊事件過程PrivateSubcmdAdd_Click()'根據(jù)當(dāng)前按鈕的標(biāo)題進(jìn)行不同的操作SelectCasecmdAdd.CaptionCase"添加"'向當(dāng)前選項(xiàng)卡所對應(yīng)表中添加記錄SelectCaseSSTab1.TabCase0datStudent.Recordset.AddNewCase1datCourse.Recordset.AddNewCase2datScore.Recordset.AddNewEndSelect'在添加操作完成前禁止進(jìn)行其他操作SSTab1.TabEnabled(0)=FalseSSTab1.TabEnabled(1)=FalseSSTab1.TabEnabled(2)=FalsecmdAdd.Caption="確定"cmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseCase"確定"SelectCaseSSTab1.TabCase0datStudent.UpdateRecordCase1datCourse.UpdateRecordCase2datScore.UpdateRecordEndSelectSSTab1.TabEnabled(0)=TrueSSTab1.TabEnabled(1)=TrueSSTab1.TabEnabled(2)=TruecmdAdd.Caption="添加"cmdEdit.Enabled=TruecmdDel.Enabled=TruecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSelectEndSub'"刪除"按鈕的單擊事件過程PrivateSubcmdDel_Click()DimiAsIntegeri=MsgBox("確定要?jiǎng)h除此記錄?",vbYesNo+vbExclamation+vbDefaultButton1,"編輯")Ifi=vbYesThen'刪除當(dāng)前選項(xiàng)卡所對應(yīng)表中的記錄SelectCaseSSTab1.TabCase0datStudent.Recordset.DeletedatStudent.RefreshCase1datCourse.Recordset.DeletedatCourse.RefreshCase2datScore.Recordset.DeletedatScore.RefreshEndSelectEndIfEndSub'"修改"按鈕的單擊事件過程PrivateSubcmdEdit_Click()'根據(jù)當(dāng)前按鈕的標(biāo)題進(jìn)行不同的操作SelectCasecmdEdit.CaptionCase"修改"'修改當(dāng)前選項(xiàng)卡所對應(yīng)表中的記錄SelectCaseSSTab1.TabCase0datStudent.Recordset.EditCase1datCourse.Recordset.EditCase2datScore.Recordset.EditEndSelect'在修改操作完成前禁止進(jìn)行其他操作SSTab1.TabEnabled(0)=FalseSSTab1.TabEnabled(1)=FalseSSTab1.TabEnabled(2)=FalsecmdEdit.Caption="確定"cmdAdd.Enabled=FalsecmdDel.Enabled=FalsecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalseCase"確定"SelectCaseSSTab1.TabCase0datStudent.UpdateRecordCase1datCourse.UpdateRecordCase2datScore.UpdateRecordEndSelectSSTab1.TabEnabled(0)=TrueSSTab1.TabEnabled(1)=TrueSSTab1.TabEnabled(2)=TruecmdEdit.Caption="修改"cmdAdd.Enabled=TruecmdDel.Enabled=TruecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSelectEndSub'"首記錄"按鈕的單擊事件過程PrivateSubcmdFirst_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveFirstCase1datCourse.Recordset.MoveFirstCase2datScore.Recordset.MoveFirstEndSelectcmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=TruecmdLast.Enabled=TrueEndSub'"尾記錄"按鈕的單擊事件過程PrivateSubcmdLast_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveLastCase1datCourse.Recordset.MoveLastCase2datScore.Recordset.MoveLastEndSelectcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndSub'"下一條"按鈕的單擊事件過程PrivateSubcmdNext_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MoveNextIfdatStudent.Recordset.EOFThendatStudent.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndIfCase1datCourse.Recordset.MoveNextIfdatCourse.Recordset.EOFThendatCourse.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndIfCase2datScore.Recordset.MoveNextIfdatScore.Recordset.EOFThendatScore.Recordset.MoveLastcmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=FalsecmdLast.Enabled=FalseEndIfEndSelectEndSub'"上一條"按鈕的單擊事件過程PrivateSubcmdPrev_Click()SelectCaseSSTab1.TabCase0datStudent.Recordset.MovePreviousIfdatStudent.Recordset.BOFThendatStudent.Recordset.MoveFirstcmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=Tru