visualfoxpro數(shù)據(jù)庫(kù)基礎(chǔ)習(xí)題第八章習(xí)題及答案-資料下載頁(yè)
2025-06-28 08:48本頁(yè)面
【正文】 將表文件“學(xué)生”、“課程”、“成績(jī)”添加到數(shù)據(jù)環(huán)境中。(3) 按題目要求在表單中加入控件：命令按紐組Commandgroup1；從數(shù)據(jù)環(huán)境中將“學(xué)生”表的“姓名”字段、“課程”表的“課程名”字段、“成績(jī)”表的“學(xué)號(hào)”字段、“成績(jī)”表的“課程號(hào)”字段、“成績(jī)”表的“成績(jī)”字段分別拖入表單對(duì)應(yīng)位置。(4) 主要屬性設(shè)置：表單 Form1 的Caption 屬性設(shè)置為 “學(xué)生成績(jī)表編輯表單”命令按紐組Commandgroup1的ButtonCount 屬性設(shè)置為 “7”(5) 主要事件代碼：1. FORM1 INIT 事件代碼:SET SAFETY OFF=.F.=.F.C=添加刪除退出表頭前翻表尾后翻FOR N=1 TO (N).CAPTION=SUBSTR(C,4*(N1)+1,4)ENDFOR SELECT 學(xué)生INDEX ON 學(xué)號(hào) TO XHISELECT 課程INDEX ON 課程號(hào) TO KCISELECT 成績(jī)SET RELATION TO 學(xué)號(hào) INTO 學(xué)生, 課程號(hào) INTO 課程2. COMMANDGROUP1 CLICK 事件代碼:SELECT 成績(jī)DO CASE CASE =1 APPEND BLANK CASE =2 DELETE CASE =3 CASE =4 GO TOP =.F. =.F. =.T. =.T. CASE =5 SKIP 1 IF BOF() =.F. =.F. ENDIF =.T. =.T. CASE =6 GO BOTTOM =.T. =.T. =.F. =.F. CASE =7 SKIP IF EOF() =.F. =.F. ENDIF =.T. =.T.ENDCASE 120
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1