【文章內(nèi)容簡(jiǎn)介】 ： open data 教師 sele 11 use 教師任課 activate screen browse title 錄入教師任課記錄 Ctrl+Y追加記錄 Ctrl+W存盤(pán) Ctrl+Q廢棄 use sele 1 查詢教師檔案單擊查詢教師檔案一級(jí)菜單選項(xiàng)按鈕時(shí)，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調(diào)用并執(zhí)行查詢教師檔案程序（），完成查詢檔案操作。 ：* 主程序，打開(kāi)教師數(shù)據(jù)庫(kù)及教師檔案表，并創(chuàng)建表單。public dacxopen data 教師sele 11use 教師檔案dacx=createobject(dacxClass)()retu* 定義表單。define class dacxclass as Form caption=按編號(hào)、姓名查詢教師檔案 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按編號(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)查詢教師檔案。 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=60,。 enabled=.f.,。 maxlenth=8,。 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)的文本框初始化事件，用于初次進(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)索引定位查詢。 procedure temp1= temp2= value1= value2= sele 11 do case case temp1 set order to 編號(hào) 置當(dāng)前索引標(biāo)記為編號(hào) seek value1 按編號(hào)查找 activate screen browse noedit title 查看教師檔案記錄 Esc鍵返回amp。amp。顯示按編號(hào)查詢結(jié)果 case temp2 set order to 姓名 seek value2 activate screen browse noedit title 查看教師檔案，按Esc鍵返回 endc endproc* 退出按鈕單擊事件，其過(guò)程代碼用于釋放表單，結(jié)束程序執(zhí)行。 procedure rele thisform sele 1 endprocenddefine 查詢教師任課 單擊查詢教師任課一級(jí)菜單選項(xiàng)按鈕時(shí)，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調(diào)用并執(zhí)行查詢教師任課程序（），完成查詢教師任課檔案操作。 查詢教師任課程序（）清單如下：* 主程序，打開(kāi)教師數(shù)據(jù)庫(kù)及教師檔案表和教師任課表，并創(chuàng)建表單。public rkcxopen data 教師sele 11use 教師檔案sele 12use 教師任課rkcx=createobject(rkcxClass)()retu* 定義表單。define class rkcxclass as Form caption=按編號(hào)、姓名查詢教師任課 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按編號(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)查詢教師任課。 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=60,。 enabled=.f.,。 maxlenth=8,。 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)的文本框初始化事件，用于初次進(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)索引定位查詢。 procedure temp1= temp2= value1= value2= do case case temp1 sele 12 set order to 編號(hào) 置當(dāng)前索引標(biāo)記為學(xué)號(hào) seek value1 按