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

2、刻不同教室的相關信息，按照時間查詢用葉框的方式進行查詢，按課程查詢通過選擇所要查的課程進行查詢。同時可以將查詢結果打印出來。5. 通過系統維護可以對教室課表進行增加、刪除和修改，并且增加、刪除和修改之后可以瀏覽表，已進行對照。6. 以后點擊退出后，會出現謝謝使用，退出系統二、功能模塊結構圖經濟系課表查詢系統登陸界面課表查詢系統封面表單（歡迎界面）登陸界面（輸入賬號及密碼登入）主菜單（完成以下操作）查詢（按班級、時間、課程查詢）開始菜單（完成數據的錄入編輯（完成數據的修改）班級信息輸入教師信息輸入綜合信息輸入班級信息修改教師信息修改綜合信息修改按班級查詢按課程查詢按時間查詢退出三、變量說明(公有

3、、私有、本地變量)四、數據庫、表的設計及描述課表查詢項目下有：數據庫：課表查詢.dbc表：users1.dbf(儲存密碼及賬號) 按班級查詢.dbf 班級代碼.dbf 教師課程表.dbf 教師上課表.dbf 課表.dbf 課程表.dbf 周一.dbf 周二.dbf 周三.dbf 周四.dbf 周五.dbf1、其中,數據庫，課表查詢.DBC的設計為:(1) 從菜單文件中選擇新建(2) 在彈出的對話框中選擇數據庫,保存為 課表查詢.dbc(3) 在數據庫設計器中添加相應的表(4) users1.dbf(儲存密碼及賬號) 按班級查詢.dbf 班級代碼.dbf 教師課程表.dbf 教師上課表.dbf

4、課表.dbf 課程表.dbf 周一.dbf 周二.dbf 周三.dbf 周四.dbf 周五.dbf2、表的設計：（1） 從菜單文件中選擇新建在彈出的對話框中選擇表,分別保存為users1.dbf(儲存密碼及賬號) 按班級查詢.dbf 班級代碼.dbf 教師課程表.dbf 教師上課表.dbf 課表.dbf 課程表.dbf 周一.dbf 周二.dbf 周三.dbf 周四.dbf 周五.dbf 在表設計器中寫入相應的字段（2） 然后錄入數據3描述數據庫課表查詢.dbc ,中有表: users1.dbf(儲存密碼及賬號) 按班級查詢.dbf 班級代碼.dbf 教師課程表.dbf 教師上課表.dbf 課

5、表.dbf 課程表.dbf 周一.dbf 周二.dbf 周三.dbf 周四.dbf 周五.dbf users1.dbf表結構字段名類型寬度賬號字符型10密碼字符型10按班級查詢.dbf 表結構字段名類型寬度班級代碼字符型5教師姓名字符型10課程名稱字符型22課程編號字符型3Week字符型2上課時間字符型5地點字符型4班級代碼 表結構 字段名類型寬度索引班級代碼字符型10班級名稱字符型10課表 表結構課程表 表結構周一到周五的表的結構相同，如下：其中教師上課表是根據課程表和教師課程表根據查詢去向生成的表，按班級查詢表是根據教師上課表和課表表根據查詢去向生成的表，周一到周五的表是根據按課程查詢以w

6、eek為查詢條件以查詢去向生成的表。五、操作說明1.雙擊課程查詢系統的應用程序，進入該系統的封面（歡迎界面），上有 “退出系統”：等待10秒后即可進入“登陸界面”；點擊“返回封面”將返回封面。2、在登陸界面輸入正確的賬號和密碼，注意在登陸界面上有用戶名，用戶密碼以及確定和重置將鼠標至于文本框旁邊會有一個用戶名和密碼的提示，可以根據所給的用戶名和密碼進入課表查詢系統，并且進行下一步操作。如果未輸入用戶名和密碼，單擊確定將會跳出一窗口，提示“請輸入用戶名和密碼”；如果輸入的密碼錯誤，將會提示“密碼錯誤，請重新輸入”，如果密碼錯誤超過三次，將會提示“密碼錯誤，禁止登錄！”，并且退出系統。3.若進入主

