MIDAS로 만든 프로그램에서는 CLIENT 프로그램에서 POST를 사용하지 않습니다



ApplyUpdates()를 사용합니다



아래 내용을 참고 하세요 !!



// 변경된 내용 적용

procedure TActiveFormX1.SpeedButton2Click(Sender: TObject);

var

change_cnt : integer;

error_no : integer;

begin

change_cnt := ClientDataSet1.ChangeCount; // 변경된 갯수

if change_cnt > 0 then

begin

error_no := ClientDataSet1.ApplyUpdates(-1);

if error_no = 0 then

showmessage('성공적으로 저장되었습니다')

else

showmessage('총'+inttostr(change_cnt)+'개 중'+inttostr(error_no)+'개 저장 못함');

end;

end;



// 변경된 내용을 변경전으로

procedure TActiveFormX1.SpeedButton3Click(Sender: TObject);

begin

//ClientDataSet1.CancelUpdates; // 전부 취소

ClientDataSet1.UndoLastChange(True); // 마지막 변경된것 취소

end;





열심희 wrote:

> 안녕하세요...

> Midas에서 필드내용을 Edit등으로 입력해서 파라미터로 Applicatin Server에 넘겨서 입력을 했는데요...

> DBEdit등을 쓰면 해당 필드의 내용이 바로 보이기는 하나 Append해서 새로운 값들을 입력한 후, ClientDataSet1.Post; 를 해서는 값이 입력이 되질 않는군요...

> DBEdit를 써도 그 값을 파라미터로 넘겨서 입력을 해야 하나요?

> 가르쳐주시면 정말 감사하겠습니다...

> 모두들... 좋은 하루 되세요... *^^*

>