dataset is close ? |
|
答題得分者是：st33chen
|
|
g9614721
一般會員   發表：27 回覆：51 積分：15 註冊：2008-07-23 發送簡訊給我 |
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin if messagedlg('資料是否確定儲存？按〔Yes〕確認送出，按〔NO〕繼續編輯！', mtconfirmation, [mbyes, mbno], 0) = mrno then //產生一個安靜的例外，不儲存了 abort; end; 封裝前 可正常執行 但封裝後 會跳出錯誤 table1無法執行操作 dataset 是colse的狀態 = =" 其他連結的dbedit欄位 都有正常抓到 唯讀要儲存資料時會跳出錯誤 移除上面那串程式碼後就沒問題了 但我需要在儲存前跳出一個警告視窗... 我的database 是 paradox7 |
|
zhouying82
高階會員  發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
這樣做會比較保險, 但要記得 "uses DB"
if messagedlg('資料是否確定儲存？按〔Yes〕確認送出，按〔NO〕繼續編輯！', mtconfirmation, [mbyes, mbno], 0) = mrno then //產生一個安靜的例外，不儲存了 if Table1.State in [dsInsert, dsEdit] then Table1.abort; end; ===================引 用 g9614721 文 章=================== procedure TForm1.Table1BeforePost(DataSet: TDataSet); begin if messagedlg('資料是否確定儲存？按〔Yes〕確認送出，按〔NO〕繼續編輯！', mtconfirmation, [mbyes, mbno], 0) = mrno then //產生一個安靜的例外，不儲存了 abort; end; 封裝前 可正常執行 但封裝後 會跳出錯誤 table1無法執行操作 dataset 是colse的狀態 = =" 其他連結的dbedit欄位 都有正常抓到 唯讀要儲存資料時會跳出錯誤 移除上面那串程式碼後就沒問題了 但我需要在儲存前跳出一個警告視窗... 我的database 是 paradox7 |
|
st33chen
尊榮會員 發表：15 回覆：591 積分：1201 註冊：2005-09-30 發送簡訊給我 |
您好,
可不可以把 if messagedlg(...) 這一段寫在 table1.post 的前面 不要寫在 Table1BeforePost 看看. i mean, 原本的 table1.post; 改成 if messagedlg('資料是否確定儲存？按〔Yes〕確認送出，按〔NO〕繼續編輯！', mtconfirmation, [mbyes, mbno], 0) = mryes then begin table1.post; end; 而且刪除 Table1BeforePost
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-03-02 14:10:48， 註解 無‧
|
|
g9614721
一般會員 發表：27 回覆：51 積分：15 註冊：2008-07-23 發送簡訊給我 |
成功了 謝謝..
===================引 用 st33chen 文 章=================== 您好, 可不可以把 if messagedlg(...) 這一段寫在 table1.post 的前面 不要寫在 Table1BeforePost 看看. i mean, 原本的 table1.post; 改成 if messagedlg('資料是否確定儲存？按〔Yes〕確認送出，按〔NO〕繼續編輯！', mtconfirmation, [mbyes, mbno], 0) = mryes then begin table1.post; end; 而且刪除 Table1BeforePost |
發表時間：2009-02-27 18:17:09
IP:140.125.xxx.xxx 訂閱
系統時間：2024-05-15 14:12:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |