【正文】 ) 系統(tǒng)主菜單中響應 “課程統(tǒng)計”窗口腳本。Open(w_kctj)(36) 運行應用程序。8“數(shù)據(jù)統(tǒng)計”菜單欄中的“成績統(tǒng)計”項24． 啟動企業(yè)管理器，創(chuàng)建統(tǒng)計表xx1420_29_tj25． 創(chuàng)建數(shù)據(jù)窗口對象61 選擇顯示風格 (File→)New→DataWindow：選擇顯示Graph風格。62 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。63 控制數(shù)據(jù) Next→選擇xx1420_29_tj表→Open選擇列：單擊列名。64 保存 對象名： d_c_1 d_cjtj65 數(shù)據(jù)對象26． 設計成績統(tǒng)計窗口 (37) 創(chuàng)建窗口事件腳本：Open事件腳本：(SQLCA)()關閉腳本：Close(parent)(38) 系統(tǒng)主菜單中響應 “成績統(tǒng)計”窗口腳本。Open(w_cjtj)(39) 運行應用程序。8“數(shù)據(jù)統(tǒng)計”菜單欄中的“打印輸出”項27． 創(chuàng)建數(shù)據(jù)窗口對象 對象名：d_dysc66 數(shù)據(jù)對象28． 設計輸出打印窗口 (40) 創(chuàng)建窗口事件腳本：Open事件腳本：(sqlca)()dw_2 rowfocuschanged腳本：string class//取消加亮行(0,FALSE)//加亮當前行((),TRUE)class = [()]//提交班級學生信息(sqlca)(class)打印設置腳本：PrintSetup()預覽腳本：datawindow dw_dydw_dy = dw_1openwithparm(w_print_preview,dw_dy)打印腳本：datawindow dw_dydw_dy = dw_1openwithparm(w_print_a4,dw_dy)關閉腳本：close(parent)(41) 系統(tǒng)主菜單中響應 “輸出打印”窗口腳本。Open(w_dysc)(42) 運行應用程序。設計“學生選課管理系統(tǒng)”用戶權限管理。① 權限劃分對用戶管理、學生管理、課程管理、選課管理分別劃分無、查詢、編輯三種權限，對系統(tǒng)維護不作權限劃分。② 權限分配設計表u中的u、s、c、sc字段值為3分別表示無、查詢、編輯三種權限。③ 設計步驟 修改菜單m_main： 用戶管理 學生管理 課程管理 選課管理 系統(tǒng)維護 增加 增加 增加 增加 幫助 刪除 刪除 刪除 刪除 修改密碼 修改 修改 修改 修改 退出 查詢 查詢 查詢 查詢1“用戶管理”菜單欄中的“用戶增加”項29． 創(chuàng)建數(shù)據(jù)窗口對象67 選擇顯示風格 (File→)New→DataWindow：選擇顯示Grid風格。68 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。69 控制數(shù)據(jù)Next→選擇xx1420_29_u表→Open選擇列：單擊列名。指定排序：單擊Sort選項卡，復選框Ascending表示升序。70 保存 對象名：d_u_locate71 數(shù)據(jù)對象30． 設計用戶查詢窗口 (43) 創(chuàng)建窗口事件腳本：Open事件腳本：(sqlca)()檢索腳本：string uxif trim()= then ux=else ux=uname like 39。%+trim()+%39。end if(uno a)()(ux)()(44) 系統(tǒng)主菜單中響應 “用戶查詢”窗口腳本。Open(w_u_locate)(45) 運行應用程序。2“用戶管理”菜單欄中的“用戶刪除”項31． 創(chuàng)建數(shù)據(jù)窗口對象72 選擇顯示風格 (File→)New→DataWindow：選擇顯示Grid風格。73 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。74 控制數(shù)據(jù)Next→xx1420_29_u→Open選擇列：單擊列名。指定排序：單擊Sort選項卡，復選框Ascending表示升序。75 保存 對象名：d_u_locate76 數(shù)據(jù)對象32． 設計用戶刪除窗口 (46) 創(chuàng)建窗口事件腳本：Open事件腳本：(sqlca)()檢索腳本：string uxux=uno=39。++39。 and uno=39。++39。(uno a)()(ux)()刪除腳本：long nstring unouno=[()]select count(*) into :n from xx1420_29_u where uno=:uno。if n0 then messagebox(xx1420_29警告,該用戶在用戶表中已存在,不能刪除!)else (0) end if確定腳本：int ret,ret1()IF ()0 THEN ret=MessageBox(xx1420_29提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNoCancel!,3) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29錯誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF關閉腳本：Close(PARENT)(47) 系統(tǒng)主菜單中響應 “用戶刪除”窗口腳本。Open(w_u_delete)(48) 運行應用程序。3“用戶管理”菜單欄中的“用戶修改”項33． 創(chuàng)建數(shù)據(jù)窗口對象77 選擇顯示風格 (File→)New→DataWindow：選擇顯示Grid風格。78 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。79 控制數(shù)據(jù)Next→xx1420_29_u→Open選擇列：單擊列名。指定排序：單擊Sort選項卡，復選框Ascending表示升序。80 保存 對象名：d_u_edit81 數(shù)據(jù)對象34． 設計用戶修改窗口 (49) 創(chuàng)建窗口事件腳本：Closequery事件腳本：int ret,ret1()IF ()0 THEN ret=MessageBox(xx1420_29提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNoCancel!,3) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29錯誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IFClose(THIS)Open事件腳本：(sqlca)()檢索腳本：string uxux=uno=39。++39。 and uno=39。++39。(uno a)()(ux)()確定腳本：int ret,ret1()IF ()0 THEN ret=MessageBox(xx1420_29提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNoCancel!,3) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29錯誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF取消腳本：()關閉腳本：Close(PARENT)(50) 系統(tǒng)主菜單中響應 “用戶修改”窗口腳本。Open(w_u_edit)(51) 運行應用程序。4“用戶管理”菜單欄中的“用戶增加”項35． 創(chuàng)建數(shù)據(jù)窗口對象82 選擇顯示風格 (File→)New→DataWindow：選擇顯示Grid風格。83 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。84 控制數(shù)據(jù)Next→選擇xx1420_29_u表→Open選擇列：單擊列名。指定排序：單擊Sort選項卡，復選框Ascending表示升序。85 保存 對象名：d_u_insert86 數(shù)據(jù)對象36． 設計用戶增加窗口 (52) 創(chuàng)建窗口事件腳本：Closequery事件腳本：int ret,ret1()//漂浮數(shù)據(jù)確定 +回車IF ()0 THEN ret=MessageBox(xx1420_29提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNoCancel!,3) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29錯誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IFClose(THIS)增加腳本：int ii=()()IF IsNull([i]) or Trim([i])= THEN messagebox(xx1420_29警告,用戶編號不能為空!)ELSE (0) (()) (1) ()END IF確定腳本：int ret,ret1()IF ()0 THEN ret=MessageBox(xx1420_29提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNoCancel!,3) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29錯誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF刪除腳本：IF ()=1 then (0) (0) (1) ()ELSE (0) (()1) ()END IF關閉腳本：Close(parent)(53) 系統(tǒng)主菜單中響應 “用戶增加”窗口腳本。Open(w_u_insert)(54) 運行應用程序。