【正文】 enter=.t. name=jsglenddefine* 定義包容器。 left=130,。 forecolor=rgb(255,0,0),。 add object shape1 as shape with。 height=85,。 add object cmd11 as CommandButton with。 height=24,。 add object opti11 as optionbutton with。 width=100,。 procedure =.t. =.f. =.f. =.f. =.f. do lrjsda endproc* 添加錄入檔案任課一級(jí)菜單項(xiàng)的錄入教師任課二級(jí)菜單項(xiàng)選擇按鈕。 height=20,。 name=opti12* 單擊錄入教師任課二級(jí)菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用錄入教師任課程序（）,執(zhí)行錄入教師任課記錄操作。 top=75,。 visible=.f.,。 left=220,。 caption=課程任教查詢,。 procedure =.t. =.f. =.f. do kcrjcx endproc* 添加教學(xué)綜合查詢一級(jí)菜單項(xiàng)的班級(jí)課程查詢二級(jí)菜單項(xiàng)選擇按鈕。 height=20,。 visible=.f.,。 left=220,。 caption=教師檔案維護(hù),。 add object opti52 as optionbutton with。 width=100,。 name=opti52* 單擊教師任課維護(hù)二級(jí)菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用教師任課維護(hù)程序（）,執(zhí)行教師任課情況維護(hù)操作。 top=103,。 value=.f.,。 add object opti54 as optionbutton with。 width=100,。 name=opti54* 單擊班名班號(hào)維護(hù)二級(jí)菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用班名班號(hào)維護(hù)程序（）,執(zhí)行班名班號(hào)維護(hù)操作。 left=60,。 name=cmd22* 單擊查詢教師檔案一級(jí)菜單選項(xiàng)按鈕事件，其過程代碼主要用于調(diào)用查詢教師檔案程序（）,執(zhí)行教師檔案查詢操作。 left=60,。 name=cmd33* 單擊查詢教師任課一級(jí)菜單選項(xiàng)按鈕事件，其過程代碼主要用于調(diào)用查詢教師任課程序（）,執(zhí)行教師任課查詢操作。 left=60,。 name=cmd44* 教學(xué)綜合查詢一級(jí)菜單項(xiàng)選項(xiàng)按鈕獲取焦點(diǎn)事件，將顯示其相應(yīng)的二級(jí)菜單。 left=60,。 name=cmd55* 檔案任課維護(hù)一級(jí)菜單項(xiàng)選項(xiàng)按鈕獲取焦點(diǎn)事件，將顯示其相應(yīng)的二級(jí)菜單。 height=25,。 name=cmd1* 出按鈕單擊事件，其過程代碼將釋放主控程序表單，結(jié)束程序執(zhí)行。下面先介紹錄入教師檔案，然后介紹錄入教師任課檔案。程序十分簡(jiǎn)單，也是通過BROWSE瀏覽窗口操作完成。define class dacxclass as Form caption=按編號(hào)、姓名查詢教師檔案 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按編號(hào)或姓名查詢教師檔案。 top=20,。 name=shape1* 在表單中添加標(biāo)簽，用于指明選擇按編號(hào)或姓名進(jìn)行查詢操作。 top=40,。 forecolor=rgb(255,0,0),。 left=80,。 fontsize=10,。 caption=姓名,。 width=60,。 add object txbox1 as textbox with。 top=70,。 name=txbox1* 在表單中添加一文本框，用于輸入待查詢教師姓名。 left=150,。 enabled=.f.,。 caption=確定按鈕,。 width=60,。 caption=退出按鈕,。 width=60,。 procedure =.t. =.f. =.f. =.t. endproc* 定按鈕單擊事件，其過程代碼區(qū)分按編號(hào)或姓名查詢不同情況，按輸入的教師編號(hào)或姓名通過相應(yīng)索引定位查詢。 procedure rele thisform sele 1 endprocenddefine 查詢教師任課 單擊查詢教師任課一級(jí)菜單選項(xiàng)按鈕時(shí)，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調(diào)用并執(zhí)行查詢教師任課程序（），完成查詢教師任課檔案操作。 add object shape1 as shape with。 height=130,。 add object label1 as label with。 height=20,。 visible=.t.* 在表單中添加編號(hào)選擇按鈕，用于選擇按編號(hào)查詢教師任課。 top=70,。 value=.t.,。 left=80,。 fontsize=10,。 value= ,。 height=20,。 add object txbox2 as textbox with。 top=100,。 maxlenth=8,。 top=60,。 forecolor=rgb(255,0,0),。 top=100,。 name=cmd2* 輸入待查教師編號(hào)的文本框初始化事件，用于初次進(jìn)入查詢時(shí)獲取焦點(diǎn)。 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 按編號(hào)查找 activate screen browse noedit title 查看教師任課記錄 Esc鍵返回amp。二級(jí)菜單包括三個(gè)菜單項(xiàng)：教師任課查詢、課程任教查詢和班級(jí)課程查詢。 所謂綜合查詢，就是從多表中綜合查詢信息。 教師任課查詢程序（）清單如下：* 主程序，打開教師數(shù)據(jù)庫并創(chuàng)建表單。 specialeffect=0,。 width=300,。 caption=選擇編號(hào)、姓名,。 width=120,。 add object opti1 as optionbutton with。 height=20,。 name=opti1* 在表單中添加姓名選擇按鈕，用于選擇按姓名查詢教師任課。 top=100,。 value=.f.,。 style=0,。 width=35,。 value= ,。 height=20,。 name=txbox2* 在表單中添加確定按鈕，用于執(zhí)行查詢程序。 height=20,。 name=cmd1* 在表單中添加退出按鈕，用于結(jié)束程序執(zhí)行。 height=20,。 add object cmd3 as mandbutton with。 left=210,。 procedure sele 11 brow endproc* 輸入待查教師編號(hào)的文本框初始化事件，用于初次進(jìn)入查詢時(shí)獲取焦點(diǎn)。 procedure temp1= temp2= value1= value2= do case case temp1 activate screen SELECT ,。 FROM 教師!教師檔案 教師檔案 INNER JOIN (教師!教師任課 教師任課 INNER JOIN 教師!課名 課名 ON = ) ON = 。 課程任教綜合查詢，是按指定的課號(hào)或課名，從教師任課表獲取擔(dān)任該課的所有教師編號(hào)。public rjcxopen data 教師sele 13use 課名rjcx=createobject(rjcxClass)()retu* 定義表單。 left=50,。 visible=.t.,。 left=70,。 fontsize=10,。 caption=課號(hào),。 width=60,。 add object opti2 as optionbutton with。 height=20,。 name=opti2* 在表單中添加一文本框，用于輸入待查詢課號(hào)。 left=150,。 maxlenth=4,。 style=0,。 width=140,。 add object cmd1 as mandbutton with。 left=260,。 add object cmd2 as mandbutton with。 left=260,。 caption=...,。 width=30,。 procedure endproc* 按課號(hào)查詢按鈕單擊事件，其過程代碼用于設(shè)置按課號(hào)查詢環(huán)境。 on =。 where =value2。班級(jí)課程查詢也是通過結(jié)構(gòu)化查詢命令完成的。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)。 top=20,。 name=shape1* 在表單中添加標(biāo)簽，用于指明選擇按班號(hào)或班名進(jìn)行查詢操作。 top=40,。 forecolor=rgb(255,0,0),。 left=80,。 fontsize=10,。 caption=班名,。 width=60,。 add object txbox1 as textbox with。 top=70,。 name=txbox1* 在表單中添加一文本框，用于輸入待查詢班名。 left=150,。 enabled=.f.,。 caption=確定按鈕,。 width=60,。 caption=退出按鈕,。 width=60,。 top=70,。 forecolor=rgb(255,0,0),。 procedure =.t. =.f. =.t. =.f. endproc* 按班名查詢按鈕單擊事件，其過程代碼用于設(shè)置按班名查詢環(huán)境。 where =value1。 order by endc endproc* 退出按鈕單擊事件，其過程代碼用于釋放表單，結(jié)束程序執(zhí)行。在這里向所有在這次畢業(yè)設(shè)計(jì)中幫助過我的老師和同學(xué)再道一聲：謝謝了！ 信息電子系：xx 　　　　　　　2004 年 5