【文章內(nèi)容簡介】 +48+0,查詢出錯 ) 查詢依據(jù) .setfocus else 學號 .setfocus 姓名 .setfocus 性別 .setfocus 班級編號 .setfocus 籍貫 .setfocus 查詢依據(jù) .setfocus go top endif else if 查 詢依據(jù) .text=班級編號 set filter to 學生 .班級編號 =alltrim( 查詢依據(jù) .value) 學號 .setfocus 姓名 .setfocus 性別 .setfocus 班級編號 .setfocus 籍貫 .setfocus 查詢依據(jù) .setfocus set filter to else set filter to endif endif endif 天津大學 2021 屆成人本科畢業(yè)設計（論文） 28 endif 3）“退出”按鈕的代碼： 4）表單運行情況： 如圖 所示 圖 “學生表單 ” 運行結果 ? “教師信息”表單 在項目中新建一個表單，在表單設計器中右擊，在快捷菜單中執(zhí)行“數(shù)據(jù)環(huán)境”命令，添加“教師”表。 在表單設計區(qū)域添加控件，設置屬性，表單如圖 圖 “教師信息”表單 天津大學 2021 屆成人本科畢業(yè)設計（論文） 29 表單及表單上控件的屬性設置見表 表 控件類型 控件名稱 屬性 屬性值 Form F 教師信息 Caption “教師信息” Name “ F 教師信息” Label Label1 Caption “教師信息” Label Label2 Caption “查詢依據(jù) ：” Label Label3 Caption “為” Label Label4 Caption “顯示信息” Label Lbl教師編號 Caption 教師編號 name Lbl教師編號 Label lbl姓名 Caption 姓名 name lbl姓名 Label lbl性別 Caption 性別 name lbl性別 Label Lbl系編號 Caption 系編號 name Lbl系編號 Text box Text1 查詢依據(jù) name Text1 查詢依據(jù) Text box Txt 教師編號 Controlsource “教師 .教師編號” readonly .T. name txt 學號 Text box txt 姓名 Controlsource “教師 .姓名” readonly .T. name txt 姓名 Text box txt 性別 Controlsource “教師 .性別” readonly .T. name txt 性別 Text box Txt 系編號 Controlsource “教師 .系編號” readonly .T. name Txt 系編號 Combo box Combo1 查詢依據(jù) name Combo1 查詢依據(jù) grid Grid1 readonly .T. name Grid1 recordsource “教師” 天津大學 2021 屆成人本科畢業(yè)設計（論文） 30 Command button Command1 caption 查詢 name Command1 Command button Command2 caption 退出 name Command2 添加響應代碼： 1）表單的初始化（ INIT）代碼： 查詢依據(jù) .additem(教師編號 ) 查詢依據(jù) .additem(姓名 ) 查詢依據(jù) .additem(系編號 ) 查詢依據(jù) .value=1 查詢依據(jù) .setfocus 2）“查詢”按鈕的單擊事件： if empty( 查詢依據(jù) .value) set filter to else if 查詢依據(jù) .text=教師編號 locate for 教師 .教師編號 =alltrim( 查詢依據(jù) .value) if .() 教師編號 .setfocus 姓名 .setfocus 性別 .setfocus 系編號 .setfocus 查詢依據(jù) .setfocus go top else messagebox(沒有找到，請確定后重新輸入！ ,4+48+0,查詢出錯 ) 查詢依據(jù) .setfocus endif else if 查詢依據(jù) .text=姓名 locate for 教師 .姓名 =alltrim( 查詢依據(jù) .value) if .() 天津大學 2021 屆成人本科畢業(yè)設計（論文） 31 教師編號 .setfocus 姓名 .setfocus 性別 .setfocus 系編號 .setfocus 查詢依據(jù) .setfocus go top else messagebox(沒有找到，請確定后重新輸入！ ,4+48+0,查詢出錯 ) 查詢依據(jù) .setfocus endif else if 查詢依據(jù) .text=系編號 set filter to 教師 .系編號 =alltrim( 查詢依據(jù) .value) 教師編號 .setfocus 姓名 .setfocus 性別 .setfocus 系編號 .setfocus 查詢依據(jù) .setfocus go top set filter to else set filter to endif endif endif endif 3）“退出”按鈕的代碼： 天津大學 2021 屆成人本科畢業(yè)設計（論文） 32 4）表單運行情況： 如圖 所示 圖 “教師信息”表單運行結果 ? “課程信息”表單 在項目中新建一個表單，在表單設計器中右擊，在快捷菜單中執(zhí)行“數(shù)據(jù)環(huán)境”命令，添加“課程”表。 在表單設計區(qū)域添加控件，設置屬性，表單如圖 圖 “課程信息”表單 天津大學 2021 屆成人本科畢業(yè)設計（論文） 33 表單及表單上控件的屬性設置見表 表 “課程信息”表單屬性設置 控件類型 控件名稱 屬性 屬性值 Form F 課程信息 Caption “課程信息” Name “ F 課程信息” Label Label1 Caption “課程信息” Label Label2 Caption “查詢依據(jù) ：” Label Label3 Caption “為” Label Label4 Caption “顯示信息” Label Lbl課程編號 Caption “課程編號” name “ Lbl課程編號” Label Lbl課程名稱 Caption “課程名稱” name “ Lbl課程名稱” Label Lbl教師編號 Caption “教師編號” name “ Lbl教師編號” Label Lbl系編號 Caption “系編號” name “ Lbl系編號” Label lbl課時 name lbl課時 Caption “課時” Label lbl上課地點 Caption “上課地點” name “ lbl上課地點” Label lbl學分 Caption “學分” name “ lbl學分” Label lbl學年 Caption “學年” name “ lbl學 年” Label lbl學期 Caption “學期” name “ lbl學期” Label lbl名額 Caption “名額” name “ lbl名額” Text box Txt 課程編號 Controlsource “課程 .課程編號” readonly .T. name Txt 課程編號 Text box Txt 課程名稱 Controlsource “課程 .課程名稱” readonly .T. 天津大學 2021 屆成人本科畢業(yè)設計（論文） 34 name Txt 課程名稱 Text box Txt 系編號 Controlsource “課程 .系編號” readonly .T. name Txt 系編號 Text box Txt 教師編號 Controlsource “課程 .教師編號” readonly .T. name Txt 教師編號 Text box txt 課時 Controlsource “課程 .課時” readonly .T. name txt 課時 Text box txt 上課地點 Controlsource “課程 .上課地點” readonly .T. name txt 上課地點 Text box txt 學分 Controlsource “課程 .學分” readonly .T. name txt 學分 Text box txt 學年 Controlsource “課程 .學年” readonly .T. name txt 學年 Text box txt 學期 Controlsource “課程 .學期” readonly .T. name txt 學期 Text box txt 名額 Controlsource “課程 .名額” readonly .T. name txt 名額 Text box text1 查詢依據(jù) name text1 查詢依據(jù) Combo box Combo1 查詢依據(jù) Name Combo1 查詢依據(jù) grid Grid1 readonly .T. name Grid1 recordsource “課程” Command button Command1 caption 查詢 name Comm