基于visualfoxpro60開發的教師管理系統畢業論文-預覽頁

　

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