VF課程設計實驗報告

PAGEPAGE12VFP綜合程序設計報告秦皇島旅游信息查詢系統(tǒng)東北大學秦皇島分校姓名：學號：指導教師：日期：2012年06月17日一、總體說明總體功能介紹：此系統(tǒng)為秦皇島旅游信息查詢系統(tǒng)，為用戶提供旅游信息的查詢及修改功能。此系統(tǒng)通過密碼登錄來給用戶提供，此系統(tǒng)對不同旅游景點提供數(shù)據(jù)查詢功能精確查找，提供景點名稱，景點票價，景點星級，景點位置，景點簡介等信息，使用戶可以全方位了解各個景點，以便明確地鎖定自己的旅游目標及方便用戶的旅游過程。此系統(tǒng)還提供數(shù)據(jù)維護功能，包括對數(shù)據(jù)的添加，修改和刪除。針對精確查詢，還可以提供給用戶打印報表的功能,以保證輸出的可行性。二、功能模塊結構圖秦皇島旅游中文查詢系統(tǒng)系統(tǒng)秦皇島旅游中文查詢系統(tǒng)系統(tǒng)數(shù)據(jù)退出查詢數(shù)據(jù)退出查詢景點精確查詢數(shù)據(jù)刪除數(shù)據(jù)編輯景點精確查詢數(shù)據(jù)刪除數(shù)據(jù)編輯數(shù)據(jù)錄入打印打印數(shù)據(jù)庫、表的設計及描述數(shù)據(jù)庫相關表：users旅游景點數(shù)據(jù)庫表旅游景點：creattable旅游景點(景點名稱c(18)，景點票價n(3),，景點簡介m，景點星級c(2)，景點預覽g，景點位置c(11)）users：creattableusers（用戶代碼c(7),用戶密碼c(10)）操作說明點擊vf文件夾里的main.prg，進入封面主界面點擊進入，進入登陸界面，選擇用戶名登錄，用戶名（用戶名為1234，密碼為1111），登陸成功后，點擊菜單下的各個子菜單，可以在各相應表單上進行對應操作。進入相應的界面后便可以進行數(shù)據(jù)（數(shù)據(jù)錄入、數(shù)據(jù)編輯、數(shù)據(jù)刪除）查詢、退出（注：如不登錄，則不能進行以上功能）。在景點查詢中，使用者可以通過上一條，下一條命令對景點信息進行瀏覽。精確查詢可以精確顯示每個景點的信息，并打印顯示的結果。系統(tǒng)維護中可以對景點信息進行修改、添加、刪除。使用結束后點擊菜單欄的退出按鈕，退出系統(tǒng)。六、各模塊代碼及結果圖（一）封面：Timer1:thisform.releasedoform登錄表單.scx屬性窗口：Enabled改為.T.-真（默認）interval4000Timer2:thisform.shape1.left=100*rand()thisform.shape1.top=100*rand()thisform.shape1.height=100*rand()thisform.shape1.width=100*rand()屬性窗口：Enabled改為.T.-真（默認）interval100Shape1:backcolor:255,255,255bordercolor:128,255,255curvature99Label1autosize:.T.-真backstyle0-透明caption秦皇島旅游景點封面的click:thisform.releasedoform登錄表單.scxinit:publica,ba=5b=5keypress:thisform.releasedoform登錄表單.scx登錄界面界面設置：添加代碼：確定”的clickevent：i=i=1uid=alltrim(thisform.TxtUserCode.value)pwd=alltrim(thisform.TxtPassword.value)locafor用戶代碼=uidifnotfound()messagebox("無此用戶",0,"秦皇島旅游點查詢系統(tǒng)")thisform.TxtUserCode.selstart=0thisform.TxtPassword.sellength=len(thisform.TxtUserCode.text)thisform.TxtUserCode.setfousreturnendififalltrim(用戶密碼)==pwdthisform.releasedoformfrmmain.scxelseifi>3messagebox("三次密碼輸入不對,系統(tǒng)將退出!")thisform.releaseendifmessagebox("密碼不正確,請重新輸入!"+"你還有"+alltrim(sta(3-i))+"次機會。")thisform.TxtPassword.selstart=0thisform.TxtPassword.sellength=len(thisform.txtpassword.tex)thisform.TxtPassword.setfocusendif退出”的clickevent：quit。退出VF系統(tǒng)。歡迎界面界面設置：表單frmmaininit:domnumain.mprwiththis,.t.publica,ba=5b=6load:thisform.width=_screen.width/2thisform.height=_screen.height/2thisform.left=(_screen.width-this.width)/2thisform.top=(_screen.height-this.height)/2unload:quit添加代碼：Timer1”的timerevent：ifthisform.label1.left+thisform.label1.width<0thisform.label1.left=thisform.widthelsethisform.label1.left=thisform.label1.left-100endif屬性窗口：Enabled改為.T.-真（默認）interval270Timer3的timerevent：thisform.label1.left=thisform.label1.left+athisform.label1.top=thisform.label1.top+bifthisform.label1.left<0orthisform.label1.left+thisform.label1.width>thisform.widtha=-aendififthisform.label1.top<0orthisform.label1.top+thisform.label1.height>thisform.heightb=-bendif屬性窗口：Enabled改為.T.-真（默認）interval100查詢精確查詢添加代碼：“combo2”的controlsouce改為“旅游景點.景點名稱”“form1”的數(shù)據(jù)環(huán)境設為“旅游景點”“確認”的clickevent：sele*from旅游景點where景點名稱=bo1.valueintocursorathisform.text1.value=a.景點票價thisform.text2.value=a.景點星級thisform.text3.value=a.景點位置thisform.edit1.value=a.景點簡介打印”的clickevent：sele*from旅游景點where景點名稱=bo1.valueintodbfbaobiaoreportformbaobiaopreviewbaobiao：設計圖，數(shù)據(jù)環(huán)境設為“baobian.dbf”“退出”的clickevent：thisform.release報表打印效果：數(shù)據(jù)維護子模塊1：數(shù)據(jù)錄入界面設置添加代碼：①“確定”的clickevent：dimensionxx(5)xx(1)=thisform.text1.valuexx(2)=thisform.text2.valuexx(3)=thisform.text3.valuexx(4)=thisform.text4.valuexx(5)=thisform.text5.valueuse旅游景點appendblankgatherfromxxfields景點名稱,景點票價,景點簡介,景點星級,景點位置thisform.旅游景點.recordsource="旅游景點"②“退出”的clickevent：thisform.release效果如圖：子模塊2數(shù)據(jù)編輯界面設置添加代碼：combo1”的clickevent：sele*from旅游景點where景點名稱=bo1.valueintocursortemp1thisform.grd旅游景點.recordsource='temp1'thisform.refresh確定”的clickevent：replace旅游景點.景點名稱withthisform.text1.valuereplace旅游景點.景點票價withthisform.text2.valuereplace旅游景點.景點簡介withthisform.edit1.valuereplace旅游景點.景點星級withthisform.text4.valuereplace旅游景點.景點位置withthisform.text5.valuethisform.grd旅游景點.recordsource="旅游景點"thisform.refreshthisform.text1.value=""thisform.text2.value=""thisform.edit1.value=""thisform.text4.value=""thisform.text5.value=""③“退出”的clickevent：thisform.release子模塊3刪除界面設計：添加代碼：①“確定”的clickevent：setdeletedondeletepackthisform.grd旅游景點.recordsource="旅游景點"②“退出”的clickevent：thisform.release效果如圖：體會(重點是學習中收獲和存在的問題)通過這段時間對VF的學習，我學到了很多，從最開始連插入背景圖片都困難的我，最后做出了這個系統(tǒng)，還通過網(wǎng)