1、VFP綜合程序設計報告秦皇島分校經濟系課表查詢系統$才*旬產朝15£ 6東北大學秦皇島分校姓名：學號：指導教師：日期：2012 年 06 月 16 日、總體說明總體功能介紹1 .我們制作的是一個經濟系課表查詢系統，可以按照班級，課程，時間進行查 詢。并且可以將查詢結果打印，并且能夠進行數據的錄入及修改。2 .用戶首先進入“歡迎使用經濟系課表查詢系統”首頁，之后頁面自動跳轉到 用戶登錄界面，用戶須輸帳號，密碼方可進入查詢系統.3 .在查詢系統中有三個菜單，分別為“開始 ”“編輯”“查詢”。分別對應著信 息的輸入，修改和課程的查詢 。其中查詢可分為按班級查詢，按時間查詢， 和按課程查詢。

2、4 .按班級查詢可以通過選擇所要查的班級進行查詢不同時刻不同教室的相關信 息，按照時間查詢用葉框的方式進行查詢，按課程查詢通過選擇所要查的課 程進行查詢。同時可以將查詢結果打印出來。5 .通過系統維護可以對教室課表進行增加、刪除和修改，并且增加、刪除和修 改之后可以瀏覽表，已進行對照。6 .以后點擊退出后，會出現謝謝使用，退出系統二、功能模塊結構圖三、變量說明(公有、私有、本地變量)四、數據庫、表的設計及描述課表查詢項目下有：數據庫：課表查詢.dbc表：users1.dbf(儲存密碼及賬號)按班級查詢.dbf班級代碼.dbf 教師課程表.dbf教師上課表.dbf 課表.dbf課程表.dbf 周

3、一 .dbf 周二.dbf 周三.dbf 周四.dbf周五.dbf1、其中，數據庫，課表查詢.DBC的設計為：(1)從菜單文件中選擇新建(2)在彈出的對話框中選擇數據庫，保存為課表查詢.dbc(3)在數據庫設計器中添加相應的表(4) users1.dbf(儲存密碼及賬號)按班級查詢.dbf班級彳弋碼.dbf教師課程表.dbf教師上課表.dbf課表.dbf課程表.dbf 周一 .dbf 周二.dbf 周三.dbf周四.dbf周五.dbf2、表的設計：(1) 從菜單文件中選擇新建在彈出的對話中i中選擇表，分別保存為 users1.dbf(儲存密碼及賬號) 按班級查詢.dbf 班級代碼.dbf教師課

4、程表.dbf教師上課表.dbf課表.dbf課程表.dbf周一 .dbf 周二.dbf 周三.dbf 周四.dbf周五.dbf 在表設計器中寫入相應的字段(2) 然后錄入數據3描述數據庫課表查詢.dbc ,中有表：users1.dbf(儲存密碼及賬號)按班級查詢.dbf班級代碼.dbf教師課程表.dbf教師上課表.dbf課表.dbf 課程表.dbf 周一.dbf 周二.dbf 周三.dbf 周四.dbf周五.dbfusersl.dbf 表結構字段名寬度字符型10密碼字符型10按班級查詢.dbf表結構字段名回寬度班級代碼字符型5教師姓名字符型10課程名稱字符型22課程編號字符型3Week字符型2上

5、課時間字符型5地點字符型4班級代碼表結構字段名寬度索引班級代碼字符型10班級名稱字符型10課表表結構課程表表結構周一到周五的表的結構相同，如下:其中教師上課表是根據課程表和教師課程表根據查詢去向生成的表， 按班級查詢 表是根據教師上課表和課表表根據查詢去向生成的表，周一到周五的表是根據按 課程查詢以week為查詢條件以查詢去向生成的表。五、操作說明1.雙擊課程查詢系統的應用程序，進入該系統的封面（歡迎界面），上有“退出 系統”：等待10秒后即可進入“登陸界面”；點擊“返回封面”將返回封面。2、在登陸界面輸入正確的賬號和密碼，注意在登陸界面上有用戶名，用戶密碼 以及確定和重置將鼠標至于文本框旁邊

6、會有一個用戶名和密碼的提示，可以根據所給的用戶名和密碼進入課表查詢系統， 并且進行下一步操作。如果未輸入用戶 名和密碼，單擊確定將會跳出一窗口，提示“請輸入用戶名和密碼” ；如果輸入 的密碼錯誤，將會提示“密碼錯誤，請重新輸入”，如果密碼錯誤超過三次，將 會提示“密碼錯誤，禁止登錄！ ”，并且退出系統。3 .若進入主界面，上面有菜單，可以通過菜單完成一些操作，比如查詢功能、總 表錄入功能，修改數據退出系統功能等等。在查詢功能中可以按課程、時間、班 級進行查詢，點擊報表打印可以將查詢結果進行打印預覽。 總表錄入可以調出一 表單，可以周一至周五的課表進行增加、 刪除等修改操作，還有可以對教師的信

7、息進行修改，包括增加刪工作人員等，還有可以對班級的信息進行修改， 包括增 加刪班級等。4 .單擊退出時會出現一個表單提示是否退出，點擊是將出現一表單“謝謝使用， 歡迎下次使用”，并且在3秒后自動退出系統。若點擊否將會釋放表單“是否”， 可以重復3的步驟六、各模塊代碼及結果圖1、封面(表單 1.SCX )某些重要模塊的程序語句代碼運行的效果截圖顯示當前時間 thisform.text1.value=time()滾動字幕 timen d=thisform.label1.widthIF thisform.label1.Left+d>=thisform.Widththisform.label1.

