【導(dǎo)讀】設(shè)多個專業(yè)，每個專業(yè)開多門課程，每個專業(yè)有多個班級，每個班有多名學生。2．每學期學生成績錄入并打印輸出。3．按學號和姓名查詢學生的個人情況并打印輸出。6．登錄界面、菜單。學生（學號，姓名，性別，年齡，出生日期，入學成績，籍貫，4個標簽：字體、字號、背景色、對齊方式。1個表格：數(shù)據(jù)源數(shù)據(jù)庫表。5個命令按鈕mand1(追加)、mand2(結(jié)束)、mand3(刪除)、=messagebox("系部名不能空！讓用戶在已有的值中進行選擇，不要從鍵盤輸入。為此采用一個組合。另外用組合框和表格實現(xiàn)1：n聯(lián)系的兩表中數(shù)據(jù)的關(guān)聯(lián)，來顯示各系

　　

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