【正文】 if ij then if upper([i])=upper(sno) then i_n=2 return 1 end if end if nextend ifif ()= then j=() =[j] //檢查表 select into : from xx1420_29_s where =:。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。指定排序：?jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。選擇列：?jiǎn)螕袅忻?7 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。Open(w_s_edit)(21) 運(yùn)行應(yīng)用程序。i_n=0return 1dw_1 itemchanged腳本：int i,jstring i_n=0()if ()= then j=() =[j] //檢查表 select into : from s where =:。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF取消腳本：()關(guān)閉腳本：“Close(parent)定義實(shí)例變量：Int i_n=0Dw_1 itemerror腳本：if i_n=1 thenmessagebox(xx1420_29警告,Email不能與表中相同!)elseif i_n=2 thenmessagebox(xx1420_29,Email不能與錄入值相同!)end if[()]=39。(sno a)()(cx)()確定腳本：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。 and sno=39。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IFClose(THIS)Open事件腳本：(sqlca)()檢索腳本：string cxcx=sno=39。34 保存 對(duì)象名：d_s_edit35 數(shù)據(jù)對(duì)象13． 設(shè)計(jì)學(xué)生修改窗口 (19) 創(chuàng)建窗口事件腳本：Closequery腳本：int ret,ret1IF ()0 THEN ret=MessageBox(xx1420_29提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNoCancel!,3) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。33 控制數(shù)據(jù)Next→選擇xx1420_29_s→Open7“學(xué)生管理”菜單欄中的“學(xué)生修改”項(xiàng)12． 創(chuàng)建數(shù)據(jù)窗口對(duì)象31 選擇顯示Grid風(fēng)格 (File→)New→DataWindow：選擇顯示風(fēng)格。 MessageBox(1409_12錯(cuò)誤,保存失敗!) END IFEND IFEND IF關(guān)閉腳本：Close(parent)(17) 系統(tǒng)主菜單中響應(yīng) “學(xué)生刪除”窗口的腳本。if n0 then messagebox(1409_12警告,該學(xué)生在選課表中已存在,不能刪除!)else (0)end if確定腳本：int ret,ret1IF ()0 THEN ret=MessageBox(1409_12提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNo!) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。++39。++39。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。指定排序：?jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。選擇列：?jiǎn)螕袅忻?7 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。Open(w_s_locate)(15) 運(yùn)行應(yīng)用程序。+cx+39。+cx+39。+cx+39。指定排序：?jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。選擇列：?jiǎn)螕袅忻?2 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。Open(w_c_insert)(12) 運(yùn)行應(yīng)用程序。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF刪除腳本：IF ()=1 then (0) (0) (1) ()ELSE (0) (()1) ()END IF關(guān)閉腳本：Close(PARENT)定義實(shí)例變量：Int i_nDw_1的itemchangedint i,jstring oi_n=0()IF ()=o THEN j=() o=[j] //檢查表 SELECT o INTO :o FROM xx1420_29_c WHERE o=:o。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF增加腳本：int ii=()()IF IsNull([i]) or Trim([i])= THEN messagebox(xx1420_29警告,課程編號(hào)不能為空!)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。? 保存對(duì)象名：d_c_insert? 數(shù)據(jù)對(duì)象7． 設(shè)計(jì)課程增加窗口 (10) 創(chuàng)建窗口事件腳本：Open事件腳本：(sqlca)(0)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。? 控制數(shù)據(jù)Next→選擇一個(gè)或多個(gè)表→Open4“課程管理”菜單欄中的“課程增加”項(xiàng)6． 創(chuàng)建數(shù)據(jù)窗口對(duì)象? 選擇顯示風(fēng)格 (File→)New→DataWindow：選擇顯示Grid風(fēng)格。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF取消腳本：()關(guān)閉腳本：Close(parent)(8) 系統(tǒng)主菜單中響應(yīng) “課程修改”窗口腳本。(sno a)()(cx)()確定腳本：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。 and o=39。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IFClose(THIS)檢索腳本：string cxcx=o=39。? 保存 對(duì)象名：d_c_edit? 數(shù)據(jù)對(duì)象5． 設(shè)計(jì)課程修改窗口 (7) 創(chuàng)建窗口事件腳本：Open事件腳本 ：(sqlca)()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。? 控制數(shù)據(jù) Next→選擇一個(gè)或多個(gè)表→Open3“課程管理”菜單欄中的“課程修改”項(xiàng)4． 創(chuàng)建數(shù)據(jù)窗口對(duì)象? 選擇顯示風(fēng)格 (File→)New→DataWindow：選擇顯示Grid風(fēng)格。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IFEND IFEND IF關(guān)閉腳本：Close(PARENT)(5) 系統(tǒng)主菜單中響應(yīng) “課程刪除”窗口腳本。if n0 then messagebox(xx1420_29警告,該課程在選課表中已存在,不能刪除!)else(0)end if確定腳本：int ret,ret1IF ()0 THEN ret=MessageBox(xx1420_29提示,數(shù)據(jù)已更新,是否保存?,Question!,YesNo!) IF ret=1 THEN ret1=() IF ret1=1 THEN COMMIT USING SQLCA。++39。++39。指定排序：?jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。選擇列：?jiǎn)螕袅忻?。?定義數(shù)據(jù)源SQL selectOK：定義數(shù)據(jù)源。Open(w_c_locate)(3) 運(yùn)行應(yīng)用程序。%+Trim()+%39。指定排序：?jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。選擇列：?jiǎn)螕袅忻＂?定義數(shù)據(jù)源 OK：定義數(shù)據(jù)源。 工具欄—OLE控件，設(shè)置“幫助”。 COMMIT USING SQLCA。（1）修改密碼項(xiàng)n 確定腳本int retSELECT uno INTO :g_uno FROM xx1420_29_u WHERE uno=:g_uno and password=:。. clo