四、綜合應用題

　　[操作步驟]

　　步驟1：單擊工具欄中的“新建”按鈕，新建-個表單文件，通過表單控件工具欄向表單中添加兩個復選框、-個選項組和兩個命令按鈕，并將“教師表”和“學院表”添加到表單的數(shù)據環(huán)境中。

　　步驟2：設置表單的Name屬性為m#orm，Caption屬性為“教師情況”;設置兩個命令按鈕的Caption屬性分別為。生成表”和“退出”;設置兩個復選框的Caption屬性分別為。系名”和“工資”;兩個單選按鈕的Caption屬性分別為“按職工號升序”和“按職工號降序”。

　　步驟3：雙擊“生成表”按鈕，為“生成表”命令按鈕編寫

　　Click"事件代碼。

　　*****“生成表”按鈕的Click事件代碼*****

　　a=ThisForm.Checkl.Value

　　b=ThisForm.Cheek2.Value

　　C=ThisFafm.Olptiongroupp1.Option1.Value

　　d=TlaisForm.0ptiongroup1.option2.Value

　　if a=l and b=l

　　if c=l

　　select職工號。姓名，系名，工資，課程號from教師表，

　　學院表;

　　Where教師表.系號=學院表.系號;

　　order by職工號;

　　into tablevtwo.dbf

　　else

　　if d=1

　　sdect職工號，姓名，系名，工資，課程號from教

　　師表，學院表;

　　where教師表.系號=學院表.系號;

　　order by職工號desc;

　　曲inw n1ldC two.dbf

　　endif

　　endif

　　endif

　　if a=l andb=0

　　ifc=l

　　select職工號，姓名，系名，課程號from教師表，掣

　　院表;

　　whem教師表.系號=學院表.系號;

　　order by職工號;

　　into table one_x.dbf

　　else

　　ifd=l

　　select職工號，姓名，系名，課程號from教師表，

　　學院表;

　　where教師表.系號=學院表.系號;

　　order by職工號desc;

　　into table one.x.dbf

　　endif

　　endif

　　endif

　　if a=O and b=1

　　ife=1

　　∞leet職工號，姓名，工資，課程號from教師表，掣

　　院表;

　　where教師表.系號=學院表.系號;

　　order by職工號;

　　into talde olle_xx.dbf

　　else

　　if d=1

　　select職工號，姓名，工資，課程號from教師表，

　　學院表：

　　where教師表.系號=學院表.系號;

　　order by職工號desc;

　　into table one xx.dbf

　　endif

　　endif

　　cndif

　　**********************

　　步驟4：保存表單名為myform，按題目要求運行表單并執(zhí)行相關操作。

　　相關推薦：

　　各地2016年全國計算機等級考試報名時間匯總

　　各地2016年計算機等級考試準考證打印時間匯總

　　各地2016年全國計算機等級考試費用匯總