四、綜合應(yīng)用題
[操作步驟]
步驟1:?jiǎn)螕艄ぞ邫谥械摹靶陆ā卑粹o,新建-個(gè)表單文件,通過(guò)表單控件工具欄向表單中添加兩個(gè)復(fù)選框、-個(gè)選項(xiàng)組和兩個(gè)命令按鈕,并將“教師表”和“學(xué)院表”添加到表單的數(shù)據(jù)環(huán)境中。
步驟2:設(shè)置表單的Name屬性為m#orm,Caption屬性為“教師情況”;設(shè)置兩個(gè)命令按鈕的Caption屬性分別為。生成表”和“退出”;設(shè)置兩個(gè)復(fù)選框的Caption屬性分別為。系名”和“工資”;兩個(gè)單選按鈕的Caption屬性分別為“按職工號(hào)升序”和“按職工號(hào)降序”。
步驟3:雙擊“生成表”按鈕,為“生成表”命令按鈕編寫(xiě)
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職工號(hào)。姓名,系名,工資,課程號(hào)from教師表,
學(xué)院表;
Where教師表.系號(hào)=學(xué)院表.系號(hào);
order by職工號(hào);
into tablevtwo.dbf
else
if d=1
sdect職工號(hào),姓名,系名,工資,課程號(hào)from教
師表,學(xué)院表;
where教師表.系號(hào)=學(xué)院表.系號(hào);
order by職工號(hào)desc;
曲inw n1ldC two.dbf
endif
endif
endif
if a=l andb=0
ifc=l
select職工號(hào),姓名,系名,課程號(hào)from教師表,掣
院表;
whem教師表.系號(hào)=學(xué)院表.系號(hào);
order by職工號(hào);
into table one_x.dbf
else
ifd=l
select職工號(hào),姓名,系名,課程號(hào)from教師表,
學(xué)院表;
where教師表.系號(hào)=學(xué)院表.系號(hào);
order by職工號(hào)desc;
into table one.x.dbf
endif
endif
endif
if a=O and b=1
ife=1
∞leet職工號(hào),姓名,工資,課程號(hào)from教師表,掣
院表;
where教師表.系號(hào)=學(xué)院表.系號(hào);
order by職工號(hào);
into talde olle_xx.dbf
else
if d=1
select職工號(hào),姓名,工資,課程號(hào)from教師表,
學(xué)院表:
where教師表.系號(hào)=學(xué)院表.系號(hào);
order by職工號(hào)desc;
into table one xx.dbf
endif
endif
cndif
**********************
步驟4:保存表單名為myform,按題目要求運(yùn)行表單并執(zhí)行相關(guān)操作。
相關(guān)推薦:
各地2016年全國(guó)計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |