大一VF綜合實(shí)驗(yàn)報(bào)告-VF

華北科技學(xué)院計(jì)算機(jī)學(xué)院綜合性實(shí)驗(yàn)報(bào)告PAGE 第9頁華北科技學(xué)院計(jì)算機(jī)學(xué)院綜合性實(shí)驗(yàn)實(shí)驗(yàn)報(bào)告課程名稱程序設(shè)計(jì)語言(VF)實(shí)驗(yàn)學(xué)期2013至2014學(xué)年第二學(xué)期學(xué)生所在院部外國(guó)語學(xué)院年級(jí)2013專業(yè)班級(jí)英語B13-1學(xué)生姓名陳楊學(xué)號(hào)201304024130任課教師王曉菊實(shí)驗(yàn)成績(jī)計(jì)算機(jī)學(xué)院制

《程序設(shè)計(jì)語言(VF)》課程綜合性實(shí)驗(yàn)報(bào)告開課實(shí)驗(yàn)室：基礎(chǔ)實(shí)驗(yàn)室年月日實(shí)驗(yàn)題目學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)一、實(shí)驗(yàn)?zāi)康恼莆諔?yīng)用程序設(shè)計(jì)規(guī)劃的基本方法；掌握使用VF設(shè)計(jì)簡(jiǎn)單的查詢系統(tǒng)；掌握數(shù)據(jù)表的建立，及表單控件與數(shù)據(jù)源的連接方法；掌握查詢、修改、添加、刪除記錄的基本實(shí)現(xiàn)方法二、設(shè)備與環(huán)境PC兼容機(jī)、Windows系列操作系統(tǒng)、VisualFoxPro數(shù)據(jù)庫編程環(huán)境三、實(shí)驗(yàn)內(nèi)容（一）設(shè)計(jì)要求：設(shè)計(jì)一個(gè)學(xué)生信息管理系統(tǒng)，其功能包括系統(tǒng)的登陸、學(xué)生信息、課程信息和成績(jī)信息的添加/刪除、根據(jù)不同條件進(jìn)行模糊查詢等。（二）設(shè)計(jì)4個(gè)自由表；包括：密碼表、學(xué)生表、課程表、成績(jī)表，表中記錄按照課本填入，也可自行填入，每個(gè)表中都要有關(guān)于個(gè)人的真實(shí)信息，每個(gè)表記錄數(shù)不得少于10條。（三）歡迎界面（四）學(xué)生管理系統(tǒng)登陸界面（五）系統(tǒng)主界面（六）查詢模塊（七）信息添加/修改界面四、實(shí)驗(yàn)結(jié)果及分析(一)數(shù)據(jù)表（二）歡迎界面關(guān)鍵屬性：timer1的interval=200Image1的stretch=等比填充關(guān)鍵代碼：Image1的click事件代碼：thisform.releasedoformlogin.scxtimer1的click事件代碼：ifthisform.label6.left+thisform.label6.width<0thisform.label6.left=thisform.widthelsethisform.label6.left=thisform.label6.left-10endif（三）登錄界面關(guān)鍵屬性：form1的maxbutton=.f.minbutton=.f.controlbox=.f.showtips=.t.combo1的controlsource=passwd.用戶名tooltiptext=請(qǐng)輸入用戶名text2的tooltiptext=請(qǐng)輸入密碼關(guān)鍵代碼：Command1的click事件：setexactoni=i+1selectpasswdlocateforalltrim(用戶名)=alltrim(bo1.value)iffound()andalltrim(密碼)=alltrim(thisform.text1.value)setexactoffreleasethisformdoformmainelseifi<3messagebox("賬號(hào)或密碼錯(cuò)誤，請(qǐng)重試!",48,"警告")bo1.value=""thisform.text1.value=""bo1.setfocuselsemessagebox("非法用戶，系統(tǒng)無法啟動(dòng)!",16,"警告")releasethisformendifendif（四）主界面關(guān)鍵屬性：ShowWindow=2Timer1的interval=200Image1的stretch=等比填充關(guān)鍵代碼：Timer1的timer事件代碼：ifthisform.Image1.left+thisform.Image1.width<0thisform.Image1.left=thisform.widthelsethisform.Image1.left=thisform.Image1.left-10endif（五）基本信息瀏覽界面關(guān)鍵屬性:Combo1的style=2下拉列表Controlsource=student.所在系Optiongroup1的controlsource=student.性別關(guān)鍵代碼：Commandgroup1declick事件：DOCASECASETHIS.VALUE=1GOTOPTHIS.COMMAND2.ENABLED=.F.THIS.COMMAND3.ENABLED=.T.THISFORM.REFRESHCASETHIS.VALUE=2SKIP-1THIS.COMMAND3.ENABLED=.T.IFBOF()MESSAGEBOX("已經(jīng)到表頭！",0+64,"提示信息")THIS.COMMAND2.ENABLED=.F.ENDIFTHISFORM.REFRESHCASETHIS.VALUE=3SKIPTHIS.COMMAND2.ENABLED=.T.IFEOF()MESSAGEBOX("已經(jīng)到表頭！",0+64,"提示信息")THIS.COMMAND3.ENABLED=.F.ENDIFTHISFORM.REFRESHCASETHIS.VALUE=4GOBOTTOMTHIS.COMMAND3.ENABLED=.F.THISFORM.REFRESHCASETHIS.VALUE=5DOFORMmain.scxENDCASE（六）查詢界面關(guān)鍵屬性：Autocenter.t.Caption自定義查詢界面Closable.f.Showwindow1height420width600Maxbutton.f.關(guān)鍵代碼：Command1的click事件context=alltrim(thisform.text1.value)docasecasethisform.optiongroup1.value=1setfilterto學(xué)號(hào)=contextcasethisform.optiongroup1.value=2setfilterto姓名=contextcasethisform.optiongroup1.value=3setfilterto性別=contextcasethisform.optiongroup1.value=4setfilterto籍貫=contextcasethisform.optiongroup1.value=5setfilterto所在系=contextendcasecommand2的代碼：THISFORM.RELEASEDOFORMmain.SCX（七）綜合信息瀏覽界面表格的controlsource屬性分別為student，course，chengjiCheck1的interactivechange代碼：ifthisform.pageframe1.page1.grid1.deleteMark=.t.thisform.pageframe1.page1.grid1.deleteMark=.f.elsethisform.pageframe1.page1.grid1.deleteMark=.t.endifthisform.Refreshcheck2的interactivechange代碼：ifthisform.pageframe1.page1.grid1.readonly=.t.thisform.pageframe1.page1.grid1.readonly=.f.elsethisform.pageframe1.page1.grid1.readonly=.t.endifthisform.Refresh（六）菜單七．報(bào)表五、心得體會(huì)終于做完了這個(gè)程序，過程很糾結(jié)很痛苦，但是當(dāng)它終于在電腦上執(zhí)行出來的時(shí)候我真的很激動(dòng)。第一眼看到實(shí)驗(yàn)要求時(shí)我真的懵了，覺得完全無從下手，但是沒辦法，這個(gè)必須完成，我必須得為這個(gè)任務(wù)負(fù)責(zé)。痛苦了一天之后我周六就開始著手，一邊百度一邊參照課本和以前上機(jī)課老師給的步驟，第一天做的時(shí)候晚上做夢(mèng)夢(mèng)到的畫面都是新建表單的界面。就這樣從歡迎界面做到登錄界面再到主界面等等，一開始做出來的執(zhí)行不下去，于是我刪掉了所有表單，仔仔細(xì)細(xì)認(rèn)認(rèn)真真又重新做了一遍，第二次做就熟練多了。現(xiàn)在，我已經(jīng)充分明白了這是個(gè)怎樣的東西，甚至有時(shí)候登陸QQ的時(shí)候我都會(huì)想這個(gè)登錄界面是不是vf做出來的、如何做出來的、有哪些控件。以前遇到困難的問題覺得自己根本不會(huì)我就想要放棄，這次也是一樣，但是為了能鍛煉自己也為了能通過這個(gè)難倒無