8、Left=thisform.label1.Left-1thisform.timer2.Interval=10thisform.timer1.Interval=0elsethisform.label1.Left=thisform.label1.Left+1endiftimer2 的timer 屬性為thisform.label1.Left=thisform.label1.Left-1IF thisform.label1.Left=0thisform.label1.Left=thisform.label1.Left+1thisform.timer1.Interval=10this.Interval

9、 =0endif自動進入登陸界面的timer4 的timer屬性為thisform.releasedo form 登陸界面.scx顯示時間的time4 timer 屬性為thisform.text1.value=time()2、登陸界面(登陸界面.scx )登陸按鈕(command 1的click事件代碼為：i=i+1uid=alltrim(thisform.txtusercode.value)pwd=alltrim(thisform.txtpassword.value)locate for ALLTRIM( 帳號)=uidif not found()messagebox("無此用戶

10、",0,"課表查詢系統")&&如果未找到該用戶thisform.txtusercode.selstart=0 &&選定文本起,點位置thisform.txtusercode.sellength=len(thisform.txtusercode.text)&&選定文本長度為文本框實際長度thisform.txtusercode.setfocus && 設置焦,點return && 返回endif*判斷密碼是否合法if alltrim(密碼)=pwd &&密碼正確 this

11、form.release && 關閉當前表do form frmmain.scx elseif i>3 &&三次密碼不正確messagebox("三次輸入密碼不對，系統將退出！”)thisform.releaseendifmessagebox("密碼不正確，請重新輸入！"+"你還有"+alltrim(str(3-i)+"次機會！")thisform.txtpassword.selstart=0 &&選定文本起點位置thisform.txtpassword.sellengt

12、h=len(thisform.txtpassword.text) &&選定文本長度為文本框實際長度thisform.txtpassword.setfocus &&設置焦點endif返回封面按鈕的click 事件do form 表單 1.scx3、主菜單(frmmain.scx )(加載主菜單) init事件為do 課表查詢.mpr with this, .t.load事件thisform.width=_screen.width/2thisform.height=_screen.height/2thisform.left=(_screen.width - this

13、.width)/2 thisform.top=(_screen.height - this.height)/2 unload事件quit4、主菜單(課表查詢.mpr)4 開始，編輯菜單菜單欄工退出菜單表單是否退出(shifou.dbf )command加click 事件代碼為:do form tuichu.scxcommand2勺click事件代碼為：thisform.release閃動字母的timeU 的timer事件代碼: rivate i,j,ki=int(rand()*255)j=int(rand()*255)k=int(rand()*125)thisform.label1.forec

14、olor=rgb(i,j,k)4 表單退出(tuichu.dbf )timeri的timer是事件代碼為：quittimeri 的 interval 屬性為：3000;查詢菜單1、按班級查詢（注意吧showwindow屬性設為1）Combo酌click事件為 select * from 按班級查詢 where ALLTRIM(班級代 碼)=alltrim(bo1.value) into cursor tempi thisform.grid1.recordsource="temp1” thisform.refresh設置數據環(huán)境打印按鈕click命令為Select按班級查詢Report

15、 Form 按班級查詢 For ALLTRIM（班級代 碼）=alltrim（bo1.value） Preview1、按課程查詢和按班級查詢類似（注意吧showwindow屬性設為1）2、按時間查詢（注意吧showwindow屬性設為1）土建立頁框，將pagecount設為5土設置數據環(huán)境，將周一到周五表添加進去4 在各自的也框里建立表格，和打印按鈕 Report Form 周* Preview士 將各自表的recordsourccetype 設為0-表recordsourcce 設為所需設置的 表士 將各自表格的caption屬性設為周一，周二周五。士打印報表選 擇 新 建 報表 報 表 向

16、 導 表 單 向 導完成按此方法建立周一，周二，周三，周四，周五，按班級查詢，報表例如一下：* 建立班級信息編輯表單，教師信息編輯表單，綜合信息表單。班級信息編輯表單：菜單欄，新建一一表單一一向導一一表單向導一一確認一一班級代碼.dbf可用字段選全部添加一一下一步一一樣式為標準式，按鈕類型選擇文本按鈕，一一完成一一以班級信息編輯保存教師信息查詢表單，綜合信息查詢表單和班級信息編輯相似，不過選擇教師上課表，和按班級查詢作為數據源。*當所有表單做完后，將所有的表，表單，報表，自定義類，加載到項目中。本 建立主程序新建程序，輸入 _screen.visible=.f. do form 表單l.scx read events 保存.將程足加載到項目中，點擊程序,右鍵選擇設 置主文件建立應用程序 點擊項目中的應用程序，點擊連編即可七、體會通過對vf的學習，由原來的不懂、“暈”逐漸向一個理解的層次邁進。在課 上聽不懂的下課后可以自己看一下，更重要的是還可以在vf的上機課上再次聽老師的講解，讓我們把教室的理論與機房的實際相結合。 邊學邊上機，學以致用, 理論聯系實際，讓我們對所學的知識有了更深層次的理解。在這次的課程設計中，由于自己的知識不是很扎實，遇到許多問題，比如: 不能存取文件，我們采用關閉所有表，重新打開 vf；登陸界面文件正在使用