if Application.MessageBox(PAnsiChar('관원생 :'+ sName +' 의 출결인증을 시키겠습니까?'),'강제인증', MB_OKCANCEL) = mrOK then
//확인눌렀을시 이벤트 입니다.
frmMain.idHttpCli.Get('http://www.ejvision.co.kr/admin/test.php?account_id='+sDoJangId+'&st=3&mid='+frmMain.ediStudentId.Text+'&cnt='+ sGynName + '%20%20' + sName + '%20수련생이%20정상%20출석하였습니다');
if sMyString[0] = 'ALL_OK' then //인증 성공
begin
showmessage(ediStudentName.Text+'님을 출결인증 시켰습니다.');
if sMyString[0] = 'NO_HANDPHONE' then //핸드폰이 없는 아이디 여서 인증이 안됨
begin
showmessage('핸드폰이 없는 아이디 입니다.');
if sMyString[0] = 'ADMIN_SMS_OK' then //포인트 부족으로 관장님 폰으로 문자 발송!!
begin
showmessage('포인트가 부족합니다.');
if sMyString[0] = 'NO_SMS_PONT' then //포인트 완전 부족
begin
showmessage('포인트가 부족합니다.');
end
end
end
end
else
begin
//취소눌렀을시 이벤트입니다.
Application.MessageBox('취소 하였습니다.', '메세지', 0);
end;
확인눌렀을때 위의 if문을 전부 확인할수 있게 하고 싶습니다.
고수님들 가르침을 부탁드립니다.
확인눌렀을때 위의 if문을 전부 확인할수 있게 하고 싶습니다. <-- 의미파악 불명
뭘 확인을 누르고 어느 if문을 어떻게 확인하고 싶으시다는건지 파악이 잘안되네요.
최초의 if문에서 확인버튼을 눌렀을 시 그 아래쪽의 if문 4개를 차례대로 체크해서 메세지창을 띄우시겠다는 건지...
아니면 if문 4개를 전부 패스(확인)시키겠다는 건지...
일단 차례대로 메세지 창을 띄우겠다는 것이면...
if sMyString[0] = 'ALL_OK' then //인증 성공
showmessage(ediStudentName.Text+'님을 출결인증 시켰습니다.');
if sMyString[0] = 'NO_HANDPHONE' then //핸드폰이 없는 아이디 여서 인증이 안됨
showmessage('핸드폰이 없는 아이디 입니다.');
if sMyString[0] = 'ADMIN_SMS_OK' then //포인트 부족으로 관장님 폰으로 문자 발송!!
showmessage('포인트가 부족합니다.');
if sMyString[0] = 'NO_SMS_PONT' then //포인트 완전 부족
showmessage('포인트가 부족합니다.');
각 if 조건절 안에 if 조건이 들어가 있던거니까 다 밖으로 빼주시면 됩니다.
전부 패스하시겠다면 안의 내용을 주석처리하던지 지워버리시면 되겠죠.