【文章內容簡介】 ： open data 教師 sele 11 use 教師任課 activate screen browse title 錄入教師任課記錄 Ctrl+Y追加記錄 Ctrl+W存盤 Ctrl+Q廢棄 use sele 1 查詢教師檔案單擊查詢教師檔案一級菜單選項按鈕時，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調用并執(zhí)行查詢教師檔案程序（），完成查詢檔案操作。 ：* 主程序，打開教師數據庫及教師檔案表，并創(chuàng)建表單。public dacxopen data 教師sele 11use 教師檔案dacx=createobject(dacxClass)()retu* 定義表單。define class dacxclass as Form caption=按編號、姓名查詢教師檔案 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按編號或姓名查詢教師檔案。 add object shape1 as shape with。 specialeffect=0,。 left=50,。 top=20,。 height=130,。 width=300,。 visible=.t.,。 name=shape1* 在表單中添加標簽，用于指明選擇按編號或姓名進行查詢操作。 add object label1 as label with。 caption=選擇編號、姓名,。 left=70,。 top=40,。 height=20,。 width=120,。 fontsize=10,。 forecolor=rgb(255,0,0),。 visible=.t.* 在表單中添加編號選擇按鈕，用于選擇按編號查詢教師檔案。 add object opti1 as optionbutton with。 caption=編號,。 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* 在表單中添加一文本框，用于輸入待查詢教師編號。 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* 在表單中添加退出按鈕，用于結束程序執(zhí)行。 add object cmd2 as mandbutton with。 caption=退出按鈕,。 top=100,。 height=20,。 left=260,。 width=60,。 name=cmd2* 輸入待查教師編號的文本框初始化事件，用于初次進入查詢時獲取焦點。 procedure endproc* 按編號查詢按鈕單擊事件，其過程代碼用于設置按編號查詢環(huán)境。 procedure =.t. =.f. =.t. =.f. endproc* 按姓名查詢按鈕單擊事件，其過程代碼用于設置按姓名查詢環(huán)境。 procedure =.t. =.f. =.f. =.t. endproc* 定按鈕單擊事件，其過程代碼區(qū)分按編號或姓名查詢不同情況，按輸入的教師編號或姓名通過相應索引定位查詢。 procedure temp1= temp2= value1= value2= sele 11 do case case temp1 set order to 編號 置當前索引標記為編號 seek value1 按編號查找 activate screen browse noedit title 查看教師檔案記錄 Esc鍵返回amp。amp。顯示按編號查詢結果 case temp2 set order to 姓名 seek value2 activate screen browse noedit title 查看教師檔案，按Esc鍵返回 endc endproc* 退出按鈕單擊事件，其過程代碼用于釋放表單，結束程序執(zhí)行。 procedure rele thisform sele 1 endprocenddefine 查詢教師任課 單擊查詢教師任課一級菜單選項按鈕時，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調用并執(zhí)行查詢教師任課程序（），完成查詢教師任課檔案操作。 查詢教師任課程序（）清單如下：* 主程序，打開教師數據庫及教師檔案表和教師任課表，并創(chuàng)建表單。public rkcxopen data 教師sele 11use 教師檔案sele 12use 教師任課rkcx=createobject(rkcxClass)()retu* 定義表單。define class rkcxclass as Form caption=按編號、姓名查詢教師任課 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按編號或姓名查詢教師任課情況。 add object shape1 as shape with。 specialeffect=0,。 left=50,。 top=20,。 height=130,。 width=300,。 visible=.t.,。 name=shape1* 在表單中添加標簽，用于指明選擇按編號或姓名進行查詢操作。 add object label1 as label with。 caption=選擇編號、姓名,。 left=70,。 top=40,。 height=20,。 width=120,。 fontsize=10,。 forecolor=rgb(255,0,0),。 visible=.t.* 在表單中添加編號選擇按鈕，用于選擇按編號查詢教師任課。 add object opti1 as optionbutton with。 caption=編號,。 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* 在表單中添加一文本框，用于輸入待查詢教師編號。 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* 在表單中添加退出按鈕，用于結束程序執(zhí)行。 add object cmd2 as mandbutton with。 caption=退出按鈕,。 top=100,。 height=20,。 left=260,。 width=60,。 name=cmd2* 輸入待查教師編號的文本框初始化事件，用于初次進入查詢時獲取焦點。 procedure endproc* 按編號查詢按鈕單擊事件，其過程代碼用于設置按編號查詢環(huán)境。 procedure =.t. =.f. =.t. =.f. endproc* 按姓名查詢按鈕單擊事件，其過程代碼用于設置按姓名查詢環(huán)境。 procedure =.t. =.f. =.f. =.t. endproc* 定按鈕單擊事件，其過程代碼區(qū)分按編號或姓名查詢不同情況，按輸入的教師編號或姓名通過相應索引定位查詢。 procedure temp1= temp2= value1= value2= do case case temp1 sele 12 set order to 編號 置當前索引標記為學號 seek value1 按