7、界面，上面有菜單，可以通過菜單完成一些操作，比如查詢功能、總表錄入功能，修改數據退出系統功能等等。在查詢功能中可以按課程、時間、班級進行查詢，點擊報表打印可以將查詢結果進行打印預覽。總表錄入可以調出一表單，可以周一至周五的課表進行增加、刪除等修改操作，還有可以對教師的信息進行修改，包括增加刪工作人員等，還有可以對班級的信息進行修改，包括增加刪班級等。4.單擊退出時會出現一個表單提示是否退出，點擊是將出現一表單“謝謝使用，歡迎下次使用”，并且在3秒后自動退出系統。若點擊否將會釋放表單“是否”，可以重復3的步驟六、各模塊代碼及結果圖1、封面（表單1.scx）某些重要模塊的程序語句代碼運行的效果截圖

8、顯示當前時間 thisform.text1.value=time() 滾動字幕timer1 d=thisform.label1.widthIF thisform.label1.Left+d=thisform.Widththisform.label1.Left=thisform.label1.Left-1thisform.timer2.Interval=10thisform.timer1.Interval=0elsethisform.label1.Left=thisform.label1.Left+1endiftimer2 的 timer屬性為thisform.label1.Left=thisf

9、orm.label1.Left-1IF thisform.label1.Left=0thisform.label1.Left=thisform.label1.Left+1thisform.timer1.Interval=10this.Interval =0endif 自動進入登陸界面的timer4 的 timer屬性為thisform.releasedo form 登陸界面.scx顯示時間的time4 timer 屬性為thisform.text1.value=time()2、登陸界面（登陸界面.scx） 登陸按鈕（command1）的click事件代碼為：i=i+1uid=alltrim(t

10、hisform.txtusercode.value) pwd=alltrim(thisform.txtpassword.value)locate for ALLTRIM(帳號)=uid if not found() messagebox(無此用戶,0,課表查詢系統) &如果未找到該用戶 thisform.txtusercode.selstart=0 &選定文本起點位置 thisform.txtusercode.sellength=len(thisform.txtusercode.text) &選定文本長度為文本框實際長度 thisform.txtusercode.setfocus &設置焦點r

11、eturn &返回endif*判斷密碼是否合法if alltrim(密碼)=pwd &密碼正確 thisform.release &關閉當前表 do form frmmain.scx else if i3 &三次密碼不正確 messagebox(三次輸入密碼不對，系統將退出！) thisform.release endif messagebox(密碼不正確，請重新輸入！+你還有+alltrim(str(3-i)+次機會！) thisform.txtpassword.selstart=0 &選定文本起點位置 thisform.txtpassword.sellength=len(thisform.

12、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.width)/2thisform.top=(_screen.hei

13、ght - this.height)/2unload事件quit4、主菜單（課表查詢.mpr）l 開始，編輯菜單菜單欄l 退出菜單表單是否退出（shifou.dbf）command1的click事件代碼為： do form tuichu.scx command2的click事件代碼為： thisform.release 閃動字母的timer1的timer事件代碼： rivate i,j,ki=int(rand()*255)j=int(rand()*255)k=int(rand()*125)thisform.label1.forecolor=rgb(i,j,k)l 表單退出（tuichu.dbf

14、）timer1的timer是事件代碼為：quit timer1的interval屬性為：3000l 查詢菜單1、 按班級查詢（注意吧showwindow屬性設為1）Combo1的click事件為select * from 按班級查詢 where ALLTRIM(班級代碼)=alltrim(bo1.value) into cursor temp1thisform.grid1.recordsource=temp1thisform.refresh 設置數據環境打印按鈕 click命令為Select 按班級查詢Report Form 按班級查詢 For ALLTRIM(班級代碼)=alltrim(bo

15、1.value) Preview1、 按課程查詢和按班級查詢類似（注意吧showwindow屬性設為1）2、 按時間查詢（注意吧showwindow屬性設為1）l 建立頁框，將pagecount設為5l 設置數據環境，將周一到周五表添加進去l 在各自的也框里建立表格，和打印按鈕Report Form 周* Previewl 將各自表的recordsourccetype設為0-表 recordsourcce 設為所需設置的表l 將各自表格的caption屬性設為周一，周二周五。l 打印報表選擇新建報表報表向導表單向導完成按此方法建立周一，周二，周三，周四，周五，按班級查詢，報表例如一下：l 建立

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