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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |