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