【正文】 界面如下： 十 一 、登錄界面 界面如下： 設(shè)計步驟： 1 新建表單 2 添加數(shù)據(jù)環(huán)境：自由表 yhgl 3 界面設(shè)計： ? 3 個標(biāo)簽：字體、字號、背景色、對齊方式 ? 1 個頁框、一個組合框、文本框、兩個按鈕 4 事件過程 （ 1）命令按鈕 mand1（登錄）的 click 事件過程 PROCEDURE Click if allt(m_kl)=allt(kl) do =.f. else if klcs=3 quit else klcs=klcs+1 m_kl=space(10)=messagebox(口令錯誤 ,0,) endif endif ENDPROC （ 2）命令按鈕 mand2（結(jié)束）的 click 事件過程 PROCEDURE Click quit ENDPROC 十二、主菜單如下所示： 。to print ENDPROC 11. 命令按鈕 Command2 （結(jié)束）的 Click 事件過程 PROCEDURE Click ENDPROC 12. 標(biāo)簽（點擊打印）的 Click 事件過程 PROCEDURE Click select bb go top report form grcj ENDPROC 13. 報表 grqkdjb（《學(xué)生個人情況登記表》） 的設(shè)計 因為該報表一頁只打印一條記錄的數(shù)據(jù)，可以將所有數(shù)據(jù)都放在頁表頭，細(xì)節(jié)中不放內(nèi)容，在調(diào)試時數(shù)據(jù)可以取自 xsxx視圖中的字段，調(diào)試成功后再將數(shù)據(jù)改為臨時表 aa中的字段。 else =messagebox(已經(jīng)是最后一個了 ！ ,0,提示 ) endif ENDPROC 10. 命令按鈕 Command1 （打?。┑?Click 事件過程 PROCEDURE Click report form grqkdjb amp。記錄指針向表尾方向移動一條記錄，記錄指針的相對位移 =39。 else =messagebox(已經(jīng)是第一個了！ ,0,提示 ) endif ENDPROC ? 下一個： PROCEDURE Click select aa if !eof() skip amp。記錄指針向表首方向移動一條記錄，記錄指針的相對位移 =39。 RowHeight = 38 = 10 = 100 = 10 = 105 = 10 = 93 = 10 = 2 = 課程代號 = 10 = 2 = 課程名稱 = 10 = 2 = 考試成績 ENDPROC 8. 頁框（ Pageframe1）中各頁的 Click 事件過程 PROCEDURE ENDPROC PROCEDURE ENDPROC PROCEDURE ENDPROC PROCEDURE ENDPROC 9. 頁框 Pageframe2 中兩個（“上一個”“下一個”）的 Click 事件過程 ? 上一個： PROCEDURE Click select aa if !bof() skip –1 amp。 else if _tally1 =.t. =找到 +allt(str(_tally))+ 條信息 endif =.t. =.t. select aa go top endif endif *為表格控件 grid1設(shè)置相關(guān)的屬性 =39。 endif else select * from xsxx where xm=allt() into cursor aa if _tally=0 =messagebox(該姓名不存在 ！ ,0,告知 ) =.t. =39。) select bb use endif =.f. if =1 select * from xsxx where xh=allt() into cursor aa if _tally0 =.t. =.t. else =messagebox(該學(xué)號不存在 ！ ,0,告知 ) =.t. =39。) select aa use endif if used(39。為節(jié)省存儲空間只查得一條記錄 ENDPROC 6. 文本框 :TxtMB 的 InteractiveChange 事件過程 ROCEDURE InteractiveChange =.f. =.f. =.t. =.t. ENDPROC 7. 標(biāo)簽“點擊查詢”的 Click 事件過程 ROCEDURE Click if used(39。 數(shù)據(jù)環(huán)境 表單的數(shù)據(jù)環(huán)境為 xsxx(學(xué)生信息 )和 bj_cj（班級成績）兩個視圖 主要控件的屬性及事件過程 5. 表單的 Init 事件過程 因為表單中所用控件均與查詢結(jié)果所在的臨時表（ aa）的字段綁定，而 在表單運行開始時還未進(jìn)行查詢，即還不存臨時表 (aa),就找不到控件所綁定的數(shù)據(jù)，這將導(dǎo)致系統(tǒng)錯誤，為此在表單的 Init事件過程中先執(zhí)行一條查詢語句，建立臨時表 (aa)： PROCEDURE Init select * from xsxx into cursor aa where re()=1 amp。 ORDER BY 4. 查詢方式的選擇，用單選按鈕組實現(xiàn)； 5. 用一個文本框（ TxtMB）接受用戶的查詢目標(biāo)（學(xué)號或姓名）； 6. 用一個標(biāo)簽（點擊查詢）的 Click 事件完成查詢，界面如下圖所示： 7. 一個學(xué)生的個人有信息從 xsxx 視圖中查得，各科成績從 bj_cj 視圖中查得，查詢結(jié)果由包含 4 個頁的頁框（ Pageframe1）顯示，該頁框在沒有查詢結(jié)果之前是不可見的； 8. 按學(xué)號查詢的結(jié)果應(yīng)為一條唯一的信息，效果如下： 9. 按姓名查詢的結(jié)果可能有多條信息，當(dāng)信息數(shù)多于一條時需顯示查得信息的數(shù)量 ，并提供上下翻頁功能，為此設(shè)計一個只有一頁的頁框（ Pageframe2），上下翻頁由其中的兩個標(biāo)簽（“上一個”、“下一個”）的 Click 事件完成，該頁框只有在按姓名查詢結(jié)為多條記錄是才顯示，效果如下圖所示： 10. 打印功能由兩個報表來完成，“打印”命令按鈕完成《學(xué)生個人情況登記表》的輸出，《個人成績單》由“各科成績”頁中的“點擊打印”標(biāo)簽的 Click 事件完成，效果如下二圖所示： 11. 用 Sql___Select 語句完成查詢，將結(jié)果送入臨時表，表單中所用控件均與臨時表的字段綁定，并設(shè)置為只讀。 FROM xjgl!xs INNER JOIN xjgl!bj_zy 。 , , , , , , , , ,。 設(shè)計思路： 3. 為查詢學(xué)生數(shù)據(jù)方便建一個視圖： xsxx（學(xué)生信息） Creat view xsxx as。amp。select kh,km,cj from bj_cj into cursor bb where xh=39。39。39。bb39。aa39。amp。 第 4 頁（各科成績）中設(shè)置一個表格（ grid1），用于顯示從 bj_cj 視圖中查得的數(shù)據(jù)，其數(shù)據(jù)源為 SQL 說明，通過命令為其動態(tài)設(shè)置布局屬性。表格控件顯示垂直滾動條 ? 打印按鈕： Command1 事件過程： PROCEDURE Click =650 =1000 =50 report form dkcjbb ENDPROC 4. 報表設(shè)計： ? 數(shù)據(jù)環(huán)境： xsxx 視圖 ? 頁面大?。?A4 ? 設(shè)計界面： ? 打印效果： 九 、按班級查詢成績 功能 ：所查信息包括學(xué)生的所有個人信息及所修課程的成績，并能打印輸出。移動記錄指針到第一條記錄 ENDPROC ? 表格對象： grdBj_cj 主要屬性： ColumnCount = 3 RecordSource = bj_cj RecordSourceType = 1 GridLines = 3 amp。設(shè)置過濾器 go top amp。表單不包含在 VFP主窗口中 ? 數(shù)據(jù)環(huán)境：視圖 BJ_CJ ? 事件過程： PROCEDURE Init set filter to bj= and kh= amp。窗體的邊框樣式為固定對話框 Desktop = .F. amp。窗口顯示在頂層窗口中 BorderStyle = 2 amp。 調(diào)用表單“ CJLR2” ENDPROC 3. CJLR2 表單設(shè)計 設(shè)計界面如下 (只有一個表格對象 )： ? 表單主要屬性： ShowWindow = 1 amp。關(guān)閉視圖： bj_cj endif do form cjlr2 amp。選擇“ bj_cj”為當(dāng)前工作區(qū) use amp。如果視圖 bj_cj處于打開狀態(tài) selec