【正文】 visible=.t.* 在表單中添加課號(hào)選擇按鈕，用于選擇按課號(hào)查詢所有任課教師。 add object opti1 as optionbutton with。 caption=課號(hào),。 left=80,。 top=70,。 height=20,。 width=60,。 fontsize=10,。 value=.t.,。 name=opti1* 在表單中添加課名選擇按鈕，用于選擇按課名查詢所有任課教師。 add object opti2 as optionbutton with。 caption=課名,。 left=80,。 top=100,。 height=20,。 width=60,。 fontsize=10,。 value=.f.,。 name=opti2* 在表單中添加一文本框，用于輸入待查詢課號(hào)。 add object txbox1 as textbox with。 value= ,。 style=0,。 left=150,。 top=70,。 height=20,。 width=35,。 maxlenth=4,。 name=txbox1* 在表單中添加一文本框，用于輸入待查詢課名。 add object txbox2 as textbox with。 value= ,。 style=0,。 left=150,。 top=100,。 height=20,。 width=140,。 enabled=.f.,。 maxlenth=20,。 name=txbox2* 在表單中添加確定按鈕，用于執(zhí)行查詢程序。 add object cmd1 as mandbutton with。 caption=確定按鈕,。 top=40,。 height=20,。 left=260,。 width=60,。 forecolor=rgb(255,0,0),。 name=cmd1* 在表單中添加退出按鈕，用于結(jié)束程序執(zhí)行。 add object cmd2 as mandbutton with。 caption=退出按鈕,。 top=70,。 height=20,。 left=260,。 width=60,。 name=cmd2* 在表單中添加幫助按鈕，以了解課號(hào)和課名情況，便于按課號(hào)或課名查詢操作。 add object cmd3 as mandbutton with。 caption=...,。 top=70,。 height=20,。 left=210,。 width=30,。 forecolor=rgb(255,0,0),。 name=cmd3* 幫助按鈕單擊事件，其過(guò)程代碼用于瀏覽課號(hào)和課名情況。 procedure sele 13 brow endproc* 輸入待查任教課號(hào)的文本框初始化事件，用于初次進(jìn)入查詢時(shí)獲取焦點(diǎn)。 procedure endproc* 按課號(hào)查詢按鈕單擊事件，其過(guò)程代碼用于設(shè)置按課號(hào)查詢環(huán)境。 procedure =.t. =.f. =.t. =.f. endproc* 按課名查詢按鈕單擊事件，其過(guò)程代碼用于設(shè)置按課名查詢環(huán)境。 procedure =.t. =.f. =.f. =.t. endproc* 確定按鈕單擊事件，其過(guò)程代碼區(qū)分按課號(hào)或課名查詢不同情況，按輸入的課號(hào)或課名通過(guò)相應(yīng)結(jié)構(gòu)化查詢命令進(jìn)行綜合查詢。 procedure temp1= temp2= value1= value2= do case case temp1 activate screen sele * from 教師!課名 inner join 教師!教師任課。 on =。 where =value1。 order by case temp2 sele * from 教師!課名 inner join 教師!教師任課。 on =。 where =value2。 order by endc endproc* 退出按鈕單擊事件，其過(guò)程代碼用于釋放表單，結(jié)束程序執(zhí)行。 procedure rele thisform sele 1 endprocenddefine 班級(jí)課程查詢 單擊一級(jí)菜單教師綜合查詢的班級(jí)課程查詢二級(jí)菜單選擇按鈕時(shí)，將調(diào)用并執(zhí)行班級(jí)課程綜合查詢程序（）。班級(jí)課程查詢，是按指定的班號(hào)或班名，從教師任課表獲取該班所有課程及任課教師編號(hào)。班級(jí)課程查詢也是通過(guò)結(jié)構(gòu)化查詢命令完成的。同學(xué)們可仿照上一小節(jié)的結(jié)構(gòu)化查詢命令補(bǔ)充任課教師姓名。 班級(jí)課程查詢程序（）清單如下：* 主程序，打開(kāi)教師數(shù)據(jù)庫(kù)并創(chuàng)建表單。public bjcxopen data 教師sele 14use 班名bjcx=createobject(bjcxClass)()retu* 定義表單。define class bjcxclass as Form caption=按班號(hào)、班名查詢教師任課 height=180 width=400 maxbutton=.t. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按班號(hào)或班名查詢所有課號(hào)及教師編號(hào)。 add object shape1 as shape with。 specialeffect=0,。 left=50,。 top=20,。 height=130,。 width=300,。 visible=.t.,。 name=shape1* 在表單中添加標(biāo)簽，用于指明選擇按班號(hào)或班名進(jìn)行查詢操作。 add object label1 as label with。 caption=選擇班號(hào)、班名,。 left=70,。 top=40,。 height=20,。 width=120,。 fontsize=10,。 forecolor=rgb(255,0,0),。 visible=.t.* 在表單中添加班號(hào)選擇按鈕，用于選擇按班號(hào)查詢所有課號(hào)及任課教師編號(hào)。 add object opti1 as optionbutton with。 caption=班號(hào),。 left=80,。 top=70,。 height=20,。 width=60,。 fontsize=10,。 value=.t.,。 name=opti1* 在表單中添加班名選擇按鈕，用于選擇按班名查詢所有課號(hào)及任課教師編號(hào)。 add object opti2 as optionbutton with。 caption=班名,。 left=80,。 top=100,。 height=20,。 width=60,。 fontsize=10,。 value=.f.,。 name=opti2* 在表單中添加一文本框，用于輸入待查詢班號(hào)。 add object txbox1 as textbox with。 value= ,。 style=0,。 left=150,。 top=70,。 height=20,。 width=45,。 maxlenth=5,。 name=txbox1* 在表單中添加一文本框，用于輸入待查詢班名。 add object txbox2 as textbox with。 value= ,。 style=0,。 left=150,。 top=100,。 height=20,。 width=60,。 enabled=.f.,。 maxlenth=7,。 name=txbox2* 在表單中添加確定按鈕，用于執(zhí)行查詢程序。 add object cmd1 as mandbutton with。 caption=確定按鈕,。 top=60,。 height=20,。 left=260,。 width=60,。 forecolor=rgb(255,0,0),。 name=cmd1* 在表單中添加退出按鈕，用于結(jié)束程序執(zhí)行。 add object cmd2 as mandbutton with。 caption=退出按鈕,。 top=100,。 height=20,。 left=260,。 width=60,。 name=cmd2* 在表單中添加幫助按鈕，以了解班號(hào)和班名情況，便于按班號(hào)或班名查詢操作。 add object cmd3 as mandbutton with。 caption=...,。 top=70,。 height=20,。 left=210,。 width=30,。 forecolor=rgb(255,0,0),。 name=cmd3* 幫助按鈕單擊事件，其過(guò)程代碼用于瀏覽班號(hào)和班名情況。 procedure sele 14 brow endproc* 輸入待查班號(hào)的文本框初始化事件，用于初次進(jìn)入查詢時(shí)獲取焦點(diǎn)。 procedure endproc* 按班號(hào)查詢按鈕單擊事件，其過(guò)程代碼用于設(shè)置按班號(hào)查詢環(huán)境。 procedure =.t. =.f. =.t. =.f. endproc* 按班名查詢按鈕單擊事件，其過(guò)程代碼用于設(shè)置按班名查詢環(huán)境。 procedure =.t. =.f. =.f. =.t. endproc* 確定按鈕單擊事件，其過(guò)程代碼區(qū)分按班號(hào)或班名查詢不同情況，按輸入的班號(hào)或班名通過(guò)相應(yīng)結(jié)構(gòu)化查詢命令進(jìn)行綜合查詢。 procedure temp1= temp2= value1= value2= do case case temp1 activate screen sele * from 教師!班名 inner join 教師!教師任課。 on =。 where =value1。 order by case temp2 sele * from 教師!班名 inner join 教師!教師任課。 on =。 where =value2。 order by endc endproc* 退出按鈕單擊事件，其過(guò)程代碼用于釋放表單，結(jié)束程序執(zhí)行。 procedure rele thisform sele 1 endprocenddefine第三章 流程圖錄入教師班級(jí)信息錄入教師課程信息錄入教師檔案錄入教師任課記錄錯(cuò)誤請(qǐng)輸入帳號(hào)和密碼正確 \刪除 退出退出\