【正文】 =35,。 top=70,。 style=0,。 add object txbox1 as textbox with。 value=.f.,。 width=60,。 top=100,。 caption=姓名,。 name=opti1* 在表單中添加姓名選擇按鈕，用于選擇按姓名查詢教師任課。 fontsize=10,。 height=20,。 left=80,。 add object opti1 as optionbutton with。 forecolor=rgb(255,0,0),。 width=120,。 top=40,。 caption=選擇編號、姓名,。 name=shape1* 在表單中添加標(biāo)簽，用于指明選擇按編號或姓名進(jìn)行查詢操作。 width=300,。 top=20,。 specialeffect=0,。define class rkcxclass as Form caption=按編號、姓名查詢教師任課 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按編號或姓名查詢教師任課情況。 查詢教師任課程序（）清單如下：* 主程序，打開教師數(shù)據(jù)庫及教師檔案表和教師任課表，并創(chuàng)建表單。顯示按編號查詢結(jié)果 case temp2 set order to 姓名 seek value2 activate screen browse noedit title 查看教師檔案，按Esc鍵返回 endc endproc* 退出按鈕單擊事件，其過程代碼用于釋放表單，結(jié)束程序執(zhí)行。 procedure temp1= temp2= value1= value2= sele 11 do case case temp1 set order to 編號 置當(dāng)前索引標(biāo)記為編號 seek value1 按編號查找 activate screen browse noedit title 查看教師檔案記錄 Esc鍵返回amp。 procedure =.t. =.f. =.t. =.f. endproc* 按姓名查詢按鈕單擊事件，其過程代碼用于設(shè)置按姓名查詢環(huán)境。 name=cmd2* 輸入待查教師編號的文本框初始化事件，用于初次進(jìn)入查詢時獲取焦點(diǎn)。 left=260,。 top=100,。 add object cmd2 as mandbutton with。 forecolor=rgb(255,0,0),。 left=260,。 top=60,。 add object cmd1 as mandbutton with。 maxlenth=8,。 width=60,。 top=100,。 style=0,。 add object txbox2 as textbox with。 maxlenth=4,。 height=20,。 left=150,。 value= ,。 name=opti2* 在表單中添加一文本框，用于輸入待查詢教師編號。 fontsize=10,。 height=20,。 left=80,。 add object opti2 as optionbutton with。 value=.t.,。 width=60,。 top=70,。 caption=編號,。 visible=.t.* 在表單中添加編號選擇按鈕，用于選擇按編號查詢教師檔案。 fontsize=10,。 height=20,。 left=70,。 add object label1 as label with。 visible=.t.,。 height=130,。 left=50,。 add object shape1 as shape with。public dacxopen data 教師sele 11use 教師檔案dacx=createobject(dacxClass)()retu* 定義表單。 錄入教師任課程序（）清單如下： open data 教師 sele 11 use 教師任課 activate screen browse title 錄入教師任課記錄 Ctrl+Y追加記錄 Ctrl+W存盤 Ctrl+Q廢棄 use sele 1 查詢教師檔案單擊查詢教師檔案一級菜單選項(xiàng)按鈕時，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調(diào)用并執(zhí)行查詢教師檔案程序（），完成查詢檔案操作。 錄入教師檔案程序（）清單如下： open data 教師 sele 11 use 教師檔案 activate screen browse title 錄入教師檔案記錄 Ctrl+Y追加記錄 Ctrl+W存盤 Ctrl+Q廢棄 use sele 1 . 錄入教師任課檔案單擊一級菜單錄入檔案任課的錄入教師任課二級菜單選擇按鈕時，將調(diào)用錄入教師任課程序（）執(zhí)行錄入操作。 錄入教師檔案單擊一級菜單錄入檔案任課的錄入教師檔案二級菜單選擇按鈕時，將調(diào)用錄入教師檔案程序（）執(zhí)行錄入操作。單擊二級菜單選擇按鈕將調(diào)用其相應(yīng)程序，完成錄入操作。 procedure release thisform sele 1 endprocenddefine 錄入教師檔案和教師任課檔案 當(dāng)一級菜單錄入檔案任課選項(xiàng)按鈕獲取焦點(diǎn)時，將顯示其相應(yīng)的二級菜單。 forecolor=rgb(255,0,0),。 left=240,。 top=170,。 procedure =.f. =.f. =.f. =.f. =.f. =.t. =.t. =.t. =.t. =.f. =.f. =.f. =.f. endproc * 添加退出按鈕 add object cmd1 as mandbutton with。 width=100,。 top=172,。 caption=檔案任課維護(hù),。 procedure =.f. =.f. =.t. =.t. =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. endproc* 添加檔案任課維護(hù)一級菜單項(xiàng)的選項(xiàng)按鈕。 width=100,。 top=144,。 caption=教學(xué)綜合查詢,。 procedure =.f. =.f. =.f. =.f. =.f. do jsrkcx endproc* 添加教學(xué)綜合查詢一級菜單項(xiàng)的選項(xiàng)按鈕。 width=100,。 top=116,。 caption=查詢教師任課,。 procedure =.f. =.f. =.f. =.f. =.f. do jsdacx endproc* 添加查詢教師任課一級菜單項(xiàng)的選項(xiàng)按鈕。 width=100,。 top=88,。 caption=查詢教師檔案,。 procedure =.t. =.f. =.f. =.f. do bmbhwh endproc* 添加查詢教師檔案一級菜單項(xiàng)的選項(xiàng)按鈕。 visible=.f.,。 caption=班名班號維護(hù),。 height=20,。 left=220,。 procedure =.t. =.f. =.f. =.f. do kmkhwh endproc* 添加檔案任課維護(hù)一級菜單項(xiàng)的班名班號維護(hù)二級菜單項(xiàng)選擇按鈕。 visible=.f.,。 caption=課名課號維護(hù),。 height=20,。 left=220,。 procedure =.t. =.f. =.f. =.f. do jsrkwh endproc* 添加檔案任課維護(hù)一級菜單項(xiàng)的課名課號維護(hù)二級菜單項(xiàng)選擇按鈕。 visible=.f.,。 caption=教師任課維護(hù),。 height=20,。 left=220,。 procedure =.t. =.f. =.f. =.f. do jsdawh endproc* 添加檔案任課維護(hù)一級菜單項(xiàng)的教師任課維護(hù)二級菜單項(xiàng)選擇按鈕。 visible=.f.,。 width=100,。 top=67,。 add object opti51 as optionbutton with。 name=opti43* 單擊班級課程查詢二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用班級課程查詢程序（）,執(zhí)行班級任課教師情況查詢操作。 value=.f.,。 width=100,。 top=115,。 add object opti43 as optionbutton with。 name=opti42* 單擊課程任教查詢二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用課程任教查詢程序（）,執(zhí)行課程任教教師情況查詢操作。 value=.f.,。 width=100,。 top=95,。 add object opti42 as optionbutton with。 name=opti41* 單擊教師任課查詢二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用教師任課查詢程序（）,執(zhí)行教師檔案任課查詢操作。 caption=教師任課查詢,。 height=20,。 left=220,。 procedure =.t. =.f. =.f. =.f. =.f. do lrjsrk endproc* 添加教學(xué)綜合查詢一級菜單項(xiàng)的教師任課查詢二級菜單項(xiàng)選擇按鈕。 visible=.f.,。 width=100,。 top=110,。 add object opti12 as optionbutton with。 name=opti11* 單擊錄入教師檔案二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用錄入教師檔案程序（）,執(zhí)行錄入教師檔案操作。 caption=錄入教師檔案,。 height=20,。 left=225,。 procedure