如何在刪除修改資料庫時增加一各判斷式卡關 |
|
答題得分者是：danny
|
|
lovemari
中階會員   發表：134 回覆：224 積分：76 註冊：2005-08-18 發送簡訊給我 |
最近寫了一各小型資料庫
給同事使用可以新增修改刪除基本三各功能 可是後來發現在修改跟刪除這兩各部分 一按下去就刪除更改 沒有一各判斷 系統就去作 請問該如何加入判斷式 當按下刪除會問你確定是否要刪除 yes or no 點下去yes 才可以刪除 no 不動作 ========== SQL碼 ============ procedure TForm1.Button3Click(Sender: TObject); begin SHOWMESSAGE ('你確定要刪除嗎？'); Query2.SQL.Clear; Query2.SQL.Add('DELETE FROM TEST.DBF '); Query2.SQL.Add('WHERE SEQ = ''' Query1.FieldByName('SEQ').AsString ''' '); Query2.ExecSQL; SHOWMESSAGE ('刪除資料成功！！'); Query1.CLOSE; Query1.OPEN; end;
------
Program : Delphi 7 DataBase : Oracle 9i Client : ClientDataSet |
|
danny
版主 發表：100 回覆：522 積分：595 註冊：2002-03-11 發送簡訊給我 |
[code cpp]
procedure TForm1.Button3Click(Sender: TObject); begin if Application.MessageBox('你確定要刪除嗎？', '詢問視窗', MB_YESNO MB_DEFBUTTON2) = IDYES then begin Query2.SQL.Clear; Query2.SQL.Add('DELETE FROM TEST.DBF '); Query2.SQL.Add('WHERE SEQ = ''' Query1.FieldByName('SEQ').AsString ''' '); Query2.ExecSQL; SHOWMESSAGE ('刪除資料成功！！'); Query1.CLOSE; Query1.OPEN; end; end; [/code] ===================引 用 lovemari 文 章=================== 最近寫了一各小型資料庫 給同事使用可以新增修改刪除基本三各功能 可是後來發現在修改跟刪除這兩各部分 一按下去就刪除更改 沒有一各判斷 系統就去作 請問該如何加入判斷式 當按下刪除會問你確定是否要刪除 yes or no 點下去yes 才可以刪除 no 不動作 ========== SQL碼 ============ procedure TForm1.Button3Click(Sender: TObject); begin SHOWMESSAGE ('你確定要刪除嗎？'); Query2.SQL.Clear; Query2.SQL.Add('DELETE FROM TEST.DBF '); Query2.SQL.Add('WHERE SEQ = ''' Query1.FieldByName('SEQ').AsString ''' '); Query2.ExecSQL; SHOWMESSAGE ('刪除資料成功！！'); Query1.CLOSE; Query1.OPEN; end;
------
將問題盡快結案也是一種禮貌! |
|
lovemari
中階會員 發表：134 回覆：224 積分：76 註冊：2005-08-18 發送簡訊給我 |
發表時間：2007-10-29 13:44:58
IP:60.248.xxx.xxx 訂閱
系統時間：2024-05-17 13:34:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |