프로그램 종료시 메시지 다이얼로그를 띄워서 종료할것인지 아닌지를 판단한후에 yes를 선택하면 종료가 되고 no를 선택하면 종료가 되지 않도록 할려고하는데 어느 부분이 잘못된것인지 전혀 감이 잡히질 않네요.. T.T
소스는 아래와 같습니다.
----------------------------------------------------------------------
procedure TsaleFm.FormClose(Sender: TObject; var Action: TCloseAction);
var
kcash,kcash1 : string;
begin
kcash :='1';
kcash1 :='0';
if not query2.Active then exit;
if not DBGrid1.DataSource.DataSet.FieldByName('일자').isnull then
begin
Query1.Close;
Query1.sql.clear;
Query1.sql.add('update 판매_tbl set');
Query1.sql.add(' 구분 ='''', ');
Query1.sql.add(' 결재구분_id = '''+kcash+''' ');
Query1.sql.add('where 결재구분_id = '''+kcash1+''' ');
Query1.ExecSQL;
if MessageDlg('종료하면 현금결재로 처리됩니다. '+#13+'종료하시겠습니까?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
exit
else begin
Query4.close;
action := cafree;
mainFm.Btnenable(false);
end;
end;
end;
---------------------------------------------------------------------
고수님들 어디가 잘못 된것인지 알려 주심 감사하겠습니다.
항상 질문만 올리네요...
오늘 하루도 즐거운 하루 되시고 즐코하세요...
CloseQuery 이벤트에서 해보세여....
아마도 잘 될겁니다..