procedure TForm1.BtnPostClick(Sender: TObject);

begin



If BtnPost.Enabled <> True Then Exit;

//ORDR13MT.Edit; //Delete구문에는 Edit, Post가 필요없지 않을까요?

//ORDR13MT.Post;

ORDR13MT.StartTransaction;

With Hist_Del do begin

ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;

ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;

ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;

Execsql;

End;

ORDR13MT.Commit;

이렇게 함 해보세요....









짱아 wrote:

> 우선 ORDR13MT라는 쿼리를 사용해 ORDR13MT테이블에 값들을 저장시킨후 DBGRID에서 받은 SHIP_CONFIRM 의 값이 Y가 아닌값들을 ORDR13MT에서 삭제시키려고 합니다...

> 근데 SHIP_CONFIRM 의 값이 Y가 아닌값들이 T삭제되지가 않아요~

> DELETE문이 잘못된건지... 헉~

> SQL/PLUS에서 돌리면 삭제가 아무문제 없이 되거든여~

> 근데 델파이소스에서 뭔가 잘못됐는지 DB에 제대로 삭제가 안되어 있어염...

> 어떻게 하져~

> 고수님들 제발 가르침을 주세염..

>

> ******************************************

> Hist_Del(delete 쿼리문)

> DELETE FROM ORDR13MT

> WHERE ORDER_NO_BUYER = :P_NO_BUYER

> AND ORDER_NO_YEAR = :P_NO_YEAR

> AND ORDER_NO_SEQ = :P_NO_SEQ

> AND SHIP_CONFIRM IS NULL

>

> ******************************************

> //저장버튼을 눌렀을 경우

>

> procedure TForm1.BtnPostClick(Sender: TObject);

> begin

>

> If BtnPost.Enabled <> True Then Exit;

>

> ORDR13MT.Edit;

> ORDR13MT.Post;

> ORDR13MT.CommitUpdates;

>

> With Hist_Del do begin

> ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;

> ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;

> ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;

> Execsql;

> End;

>

> // Close Open 해도 원위치 찾기

> With MQuery do begin

> DisableControls;

> Close;

> Open;

> EnableControls;

> end;

> User_Handle(Panel4.Enabled);

> DBGrid1.SetFocus;

> end;

>