數(shù)據(jù)庫應用系統(tǒng)開發(fā)(編輯修改稿)
2025-06-14 03:04 本頁面
【文章內容簡介】 . amp。amp。設置組合框 5為不可用狀態(tài) .ENABLED=.f. amp。amp。設置電話文本框為不可用狀態(tài) .ENABLED=.f. amp。amp。設置通信地址文本框為不可用狀態(tài) .ENABLED=.f. amp。amp。設置備注編輯框為不可用狀態(tài) ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE Load amp。amp。錄入數(shù)據(jù)表單的加載事件過程 CLOSE DATA amp。amp。關閉所有數(shù)據(jù)庫 USE XJ存 amp。amp。打開 SET MULTILOCKS ON amp。amp。設置鎖定一組記錄 =CURSORSETPROP(39。buffering39。,5,39。XJ39。) amp。amp。打開開放式表緩沖 ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE InteractiveChange amp。amp。錄入數(shù)據(jù)表單的交互改變事件過程 Repl 出生年月 with + . + . displayvalue + . + amp。amp。刷新錄入數(shù)據(jù)表單 ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE amp。amp。單擊命令按鈕 1的事件過程 APPEND BLANK amp。amp。添加一空白記錄 amp。amp。刷新錄入數(shù)據(jù)表單 =.f. amp。amp。設置命令按鈕 1為不可用狀態(tài) =.f. amp。amp。設置命令按鈕 2為不可用狀態(tài) =.f. amp。amp。設置命令按鈕 3為不可用狀態(tài) =.t. amp。amp。設置命令按鈕 4為可用狀態(tài) =.t. amp。amp。設置命令按鈕 5為可用狀態(tài) =.f. amp。amp。設置命令按鈕 6為不可用狀態(tài) .ENABLED=.t. .ENABLED=.t. 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 =.t. =.t. =.t. =.t. .ENABLED=.t. .ENABLED=.t. .ENABLED=.t. =.t. =.t. .ENABLED=.t. .ENABLED=.t. .ENABLED=.t. .SETFOCUS ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE amp。amp。單擊命令按鈕 2的事件過程 SET DELETE ON amp。amp。設置打開刪除命令 DELETE amp。amp。刪除當前記錄 YN=MESSAGEBOX(39。確實要刪除這條記錄？39。,4+32+256,39。刪除確認 39。) DO CASE amp。amp。運行條件判斷語句 CASE YN=6 amp。amp。當單擊“是”按鈕時 =TABLEUPDATE(.T.) amp。amp。執(zhí)行更新表函數(shù)，刪除當前記錄 CASE YN=7 amp。amp。當單擊“否”按鈕時 RECALL amp。amp?；謴鸵炎髁藙h除標記的當前記錄 ENDCASE ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE amp。amp。單擊命令按鈕 3的事件過程 =.f. =.f. =.f. =.t. =.t. =.f. ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE amp。amp。單擊命令按鈕 4的事件過程 =TABLEUPDATE(.T.) =.t. =.t. =.t. =.f. =.f. =.t. ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE amp。amp。單擊命令按鈕 5的事件過程 =TABLEREVERT(.T.) =.t. =.t. =.t. =.f. =.f. =.t. ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE amp。amp。單擊命令按鈕 6的事件過程 SELE 1 amp。amp。選擇 1號工作區(qū) USE XJ EXCLUSIVE 打開 PACK amp。amp。徹底刪除已作了刪除標記的記錄 amp。amp。釋放錄入數(shù)據(jù)表單 ENDPROC PROCEDURE InteractiveChange REPL 是否黨員 WITH ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 (修改 .scx) =.t. PROCEDURE IF NOT BOF() SKIP –1 =.t. ELSE WAIT WINDOW 39。已經(jīng)是第一條記錄！ 39。 ENDIF ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE IF NOT EOF() amp。amp。如果記錄指針沒有到記錄的結尾 SKIP amp。amp。向下跳轉一條記錄 =.t. ELSE WAIT WINDOW 39。已經(jīng)是最后一條記錄！ 39。 ENDIF ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE GO TOP amp。amp。將記錄指針移到記錄的開頭 =.f. =.t. ENDPROC 圖 修改記錄 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE GO BOTTOM amp。amp。將記錄指針移到記錄的結尾 =.t. =.f. ENDPROC 數(shù)據(jù)庫應用系統(tǒng)開發(fā)實例 PROCEDURE
高考資料相關推薦
鄂ICP備17016276號-1