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

　　

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