數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)-資料下載頁
2025-05-09 03:04本頁面
【正文】 開發(fā)實(shí)例 (刪除 .scx) 圖 刪除數(shù)據(jù) 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 (刪除 .scx) PROCEDURE Click IF EMPTY() =MESSAGEBOX(請(qǐng)選擇學(xué)號(hào)！ ,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) =.f. ELSE =.t. ENDIF AA=RECNO() GO AA .REFRESH .REFRESH 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 .REFRESH .REFRESH .REFRESH .REFRESH .REFRESH .REFRESH .REFRESH .REFRESH .REFRESH ENDPROC 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 PROCEDURE Click amp。amp。單擊“刪除”按鈕的事件過程 SET DELETE ON DELETE YN=MESSAGEBOX(39。確實(shí)要?jiǎng)h除這條記錄？39。,4+32+256,39。刪除確認(rèn) 39。) DO CASE CASE YN=6 =TABLEUPDATE(.T.) =MESSAGEBOX(記錄已成功刪除！ ,0+64+0,39。學(xué)生學(xué)籍管理系統(tǒng) 39。) =.f. =請(qǐng)選擇 GO TOP 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 CASE YN=7 RECALL ENDCASE ENDPROC PROCEDURE Init amp。amp。刪除數(shù)據(jù)表單的初始化過程 SET TALK OFF =.f. ENDPROC PROCEDURE Click USE XJ EXCLUSIVE PACK ENDPROC 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 (導(dǎo)出數(shù)據(jù) .scx) 圖 導(dǎo)出數(shù)據(jù) 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 PROCEDURE Click SET SAFETY OFF USE A： \XJ GO TOP IF EMPTY() =MESSAGEBOX(請(qǐng)選擇盤符！ ,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) ELSE IF EMPTY() =MESSAGEBOX(請(qǐng)輸入文件名！ ,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 ELSE IF RECC()0 amp。amp。如果表記錄大于 0 DRIVER= amp。amp。將組合框 1的值賦給變量 DRIVER FILENAME=ALLTRIM() COPY TO amp。DRIVER\amp。FILENAME amp。amp。將系統(tǒng)表文件復(fù)制到選定的盤符和文件名中 =MESSAGEBOX(本系統(tǒng)所有數(shù)據(jù)已轉(zhuǎn)出完畢 !,48,信息提示 ) USE 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 ELSE =MESSAGEBOX(沒有任何數(shù)據(jù) ,不能轉(zhuǎn)出 ,48,信息提示 ) USE ENDIF ENDIF ENDIF ENDPROC PROCEDURE Click amp。amp。單擊“取消”按鈕的事件過程 RELEASE THISFORM ENDPROC 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 (導(dǎo)入數(shù)據(jù) .scx) 圖 導(dǎo)入數(shù)據(jù) 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 PROCEDURE Click SET SAFETY OFF IF EMPTY() =MESSAGEBOX(請(qǐng)選擇要導(dǎo)入的數(shù)據(jù)表所在的盤符！,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) ELSE IF EMPTY() =MESSAGEBOX(請(qǐng)輸入要導(dǎo)入的數(shù)據(jù)表名！,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) ELSE DRIVER= FILENAME=ALLTRIM() 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 USE XJ ? amp。amp。打印一空行 ON ERROR ? MESSAGE() amp。amp。發(fā)生找不到文件的錯(cuò)誤時(shí)，打印錯(cuò)誤信息 APPEND FROM amp。DRIVER\amp。FILENAME amp。amp。將選定的文件追加到系統(tǒng)表文件中 =MESSAGEBOX(39。數(shù)據(jù)表已成功導(dǎo)入原表！39。,0+64+0,39。學(xué)生學(xué)籍管理系統(tǒng) 39。) USE ENDIF ENDIF ENDPROC 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 (打印 .scx) 圖 打印數(shù)據(jù) 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 PROCEDURE ??CHR(7) REPORT FORM 學(xué)生學(xué)籍管理表 .frx NOEJECT NOCONSOLE TO PRINTER ENDPROC PROCEDURE REPORT FORM學(xué)生學(xué)籍管理表 .frx PREVIEW ENDPROC PROCEDURE ENDPROC 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)實(shí)例 系統(tǒng)交付 這一階段的工作主要有兩個(gè)方面，一是全部文檔的整理交付，二是對(duì)所完成的軟件 (數(shù)據(jù)、程序等 )打包并形成發(fā)行版本。 具體來說，一個(gè) VFP6數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)在交付給用戶之前，先要將整個(gè)系統(tǒng)連編成可直接執(zhí)行的程序，然后就可以進(jìn)行應(yīng)用程序的發(fā)布。 復(fù)習(xí)思考題 ？ ？數(shù)據(jù)庫(kù)設(shè)計(jì)包含哪些基本內(nèi)容？ 。
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1