【文章內(nèi)容簡(jiǎn)介】 t 10 Command button 修改 text 10 Command button 刪除 text 10 Command button 返回 text 10 新增鍵 打開專業(yè)設(shè)置表時(shí)如輸入專業(yè)名稱和專業(yè)代碼，應(yīng)選定新增鍵。對(duì)應(yīng)的流程圖如下： Y N N 修改鍵 首先，用戶修改數(shù)據(jù)后存盤，同時(shí)，應(yīng)檢測(cè)數(shù)據(jù)是否完整，數(shù)據(jù)庫操縱是否成功，然后按修改。 刪除鍵 設(shè)置提示信息，確定用戶要?jiǎng)h除當(dāng)前記錄后提交。 2 學(xué)期設(shè)置 開始 輸入專業(yè)名稱和專業(yè)代碼 判斷是否有同樣專業(yè)代碼 添加數(shù)據(jù) 結(jié)束 3 學(xué)生基本信息 選擇專業(yè)鍵 新增 //判斷新加的用戶名是否已經(jīng)存在 如果 xm1 不為空 則需要重新添加用戶名 select name into :xm1 from _user where name=:xm。 根據(jù)新增用戶選擇的權(quán)限設(shè)置 :qxl 把 xm,:kl,:qxl 添加到表 _user 中 insert into _user(name,password,jb) 選擇專業(yè) 查找與該專業(yè)代碼一致的專業(yè)并顯示 結(jié)束 開始 values (:)。 mit。//返回?cái)?shù)據(jù)庫操作 刪除 利用 ()得到當(dāng)前選定的數(shù)據(jù)項(xiàng)， 數(shù)據(jù)窗口函數(shù)刪除當(dāng)前選定用戶 ()更新數(shù)據(jù) (()) () mit。 4 試卷信息 控件 屬性 值 Data window H scollbar 選中 Data window H/V scollbar 選中 Data window H/V scollbar 選中 Command button 返回 text 10 退出鍵 if () 0 then () delete from paper where due1=0。 close(parent) 6 試卷登記 退出鍵 if () 0 then () close(parent) 開始 選擇現(xiàn)有專業(yè) 選擇學(xué)期 顯示試卷登記表，可登記試卷 終止 N Y 二 統(tǒng)計(jì)分析 1 查找學(xué)生 檢索鍵 string get_str get_str = trim() if = then return end if choose case case 1 開始 選擇現(xiàn)有專業(yè) 選擇學(xué)期 判斷是否存在試卷數(shù)據(jù) 顯示數(shù)據(jù) 結(jié)束 顯示錯(cuò)誤警告 = dw_find_stu_by_id (sqlca) (get_str) case 2 = dw_find_stu_by_name (sqlca) (get_str) end choose Y N N Y A 按學(xué)生學(xué)號(hào)進(jìn)行查詢，基本表對(duì)應(yīng)主鍵的均自動(dòng)建立索引，所以不必另建索引。 B 按學(xué)生姓名進(jìn)行查詢，窗口中列出該姓名所有記錄。 2 學(xué)生成績(jī)統(tǒng)計(jì)和頻數(shù)分布圖 開始 提示輸入信息 檢索是否為空 檢索 是否存在輸入的學(xué)號(hào)或姓名 顯示數(shù)據(jù) 結(jié)束 DataWindowChild dwc_score, dwc_absent,dwc_graph (dw_score, dwc_score) //(dw_absent, dwc_absent) (dw_graph1,dwc_graph) if var_semester then // = dw_score_statistics decimal there_paper SELECT top 1 INTO :there_paper FROM paper WHERE ( = :var_semester ) 。 if 0 then 開始 選擇專 業(yè) 選擇學(xué)期 顯示數(shù)據(jù) 結(jié)束 messagebox(180。237。206。243。,196。203。249。214。184。182。168。181。196。168。210。181。212。218。214。184。182。168。181。196。209。167。198。 218。178。187。180。230。212。218。202。212。190。237。163。161。) (SQLCA) () //(SQLCA) //() (SQLCA) () return end if (SQLCA) (var_semester) //(SQLCA) //(var_semester) (SQLCA) (var_semester,var_spec) else (SQLCA) () //(SQLCA) //() (SQLCA) (,) end if 3 成績(jī)分析 SELECT , , , , , , , , , , , , , ++++++sco+++ AS SCORE_SUM FROM score, specialty, student WHERE ( = ) and ( = ) and ( ( = :var_semester ) ) if var_semester then 選擇專業(yè) 選擇學(xué)期 顯示數(shù)據(jù) 結(jié)束 開始 decimal there_paper[6,10] SELECT top 1 , , , , , , , , , INTO :there_paper[1,1], :there_paper[1,2], :there_paper[1,3], :there_paper[1,4], :there_paper[1,5], :there_paper[1,6], :there_paper[1,7], :there_paper[1,8], :there_paper[1,9], :there_paper[1,10] FROM paper WHERE ( = :var_semester ) 。 if 0 then messagebox(180。237。206。243。,196。203。249。214。184。182。168。181。196。168。210。181。212。218。214。184。182。168。181。196。209。167。198。 218。178。187。180。230。212。218。202。212。190。237。163。161。) (SQLCA) () //(sqlca) //(,) return end if int var_questions = 1 //get questins numbers for var_questions=1 to 10 if there_paper[1,var_questions] = 0 then EXIT next var_questions = 1 //calculate difficult real temp[2,10] SELECT sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), sum( case when = then 1 else 0 end), avg( ), max(), avg( ), max(), avg( ), max(), avg( ), max(), avg( ), max(), avg( ), max(), avg( ), max(), avg( ), max(), avg( ), max(), avg( ), max() INTO :there_paper[2,1], :there_paper[2,2], :there_paper[2,3], :there_paper[2,4], :there_paper[2,5], :there_paper[2,6], :there_paper[2,7], :there_paper[2,8], :there_paper[2,9], :there_paper[2,10], :temp[1,1],:temp[2,1],:temp[1,2],:temp[2,2],:temp[1,3],:temp[2,3],:temp[1,4],:temp[2,4], :temp[1,5],:temp[2,5],:temp[1,6],:temp[2,6],:temp[1,7],:temp[2,7],:temp[1,8],:temp[2,8], :temp[1,9],:temp[2,9],:temp[1,10],:temp[2,10] FROM score, paper, student WHERE ( = ) and ( = ) and