【文章內(nèi)容簡(jiǎn)介】 閉腳本：Close(parent)(14) 系統(tǒng)主菜單中響應(yīng) “學(xué)生查詢”窗口腳本。Open(w_s_locate)(15) 運(yùn)行應(yīng)用程序。6“學(xué)生管理”菜單欄中的“學(xué)生刪除”項(xiàng)10． 創(chuàng)建數(shù)據(jù)窗口對(duì)象26 選擇顯示風(fēng)格 (File→)New→DataWindow：選擇顯示Grid風(fēng)格。27 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。28 控制數(shù)據(jù)Next→選擇xx1420_29_s→Open選擇列：?jiǎn)螕袅忻?。指定排序：?jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。29 保存 對(duì)象名：d_s_delete30 數(shù)據(jù)對(duì)象同d_s_locate相同11． 設(shè)計(jì)學(xué)生刪除窗口 (16) 創(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。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IFClose(THIS)Open事件腳本：(sqlca)()檢索腳本：string cxcx=sno=39。++39。 and sno=39。++39。(sno a)()(cx)()刪除腳本：int nstring snosno=[()]SELECT count(*) into:n from xx1420_29_sc where sno=:sno。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。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(1409_12錯(cuò)誤,保存失敗!) END IFEND IFEND IF關(guān)閉腳本：Close(parent)(17) 系統(tǒng)主菜單中響應(yīng) “學(xué)生刪除”窗口的腳本。Open(w_s_delete)(18) 運(yùn)行應(yīng)用程序。7“學(xué)生管理”菜單欄中的“學(xué)生修改”項(xiàng)12． 創(chuàng)建數(shù)據(jù)窗口對(duì)象31 選擇顯示Grid風(fēng)格 (File→)New→DataWindow：選擇顯示風(fēng)格。32 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。33 控制數(shù)據(jù)Next→選擇xx1420_29_s→Open選擇列：?jiǎn)螕袅忻Ｖ付ㄅ判颍簡(jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。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。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 MessageBox(xx1420_29錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IFClose(THIS)Open事件腳本：(sqlca)()檢索腳本：string cxcx=sno=39。++39。 and sno=39。++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。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 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。39。i_n=0return 1dw_1 itemchanged腳本：int i,jstring i_n=0()if ()= then j=() =[j] //檢查表 select into : from s where =:。 if =0 then i_n=1 return 1 end if //檢查數(shù)據(jù)窗口 for i=1 to () if ij then if upper([i])=upper() then i_n=2 return 1 end if end if nextend if(20) 系統(tǒng)主菜單中響應(yīng) “學(xué)生修改”窗口腳本。Open(w_s_edit)(21) 運(yùn)行應(yīng)用程序。8“學(xué)生管理”菜單欄中的“學(xué)生增加”項(xiàng)14． 創(chuàng)建數(shù)據(jù)窗口對(duì)象36 選擇顯示風(fēng)格 (File→)New→DataWindow：選擇顯示Freeform風(fēng)格。37 定義數(shù)據(jù)源OK：定義數(shù)據(jù)源。38 控制數(shù)據(jù)Next→選擇xx1420_29_s→Open選擇列：?jiǎn)螕袅忻?。指定排序：?jiǎn)螕鬝ort選項(xiàng)卡，復(fù)選框Ascending表示升序。39 保存 對(duì)象名：d_s_insert40 數(shù)據(jù)對(duì)象15． 設(shè)計(jì)學(xué)生增加窗口 (22) 創(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。 MessageBox(xx1420_29提示,保存成功!) ELSE ROLLBACK USING SQLCA。 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警告,學(xué)號(hào)不能為空!)elseif isnull([i]) or trim([i])= then messagebox(xx1420_29警告,Email不能為空!)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錯(cuò)誤,保存失敗!) END IF ELSEIF ret=3 THEN RETURN 1 END IFEND IF關(guān)閉腳本：Close(parent)Dw_1 itemchanged腳本：int i,jstring ,snoi_n=0()if ()=sno then j=() sno=[j] //檢查表 select sno into :sno from xx1420_29_s where sno=:sno。 if =0 then i_n=1 return 1 end if //檢查數(shù)據(jù)窗口 for i=1 to () 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 =:。 if =0 then i_n=3 return 1 end if //檢查數(shù)據(jù)窗口 for i=1 to () if ij then if upper([i])=upper() then i_n=4 return 1 end if end if nextend ifdw_1itemerror腳本：if i_n=1 then messagebox(xx1420_29警告,學(xué)號(hào)