數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)(文件)
【正文】 給文本框 6 ENDPROC 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 (顯示 .scx) 圖 顯示數(shù)據(jù) 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 (顯示 .scx) PROCEDURE amp。 ENDIF ENDPROC PROCEDURE amp。 ENDIF ENDPROC PROCEDURE amp。單擊“末條”按鈕的事件過程 GO BOTTOM =.t. =.f. ENDPROC PROCEDURE amp。單擊“刪除”按鈕的事件過程 SET DELETE ON DELETE YN=MESSAGEBOX(39。) DO CASE CASE YN=6 =TABLEUPDATE(.T.) =MESSAGEBOX(記錄已成功刪除！ ,0+64+0,39。刪除數(shù)據(jù)表單的初始化過程 SET TALK OFF =.f. ENDPROC PROCEDURE Click USE XJ EXCLUSIVE PACK ENDPROC 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 (導(dǎo)出數(shù)據(jù) .scx) 圖 導(dǎo)出數(shù)據(jù) 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 PROCEDURE Click SET SAFETY OFF USE A： \XJ GO TOP IF EMPTY() =MESSAGEBOX(請選擇盤符！ ,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) ELSE IF EMPTY() =MESSAGEBOX(請輸入文件名！ ,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 ELSE IF RECC()0 amp。將組合框 1的值賦給變量 DRIVER FILENAME=ALLTRIM() COPY TO amp。將系統(tǒng)表文件復(fù)制到選定的盤符和文件名中 =MESSAGEBOX(本系統(tǒng)所有數(shù)據(jù)已轉(zhuǎn)出完畢 !,48,信息提示 ) USE 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 ELSE =MESSAGEBOX(沒有任何數(shù)據(jù) ,不能轉(zhuǎn)出 ,48,信息提示 ) USE ENDIF ENDIF ENDIF ENDPROC PROCEDURE Click amp。打印一空行 ON ERROR ? MESSAGE() amp。FILENAME amp。,0+64+0,39。 復(fù)習(xí)思考題 ？ ？數(shù)據(jù)庫設(shè)計包含哪些基本內(nèi)容？ 。) USE ENDIF ENDIF ENDPROC 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 (打印 .scx) 圖 打印數(shù)據(jù) 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 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ù)庫應(yīng)用系統(tǒng)開發(fā)實例 系統(tǒng)交付 這一階段的工作主要有兩個方面，一是全部文檔的整理交付，二是對所完成的軟件 (數(shù)據(jù)、程序等 )打包并形成發(fā)行版本。將選定的文件追加到系統(tǒng)表文件中 =MESSAGEBOX(39。發(fā)生找不到文件的錯誤時，打印錯誤信息 APPEND FROM amp。單擊“取消”按鈕的事件過程 RELEASE THISFORM ENDPROC 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 (導(dǎo)入數(shù)據(jù) .scx) 圖 導(dǎo)入數(shù)據(jù) 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 PROCEDURE Click SET SAFETY OFF IF EMPTY() =MESSAGEBOX(請選擇要導(dǎo)入的數(shù)據(jù)表所在的盤符！,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) ELSE IF EMPTY() =MESSAGEBOX(請輸入要導(dǎo)入的數(shù)據(jù)表名！,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) ELSE DRIVER= FILENAME=ALLTRIM() 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 USE XJ ? amp。FILENAME amp。如果表記錄大于 0 DRIVER= amp。) =.f. =請選擇 GO TOP 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 CASE YN=7 RECALL ENDCASE ENDPROC PROCEDURE Init amp。,4+32+256,39。單擊“返回”按鈕的事件過程 ENDPROC 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 (刪除 .scx) 圖 刪除數(shù)據(jù) 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 (刪除 .scx) PROCEDURE Click IF EMPTY() =MESSAGEBOX(請選擇學(xué)號！ ,48+0+0,學(xué)生學(xué)籍管理系統(tǒng) ) =.f. ELSE =.t. ENDIF AA=RECNO() GO AA .REFRESH .REFRESH 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實例 .REFRESH .REFRESH .REFRESH .REFRESH
高考資料相關(guān)推薦
鄂ICP備17016276號-1