반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~



For i:=1 to 5 do

begin

Statement A

----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

Statement B

end;



쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

bisbuck 께서 말씀하시기를...

> Stored Procedure를 사용하려구 하는데

>

> 책을 찾아봐도

> SQL Explorer를 사용해서 작성하라고만 되어있네여

> 아니면 각 데이터베이스 유틸을 사용하던지...

>

> 그런데 그걸 어떻게 하는지

> 방법이 안나와있으니...

>

> Stored Procedure를 사용해보신 분있으면

> 꼭 좀 갈켜주세여...

>

> 그럼 이만...

>

델파이에서는 Stored Procedure를 단지 실행할 뿐입니다.

Store_Proc.ExecProc; // ^^;



Stored Procedure는 말 그대로 프로시저를 데이타베이스에 저장해서

사용하는 것입니다.



그 예를 들면 아래의 것은 카드오류를 정정하는 코드인데,

카드번호가 바뀌거나, 유효기간이 변경되었을 때의

경우에 이를 정정하는 Stored Procedure입니다.

사용하는 데이타베이스는 Oracle 7.3입니다.



CREATE PROCEDURE CA13MMDD_PROC

AS

CURSOR CA13_CURSOR IS

SELECT ROWID, PAYNO, REPLYDATE, REPLYCODE, NEWCARDNO, NEWEXPDATE

FROM CA13MMDD WHERE FLAG = 'U';



VAR_CA13 CA13_CURSOR%ROWTYPE;

BEGIN

OPEN CA13_CURSOR;

FETCH CA13_CURSOR INTO VAR_CA13;

LOOP

EXIT WHEN CA13_CURSOR%NOTFOUND;

IF VAR_CA13.REPLYCODE = '5503' THEN

UPDATE CARD01 SET CARDNO = VAR_CA13.NEWCARDNO

WHERE PAYNO = VAR_CA13.PAYNO;

ELSIF VAR_CA13.REPLYCODE = '5504' THEN

UPDATE CARD01 SET EXPDATE = VAR_CA13.NEWEXPDATE

WHERE PAYNO = VAR_CA13.PAYNO;

END IF;

FETCH CA13_CURSOR INTO VAR_CA13;

END LOOP;

COMMIT;

END;

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



음냐...아래의 내용을 참고하세요...쩝

대충 비슷하긴 한데....

근데 이런 코드 어디 쓰이는 건지...요 알려 주세요 궁금.......^^;



procedure TForm1.Button2Click(Sender: TObject);

begin

btn_click := True;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

i,j : integer;



begin

j := 0;

for i := 0 to 5 do begin

try

inc(j);

showmessage('^^1');

finally

While not btn_click do

Application.ProcessMessages;

end;

showmessage('^^2');

btn_click := False;

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

btn_click := False;

end;

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



참고로 루프내에서는 프로세서를 독차지 하지 않도록...



Application.ProcessMessage 라는 구문을 넣어주어야 전체적으로 매끄러워 집니다.

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



안녕하세요.



그런식으로 하시지 말고요. 음..예를 들면 전역적으로 몇번이나 버턴을 눌렀는가를 저장하는 변수를 만들어 해결하시는게 더 좋지 않을까요.